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) (eq? read-sym 'read-syntax)
(lambda (spec) (lambda (spec)
(lambda () (lambda ()
(error read-sym "cannot find reader for `#lang ~a ~a'" (error read-sym "cannot find reader for `#lang ~a ~s'"
self-sym self-sym
spec))))]) spec))))])
(let ([r (convert r)]) (let ([r (convert r)])