diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-07 00:04:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-07 00:04:39 +0000 |
| commit | e869c4e050f29dffb51d26f53489422020f49e4f (patch) | |
| tree | 19fa59732d0162b8b22c8c472f34f807a3d55122 /src/boot/parser.boot | |
| parent | 62fb1ed88e7c6a94e1ba833a2078cc162e1a44f9 (diff) | |
| download | open-axiom-e869c4e050f29dffb51d26f53489422020f49e4f.tar.gz | |
* boot/ast.boot: Translate assignment to head and tail of a list.
Remove explicit uses of RPLACA and RPLACD.
* boot/includer.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/parser.boot')
| -rw-r--r-- | src/boot/parser.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index 56bd4d73..aa250b80 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -101,12 +101,12 @@ bpPop1()== bpPop2()== a:=second $stack - RPLACD($stack,CDDR $stack) + $stack.rest := CDDR $stack a bpPop3()== a:=third $stack - RPLACD(rest $stack,CDDDR $stack) + $stack.rest.rest := CDDDR $stack a bpIndentParenthesized f== |