simulator seems to be in place

2011-04-12 16:12:46 -04:00 · 2011-04-12 16:12:46 -04:00 · 2bc4b2a224
commit 2bc4b2a224
parent 57027917f1
1 changed files with 2 additions and 0 deletions
--- a/simulator.rkt
+++ b/simulator.rkt
@ -62,6 +62,8 @@
                          (let: ([stmt : Statement (vector-ref (machine-text m) i)])
                                (when (symbol? stmt)
                                  (hash-set! (machine-jump-table m) stmt i))
+                                (when (LinkedLabel? stmt)
+                                  (hash-set! (machine-jump-table m) (LinkedLabel-label stmt) i))
                                (loop (add1 i)))))
                  m))]))