From 47b8713b15f2e35e6782a9a288d30c61c4d323ca Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 May 1987 00:12:20 +0000
Subject: [PATCH] =?utf8?q?Implement=20`boolean=3D=3F'.?=

---
 v7/src/compiler/base/utils.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index da2f59721..8fc820db0 100644
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.85 1987/04/17 07:38:02 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.86 1987/05/07 00:12:20 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -86,6 +86,9 @@ MIT in each case. |#
       (cons (cons (caar alist) (cdar alist))
 	    (copy-alist (cdr alist)))))
 
+(define (boolean=? x y)
+  (if x y (not y)))
+
 (define (warn message . irritants)
   (newline)
   (write-string "Warning: ")
-- 
2.25.1