From 94326929b144913642121bef8f8ecc98feb992e7 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 3 Nov 2003 16:27:55 +0000
Subject: Fixed several things, e.g. tokenizer.

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

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index a75f4ee0c..122d52766 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -14,6 +14,7 @@ import UTF8
 import Today (today)
 import Arch
 import System (getArgs)
+import Monad (foldM)
 
 -- AR 19/4/2000 -- 11/11/2001
 
@@ -24,8 +25,8 @@ main = do
       java    = oElem forJava os
   putStrLn $ if java then encodeUTF8 welcomeMsg else welcomeMsg
   st <- case fs of 
-    f:_ -> useIOE emptyShellState (shellStateFromFiles os emptyShellState f)
-    _ -> return emptyShellState
+    _ -> useIOE emptyShellState $ foldM (shellStateFromFiles os) emptyShellState fs
+  ---  _ -> return emptyShellState
   if null fs then return () else putCPU 
   if java then sessionLineJ st else do
   gfInteract (initHState st) 
-- 
cgit v1.2.3