fix an error message

This commit is contained in:
Matthew Flatt 2011-07-25 13:40:05 -04:00
parent 344168690e
commit c6f1178be3

View File

@ -262,7 +262,7 @@
(eq? read-sym 'read-syntax)
(lambda (spec)
(lambda ()
(error read-sym "cannot find reader for `#lang ~a ~a'"
(error read-sym "cannot find reader for `#lang ~a ~s'"
self-sym
spec))))])
(let ([r (convert r)])