From 168e7abd48b3295e6c69dce8b2e616b651b678a6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 3 Aug 1999 17:56:32 +0000 Subject: [PATCH] . original commit: 0edb2ad19d46400087c8bed0e333ee6e6b8dc1ea --- collects/mzlib/functior.ss | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss index a1e07a1..3f0aeb7 100644 --- a/collects/mzlib/functior.ss +++ b/collects/mzlib/functior.ss @@ -306,12 +306,11 @@ (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))) + (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)))