equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6520 self nextToken. |
6518 self nextToken. |
6521 expr := self expression. |
6519 expr := self expression. |
6522 (expr == #Error) ifTrue:[^ #Error]. |
6520 (expr == #Error) ifTrue:[^ #Error]. |
6523 |
6521 |
6524 node := ReturnNode expression:expr. |
6522 node := ReturnNode expression:expr. |
6525 node startPosition:pos endPosition:(expr endPosition). |
6523 node startPosition:pos endPosition:(expr endPosition ? source position). |
6526 node home:self blockHome:currentBlock. |
6524 node home:self blockHome:currentBlock. |
6527 true "(lineNumberInfo == #full)" ifTrue:[node lineNumber:lnr]. |
6525 true "(lineNumberInfo == #full)" ifTrue:[node lineNumber:lnr]. |
6528 self checkPlausibilityOf:node from:pos to:node endPosition. |
6526 self checkPlausibilityOf:node from:pos to:node endPosition. |
6529 |
6527 |
6530 "/ already in expression |
6528 "/ already in expression |