From a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 2 Oct 2011 18:14:41 +0000
Subject: 	* lisp/core.lisp.in: Do not use CCL in AxiomCore. 	*
 boot/translator.boot (packageBody): Tidy. 	* boot/scanner.boot
 (shoeOrdToNum): Remove. 	* boot/includer.boot (shoeBiteOff): Remove. 
 (shoeFileName): Likewise. 	(shoeFnFileName): Likewise.

---
 src/boot/includer.boot | 21 ---------------------
 1 file changed, 21 deletions(-)

(limited to 'src/boot/includer.boot')

diff --git a/src/boot/includer.boot b/src/boot/includer.boot
index 1095031c..0d85ab14 100644
--- a/src/boot/includer.boot
+++ b/src/boot/includer.boot
@@ -218,27 +218,6 @@ shoeElseIf?       s  == shoePrefix?('")elseif",      s)
 shoeLisp?         s  == shoePrefix?('")lisp",        s)
 shoeLine?         s  == shoePrefix?('")line",        s)
  
-shoeBiteOff x ==
-  n := firstNonblankPosition(x,0)
-  n = nil =>  false
-  n1 := firstBlankPosittion(x,n)
-  n1 = nil =>  [subString(x,n),'""]
-  [subString(x,n,n1-n),subString(x,n1)]
- 
-shoeFileName x==
-  a := shoeBiteOff x
-  a = nil =>  '""
-  c := shoeBiteOff second a
-  c = nil =>  first a
-  strconc(first a,'".",first c)
- 
-shoeFnFileName x==
-  a := shoeBiteOff x
-  a = nil =>  ['"",'""]
-  c := shoeFileName second a
-  c = nil =>  [first a,'""]
-  [first a, c]
- 
 shoeInclude s == 
   bDelay(function shoeInclude1,[s])
 
-- 
cgit v1.2.3