continuing to work on the call/cc linkage

simulator-primitives.rkt

@@ -29,7 +29,7 @@
                 (make-undefined)]
                )))))]))
 
-(define my-callcc
+(define call/cc
   (make-closure call/cc-label
                 1
                 '()))
@@ -57,4 +57,4 @@
                                                      display
                                                      displayln
                                                      newline)
-                                      #:constants (null pi e)))
+                                      #:constants (null pi e call/cc)))

test-compiler.rkt

@@ -531,5 +531,9 @@
       #:control-limit 1)
 
 
+(test (let ([x 16])
+        (call/cc (lambda (k) (+ x x))))
+      32)
+
 ;(simulate (compile (parse '42) 'val 'next))
 ;(compile (parse '(+ 3 4)) 'val 'next)