diff options
| author | Case Duckworth | 2023-08-28 23:22:18 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-08-28 23:22:18 -0500 |
| commit | c6ee07ec3d713b7e2f5da66f78f11c3dfdb075b8 (patch) | |
| tree | fbfc83d46fdb3704282464989e562c5f1bbc856d | |
| parent | Rename arguments for clarity (diff) | |
| download | schmaltz-c6ee07ec3d713b7e2f5da66f78f11c3dfdb075b8.tar.gz schmaltz-c6ee07ec3d713b7e2f5da66f78f11c3dfdb075b8.zip | |
Fix typos and errors
| -rw-r--r-- | schmaltz.sls | 3 |
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)))) | ||