diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-02 18:14:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-02 18:14:41 +0000 |
| commit | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (patch) | |
| tree | d4b28b81780a4374367fb54cf3ce8189b423fd32 /src/boot/includer.boot | |
| parent | 8640c7b9aa33084d77770f435814d1d8558c8e2e (diff) | |
| download | open-axiom-a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92.tar.gz | |
* 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.
Diffstat (limited to 'src/boot/includer.boot')
| -rw-r--r-- | src/boot/includer.boot | 21 |
1 files changed, 0 insertions, 21 deletions
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]) |