diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-10 12:12:33 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-10 12:12:33 +0000 |
| commit | 1d9f6f94a8e8edc6b8a597ed62ee210e1147b0e1 (patch) | |
| tree | 607fa226dc73f802749b9a861e5d0bbfd0e217ab /src/interp/clam.boot | |
| parent | 93f026d1c803148e80bb23756ee656bf7ee19a8d (diff) | |
| download | open-axiom-1d9f6f94a8e8edc6b8a597ed62ee210e1147b0e1.tar.gz | |
Clean up
Diffstat (limited to 'src/interp/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index bf66a8a0..5d1d5771 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -621,7 +621,7 @@ listTruncate(l,n) == lassocShift(x,l) == y:= l while cons? y repeat - EQUAL(x,first first y) => return (result := first y) + x = first first y => return (result := first y) y:= rest y result => if not EQ(y,l) then |