suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix error

Browse Source 
svn: r17375
This commit is contained in:
Eli Barzilay 2009-12-21 06:25:53 +00:00
parent f1e17c7b5b
commit add4f479c6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/foreign.ss
View File

@ -591,7 +591,7 @@
(define-syntax-rule (kwds [key var] ...) (define-syntax-rule (kwds [key var] ...)
(case k (case k
[(key) (if var [(key) (if var
(err (format "got a second ~s keyword") 'key (car xs)) (err (format "got a second ~s keyword" 'key) (car xs))
(begin (set! var (cadr xs)) (set! xs (cddr xs)) (loop)))] (begin (set! var (cadr xs)) (set! xs (cddr xs)) (loop)))]
... ...
[else (err "unknown keyword" (car xs))])) [else (err "unknown keyword" (car xs))]))