Changeset 3444

Timestamp:

05/19/05 18:19:24 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5016

Message:

warn() implemented.

Files:

• src/Pugs/Prim.hs (modified) (2 diffs)

src/Pugs/Prim.hs

@@ -262 +262 @@
     strs <- fromVal v
     fail (concat strs)
+op1 "warn" = \v -> do
+    strs <- fromVal v
+    errh <- readVar "$*ERR"
+    pos  <- asks envPos
+    op2 "print" errh $ VList [ VStr $ pretty (VError strs (NonTerm pos)) ++ "\n" ]
 op1 "exit" = op1Exit
 op1 "readlink" = \v -> do
@@ -1116 +1121 @@
 \\n   Bool      pre     close   (Socket)\
 \\n   Bool      pre     die     (List)\
+\\n   Bool      pre     warn    (List)\
 \\n   IO        pre     open    (Str)\
 \\n   Socket    pre     listen  (Int)\