From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sat, 5 Sep 2009 23:33:27 +0000 (-0700)
Subject: Revert eta-expansion change.
X-Git-Tag: 20100708-Gtk~344
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c4a582bea2cb82f591b766c4425e800265f187a0;p=mit-scheme.git

Revert eta-expansion change.
---

diff --git a/src/runtime/boole.scm b/src/runtime/boole.scm
index 0eb87ee9f..bdfb25a09 100644
--- a/src/runtime/boole.scm
+++ b/src/runtime/boole.scm
@@ -28,7 +28,8 @@ USA.
 
 (declare (usual-integrations))
 
-(define-integrable not (ucode-primitive not))
+(define-integrable (not object)
+  ((ucode-primitive not) object))
 
 (define false #f)
 (define true #t)