From f1e17c7b5ba9a3a3172eb445026f918ce5d616d1 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 21 Dec 2009 05:47:20 +0000 Subject: [PATCH] svn: r17374 --- collects/scheme/foreign.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/scheme/foreign.ss b/collects/scheme/foreign.ss index 97507ffad4..1c1f74ccec 100644 --- a/collects/scheme/foreign.ss +++ b/collects/scheme/foreign.ss @@ -595,7 +595,9 @@ (begin (set! var (cadr xs)) (set! xs (cddr xs)) (loop)))] ... [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 keep (set! keep #'#t)) (unless atomic? (set! atomic? #'#f))