fix mode in rumble:equal?/recur

2018-05-13 13:44:05 -03:00 · 2018-05-13 13:44:05 -03:00 · 293beac7ff
commit 293beac7ff
parent e691757eb8
1 changed files with 1 additions and 1 deletions
--- 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?))

 ;; ----------------------------------------