Fix definition of defined?.

2014-04-22 09:41:09 -04:00 · 2014-04-22 09:41:09 -04:00 · d47c85be22
commit d47c85be22
parent 00e05020d8
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)