[Gd-chatter] r11091 - trunk/libraries/network/koala/sources/koala

[hannes at gwydiondylan.org]

Author: hannes
Date: Thu Dec 21 01:07:12 2006
New Revision: 11091

Modified:
   trunk/libraries/network/koala/sources/koala/dsp.dylan
Log:
Bug: minor
fix commit #10924, which prevented 'define page' from registering URLs.
if url is a <string>, everything is fine. only if #f, don't register URLs.

Modified: trunk/libraries/network/koala/sources/koala/dsp.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/dsp.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/dsp.dylan	Thu Dec 21 01:07:12 2006
@@ -662,7 +662,9 @@
 
 define function has-url? (#key url :: false-or(<string>), #all-keys)
  => (url-provided? :: <boolean>);
-  url = #t
+  if (url)
+    #t
+  end;
 end;
 
 define function register-page-urls