diff options
Diffstat (limited to 'src/boot/includer.boot')
| -rw-r--r-- | src/boot/includer.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot index a878844d..1095031c 100644 --- a/src/boot/includer.boot +++ b/src/boot/includer.boot @@ -219,9 +219,9 @@ shoeLisp? s == shoePrefix?('")lisp", s) shoeLine? s == shoePrefix?('")line", s) shoeBiteOff x == - n :=STRPOSL('" ",x,0,true) + n := firstNonblankPosition(x,0) n = nil => false - n1 := STRPOSL ('" ",x,n,nil) + n1 := firstBlankPosittion(x,n) n1 = nil => [subString(x,n),'""] [subString(x,n,n1-n),subString(x,n1)] |