diff --git a/beautiful-racket-lib/br/eopl.rkt b/beautiful-racket-lib/br/eopl.rkt index d7c8cc9..5062b6c 100644 --- a/beautiful-racket-lib/br/eopl.rkt +++ b/beautiful-racket-lib/br/eopl.rkt @@ -1,5 +1,5 @@ #lang br -(require rackunit racket/struct (for-syntax br/datum)) +(require racket/struct (for-syntax br/datum)) (provide define-datatype cases occurs-free?) #;(begin @@ -88,9 +88,10 @@ (occurs-free? search-var rand))])) - -(check-true (occurs-free? 'foo (var-exp 'foo))) -(check-false (occurs-free? 'foo (var-exp 'bar))) -(check-false (occurs-free? 'foo (lambda-exp 'foo (var-exp 'bar)))) -(check-true (occurs-free? 'foo (lambda-exp 'bar (var-exp 'foo)))) -(check-true (occurs-free? 'foo (lambda-exp 'bar (lambda-exp 'zim (lambda-exp 'zam (var-exp 'foo)))))) \ No newline at end of file +(module+ test + (require rackunit) + (check-true (occurs-free? 'foo (var-exp 'foo))) + (check-false (occurs-free? 'foo (var-exp 'bar))) + (check-false (occurs-free? 'foo (lambda-exp 'foo (var-exp 'bar)))) + (check-true (occurs-free? 'foo (lambda-exp 'bar (var-exp 'foo)))) + (check-true (occurs-free? 'foo (lambda-exp 'bar (lambda-exp 'zim (lambda-exp 'zam (var-exp 'foo))))))) \ No newline at end of file diff --git a/beautiful-racket/info.rkt b/beautiful-racket/info.rkt index c64e702..0494352 100644 --- a/beautiful-racket/info.rkt +++ b/beautiful-racket/info.rkt @@ -2,7 +2,7 @@ (define collection 'multi) (define version "0.01") -(define deps '("base" "sugar" "beautiful-racket-lib" "rackunit-lib" "ragg")) +(define deps '("base" "sugar" "beautiful-racket-lib" "rackunit-lib" "ragg" "parser-tools-lib")) (define build-deps '("racket-doc")) (define test-omit-paths '("br/bf")) \ No newline at end of file