From 4d8ba2bca691a99f48a332b1c3cc4dab7f61d7dd Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 27 Apr 2009 20:15:14 +0000 Subject: [PATCH] use correct constructor svn: r14630 --- collects/typed-scheme/typecheck/tc-expr-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/typecheck/tc-expr-unit.ss b/collects/typed-scheme/typecheck/tc-expr-unit.ss index 1abb555079..dd4edaa512 100644 --- a/collects/typed-scheme/typecheck/tc-expr-unit.ss +++ b/collects/typed-scheme/typecheck/tc-expr-unit.ss @@ -107,8 +107,8 @@ (define (tc-id id) (let* ([ty (lookup-type/lexical id)]) (ret ty - (make-LFilterSet (list (make-NotTypeFilter (-val #f) null id)) - (list (make-TypeFilter (-val #f) null id))) + (make-FilterSet (list (make-NotTypeFilter (-val #f) null id)) + (list (make-TypeFilter (-val #f) null id))) (make-Path null id)))) ;; typecheck an expression, but throw away the effect