parse arguments. provide basic math operations

collects/honu/core/main.rkt

@@ -10,6 +10,11 @@
          (rename-out [#%dynamic-honu-module-begin #%module-begin]
                      [honu-function function]
                      [honu-var var]
+                     [honu-+ +]
+                     [honu-- -]
+                     [honu-* *]
+                     [honu-/ /]
+                     [honu-^ ^]
                      [literal:honu-= =]
                      [literal:semicolon |;|]
                      [literal:#%braces #%braces]

collects/honu/core/private/honu2.rkt

@@ -46,3 +46,5 @@
                                  #'(- left right))))
 
 (define-binary-operator honu-* 2 *)
+(define-binary-operator honu-/ 2 /)
+(define-binary-operator honu-^ 2 expt)

collects/honu/core/private/parse2.rkt

@@ -157,8 +157,12 @@
                   (do-parse #'(rest ...)
                             0
                             (lambda (x) x)
-                            (left (with-syntax ([current current])
+                            (left (with-syntax ([current current]
-                                    #'(current args ...))))
+                                                [(parsed-args ...)
+                                                 (if (null? (syntax->list #'(args ...)))
+                                                   '()
+                                                   (list (parse #'(args ...))))])
+                                    #'(current parsed-args ...))))
                   #;
                   (error 'parse "function call")]
                  [else (error 'what "dont know ~a" #'head)])]

collects/tests/honu/test.honu

@@ -22,7 +22,8 @@ function test1(){
   test("x = 3", x, 3);
   test("y = 2", y, 2);
   */
-  print(x)
+  print(x + 2);
+  print(x ^ 2)
 }
 
 test1()