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?)) ;; ----------------------------------------