From 1ea145d58ec94029d4f6e30a6f854f728154ad8c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 26 Sep 2009 18:43:36 +0000 Subject: More cleanup --- src/interp/termrw.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/termrw.boot') diff --git a/src/interp/termrw.boot b/src/interp/termrw.boot index 937dcdf4..7d018dc5 100644 --- a/src/interp/termrw.boot +++ b/src/interp/termrw.boot @@ -110,7 +110,7 @@ mergeSubs(S1,S2) == null S2 => S1 S3 := [p for p in S2 | not ASSQ(first p, S1)] -- for p in S1 repeat S3:= augmentSub(first p,rest p,S3) - APPEND(S1,S3) + append(S1,S3) subCopy(t,SL) == -- t is any LISP structure, SL a substitution list for sharp variables -- cgit v1.2.3