From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 12 Aug 2012 22:26:19 +0000 (-0700)
Subject: ffi: Fixed swarn to use ARGS, including 'in FORM at the end.
X-Git-Tag: mit-scheme-pucked-9.2.12~566
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=66d5a0bb1bca2d5d22ad2f95828d381675f7073a;p=mit-scheme.git

ffi: Fixed swarn to use ARGS, including 'in FORM at the end.
---

diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm
index aa977f669..483fc483c 100644
--- a/src/ffi/syntax.scm
+++ b/src/ffi/syntax.scm
@@ -514,4 +514,4 @@ USA.
 			     (cons message args)))))))
 
 (define (swarn form message . args)
-  (warn (string-append messsage " in:") form))
\ No newline at end of file
+  (apply warn message args 'in form))
\ No newline at end of file