generalized tour to a variable language by the script MkTour

This commit is contained in:
aarne
2010-02-08 10:52:08 +00:00
parent 9564d85fa5
commit f0f9c0acfa
2 changed files with 7 additions and 1 deletions

View File

@@ -1,4 +1,4 @@
--# -path=.:present
FL--# -path=.:present
-- (c) 2009 Aarne Ranta under LGPL

View File

@@ -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