From 293beac7ff9284661162c0324ff6e9d4734e8715 Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Sun, 13 May 2018 13:44:05 -0300 Subject: [PATCH] fix mode in rumble:equal?/recur --- racket/src/cs/rumble/equal.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/equal.ss b/racket/src/cs/rumble/equal.ss index 5c0b76e44d..3ad135dccf 100644 --- a/racket/src/cs/rumble/equal.ss +++ b/racket/src/cs/rumble/equal.ss @@ -129,7 +129,7 @@ (define/who (equal?/recur a b eql?) (check who (procedure-arity-includes/c 2) eql?) - (do-equal? a b (lambda (x) #f) eql?)) + (do-equal? a b 'equal?/recur eql?)) ;; ----------------------------------------