From f0f9c0acfa193969bce80d803478fe8b46e03386 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 8 Feb 2010 10:52:08 +0000 Subject: generalized tour to a variable language by the script MkTour --- src/compiler/GFI.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/compiler') 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 -- cgit v1.2.3