From 114fbbb2d4a1b9aca26064d8a2fcf180c65911d2 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 9 May 2010 02:55:42 +0000 Subject: * 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. --- src/interp/database.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/database.boot') 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 -- cgit v1.2.3