From 2bc4b2a224fe7a485a1060c69ebde925cecdeb05 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 12 Apr 2011 16:12:46 -0400 Subject: [PATCH] simulator seems to be in place --- simulator.rkt | 2 ++ 1 file changed, 2 insertions(+) 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))]))