From d1ec05ece1f1c7dfdab204262580f73bd4579c30 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 5 Mar 2018 15:35:19 -0800 Subject: [PATCH] tiny --- quad/quad/wrap.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/quad/quad/wrap.rkt b/quad/quad/wrap.rkt index 28d99f8f..faf44deb 100644 --- a/quad/quad/wrap.rkt +++ b/quad/quad/wrap.rkt @@ -47,7 +47,6 @@ (define at-start? (eq? dist-so-far start-signal)) (define underflow? (and (not at-start?) (<= (+ dist-so-far (if (and (quad? x) (printable? x 'end)) (distance x) 0)) target-size))) (define (add-to-current-wrap) - (define printable (and (quad? x) (printable? x (and at-start? 'start)))) (define dist (and printable (distance x))) (loop wraps @@ -67,7 +66,7 @@ (define-values (pieces-for-this-wrap next-xs) (if before? (values wrap-pieces xs) - (values (if (nonprinting-at-end? x) wrap-pieces (cons x wrap-pieces)) (cdr xs)))) + (values (if (and (quad? x) (nonprinting-at-end? x)) wrap-pieces (cons x wrap-pieces)) (cdr xs)))) ; omit nonprinting quad (loop (list* (list break-val) (finish-wrap pieces-for-this-wrap) wraps) null start-signal