projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
df8ad0a
)
ffi: Fixed swarn to use ARGS, including 'in FORM at the end.
author
Matt Birkholz
<matt@birkholz.chandler.az.us>
Sun, 12 Aug 2012 22:26:19 +0000
(15:26 -0700)
committer
Matt Birkholz
<matt@birkholz.chandler.az.us>
Sun, 12 Aug 2012 22:26:19 +0000
(15:26 -0700)
src/ffi/syntax.scm
patch
|
blob
|
history
diff --git
a/src/ffi/syntax.scm
b/src/ffi/syntax.scm
index aa977f6698c654fdcd048180ff2774566afb89c0..483fc483c8b7582af9cdae7d4ff37cefbfcb051e 100644
(file)
--- 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