From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 May 1987 00:12:20 +0000 (+0000)
Subject: Implement `boolean=?'.
X-Git-Tag: 20090517-FFI~13550
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=47b8713b15f2e35e6782a9a288d30c61c4d323ca;p=mit-scheme.git

Implement `boolean=?'.
---

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: ")