Revert eta-expansion change.

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