From 0918966a29424a0e4cb9738d9f6fb5ae085f186c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 20 Mar 2011 04:04:14 +0000 Subject: * boot/translator.boot (FC): Remove. (FBO): Likewise. (FEV): Likewise. (shoeGeneralFC): Likewise. (shoeFindName): Likewise. (shoeFindName2): Likewise. (shoeTransform2): Likewise. * boot/scanner.boot (shoeLineToks): Don't support `)package' line anymore. * boot/includer.boot: Remove support for `)package', `)include', `)includelisp', `)includelines' lines. (shorPackageStartsAt): Remove. (shorFindLines): Likewise. (shoeFileInput): Likewise. (shoeLispFileInput): Likewise. (shoeLineFileInput): Likewise. (shoeFunctionFileInput): Likewise. (shoePlainLine?): Reflect removal. (shoeSimpleLine): Likewise. * boot/tokens.boot (charByName): New builtin library function. * algebra/sf.spad.pamphlet (RealNumberSystem): Don't re-export abs. It is already exported by OrderedRing. --- src/boot/scanner.boot | 5 ----- 1 file changed, 5 deletions(-) (limited to 'src/boot/scanner.boot') diff --git a/src/boot/scanner.boot b/src/boot/scanner.boot index 8066ee94..4522e2b1 100644 --- a/src/boot/scanner.boot +++ b/src/boot/scanner.boot @@ -112,11 +112,6 @@ shoeLineToks(s)== ($ln,$linepos,shoeLeafLine command,0) [[dq],:$r] command:=shoeLisp? $ln=> shoeLispToken($r,command) - command:=shoePackage? $ln=> - a := strconc('"(IN-PACKAGE ",command,'")") - dq:=dqUnit shoeConstructToken - ($ln,$linepos,shoeLeafLisp a,0) - [[dq],:$r] shoeLineToks $r toks:=[] while $n<$sz repeat toks:=dqAppend(toks,shoeToken()) -- cgit v1.2.3