diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 02:55:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 02:55:42 +0000 |
| commit | 114fbbb2d4a1b9aca26064d8a2fcf180c65911d2 (patch) | |
| tree | a195da9d7a0551ac8a4ace8a0721afd0299f70d2 /src/interp/g-boot.boot | |
| parent | 7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63 (diff) | |
| download | open-axiom-114fbbb2d4a1b9aca26064d8a2fcf180c65911d2.tar.gz | |
* interp/cparse.boot: Replace call to cons with bracket syntax.
* interp/cstream.boot: Likewise.
* interp/database.boot: Likewise.
* interp/define.boot: Likewise.
* interp/g-boot.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/i-analy.boot: Likewise.
* interp/i-coerce.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/incl.boot: Likewise.
* interp/int-top.boot: Likewise.
* interp/macex.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/pile.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/ptrees.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/types.boot: Likewise.
Diffstat (limited to 'src/interp/g-boot.boot')
| -rw-r--r-- | src/interp/g-boot.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/g-boot.boot b/src/interp/g-boot.boot index fc45f8d5..7b776706 100644 --- a/src/interp/g-boot.boot +++ b/src/interp/g-boot.boot @@ -265,7 +265,7 @@ defLET1(lhs,rhs) == l1 := defLET1(name,third rhs) l2 := defLET1(lhs,name) l2 is ["PROGN",:.] => MKPROGN [l1,:rest l2] - if IDENTP first l2 then l2 := cons(l2,nil) + if IDENTP first l2 then l2 := [l2,:nil] MKPROGN [l1,:l2,name] g := INTERN STRCONC('"LETTMP#",STRINGIMAGE $letGenVarCounter) $letGenVarCounter := $letGenVarCounter + 1 @@ -290,11 +290,11 @@ defLET2(lhs,rhs) == defLET2(var2,addCARorCDR('CDR,rhs)) l1 := defLET2(var1,addCARorCDR('CAR,rhs)) var2 in '(NIL _.) => l1 - if cons? l1 and atom first l1 then l1 := cons(l1,nil) + if cons? l1 and atom first l1 then l1 := [l1,:nil] IDENTP var2 => [:l1,defLetForm(var2,addCARorCDR('CDR,rhs))] l2 := defLET2(var2,addCARorCDR('CDR,rhs)) - if cons? l2 and atom first l2 then l2 := cons(l2,nil) + if cons? l2 and atom first l2 then l2 := [l2,:nil] append(l1,l2) lhs is ['APPEND,var1,var2] => patrev := defISReverse(var2,var1) @@ -302,7 +302,7 @@ defLET2(lhs,rhs) == g := INTERN STRCONC('"LETTMP#",STRINGIMAGE $letGenVarCounter) $letGenVarCounter := $letGenVarCounter + 1 l2 := defLET2(patrev,g) - if cons? l2 and atom first l2 then l2 := cons(l2,nil) + if cons? l2 and atom first l2 then l2 := [l2,:nil] var1 = "." => [[$LET,g,rev],:l2] last l2 is [=$LET, =var1, val1] => [[$LET,g,rev],:reverse rest reverse l2, @@ -324,7 +324,7 @@ defLET(lhs,rhs) == addCARorCDR(acc,expr) == atom expr => [acc,expr] acc = 'CAR and expr is ["REVERSE",:.] => - cons('last,QCDR expr) + ['last,:QCDR expr] funs := '(CAR CDR CAAR CDAR CADR CDDR CAAAR CADAR CAADR CADDR CDAAR CDDAR CDADR CDDDR) p := position(QCAR expr,funs) @@ -396,7 +396,7 @@ defIS1(lhs,rhs) == $isGenVarCounter := $isGenVarCounter + 1 rev := ['AND,['CONSP,lhs],['PROGN,[$LET,g,['REVERSE,lhs]],''T]] l2 := defIS1(g,patrev) - if cons? l2 and atom first l2 then l2 := cons(l2,nil) + if cons? l2 and atom first l2 then l2 := [l2,:nil] a = "." => ['AND,rev,:l2] ['AND,rev,:l2,['PROGN,defLetForm(a,['NREVERSE,a]),''T]] SAY '"WARNING (defIS1): possibly bad IS code being generated" |