Changeset 3644 for src/Pugs/Prim/List.hs

Timestamp:

05/22/05 15:48:36 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5201

Message:

* first step in making legible stack trace in error

messages -- VError now carries [Pos], not Exp

Files:

• src/Pugs/Prim/List.hs (modified) (1 diff)

src/Pugs/Prim/List.hs

@@ -43 +43 @@
     then return $ head $ Set.elems set
     else return undef
-op1Pick v = return $ VError "pick not defined" (Val v)
+op1Pick v = retError "pick not defined" v
 
 op1Sum :: Val -> Eval Val