generalized tour to a variable language by the script MkTour

1 files changed, 6 insertions, 0 deletions

diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs
index d53be2195..84bfc43c5 100644
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -94,6 +94,12 @@ loop opts gfenv0 = do
   -- special commands, requiring source grammar in env
 
   case pwords of
+{-
+    "eh":w:_ -> do
+             cs <- readFile w >>= return . map words . lines
+             gfenv' <- foldM (flip (process False benv)) gfenv cs
+             loopNewCPU gfenv'
+-}
 
       "q":_  -> ifv (putStrLn "See you.") >> return gfenv