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

@ -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))))))
(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)))))))

@ -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"))
Loading…
Cancel
Save