Simplify silly %trace syntaxers.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index 2e629e9204b4d1845510cde928d50b6aaac3bb98..2c625e2ae836e8e3d0fd42abd12179725af68308 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -556,18 +556,21 @@ USA.
 
 (define-syntax %if-tracing
   (syntax-rules ()
-    ((_ . BODY)
-     (if %trace? ((lambda () . BODY))))))
+    ((_ BODY ...)
+     (if %trace?
+        (begin BODY ...)))))
 
 (define-syntax %assert
   (syntax-rules ()
-    ((_ TEST . MSG)
-     (if (not TEST) (error "Failed assert:" . MSG)))))
+    ((_ TEST MSG ...)
+     (if (not TEST)
+        (error "Failed assert:" MSG ...)))))
 
 (define-syntax %trace
   (syntax-rules ()
-    ((_ . MSG)
-     (if %trace? ((lambda () (outf-error . MSG)))))))
+    ((_ MSG ...)
+     (if %trace?
+        (outf-error MSG ...)))))
 
 (define (tindent)
   (make-string (* 2 (length calloutback-stack)) #\space))
\ No newline at end of file