aboutsummaryrefslogtreecommitdiff
path: root/src/interp/database.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r--src/interp/database.boot2
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