aboutsummaryrefslogtreecommitdiff
path: root/src/boot/includer.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/includer.boot')
-rw-r--r--src/boot/includer.boot18
1 files changed, 0 insertions, 18 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot
index d6b98584..090add87 100644
--- a/src/boot/includer.boot
+++ b/src/boot/includer.boot
@@ -98,24 +98,6 @@ SoftShoeError(posn,key)==
shoeConsole strconc(shoeSpaces lineCharacter posn,'"|")
shoeConsole key
-bpSpecificErrorAtToken(tok, key) ==
- a := tokenPosition tok
- SoftShoeError(a,key)
-
-bpSpecificErrorHere(key) ==
- bpSpecificErrorAtToken($stok, key)
-
-bpGeneralErrorHere() ==
- bpSpecificErrorHere('"syntax error")
-
-bpIgnoredFromTo(pos1, pos2) ==
- shoeConsole strconc('"ignored from line ", toString lineNo pos1)
- shoeConsole lineString pos1
- shoeConsole strconc(shoeSpaces lineCharacter pos1,'"|")
- shoeConsole strconc('"ignored through line ", toString lineNo pos2)
- shoeConsole lineString pos2
- shoeConsole strconc(shoeSpaces lineCharacter pos2,'"|")
-
--%
structure %SourceLine ==
Record(str: %String, num: %Short) with