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)))
(λ ()
(untyped:check-true
(equal? actual expected))))))
(equal? (?? (ann actual type) actual)
expected))))))
(define-syntax/parse
(check-not-equal?: actual
@ -270,7 +271,8 @@
(make-check-expression '#,(syntax->datum stx)))
(λ ()
(untyped:check-true
(not (equal? actual expected))))))))
(not (equal? (?? (ann actual type) actual)
expected))))))))
(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-:>
<test-define-type>
<test-define>
<test-lambda>
|#
;<test-struct>
<test-struct>
<test-define-struct/exec>
#|
<test-ann>
<test-inst>
<test-let>
<test-let*>
<test-let-values>
<test-make-predicate>
|#)]
<test-make-predicate>)]
We can now assemble the modules in this order: