[Gd-chatter] r11021 - trunk/libraries/timer

[hannes at gwydiondylan.org]

Author: hannes
Date: Mon Dec  4 01:36:17 2006
New Revision: 11021

Modified:
   trunk/libraries/timer/timer.dylan
Log:
Job: minor
some constant definitions... OD complained about unused symbols...

Modified: trunk/libraries/timer/timer.dylan
==============================================================================
--- trunk/libraries/timer/timer.dylan	(original)
+++ trunk/libraries/timer/timer.dylan	Mon Dec  4 01:36:17 2006
@@ -4,8 +4,8 @@
 copyright: 
 
 define class <timer> (<priority-queueable-mixin>)
-  slot timestamp :: <date>, required-init-keyword: timestamp:;
-  slot event :: <function>, required-init-keyword: event:;
+  constant slot timestamp :: <date>, required-init-keyword: timestamp:;
+  constant slot event :: <function>, required-init-keyword: event:;
 end;
 
 define method make (timer == <timer>,
@@ -45,12 +45,12 @@
 
 
 define class <timer-manager> (<object>)
-  slot queue :: <priority-queue>
+  constant slot queue :: <priority-queue>
     = make(<priority-queue>,
            comparison-function: method (a, b)
                                   a.timestamp < b.timestamp
                                 end);
-  slot lock :: <lock> = make(<lock>);
+  constant slot lock :: <lock> = make(<lock>);
   slot notification :: <notification>;
 end;