From 6a85fc5a253361e9f0782e9b1288e0c2c656896e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 24 May 2012 15:27:03 +0000 Subject: * boot/scanner.boot (lexerLineLength): New. (shoeNextLine): Use it in replacement of $sz. (shoeLineToks): Likewise. (shoeLispEscape): Likewise. (shoeEsc): Likewise. (shoeStartsComment): Likewise. (shoeStartsNegComment): Likewise. (shoeNegComment): Likewise. (shoeComment): Likewise. (shoePossFloat): Likewise. (shoeSpace): Likewise. (shoeS): Likewise. (shoeW): Likewise. (shoeInteger1): Likewise. (shoeNumber): Likewise. (shoeExponent): Likewise. --- src/interp/database.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp') diff --git a/src/interp/database.boot b/src/interp/database.boot index 61040869..33e024e1 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -60,9 +60,9 @@ pathToDatabase name == --% structure %Constructor == - Record(name: %Symbol,kind: %ConstructorKind,abbrev: %Symbol, + Record(id: %Symbol,kind: %ConstructorKind,abbrev: %Symbol, xparms: %List %Symbol) with - constructorName == (.name) + constructorIdentifier == (.id) constructtorKind == (.kind) constructrorAbbreviation == (.abbrev) constructorExplicitParameters == (.xparms) -- cgit v1.2.3