fix error

svn: r17375
2009-12-21 06:25:53 +00:00 · 2009-12-21 06:25:53 +00:00 · add4f479c6
commit add4f479c6
parent f1e17c7b5b
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/foreign.ss
+++ b/collects/scheme/foreign.ss
@ -591,7 +591,7 @@
        (define-syntax-rule (kwds [key var] ...)
          (case k
            [(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)))]
            ...
            [else (err "unknown keyword" (car xs))]))