From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 16 Sep 2011 20:05:45 +0000 (-0700)
Subject: Simplify silly %trace syntaxers.
X-Git-Tag: release-9.2.0~347^2^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15c8eb3b27848003b625006b0a93dcbfc822de1f;p=mit-scheme.git

Simplify silly %trace syntaxers.
---

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index 2e629e920..2c625e2ae 100644
--- 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