From 78ec4e066fe0a1cdded81bd577859b1bfe397f98 Mon Sep 17 00:00:00 2001
From: TudbuT <forge-public@mail.tudbut.de>
Date: Sat, 16 Nov 2024 00:42:52 +0100
Subject: [PATCH] make pure.spl's or behave like std

---
 spl/pure.spl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/spl/pure.spl b/spl/pure.spl
index 679bf84..fc531c1 100644
--- 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 ;