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.sls | |
| parent | Correct dependencies (diff) | |
| download | schmaltz-ab6ef0adffc86edb0ed3fbc8dbcf5be96ba7812c.tar.gz schmaltz-ab6ef0adffc86edb0ed3fbc8dbcf5be96ba7812c.zip | |
Add unprintable helper functions
Diffstat (limited to 'schmaltz.sls')
| -rw-r--r-- | schmaltz.sls | 6 |
1 files changed, 6 insertions, 0 deletions
| diff --git a/schmaltz.sls b/schmaltz.sls index 25d926b..4afcf40 100644 --- a/schmaltz.sls +++ b/schmaltz.sls | |||
| @@ -77,3 +77,9 @@ | |||
| 77 | (define (assq-ref key lis) | 77 | (define (assq-ref key lis) |
| 78 | (let ((val (assq key lis))) | 78 | (let ((val (assq key lis))) |
| 79 | (if val (cdr val) #f))) | 79 | (if val (cdr val) #f))) |
| 80 | |||
| 81 | (define (unprintable/skip . _) | ||
| 82 | '()) | ||
| 83 | |||
| 84 | (define (unprintable/backtrack ch) | ||
| 85 | (list ch #\#)) | ||