make pure.spl's or behave like std

2024-11-16 00:42:52 +01:00 · 2024-11-16 00:42:52 +01:00 · 78ec4e066f
commit 78ec4e066f
parent 9e936277c7
1 changed files with 3 additions and 4 deletions
--- a/spl/pure.spl
+++ b/spl/pure.spl
@ -13,7 +13,7 @@ func swap { b a | with a b ;
 }

 func not { !x | with x ;
-    1 
+    1
    x if { pop 0 }
 }

@ -23,9 +23,8 @@ func and { a&&b | with a b ;
 }

 func or { a||b | with a b ;
-    0
-    a if { pop 1 }
-    b if { pop 1 }
+    b
+    a if { pop a }
 }

 func alit-end { array | with type ;