[Gd-chatter] r11501 - trunk/fundev/sources/lib/string-extensions

[cgay at gwydiondylan.org]

Author: cgay
Date: Mon Nov 26 15:44:20 2007
New Revision: 11501

Modified:
   trunk/fundev/sources/lib/string-extensions/parse-string.dylan
Log:
Job: minor
Fixed return type decl on lookahead method.

Modified: trunk/fundev/sources/lib/string-extensions/parse-string.dylan
==============================================================================
--- trunk/fundev/sources/lib/string-extensions/parse-string.dylan	(original)
+++ trunk/fundev/sources/lib/string-extensions/parse-string.dylan	Mon Nov 26 15:44:20 2007
@@ -41,8 +41,6 @@
   slot parse-index :: <integer>, init-value: 0;
 end class <parse-string>;
 
-define constant <character?> = false-or(<character>);
-
 define method consume
     (s :: <parse-string>) => (result :: false-or(<parse-string>))
   if (s.parse-index >= size(s.parse-string))
@@ -54,7 +52,7 @@
 end method consume;
 
 define method lookahead
-    (s :: <parse-string>) => (answer :: false-or(<character?>))
+    (s :: <parse-string>) => (answer :: false-or(<character>))
   if (s.parse-index >= size(s.parse-string))
     #f;
   else