[Gd-chatter] r11754 - trunk/fundev/sources/dylan

[andreas at gwydiondylan.org]

Author: andreas
Date: Wed Mar 26 03:44:45 2008
New Revision: 11754

Modified:
   trunk/fundev/sources/dylan/integer.dylan
Log:
Job: fd

signal an error instead of trying to call a not defined method


Modified: trunk/fundev/sources/dylan/integer.dylan
==============================================================================
--- trunk/fundev/sources/dylan/integer.dylan	(original)
+++ trunk/fundev/sources/dylan/integer.dylan	Wed Mar 26 03:44:45 2008
@@ -220,7 +220,8 @@
     (base :: <integer>, power :: <integer>) => (res :: <rational>)
   if (negative?(power))
     //---*** THIS IS WRONG AS / ISN'T DEFINED FOR <integer>!
-    1 / (base ^ -power)
+    //1 / (base ^ -power)
+    error("Negative powers are unimplemented")
   elseif (base = 2)
     ash(1, power)
   elseif (negative?(base))