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

Fixed cur-equal?

Browse Source
This commit is contained in:
William J. Bowman 2016-01-08 22:53:18 -05:00
parent c3efd3ae6e
commit ca2b62fc70
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
curnel/redex-lang.rkt
View File

@ -244,7 +244,7 @@
;; Are these two terms equivalent in type-systems internal equational reasoning? ;; Are these two terms equivalent in type-systems internal equational reasoning?
(define (cur-equal? e1 e2) (define (cur-equal? e1 e2)
(and (judgment-holds (equivalent ,(delta) ,(eval-cur e1) ,(eval-cur e2)) #t))) (and (judgment-holds (equivalent ,(delta) ,(eval-cur e1) ,(eval-cur e2))) #t))
(define (type-infer/syn syn) (define (type-infer/syn syn)
(let ([t (type-infer/term (eval-cur syn))]) (let ([t (type-infer/term (eval-cur syn))])