From 889e5a92e4e0c40ab249f9f86d0fa2647132d87a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 7 Oct 2003 15:17:55 +0000
Subject: Updates for editor. Dummies for hugs.

---
 src/GF/Compile/PGrammar.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/PGrammar.hs b/src/GF/Compile/PGrammar.hs
index 6237b6f25..e2fdebd58 100644
--- a/src/GF/Compile/PGrammar.hs
+++ b/src/GF/Compile/PGrammar.hs
@@ -9,6 +9,7 @@ import qualified AbsGFC as A
 import qualified GFC as G
 import GetGrammar
 import Macros
+import MMacros
 
 import Operations
 
@@ -46,9 +47,7 @@ string2formsAndTerm s = case s of
 -}
 
 string2ident :: String -> Err Ident
-string2ident s = return $ case s of
-  c:'_':i -> identV (readIntArg i,[c]) ---
-  _ -> zIdent s
+string2ident s = return $ string2var s
 
 {-
 -- reads the Haskell datatype
-- 
cgit v1.2.3