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

svn: r17374

Browse Source
This commit is contained in:
Eli Barzilay 2009-12-21 05:47:20 +00:00
parent cda2d12914
commit f1e17c7b5b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/foreign.ss
View File

@ -595,7 +595,9 @@
(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))]))
(when (keyword? k) (kwds [#:abi abi] [#:keep keep] [#:atomic? atomic?] [#:save-errno errno])))) (when (keyword? k)
(kwds [#:abi abi] [#:keep keep] [#:atomic? atomic?]
[#:save-errno errno]))))
(unless abi (set! abi #'#f)) (unless abi (set! abi #'#f))
(unless keep (set! keep #'#t)) (unless keep (set! keep #'#t))
(unless atomic? (set! atomic? #'#f)) (unless atomic? (set! atomic? #'#f))