Restore permissive error message from permissive/c.

Thanks to @rbfindler for the suggestion.
This commit is contained in:
Sam Tobin-Hochstadt 2015-11-08 22:20:56 -05:00
parent 023e2de5be
commit 54be64ad31

View File

@ -51,8 +51,7 @@
(raise-blame-error
blame v "not in permissive mode"))))
#:first-order
(lambda (v)
(permissive-xexprs))))
(lambda (v) #t)))
; content? : TST -> Bool
(define content/c