From 4eff9ac27bbd21e51053b5366558c18e561ae0fd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 2 Mar 2009 08:01:57 +0000
Subject: 	* interp/compiler.boot (modeIsAggregateOf): Use RepIfRepHack. 
 * interp/g-opt.boot (optimizeFunctionDef): Tidy. 	* interp/i-syscmd.boot
 (compileSpad2Cmd): Support ')report' option. 	* interp/sys-driver.boot
 (initializeGlobalState): Likewise.

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

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

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 7f903248..b2906c81 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -2144,8 +2144,7 @@ modeIsAggregateOf(ListOrVector,m,e) ==
     1=#mList => first mList
   name:=
     m is [fn,:.] => fn
-    m="$" => "Rep"
-    m
+    RepIfRepHack m
   get(name,"value",e) is [[ =ListOrVector,R],:.] => [m,R]
  
 --% VECTOR ITERATORS
-- 
cgit v1.2.3