From 9906d4079093b27d185f4116485fffe80ff19380 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 14 Jan 2012 11:56:20 +0000
Subject: 	* lisp/core.lisp.in (mkIntArray): New.  Export. 	*
 interp/patches.lisp (/RF): Move to cparse.boot. 	(/RQ): Likewise. 
 (/RQ,LIB): Likewise. 	(/RF-1): Likewise. 	(/EF): Move to spad.lisp. 
 (construct): Remove. 	(READSPADEXPR): Likewise. 	(SHAREDITEMS):
 Likewise. 	(installStandardTestPackages): Likewise. 
 (spadtestValueHook): Likewise. 	(testError): Likewise. 
 ($TestOptions): Likewise. 	(rebuild): Likewise. 
 ($ViewportProcessToWatch): Likewise. 	(setViewportProcess): Likewise. 
 (waitForViewport): Likewise. 	* interp/i-analy.boot (pushDownOp?): Use
 mkIntArray in place of 	GETZEROVEC. 	* interp/i-funsel.boot
 (argCouldBelongToSubdomain): Likewise. 	* interp/i-intern.boot
 (flagArguments): Likewise.

---
 src/interp/cparse.boot | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

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

diff --git a/src/interp/cparse.boot b/src/interp/cparse.boot
index 0c8465fd..79de955f 100644
--- a/src/interp/cparse.boot
+++ b/src/interp/cparse.boot
@@ -1087,3 +1087,30 @@ npMoveTo n==
     (npNext();npMoveTo n)
   npEqKey "SETTAB" => npMoveTo(n+1)
   (npNext();npMoveTo n)
+
+--%
+
+_/RF(:x) ==
+  $Echo: local := true
+  _/RF_-1 nil
+
+_/RQ(:x) ==
+  $Echo: local := false
+  _/RF_-1 nil
+
+_/RQ_,LIB(:x) ==
+  $Echo: local := false
+  _/RF_-1 nil
+
+
+_/RF_-1 x ==
+  ifile := MAKE_-INPUT_-FILENAME _/EDITFILE
+  lfile := nil
+  type := PATHNAME_-TYPE ifile
+  type = '"boot" =>
+    lfile := MAKE_-PATHNAME(type <- '"lisp",defaults <- ifile)
+    BOOT(ifile,lfile)
+    LOAD lfile
+  type = '"lisp" => LOAD ifile
+  type = '"input" => ncINTERPFILE(ifile,$Echo)
+  SPAD ifile
-- 
cgit v1.2.3