From bcb395b98678f8cc856eebeeaaae4b16e5d75d3a Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 8 Dec 2010 19:28:56 -0500 Subject: [PATCH] Fix type of `-' original commit: 463ab0d30943f5453eaac16e1d966dd9dae093eb --- collects/typed-scheme/private/base-env-numeric.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/base-env-numeric.rkt b/collects/typed-scheme/private/base-env-numeric.rkt index 045282ef..111e2484 100644 --- a/collects/typed-scheme/private/base-env-numeric.rkt +++ b/collects/typed-scheme/private/base-env-numeric.rkt @@ -259,7 +259,7 @@ (list (->* (list -Real -Flonum) -Real -Flonum)) (list (->* (list -InexactReal) -InexactReal -InexactReal)) (list (->* (list -Real) -Real -Real)) - (list (->* (list) (Un -Real -FloatComplex) -FloatComplex)) + (list (->* (list (Un -Real -FloatComplex)) (Un -Real -FloatComplex) -FloatComplex)) (list (->* (list -FloatComplex) N -FloatComplex)) (list (->* (list N -FloatComplex) N -FloatComplex)) (list (->* (list N) N N))))]