`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.
(unless use-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)
(set! expr (void))))
(when use-expr?