suzanne.soy/cur
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bad calls to terminates?

Browse Source
This commit is contained in:
William J. Bowman 2015-01-20 00:55:23 -05:00
parent f94894aacf
commit aaec536cf5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
redex-core.rkt
View File

@ -331,9 +331,9 @@
terminates? : t -> #t or #f
[(terminates? t) #t])
(module+ test
(check-false (terminates? (μ (x : Type) x)))
(check-false (terminates? (μ (x : Type) (λ (y : Type) (x y)))))
(check-true (terminates? (μ (x : Type) (λ (y : Type) y)))))
(check-false (term (terminates? (μ (x : Type) x))))
(check-false (term (terminates? (μ (x : Type) (λ (y : Type) (x y))))))
(check-true (term (terminates? (μ (x : Type) (λ (y : Type) y))))))
(define-judgment-form cic-typingL
#:mode (types I I I O)