diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
| commit | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch) | |
| tree | 2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/cparse.boot | |
| parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
| download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz | |
* interp/: More cleanup.
Diffstat (limited to 'src/interp/cparse.boot')
| -rw-r--r-- | src/interp/cparse.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/cparse.boot b/src/interp/cparse.boot index 04aee282..cf7856c2 100644 --- a/src/interp/cparse.boot +++ b/src/interp/cparse.boot @@ -57,7 +57,7 @@ npParse stream == ncSoftError(tokPosn $stok,'S2CY0009, []) pfWrong(pfDocument ['"stack empty"],pfListOf []) else - CAR $stack + first $stack npItem()== npQualDef() => @@ -81,19 +81,19 @@ npFirstTok()== $stok:= if null $inputStream then tokConstruct("ERROR","NOMORE",tokPosn $stok) - else CAR $inputStream + else first $inputStream $ttok:=tokPart $stok npNext() == - $inputStream := CDR($inputStream) + $inputStream := rest($inputStream) npFirstTok() npState()==cons($inputStream,$stack) npRestore(x)== - $inputStream:=CAR x + $inputStream:=first x npFirstTok() - $stack:=CDR x + $stack:=rest x true npPush x==$stack:=CONS(x,$stack) @@ -105,8 +105,8 @@ npPushId()== npNext() npPop1()== - a:=CAR $stack - $stack:=CDR $stack + a:=first $stack + $stack:=rest $stack a npPop2()== @@ -116,7 +116,7 @@ npPop2()== npPop3()== a:= third $stack - RPLACD(CDR $stack,CDDDR $stack) + RPLACD(rest $stack,CDDDR $stack) a npParenthesized f== |