dev-elider-3
Matthew Butterick 9 years ago
parent c8e7f32e19
commit 1476c8e631

@ -1,5 +1,5 @@
#lang br #lang br
(require rackunit racket/struct (for-syntax br/datum)) (require racket/struct (for-syntax br/datum))
(provide define-datatype cases occurs-free?) (provide define-datatype cases occurs-free?)
#;(begin #;(begin
@ -88,9 +88,10 @@
(occurs-free? search-var rand))])) (occurs-free? search-var rand))]))
(module+ test
(check-true (occurs-free? 'foo (var-exp 'foo))) (require rackunit)
(check-false (occurs-free? 'foo (var-exp 'bar))) (check-true (occurs-free? 'foo (var-exp 'foo)))
(check-false (occurs-free? 'foo (lambda-exp 'foo (var-exp 'bar)))) (check-false (occurs-free? 'foo (var-exp 'bar)))
(check-true (occurs-free? 'foo (lambda-exp 'bar (var-exp 'foo)))) (check-false (occurs-free? 'foo (lambda-exp 'foo (var-exp 'bar))))
(check-true (occurs-free? 'foo (lambda-exp 'bar (lambda-exp 'zim (lambda-exp 'zam (var-exp 'foo)))))) (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)))))))

@ -2,7 +2,7 @@
(define collection 'multi) (define collection 'multi)
(define version "0.01") (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 build-deps '("racket-doc"))
(define test-omit-paths '("br/bf")) (define test-omit-paths '("br/bf"))
Loading…
Cancel
Save