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/database.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/database.boot')
-rw-r--r-- | src/interp/database.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index afd2159e..92938d81 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -623,7 +623,7 @@ flattenSignatureList(x) == x is ['PROGN,:l] => ll:= [] for x in l repeat - x is ['SIGNATURE,:.] => ll:=cons(x,ll) + x is ['SIGNATURE,:.] => ll := [x,:ll] ll:= append(flattenSignatureList x,ll) ll nil |