need test to make sure we're doing variable capture.

2011-03-07 16:56:10 -05:00 · 2011-03-07 16:56:10 -05:00 · 283370015d
commit 283370015d
parent 1aeeafd149
1 changed files with 3 additions and 1 deletions
--- a/simulator.rkt
+++ b/simulator.rkt
@ -193,7 +193,9 @@
                    (error 'get-copmiled-procedure-entry)]))]

          [(MakeCompiledProcedure? op)
-           m]
+           (target-updater m (make-closure (MakeCompiledProcedure-label op)
+                                           (list)))]
+
          [(ApplyPrimitiveProcedure? op)
           m]
          [(LookupLexicalAddress? op)