[Gd-chatter] r11059 - trunk/libraries/network/web-framework

[hannes at gwydiondylan.org]

Author: hannes
Date: Mon Dec 11 23:12:43 2006
New Revision: 11059

Modified:
   trunk/libraries/network/web-framework/change.dylan
   trunk/libraries/network/web-framework/changes.dylan
Log:
Job: minor
 fix building of web-framework

Modified: trunk/libraries/network/web-framework/change.dylan
==============================================================================
--- trunk/libraries/network/web-framework/change.dylan	(original)
+++ trunk/libraries/network/web-framework/change.dylan	Mon Dec 11 23:12:43 2006
@@ -1,4 +1,4 @@
-module: changes
+module: change
 author: Hannes Mehnert <hannes at mehnert.org>
 
 define web-class <change> (<object>)
@@ -17,6 +17,9 @@
                    end;
 end;
 
+define method setup (change :: <change>) => ()
+  redo(change.command);
+end;
 define method undo (change :: <change>)
   //undo the change
   undo(change.command);

Modified: trunk/libraries/network/web-framework/changes.dylan
==============================================================================
--- trunk/libraries/network/web-framework/changes.dylan	(original)
+++ trunk/libraries/network/web-framework/changes.dylan	Mon Dec 11 23:12:43 2006
@@ -30,7 +30,7 @@
   /* repeated slot extensionElement */
   slot entries :: <string-table> = make(<string-table>),
     init-keyword: entries:;
-  slot languages :: <list> = #(),
+  slot language :: <list> = #(),
     init-keyword: languages:;
   slot description :: <text>,
     init-keyword: description:;