[Gd-chatter] r11623 - trunk/libraries/regular-expressions

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Mon Jan 14 23:47:13 2008
New Revision: 11623

Modified:
   trunk/libraries/regular-expressions/interface.dylan
   trunk/libraries/regular-expressions/regex.dylan
Log:
job: 7357
reverted split's argument order


Modified: trunk/libraries/regular-expressions/interface.dylan
==============================================================================
--- trunk/libraries/regular-expressions/interface.dylan	(original)
+++ trunk/libraries/regular-expressions/interface.dylan	Mon Jan 14 23:47:13 2008
@@ -236,7 +236,7 @@
 // Like Perl's split function
 //
 define function split
-    (pattern :: <string>, input :: <string>, 
+    (input :: <string>, pattern :: <string>, 
      #key count = #f, remove-empty-items = #t, start = 0, end: input-end = #f)
  => (strings :: <sequence>);
   let positioner = make-regex-positioner(pattern);

Modified: trunk/libraries/regular-expressions/regex.dylan
==============================================================================
--- trunk/libraries/regular-expressions/regex.dylan	(original)
+++ trunk/libraries/regular-expressions/regex.dylan	Mon Jan 14 23:47:13 2008
@@ -139,14 +139,14 @@
      #key anchored  :: <boolean> = #f,
      start     :: <integer> = 0,
      end: _end :: <integer> = big.size)
- => (#rest strings :: false-or(<string>));
+ => (#rest strings);
 
 define method regex-search-strings
     (pattern :: <string>, string :: <string>,
      #key anchored  :: <boolean> = #f,
      start     :: <integer> = 0,
      end: _end :: <integer> = string.size)
- => (#rest strings :: false-or(<string>))
+ => (#rest strings)
   regex-search-strings(compile-regex(pattern),
                        string,
 		       anchored: anchored, start: start, end: _end)
@@ -157,7 +157,7 @@
      #key anchored :: <boolean> = #f,
      start    :: <integer> = 0,
      end: _end :: <integer> = string.size,)
- => (#rest strings :: false-or(<string>))
+ => (#rest strings)
   let match = regex-search(pattern,
 			   string, 
 			   anchored: anchored, start: start, end: _end);