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

Descend into path elements.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-12 17:04:43 -04:00
parent bc7bd9245e
commit 6f7e88cfef
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/rep/type-rep.rkt
View File

@ -382,9 +382,11 @@
(define ((sub-f st) e) (define ((sub-f st) e)
(filter-case (#:Type st (filter-case (#:Type st
#:Filter (sub-f st)) #:Filter (sub-f st)
#:PathElem (sub-pe st))
e)) e))
(define ((sub-o st) e) (define ((sub-o st) e)
(object-case (#:Type st (object-case (#:Type st
#:Object (sub-o st) #:Object (sub-o st)
@ -437,6 +439,8 @@
(cdr names) (cdr names)
(sub1 count)))))) (sub1 count))))))
;(trace abstract-many)
;; instantiate-many : List[Type] Scope^n -> Type ;; instantiate-many : List[Type] Scope^n -> Type
;; where n is the length of types ;; where n is the length of types