diff options
| author | Case Duckworth | 2023-08-28 23:16:40 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-08-28 23:16:40 -0500 |
| commit | ab6ef0adffc86edb0ed3fbc8dbcf5be96ba7812c (patch) | |
| tree | 4a40d8d1245face7466b0f20b93487016d5cb237 /schmaltz.scm | |
| parent | Correct dependencies (diff) | |
| download | schmaltz-ab6ef0adffc86edb0ed3fbc8dbcf5be96ba7812c.tar.gz schmaltz-ab6ef0adffc86edb0ed3fbc8dbcf5be96ba7812c.zip | |
Add unprintable helper functions
Diffstat (limited to 'schmaltz.scm')
| -rwxr-xr-x[-rw-r--r--] | schmaltz.scm | 4 |
1 files changed, 2 insertions, 2 deletions
| diff --git a/schmaltz.scm b/schmaltz.scm index f8885f5..9e0e64a 100644..100755 --- a/schmaltz.scm +++ b/schmaltz.scm | |||
| @@ -15,8 +15,8 @@ | |||
| 15 | (sxml->html ,(list 'quasiquote (read port)))))) | 15 | (sxml->html ,(list 'quasiquote (read port)))))) |
| 16 | (render-specials))) | 16 | (render-specials))) |
| 17 | (render-unprintables | 17 | (render-unprintables |
| 18 | (list (cons "#<unspecified>" (lambda _ '())) | 18 | (list (cons "#<unspecified>" unprintable/skip) |
| 19 | (cons "#!eof" (lambda (ch) (list ch #\#)))))) | 19 | (cons "#!eof" unprintable/backtrack)))) |
| 20 | (else)) | 20 | (else)) |
| 21 | 21 | ||
| 22 | (define (main args) | 22 | (define (main args) |