--- a/compiler/PPCCodeGenerator.st Mon Aug 24 22:32:15 2015 +0100
+++ b/compiler/PPCCodeGenerator.st Mon Aug 24 23:42:53 2015 +0100
@@ -25,9 +25,9 @@
!PPCCodeGenerator methodsFor:'accessing'!
-arguments: args
- super arguments: args.
- codeGen arguments: args.
+options: args
+ super options: args.
+ codeGen options: args.
!
clazz: aPPCClass
@@ -43,7 +43,7 @@
!
guards
- ^ arguments guards
+ ^ options guards
! !
!PPCCodeGenerator methodsFor:'code generation'!
@@ -340,8 +340,8 @@
parent := variableNode parent.
"Check for <barg> at: <number>"
- ((parent selector == #at:) and:[ parent arguments first isLiteralNumber ]) ifTrue:[
- blockMatches at: parent put: (childValueVars at: parent arguments first value).
+ ((parent selector == #at:) and:[ parent options first isLiteralNumber ]) ifTrue:[
+ blockMatches at: parent put: (childValueVars at: parent options first value).
] ifFalse:[
"Check for <barg> first / second / ..."
| i |
@@ -951,7 +951,7 @@
self compileTokenWhitespace: node.
- (arguments guards and: [(guard := PPCGuard on: node) makesSense]) ifTrue: [
+ (options guards and: [(guard := PPCGuard on: node) makesSense]) ifTrue: [
guard id: id, '_guard'.
codeGen code: 'context atEnd ifTrue: [ self error ].'.
guard compileGuard: codeGen.
@@ -963,7 +963,7 @@
codeGen codeAssign: 'context position + 1.' to: startVar.
codeGen codeEvaluateAndAssign:[ self visit:node child ] to:#whatever.
- (arguments guards and: [(guard := PPCGuard on: node) makesSense]) ifTrue: [
+ (options guards and: [(guard := PPCGuard on: node) makesSense]) ifTrue: [
codeGen dedent.
codeGen code: '].'.
].