Compiler can now push ints and strings

1 files changed, 11 insertions, 3 deletions

diff --git a/compiler/standard.ey b/compiler/standard.ey
index 0d96431..7df61f3 100644
--- a/compiler/standard.ey
+++ b/compiler/standard.ey
@@ -7,14 +7,18 @@
   } quoted { } { * } ? *
 } "}_" defq
 
-{ ==f _ ==a len ==l
+{ =*f _ =*a len ==l
   l {
-    0 a *
-    1 l 1 sub range { a * f * } each
+    0 a
+    1 l 1 sub range { a f } each
     } { "fold on empty array" die }
   ? *
 } /fold deff
 
+{ _ =*a len ==l
+  [ 1 l range { l -01 sub a } each ]
+} /reverse deff
+
 { |or fold } /any deff
 { |and fold } /all deff
 
@@ -41,4 +45,8 @@
   not { "Assertion failure" die } rep
 } /assert deff
 
+{ ==s
+  [ s keys { s -01 . } each ]
+} /values deff
+
 # vim: syn=elymas