From ba0e46d214e8500bcaf54408fb3958fdc17f81e1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 24 Jul 1999 13:11:07 +0000
Subject: [PATCH] .

original commit: 841b493651edfa411532ac0a4012b32fff00c95e
---
 collects/mzlib/functior.ss | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index 9f8fbea..a1e07a1 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -305,6 +305,14 @@
                           (if (boolean? x) y x)))
       (eq? x y)))
   
+  (define (symbol=? x y)
+    (lambda (x y)
+      (unless (and (symbol? x)
+                   (symbol? y))
+        (raise-type-error 'symbol=? "symbol"
+			  (if (symbol? x) y x)))
+      (eq? x y)))
+  
   (define cons? (lambda (x) (pair? x)))
   (define empty? (lambda (x) (null? x)))
   (define empty '()))