`that do` → `that does`
This commit is contained in:
Matthew Butterick 2017-05-30 08:05:40 -07:00 committed by Ben Greenman
parent ea778e1dd9
commit 4c5f66ff4a

View File

@ -547,7 +547,7 @@
;; disappear from the inputs. ;; disappear from the inputs.
(unless use-expr? (unless use-expr?
(if (and (pair? no-expr?) (car no-expr?) expr) (if (and (pair? no-expr?) (car no-expr?) expr)
(err "got an expression for a custom type that do not use it" (err "got an expression for a custom type that does not use it"
clause) clause)
(set! expr (void)))) (set! expr (void))))
(when use-expr? (when use-expr?