From 5f787a63d499fe32dfbc1d11d2ba8e48a4a9323f Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 5 Aug 2008 18:17:27 +0000 Subject: [PATCH] Add types for char comparison functions. svn: r11085 --- collects/typed-scheme/private/base-env.ss | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 6faf49bf14..387022ac35 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -219,6 +219,15 @@ [string>? (->* (list -String -String) -String B)] [string=? (->* (list -String -String) -String B)] [char=? (->* (list -Char -Char) -Char B)] + [char<=? (->* (list -Char -Char) -Char B)] + [char>=? (->* (list -Char -Char) -Char B)] + [char* (list -Char -Char) -Char B)] + [char>? (->* (list -Char -Char) -Char B)] + [char-ci=? (->* (list -Char -Char) -Char B)] + [char-ci<=? (->* (list -Char -Char) -Char B)] + [char-ci>=? (->* (list -Char -Char) -Char B)] + [char-ci>? (->* (list -Char -Char) -Char B)] + [char-ci* (list -Char -Char) -Char B)] [string<=? (->* (list -String -String) -String B)] [string>=? (->* (list -String -String) -String B)]