From ed4e00e9520d43e34a3fb8ef72883459306af1cf Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 23 Oct 2012 17:39:00 -0600 Subject: [PATCH] adding a few more annotations to make Racket 5.3.1 happy --- compiler/lexical-env.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/lexical-env.rkt b/compiler/lexical-env.rkt index b7cb90a..35d7eb0 100644 --- a/compiler/lexical-env.rkt +++ b/compiler/lexical-env.rkt @@ -122,8 +122,8 @@ ;; Given a list of lexical addresses, computes a set of unique references. ;; Multiple lexical addresses to a single prefix should be treated identically. (define (collect-lexical-references addresses) - (let: ([prefix-references : (Setof EnvWholePrefixReference) (new-set)] - [lexical-references : (Setof EnvLexicalReference) (new-set)]) + (let: ([prefix-references : (Setof EnvWholePrefixReference) ((inst new-set EnvWholePrefixReference))] + [lexical-references : (Setof EnvLexicalReference) ((inst new-set EnvLexicalReference))]) (let: loop : (Listof (U EnvLexicalReference EnvWholePrefixReference)) ([addresses : (Listof LexicalAddress) addresses]) (cond