fix error message

This commit is contained in:
Ryan Culpepper 2019-04-29 17:14:50 +02:00
parent 375a4837c7
commit b86ca89102

View File

@ -143,8 +143,7 @@
(define (check-restricted-format-string who fmt)
(unless (restricted-format-string? fmt)
(raise-arguments-error who
(format "format string should have ~a placeholders"
fmt)
"format string should have only ~a placeholders"
"format string" fmt)))
(define (make-subs who id fmt args arg-strs intro)