From b366261f80ac518a14ad3c12ca7c0f77fc7d7474 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 24 May 2008 21:01:22 +0000
Subject: 	* interp/i-coerce.boot (retract2Specialization): Leave if
 object 	is an Expression, but not a fraction.

---
 src/interp/i-coerce.boot | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/interp')

diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index 233a3b91..9a2b078e 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -212,6 +212,7 @@ retract2Specialization object ==
     null isRectangularList(val',n,m) => NIL
     coerceInt(object,['Matrix,D'])
   type is ['Expression,D] =>
+    atom val' => nil          -- certainly not a fraction
     [num,:den] := val'
     -- coerceRetract already handles case where den = 1
     num isnt [0,:num] => NIL
-- 
cgit v1.2.3