[Gd-chatter] r10924 - trunk/libraries/koala/sources/koala

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Sat Oct  7 14:10:02 2006
New Revision: 10924

Modified:
   trunk/libraries/koala/sources/koala/dsp.dylan
Log:
Bug: minor

* fixed DSP definition without an URL



Modified: trunk/libraries/koala/sources/koala/dsp.dylan
==============================================================================
--- trunk/libraries/koala/sources/koala/dsp.dylan	(original)
+++ trunk/libraries/koala/sources/koala/dsp.dylan	Sat Oct  7 14:10:02 2006
@@ -656,10 +656,15 @@
       end }
  => { define class "<" ## ?name ## ">" (?superclasses) ?slot-specs end;
       define variable "*" ## ?name ## "*" = make("<" ## ?name ## ">", ?make-args);
-      register-page-urls("*" ## ?name ## "*", ?make-args);
+      has-url?(?make-args) & register-page-urls("*" ## ?name ## "*", ?make-args);
     }
 end;
 
+define function has-url? (#key url :: false-or(<string>), #all-keys)
+ => (url-provided? :: <boolean>);
+  url = #t
+end;
+
 define function register-page-urls
     (page :: <page>, #key url :: <string>, alias, #all-keys)
  => (responder :: <function>)