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

Re-enabled tests in type-expander.lp2.rkt, and fixed check-equal?:, which was ignoring the : Type.

Browse Source
This commit is contained in:
Georges Dupéron 2016-01-16 00:53:43 +01:00
parent 63e8d17f53
commit 4dd0a08dbf
2 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
graph-lib/lib/low.rkt
View File

@ -249,7 +249,8 @@
(make-check-expression '#,(syntax->datum stx))) (make-check-expression '#,(syntax->datum stx)))
(λ () (λ ()
(untyped:check-true (untyped:check-true
(equal? actual expected)))))) (equal? (?? (ann actual type) actual)
expected))))))
(define-syntax/parse (define-syntax/parse
(check-not-equal?: actual (check-not-equal?: actual
@ -270,7 +271,8 @@
(make-check-expression '#,(syntax->datum stx))) (make-check-expression '#,(syntax->datum stx)))
(λ () (λ ()
(untyped:check-true (untyped:check-true
(not (equal? actual expected)))))))) (not (equal? (?? (ann actual type) actual)
expected))))))))
(require/provide 'my-typed-rackunit) (require/provide 'my-typed-rackunit)

8
graph-lib/type-expander/type-expander.lp2.rkt
View File

@ -1084,22 +1084,18 @@ And, last but not least, we will add a @tc[test] module.
<test-expand-type> <test-expand-type>
#|
<test-:> <test-:>
<test-define-type> <test-define-type>
<test-define> <test-define>
<test-lambda> <test-lambda>
|# <test-struct>
;<test-struct>
<test-define-struct/exec> <test-define-struct/exec>
#|
<test-ann> <test-ann>
<test-inst> <test-inst>
<test-let> <test-let>
<test-let*> <test-let*>
<test-let-values> <test-let-values>
<test-make-predicate> <test-make-predicate>)]
|#)]
We can now assemble the modules in this order: We can now assemble the modules in this order: