From c4a582bea2cb82f591b766c4425e800265f187a0 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sat, 5 Sep 2009 16:33:27 -0700
Subject: [PATCH] Revert eta-expansion change.

---
 src/runtime/boole.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.25.1