fix sequences

collects/honu/core/main.rkt

@@ -9,6 +9,9 @@
          print
          (rename-out [#%dynamic-honu-module-begin #%module-begin]
                      [honu-function function]
+                     [honu-var var]
+                     [literal:honu-= =]
+                     [literal:semicolon |;|]
                      [literal:#%braces #%braces]
                      [literal:#%parens #%parens])
          )

collects/honu/core/private/parse2.rkt

@@ -135,6 +135,13 @@
                       (lambda (x) x)
                       (left current)))]
          [(semicolon? #'head)
+          (do-parse #'(rest ...) 0
+                    (lambda (stuff)
+                      (with-syntax ([stuff stuff]
+                                    [current (left current)])
+                        #'(begin current stuff)))
+                    #'(void))
+         #;
           (with-syntax ([so-far (left current)])
             #'(splicing-let-syntax ([more (lambda (stx)
                                             (parse #'(rest ...)))])

collects/tests/honu/test.honu

@@ -16,13 +16,13 @@ function test(t, a, b){
 */
 
 function test1(){
-  print(5)
-/*
   var x = 3;
+/*
   const y = 2;
   test("x = 3", x, 3);
   test("y = 2", y, 2);
   */
+  print(x)
 }
 
 test1()

collects/tests/honu/test.rkt

@@ -47,6 +47,7 @@
 
 (let ()
   (fake-module-begin #hx(honu_function test(x){
+                                       print(x);
                                        print(x)
                                        }
                          test(2))))