From f0f9c0acfa193969bce80d803478fe8b46e03386 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 8 Feb 2010 10:52:08 +0000
Subject: [PATCH] generalized tour to a variable language by the script MkTour

---
 contrib/summerschool/foods/FoodsGer.gf | 2 +-
 src/compiler/GFI.hs                    | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/contrib/summerschool/foods/FoodsGer.gf b/contrib/summerschool/foods/FoodsGer.gf
index 934cefb9c..d7ba99c11 100644
--- a/contrib/summerschool/foods/FoodsGer.gf
+++ b/contrib/summerschool/foods/FoodsGer.gf
@@ -1,4 +1,4 @@
---# -path=.:present
+FL--# -path=.:present
 
 -- (c) 2009 Aarne Ranta under LGPL
 
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