1 files changed, 1 insertions, 2 deletions

@@ -69,7 +69,7 @@
   ;; meanings.  Each PROCEDURE should take one parameter, a port.
   (make-parameter
    (list (cons #\, (lambda (port) (eval (read port) ; standard scheme read
-                                   (interaction-environment))))
+                                   (render-environment))))
          #;(cons #\@ (lambda (port)     ; wrap the next form in `sxml->html'
          `(sxml->html ,(list 'quasiquote (read port))))))))
 
@@ -95,4 +95,3 @@
 
 (define (unprintable/backtrack ch)
   (list ch #\#))
-         (display (list->string (reverse acc))))