Changeset 643

Timestamp:

03/13/05 08:19:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1998

Message:

* fix ordering; better debug msg for unimplemented ops

Files:

• src/Prim.hs (modified) (3 diffs)

src/Prim.hs

@@ -33 +33 @@
     epoch = CalendarTime 2000 January 1 0 0 0 0 Saturday 0 "UTC" 0 False
 op0 "not" = const retEmpty
-op0 s    = \x -> return $ VError ("unimplemented listOp: " ++ s) (Val $ VList x)
-
 op0 "¥" = return . VList . concat . transpose . map vCast
 op0 "Y" = op0 "¥"
+op0 other = \x -> return $ VError ("unimplemented listOp: " ++ other) (App other (map Val x) [])
 
 retEmpty = do
@@ -215 +214 @@
 op1 "shift"= op1Pop (head, tail)
 op1 "pick" = op1Pick
-op1 s      = return . (\x -> VError ("unimplemented unaryOp: " ++ s) (Val x))
+op1 other  = return . (\x -> VError ("unimplemented unaryOp: " ++ other) (App other [Val x] []))
 
 
@@ -382 +381 @@
         | glue `isPrefixOf` rest = ([], rest)
         | otherwise = (x:piece, rest') where (piece, rest') = breakOnGlue glue xs
-op2 s    = \x y -> return $ VError ("unimplemented binaryOp: " ++ s) (App s [] [Val x, Val y])
+op2 other = \x y -> return $ VError ("unimplemented binaryOp: " ++ other) (App other [Val x, Val y] [])
 
 op2Hyper op x y