From b32d7af9bfb7bdc4d8876b101d375c1f4ba47468 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 29 Apr 2009 14:35:52 +0000 Subject: [PATCH] Fix reconstruction of Latents, which do not have keys. svn: r14652 original commit: 6662b72162602e70ea244532c263bb016b0146d0 --- collects/typed-scheme/env/init-envs.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/env/init-envs.ss b/collects/typed-scheme/env/init-envs.ss index 396c94c4..02981069 100644 --- a/collects/typed-scheme/env/init-envs.ss +++ b/collects/typed-scheme/env/init-envs.ss @@ -35,9 +35,11 @@ [(Mu-name: n b) `(make-Mu ,(sub n) ,(sub b))] [(Poly-names: ns b) `(make-Poly (list ,@(map sub ns)) ,(sub b))] [(PolyDots-names: ns b) `(make-PolyDots (list ,@(map sub ns)) ,(sub b))] - [(? (lambda (e) (or (Type? e) - (LatentFilter? e) + [(? (lambda (e) (or (LatentFilter? e) (LatentObject? e))) + (app (lambda (v) (vector->list (struct->vector v))) (list-rest tag seq vals))) + `(,(gen-constructor tag) ,@(map sub vals))] + [(? (lambda (e) (or (Type? e))) (app (lambda (v) (vector->list (struct->vector v))) (list-rest tag key seq vals))) `(,(gen-constructor tag) ,@(map sub vals))] [_ (basic v)]))