Fix definition of defined?.

original commit: d47c85be22f5c55149a458c8940fa53567b241b7
2014-04-22 09:41:09 -04:00 · 2014-04-22 09:41:09 -04:00 · 404fceb7d6
commit 404fceb7d6
parent 039db05530
1 changed files with 1 additions and 2 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt
@ -12,5 +12,4 @@
           val
           (error (format "Assertion ~a failed on ~v" pred val)))))))

-(define (defined? v)
-  (not (equal? v (letrec ([x x]) x))))
+(define (defined? v) #t)