diff --git a/simulator.rkt b/simulator.rkt index 2d3f93f..8e8ae3b 100644 --- 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))]))