diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-24 19:11:45 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-24 19:11:45 -0800 |
| commit | b200f025ccb0b684ff63844dbdddb3f4fa8048df (patch) | |
| tree | 219ba3346dc25156ac1740d0bc81aa86c672d65b /src/interp/spad-parser.boot | |
| parent | 4dcf3f97d30a2b892716923ed4e916805ec87436 (diff) | |
| download | open-axiom-b200f025ccb0b684ff63844dbdddb3f4fa8048df.tar.gz | |
Tidy uses of apply.
Diffstat (limited to 'src/interp/spad-parser.boot')
| -rw-r--r-- | src/interp/spad-parser.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index 2c37ee6e..028a30b9 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -317,7 +317,7 @@ macro compulsorySyntax(rd,s) == repeatedSyntax(rd,l,p) == n := stackSize $reduceStack once := false - while apply(p,rd,nil) repeat + while apply(p,[rd]) repeat once := true not once => nil x := nil @@ -594,7 +594,7 @@ parseRightBindingPowerOf(x,p) == parseGetSemanticForm(rd,x,p,y) == z := y = nil => nil - apply(y,rd,nil) + apply(y,[rd]) z ~= nil => z p = "Nud" => parsePrefix rd p = "Led" => parseInfix rd @@ -1030,7 +1030,7 @@ parseSpecialCommand rd == pushReduction('parseSpecialCommand,["show",popStack1()]) compulsorySyntax(rd,parseCommandTail rd) symbolMember?(currentSymbol rd,$noParseCommands) => - apply(currentSymbol rd,nil) + apply(currentSymbol rd,[]) true symbolMember?(currentSymbol rd,$tokenCommands) and parseTokenList rd => compulsorySyntax(rd,parseTokenCommandTail rd) |