Changeset 3919 for src/Pugs/AST/Internals.hs

Timestamp:

05/26/05 23:10:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* marshall pugs execution environment into $pugs::env.

Files:

• src/Pugs/AST/Internals.hs (modified) (1 diff)

src/Pugs/AST/Internals.hs

@@ -213 +213 @@
     fromSV sv = do
         str <- liftIO $ svToVStr sv
-        fail $ "cannot cast from SV (" ++ str ++ " to " ++ errType (undefined :: n)
+        fail $ "cannot cast from SV (" ++ str ++ ") to " ++ errType (undefined :: n)
     vCast :: Val -> n
     vCast v@(VRef _)    = castFail v