From f14b48da759c432f7890bc937f49039dfb962e01 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 6 Dec 2014 08:14:53 +0100
Subject: [PATCH] fix, module name get be retrieved "std.string"

---
 src/ce_dlang.pas | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/ce_dlang.pas b/src/ce_dlang.pas
index 4987b27f..f25464d4 100644
--- a/src/ce_dlang.pas
+++ b/src/ce_dlang.pas
@@ -886,14 +886,15 @@ begin
   mtok := false;
   for ltk in aTokenList do
   begin
-    if mtok then
-    begin
-      if ltk.kind = ltkIdentifier then
+    if mtok then begin
+      case ltk.kind of
+      ltkIdentifier, ltkKeyword:
         result += ltk.data;
-      if ltk.kind = ltkSymbol then
-      case ltk.data of
-        '.': result += ltk.data;
-        ';': exit;
+      ltkSymbol:
+        case ltk.data of
+          '.': result += ltk.data;
+          ';': exit;
+        end;
       end;
     end
     else