starting to re-enable call/cc tests

compile.rkt

@@ -877,8 +877,7 @@
                     `(,(make-PushControlFrame proc-return)
                       ,(make-AssignPrimOpStatement 'val (make-GetCompiledProcedureEntry))
                       ,(make-GotoStatement entry-point)
-                      ,proc-return
-                      #;,(make-PopEnvironment n 0))))]
+                      ,proc-return)))]
                 
                 [else
                  ;; This case happens for evaluating arguments, since the

test-compiler.rkt

@@ -606,13 +606,13 @@
 
 
 
-#;(test '(let ([x 16])
+(test '(let ([x 16])
            (call/cc (lambda (k) (+ x x))))
       32
       #:with-bootstrapping? #t)
 
 
-#;(test '(add1 (let ([x 16])
+(test '(add1 (let ([x 16])
                (call/cc (lambda (k) 
                           (k 0)
                           (+ x x)))))
@@ -621,7 +621,7 @@
 
 
 ;; Reference:  http://lists.racket-lang.org/users/archive/2009-January/029812.html
-#;(let ([op (open-output-string)])
+(let ([op (open-output-string)])
   (parameterize ([current-simulated-output-port op])
     (test '(begin (define program (lambda ()
                                     (let ((y (call/cc (lambda (c) c))))
@@ -641,7 +641,7 @@
 
 
 ;; ctak
-#;(test '(begin
+(test '(begin
         (define (ctak x y z)
           (call-with-current-continuation
            (lambda (k)