Missing Ks.

Author: dvanhorn

ziggy/src/build-runtime.rkt

@@ -1,5 +1,5 @@
 #lang crook
-{:= E0 E1 F H0 H1 I J}
+{:= E0 E1 F H0 H1 I J K}
 (provide runtime-path)
 
 (require racket/runtime-path)

ziggy/src/compile.rkt

@@ -303,7 +303,7 @@
     (seq (compile-e e c #f)
          (Push rax) ; save away to be restored by each clause
          (compile-match-clauses ps es (cons #f c) done t?)
-         (Jmp 'raise_error_align)
+         (Jmp 'err)
          (Label done)
          (Add rsp 8)))) {:> K} ; pop the saved value being matched
 

ziggy/src/read-all.rkt

@@ -1,5 +1,5 @@
 #lang crook
-{:= I J}
+{:= I J K}
 (provide read-all)
 ;; read all s-expression until eof
 (define (read-all)