diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-23 02:49:30 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-23 02:49:30 +0000 |
commit | a8faa740f1e13fce63ac23326a227655bca7a0b2 (patch) | |
tree | a4d6165c93449b677aaaa45e609131546198fb1b /src/boot/includer.boot | |
parent | eae4d54c648d019b9db583b4e8d2c432f8d7bb16 (diff) | |
download | open-axiom-a8faa740f1e13fce63ac23326a227655bca7a0b2.tar.gz |
* boot/tokens.boot (%Token): New datatype.
(makeToken): New.
* boot/includer.boot: Use %token accessors.
* boot/parser.boot: Likewise.
* boot/pile.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/utility.boot: Export subString.
Diffstat (limited to 'src/boot/includer.boot')
-rw-r--r-- | src/boot/includer.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot index 0d85ab14..d36932d5 100644 --- a/src/boot/includer.boot +++ b/src/boot/includer.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2011, Gabriel Dos Reis. +-- Copyright (C) 2007-2012, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -88,7 +88,7 @@ shoeSpaces n == --% diagnosticLocation tok == - pos := shoeTokPosn tok + pos := tokenPosition tok strconc('"line ", toString lineNo pos, '", column ", toString lineCharacter pos) @@ -99,7 +99,7 @@ SoftShoeError(posn,key)== shoeConsole key bpSpecificErrorAtToken(tok, key) == - a := shoeTokPosn tok + a := tokenPosition tok SoftShoeError(a,key) bpSpecificErrorHere(key) == |