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/pspad2.boot | |
| parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
| download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz | |
* interp/: More cleanup.
Diffstat (limited to 'src/interp/pspad2.boot')
| -rw-r--r-- | src/interp/pspad2.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/pspad2.boot b/src/interp/pspad2.boot index 0928d565..6078d610 100644 --- a/src/interp/pspad2.boot +++ b/src/interp/pspad2.boot @@ -72,7 +72,7 @@ formatDeftran(u,SEQflag) == [:m,y] := [:a,:b] ['SEQ,:m,['exit,n,y]] -- u is ['not,arg] and (op := LASSOC(KAR arg,'((_= . _~_=) (_< . _>_=)))) => --- formatDeftran([op,:CDR arg],nil) +-- formatDeftran([op,:rest arg],nil) u is ["^",a] => formatDeftran(['not,a],SEQflag) u is ["exquo",a,b] => formatDeftran(['xquo,a,b],SEQflag) u is ['IF,a,b,c] => @@ -156,7 +156,7 @@ formatDeftranJoin(u,SEQflag) == ['Join,:cats,lastcat] := u lastcat is ['CATEGORY,kind,:l,x] => cat := - CDR cats => ['Join,:cats] + rest cats => ['Join,:cats] first cats formatDeftran(['with,cat,['SEQ,:l,['exit,1,x]]],SEQflag) u @@ -189,7 +189,7 @@ formatDeftranIf(a,b,c) == [["=>", ['not, a], c]] post := c = '%noBranch => nil - c is ['SEQ,:.] => CDR c + c is ['SEQ,:.] => rest c [c] [["=>",a,b],:post] @@ -641,7 +641,7 @@ formatLB() == restoreC() == --used by macro "embrace" originalC := CAR $braceStack - $braceStack := CDR $braceStack + $braceStack := rest $braceStack formatRB originalC saveC() == --used by macro "embrace" @@ -652,7 +652,7 @@ saveD() == --used by macro "embrace" restoreD() == --used by macro "indentNB" originalC := CAR $braceStack - $braceStack := CDR $braceStack + $braceStack := rest $braceStack originalC formatRB(originalC) == --called only by restoreC |