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/pile.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/pile.boot')
-rw-r--r-- | src/interp/pile.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/pile.boot b/src/interp/pile.boot index 83e6b584..923adeb9 100644 --- a/src/interp/pile.boot +++ b/src/interp/pile.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2009, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -62,11 +62,11 @@ insertpile (s)== then [h1,t1]:=pilePlusComments s a:=pileTree(-1,t1) - cons([pileCforest [:h1,a.2]],a.3) + [[pileCforest [:h1,a.2]],:a.3] else stream:=CADAR s a:=pileTree(-1,s) - cons([[a.2,stream]],a.3) + [[[a.2,stream]],:a.3] pilePlusComments s== if npNull s @@ -76,7 +76,7 @@ pilePlusComments s== if pilePlusComment h then [h1,t1]:=pilePlusComments t - [cons(h,h1),t1] + [[h,:h1],t1] else [[],s] pileTree(n,s)== @@ -104,7 +104,7 @@ pileForest(n,s)== if b then [h1,t1]:=pileForest1(hh,t) - [cons(h,h1),t1] + [[h,:h1],t1] else [[],s] pileForest1(n,s)== @@ -112,7 +112,7 @@ pileForest1(n,s)== if b then [h1,t1]:=pileForest1(n,t) - [cons(h,h1),t1] + [[h,:h1],t1] else [[],s] pileForests(h,n,s)== |