Changeset 5360 for src/Main.hs

Timestamp:

07/10/05 16:32:40 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* Lambdas and Camels, I present... precompiled Prelude!

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -127 +127 @@
 userDefined (MkPad pad) = MkPad $ Map.filterWithKey doFilter pad
     where
-    doFilter "@*END" _      = True
-    doFilter (_:'*':_) _    = False
-    doFilter _ _            = True
+    doFilter key _ = not (key `elem` reserved)
+    reserved = words $
+        "@*ARGS @*INC %*INC $*PUGS_HAS_HSPLUGINS $*EXECUTABLE_NAME " ++
+        "$*PROGRAM_NAME $*PID $*UID $*EUID $*GID $*EGID @*CHECK @*INIT $*IN " ++
+        "$*OUT $*ERR $*ARGS $!  $/ %*ENV $*CWD @=POD $=POD $?PUGS_VERSION " ++
+        "$*OS &?BLOCK_EXIT %?CONFIG $*_ $*AUTOLOAD $*PACKAGE"
 
 repLoop :: IO ()