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 @@
 (define (assq-ref key lis)
  (let ((val (assq key lis)))
    (if val (cdr val) #f)))
+(define (unprintable/skip . _)
+  '())
+(define (unprintable/backtrack ch)
+  (list ch #\#))

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 #\#))