[Gd-chatter] r11102 - trunk/src/d2c/runtime/dylan

[agent at gwydiondylan.org]

Author: agent
Date: Tue Dec 26 10:06:58 2006
New Revision: 11102

Modified:
   trunk/src/d2c/runtime/dylan/range.dylan
Log:
Job: minor
element on <range> now returns <object>, not <real>, to allow for non-real
default: values.


Modified: trunk/src/d2c/runtime/dylan/range.dylan
==============================================================================
--- trunk/src/d2c/runtime/dylan/range.dylan	(original)
+++ trunk/src/d2c/runtime/dylan/range.dylan	Tue Dec 26 10:06:58 2006
@@ -400,7 +400,7 @@
 //
 define sealed method element (range :: <bounded-range>, key :: <integer>,
                        #key default = $not-supplied)
-      => range-element :: <real>;
+      => range-element :: <object>;
    case
       (key >= 0) & (key < range.size) =>
          range.range-from + (key * range.range-by);
@@ -414,7 +414,7 @@
 define sealed method element
     (range :: <unbounded-range>, key :: <integer>,
      #key default = $not-supplied)
- => range-element :: <real>;
+ => range-element :: <object>;
    case
       (key >= 0) =>
          range.range-from + (key * range.range-by);