From 85b96a98b3f3ae2cb89f157bbf2ee3a83a5c365e Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 16 Jul 2010 09:35:14 -0400 Subject: [PATCH] Fixed the type for fxrshift. --- collects/typed-scheme/private/base-env-numeric.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/typed-scheme/private/base-env-numeric.rkt b/collects/typed-scheme/private/base-env-numeric.rkt index fe546c3853..3c3db19d83 100644 --- a/collects/typed-scheme/private/base-env-numeric.rkt +++ b/collects/typed-scheme/private/base-env-numeric.rkt @@ -484,8 +484,8 @@ [unsafe-fxior fx-op] [unsafe-fxxor fx-op] [unsafe-fxnot fx-unop] -[unsafe-fxlshift fx-intop] -[unsafe-fxrshift (cl->* (-> -NonnegativeFixnum -NonnegativeFixnum -NonnegativeFixnum) fx-intop)] +[unsafe-fxlshift fx-natop] +[unsafe-fxrshift fx-natop] [unsafe-fx= fx=-type] [unsafe-fx< fx<-type] @@ -509,8 +509,8 @@ [fxior fx-op] [fxxor fx-op] [fxnot fx-unop] -[fxlshift fx-intop] -[fxrshift (cl->* (-> -NonnegativeFixnum -NonnegativeFixnum -NonnegativeFixnum) fx-intop)] +[fxlshift fx-natop] +[fxrshift fx-natop] [fx= fx=-type] [fx< fx<-type]