From b938fc8025fc1f886d9879cb33060d81fd3f6636 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 27 Apr 1999 17:14:25 +0000
Subject: [PATCH] .

original commit: 7bf4cbba1009e5028fb78fb1ad862e30953c1b22
---
 collects/mzlib/functior.ss | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index ce03316..4fc48f3 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -293,6 +293,15 @@
 		 l)
 	     (raise-type-error 'last-pair "pair" l)))))
 
+    (define boolean=?
+      (lambda (x y)
+	(unless (and (boolean? x)
+		     (boolean? y))
+	  (raise-type-error 'boolean=? 
+			    "boolean"
+			    (if (boolean? x) y x)))
+	(eq? x y)))
+
     (define cons? (lambda (x) (pair? x)))
     (define empty? (lambda (x) (null? x)))
     (define empty '())