From 58dc9f8145468998071a2a69d3dbfb6c710eab39 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 21 May 2011 02:03:15 +0000
Subject: 	* interp/modemap.boot (augModemapsFromDomain): Don't add
 modemaps 	for element types of Vector or List aggregates. 	*
 algebrar/: Adjust algebras that depended on this behaviour.

---
 src/interp/compiler.boot | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'src/interp/compiler.boot')

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 3bfaada1..f452d652 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -2395,9 +2395,6 @@ compRepeatOrCollect(form,m,e) ==
 --  fn:= (or/[selfn for [cond,selfn] in u | cond=true]) or return nil
 --  [['%call,fn,x],target,e]
  
-listOrVectorElementMode x ==
-  x is [a,b,:.] and symbolMember?(a,'(PrimitiveArray Vector List)) => b
-
 ++ Return the least Integer subdomain that can represent values
 ++ of both Integer subdomains denoted by the forms `x' and `y.
 joinIntegerModes(x,y,e) ==
-- 
cgit v1.2.3