about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--schmaltz.sls3
1 files changed, 1 insertions, 2 deletions
diff --git a/schmaltz.sls b/schmaltz.sls index a5becac..c07bc3a 100644 --- a/schmaltz.sls +++ b/schmaltz.sls
@@ -69,7 +69,7 @@
69 ;; meanings. Each PROCEDURE should take one parameter, a port. 69 ;; meanings. Each PROCEDURE should take one parameter, a port.
70 (make-parameter 70 (make-parameter
71 (list (cons #\, (lambda (port) (eval (read port) ; standard scheme read 71 (list (cons #\, (lambda (port) (eval (read port) ; standard scheme read
72 (interaction-environment)))) 72 (render-environment))))
73 #;(cons #\@ (lambda (port) ; wrap the next form in `sxml->html' 73 #;(cons #\@ (lambda (port) ; wrap the next form in `sxml->html'
74 `(sxml->html ,(list 'quasiquote (read port)))))))) 74 `(sxml->html ,(list 'quasiquote (read port))))))))
75 75
@@ -95,4 +95,3 @@
95 95
96(define (unprintable/backtrack ch) 96(define (unprintable/backtrack ch)
97 (list ch #\#)) 97 (list ch #\#))
98 (display (list->string (reverse acc))))