[Gd-chatter] r11594 - trunk/libraries/ui/gtk+/gobject-tool

[cgay at gwydiondylan.org]

Author: cgay
Date: Sun Dec 30 08:22:23 2007
New Revision: 11594

Modified:
   trunk/libraries/ui/gtk+/gobject-tool/gobject-tool.dylan
   trunk/libraries/ui/gtk+/gobject-tool/module.dylan
Log:
Job: minor
Update to match new regular-expressions interface.

Modified: trunk/libraries/ui/gtk+/gobject-tool/gobject-tool.dylan
==============================================================================
--- trunk/libraries/ui/gtk+/gobject-tool/gobject-tool.dylan	(original)
+++ trunk/libraries/ui/gtk+/gobject-tool/gobject-tool.dylan	Sun Dec 30 08:22:23 2007
@@ -55,8 +55,11 @@
   end unless;
 
   let platform-name = option-value-by-long-name(arg-parser, "platform");
+  local method same-platform? (string, regex)
+          regex-position(regex, string)
+        end;
   let platform
-    = select(platform-name by regexp-position)
+    = select(platform-name by same-platform?)
         "^x86-linux-gcc" =>
           $i386-linux-platform;
         "^ppc-linux-gcc" =>

Modified: trunk/libraries/ui/gtk+/gobject-tool/module.dylan
==============================================================================
--- trunk/libraries/ui/gtk+/gobject-tool/module.dylan	(original)
+++ trunk/libraries/ui/gtk+/gobject-tool/module.dylan	Sun Dec 30 08:22:23 2007
@@ -49,5 +49,5 @@
   use ansi-c;
   use c-parser;
   use output-melange;
-  use regular-expressions, import: { regexp-position };
+  use regular-expressions, import: { regex-position };
 end module;