From d68d655abaef0d14652e07608c633b1ff1feefda Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 17 Oct 2008 23:51:50 +0000
Subject: 	Fix AW/271 	* interp/sys-constants.boot ($Field): New. 
 * interp/i-coerce.boot (retract2Specialization): Ignore 	expressions
 whose types do no belong to Field.

---
 src/interp/sys-constants.boot | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/interp/sys-constants.boot')

diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index f6c9ef10..f4468e15 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -331,6 +331,10 @@ $SideEffectFreeFunctionList ==
 
 --% Types
 
+++ The Field category form
+$Field ==
+  '(Field)
+
 ++ The Void domain constructor form
 $Void ==
   '(Void)
-- 
cgit v1.2.3