diff options
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]) |