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 ;