fixed typo

svn: r15830
This commit is contained in:
Ryan Culpepper 2009-08-29 23:02:55 +00:00
parent 927a4b45cb
commit d015699db5

View File

@ -48,7 +48,7 @@
[else (at-next-keyword (cdr lst))]))
(let ([lst (syntax->list stx)])
(unless lst
(raise-syntax-error #f "bad syntax (misued of `.')" stx))
(raise-syntax-error #f "bad syntax (misuse of `.')" stx))
(let*-values ([(lst) (cdr lst)]
[(prog-name-expr lst)
(extract-arg '#:program lst #'(find-system-path 'run-file))]