From d5e3fdf639cf0ab102a376ba96daade0b5bc6426 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Mon, 20 Oct 2008 02:24:04 +0000
Subject: [PATCH] svn: r12067

---
 collects/lang/private/beginner-funs.ss | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/collects/lang/private/beginner-funs.ss b/collects/lang/private/beginner-funs.ss
index 9c44f36b8d..e00dd65ea9 100644
--- a/collects/lang/private/beginner-funs.ss
+++ b/collects/lang/private/beginner-funs.ss
@@ -304,32 +304,32 @@
     ("Characters"
       (char? (any -> boolean)
 	"to determine whether a value is a character")
-      (char=? (char char ... -> boolean)
+      (char=? (char char char ... -> boolean)
 	"to determine whether two characters are equal")
-      (char<? (char char ... -> boolean)
+      (char<? (char char char ... -> boolean)
 	"to determine whether a character precedes another")
-      (char>? (char char ... -> boolean)
+      (char>? (char char char ... -> boolean)
 	"to determine whether a character succeeds another")
-      (char<=? (char char ... -> boolean)
+      (char<=? (char char char ... -> boolean)
 	"to determine whether a character precedes another"
 	" (or is equal to it)")
-      (char>=? (char char ... -> boolean)
+      (char>=? (char char char ... -> boolean)
 	"to determine whether a character succeeds another"
 	" (or is equal to it)")
     
-      (char-ci=? (char char ... -> boolean)
+      (char-ci=? (char char char ... -> boolean)
 	"to determine whether two characters are equal"
 	" in a case-insensitive manner")
-      (char-ci<? (char char ... -> boolean)
+      (char-ci<? (char char char ... -> boolean)
 	"to determine whether a character precedes another"
 	" in a case-insensitive manner")
-      (char-ci>? (char char ... -> boolean)
+      (char-ci>? (char char char ... -> boolean)
 	"to determine whether a character succeeds another"
 	" in a case-insensitive manner")
-      (char-ci<=? (char char ... -> boolean)
+      (char-ci<=? (char char char ... -> boolean)
 	"to determine whether a character precedes another"
 	" (or is equal to it) in a case-insensitive manner")
-      (char-ci>=? (char char ... -> boolean)
+      (char-ci>=? (char char char ... -> boolean)
 	"to determine whether a character succeeds another"
 	" (or is equal to it) in a case-insensitive manner")