From 15bc9ba914256a33537db1b6cd5d6b2a6e0859eb Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 13 Oct 2008 16:22:52 +0000 Subject: [PATCH] Fix type of error. svn: r12019 original commit: 6a0b9b4e20d660410238fa68273f2f532c06b122 --- collects/typed-scheme/private/base-env.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 32c48710..110990b6 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -131,11 +131,11 @@ [remv* (-poly (a b) (cl-> [((-lst a) (-lst a)) (-lst a)] [((-lst a) (-lst b) (a b . -> . B)) (-lst b)]))] -[error - (make-Function (list (make-arr null (Un)) - (make-arr (list Sym -String) (Un) Univ) - (make-arr (list -String) (Un) Univ) - (make-arr (list Sym) (Un))))] +(error + (make-Function (list + (make-arr (list Sym -String) (Un) Univ) + (make-arr (list -String) (Un) Univ) + (make-arr (list Sym) (Un))))) [namespace-variable-value (cl-> [(Sym) Univ]