From 45ce0071c30e84b72e4c603660285fa6a462e7f7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 7 Nov 2007 20:46:16 +0000
Subject: 	* Makefile.pamphlet (i-toplev.$(FASLEXT)): New rule. 
 (i-syscmd.$(FASLEXT)): Likewise. 	(i-spec2.$(FASLEXT)): Likewise. 
 (i-spec1.$(FASLEXT)): Likewise. 	(i-funsel.$(FASLEXT)): Likewise. 
 (i-map.$(FASLEXT)): Likewise. 	(i-eval.$(FASLEXT)): Likewise. 
 (i-coerfn.$(FASLEXT)): Likewise. 	(i-coerce.$(FASLEXT)): Likewise. 
 (i-resolv.$(FASLEXT)): Likewise. 	(i-analy.$(FASLEXT)): Likewise. 
 (i-code.$(FASLEXT)): Likewise. 	(i-intern.$(FASLEXT)): Likewise. 
 (<<i-analy.clisp>>): Remove. 	(<<i-code.clisp>>): Likewise. 
 (<<i-coerce.clisp>>): Likewise. 	(<<i-coerfn.clisp>>): Likewise. 
 (<<i-eval.clisp>>): Likewise. 	(<<i-funsel.clisp>>): Likewise. 
 (<<i-intern.clisp>>): Likewise. 	(<<i-map.clisp>>): Likewise. 
 (<<i-resolv.clisp>>): Likewise. 	(<<i-spec1.clisp>>): Likewise. 
 (<<i-spec2.clisp>>): Likewise. 	(<<i-syscmd.clisp>>): Likewise. 
 (<<i-toplev.clisp>>): Likewise. 	(<<i-util.clisp>>): Likewise. 	*
 apply.boot (compFormWithModemap): Fix syntax. 	* i-analy.boot.pamphlet: Push
 into package "BOOT". 	* i-code.boot.pamphlet: Likewise. 	*
 i-coerce.boot.pamphlet: Likewise. 	* i-coerfn.boot.pamphlet: Likewise. 
 * i-eval.boot.pamphlet: Likewise. 	* i-funsel.boot.pamphlet: Likewise. 
 * i-intern.boot.pamphlet: Likewise. 	* i-map.boot.pamphlet: Likewise. 
 * i-resolv.boot.pamphlet: Likewise. 	* i-spec1.boot.pamphlet: Likewise. 
 * i-spec2.boot.pamphlet: Likewise. 	* i-syscmd.bot.pamphlet: Likewise. 
 * i-toplev.boot.pamphlet: Likewise. 	* i-util.boot.pamphlet: Likewise.

---
 src/interp/i-output.boot | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/interp/i-output.boot')

diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index e2c83fd9..833f070f 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -335,9 +335,9 @@ outputTran x ==
   x is ['MAP,:l] => outputMapTran l
   x is ['brace, :l]    =>
     ['BRACE,  ['AGGLST,:[outputTran y for y in l]]]
-  x is ['return,l] => ['return,outputTran l]
-  x is ['return,.,:l] => ['return,:outputTran l]
-  x is ['construct,:l] =>
+  x is ["return",l] => ["return",outputTran l]
+  x is ["return",.,:l] => ["return",:outputTran l]
+  x is ["construct",:l] =>
     ['BRACKET,['AGGLST,:[outputTran y for y in l]]]
 
   x is [["$elt",domain,"float"], x, y, z] and (domain = $DoubleFloat or
@@ -963,11 +963,11 @@ maprin0 x ==
 
 maprinChk x ==
   null $MatrixList => maPrin x
-  ATOM x and (u:= ASSOC(x,$MatrixList)) =>
+  ATOM x and (u:= assoc(x,$MatrixList)) =>
     $MatrixList := delete(u,$MatrixList)
     maPrin deMatrix CDR u
   x is ["=",arg,y]  =>     --case for tracing with )math and printing matrices
-    u:=ASSOC(y,$MatrixList) =>
+    u:=assoc(y,$MatrixList) =>
       -- we don't want to print matrix1 = matrix2 ...
       $MatrixList := delete(u,$MatrixList)
       maPrin ["=",arg, deMatrix CDR u]
@@ -981,7 +981,7 @@ maprinChk x ==
       -- m:=[[1,2,3],[4,5,6],[7,8,9]]
       -- mm:=[[m,1,0],[0,m,1],[0,1,m]]
       -- and try to print mm**5
-      u := ASSOC(y,$MatrixList)
+      u := assoc(y,$MatrixList)
       --$MatrixList := deleteAssoc(first u,$MatrixList)
       -- deleteAssoc no longer exists
       $MatrixList := delete(u,$MatrixList)
@@ -1556,8 +1556,8 @@ charyTrouble1(u,v,start,linelength) ==
   d := GETL(x,'INFIXOP) => charyBinary(d,u,v,start,linelength)
   x = 'OVER  =>
     charyBinary(GETL("/",'INFIXOP),u,v,start,linelength)
-  EQ(3,LENGTH u) and GET(x,'Led) =>
-    d:= PNAME first GET(x,'Led)
+  EQ(3,LENGTH u) and GETL(x,'Led) =>
+    d:= PNAME first GETL(x,'Led)
     charyBinary(d,u,v,start,linelength)
   EQ(x,'CONCAT) =>
     concatTrouble(rest v,d,start,linelength,nil)
@@ -2199,7 +2199,7 @@ qTWidth(u) ==
 remWidth(x) ==
   atom x => x
   true => CONS( (atom first x => first x; true => CAAR x),
-                MMAPCAR(remWidth, rest x) )
+                MMAPCAR(function remWidth, rest x) )
 
 subSub(u) ==
   height CDDR u
-- 
cgit v1.2.3