Changeset 642 for src/Prim.hs

Timestamp:

03/13/05 08:15:39 (4 years ago)

Author:

nothingmuch

svk:copy_cache_prev:

1998

Message:

Attempt at Y and yen operators

Files:

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

src/Prim.hs

@@ -34 +34 @@
 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 "¥"
 
 retEmpty = do
@@ -69 +72 @@
     liftIO $ writeIORef ref $ case val of
         (VStr str)  -> VStr $ strInc str
-        _           -> op1Numeric (+1) (vCast val)
+        b           -> op1Numeric (+1) (vCast val)
     case val of
         (VStr _)    -> return val
@@ -695 +698 @@
 \\n   List      left    »xx«    (Any, Any)\
 \\n   List      list    ,       (List)\
+\\n   List      list    ¥               (List)\
+\\n   List      list    Y               (List)\
 \\n   List      spre    <==     (List)\
 \\n   List      left    ==>     (List, Code)\