Can I commit this? (Mostly lexer changes)

[Paul Dufresne]

Index: src/compiler/debug.slate
===================================================================
RCS file: /var/lib/cvs/slate/slate/src/compiler/debug.slate,v
retrieving revision 1.4
diff -r1.4 debug.slate
3a4,7
>[ | testStream |
>
>testStream: (FileStream newForInputNamed: 'testlex.txt').
>
9a14
>] value.
\ No newline at end of file
Index: src/compiler/init.slate
===================================================================
RCS file: /var/lib/cvs/slate/slate/src/compiler/init.slate,v
retrieving revision 1.4
diff -r1.4 init.slate
12d11
<
Index: src/compiler/lexer.slate
===================================================================
RCS file: /var/lib/cvs/slate/slate/src/compiler/lexer.slate,v
retrieving revision 1.7
diff -r1.7 lexer.slate
27a28,33
>l@(Compiler Lexer traits) atEndToken
>"The lexer is at end or nextCharacter is whitespace"
>[
>   l atEnd or: [l peekCharacter isWhitespace]
>].
>
85c91
<         c: l nextCharacter.
---
>         "c: l nextCharacter. byPaul: c is undefined here! "
120c126,127
<   l atEnd
---
>   token: Compiler LiteralToken clone.
>   (l atEndToken)
123d129
<         token: Compiler LiteralToken clone.
131c137,138
<       [number: (l readInteger: number)]
---
>       [number: (l readInteger: number).
>        token value: number]
138c145
<               l atEnd
---
>               l atEndToken
141,142c148
<                     token: Compiler LiteralToken clone.
<                     token value: sign * number.
---
>                     token value: (sign as: Float) * number.
149c155,158
<             [number: (number as: Float) * (10.0 raisedTo: l readExponent)]
---
>             [number: (number as: Float) * (10.0 raisedTo: l readExponent).
>              token value: (sign as: Float) * number.
>              ^ token
>             ]
153,154d161
<   token: Compiler LiteralToken clone.
<   token value: sign * number.
311c318
<             [l readNumber]
---
>             [l undoCharacter: c. l readNumber]
313,314c320
<             [
<               l undoCharacter: c.
---
>             [ l undoCharacter: c.
Index: src/compiler/parser.slate
===================================================================
RCS file: /var/lib/cvs/slate/slate/src/compiler/parser.slate,v
retrieving revision 1.8
diff -r1.8 parser.slate
212c212
<   block depth: (p currentScope ifNotNil: [p currentScope + 1] ifNil: [0]).
---
>   block depth: (p currentScope ifNil: [0] ifNotNil: [p currentScope + 1] 
>).
Index: src/compiler/types.slate
===================================================================
RCS file: /var/lib/cvs/slate/slate/src/compiler/types.slate,v
retrieving revision 1.17
diff -r1.17 types.slate
148,149d147
< Types Union addSlot: #argument valued: Types Any clone.
< "The complemented type."
180a179,182
>
>Types Union addSlot: #argument valued: Types Any clone.
>"The complemented type."
>

_________________________________________________________________
MSN Search, le moteur de recherche qui pense comme vous !  
http://fr.ca.search.msn.com/