Univ -> ManyUniv

This commit is contained in:
Asumu Takikawa 2012-11-30 14:53:49 -05:00
parent a42cc9a001
commit 5fe8841c99

View File

@ -35,4 +35,4 @@
;; set up the type environment ;; set up the type environment
(define-initial-env initialize-contracted (define-initial-env initialize-contracted
[default-continuation-prompt-tag [default-continuation-prompt-tag
(-> (make-Prompt-Tagof Univ (-> ManyUniv Univ)))]) (-> (make-Prompt-Tagof ManyUniv (-> ManyUniv ManyUniv)))])