fixed typo
svn: r15830
This commit is contained in:
parent
927a4b45cb
commit
d015699db5
|
@ -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))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user