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/cstream.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/cstream.boot')
| -rw-r--r-- | src/interp/cstream.boot | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/interp/cstream.boot b/src/interp/cstream.boot index b5ce37fb..0e176c0a 100644 --- a/src/interp/cstream.boot +++ b/src/interp/cstream.boot @@ -47,7 +47,8 @@ StreamNull x== x.rest := rest st x is ["nullstream",:.] -Delay(f,x)==cons("nonnullstream",[f,:x]) +Delay(f,x) == + ["nonnullstream",:[f,:x]] StreamNil:= ["nullstream"] @@ -59,20 +60,20 @@ incRgen1(:z)== if null a then (CLOSE s;StreamNil) - else cons(a,incRgen s) + else [a,:incRgen s] incIgen n==Delay(function incIgen1,[n]) incIgen1(:z)== [n]:=z n:=n+1 - cons(n,incIgen n) + [n,:incIgen n] incZip(g,f1,f2)==Delay(function incZip1,[g,f1,f2]) incZip1(:z)== [g,f1,f2]:=z StreamNull f1 => StreamNil StreamNull f2 => StreamNil - cons(FUNCALL(g,car f1,car f2),incZip(g,cdr f1,cdr f2)) + [FUNCALL(g,car f1,car f2),:incZip(g,cdr f1,cdr f2)] incAppend(x,y)==Delay(function incAppend1,[x,y]) @@ -82,7 +83,7 @@ incAppend1(:z)== then if StreamNull y then StreamNil else y - else cons(car x,incAppend(cdr x,y)) + else [car x,:incAppend(cdr x,y)] next(f,s)==Delay(function next1,[f,s]) next1(:z)== @@ -101,7 +102,8 @@ nextown1 (:z)== h:=spadcall2 (f, s) incAppend(car h,nextown(f,g,cdr h)) -nextown2(f,g,e,x)==nextown(cons(f,e),cons(g,e),x) +nextown2(f,g,e,x) == + nextown([f,:e],[g,:e],x) spadcall1(g)== [impl, :env] := g |