diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
| commit | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (patch) | |
| tree | b805dc5dc54812fe61efb039f15087a9d9b6c5be /src/interp/sys-utility.boot | |
| parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
| download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 8c22be2e..608f23ba 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -299,7 +299,7 @@ minimalise x == z := min(rest x,ht) if not EQ(z,rest x) then x.rest := z hashCheck(x,ht) - REFVECP x => + vector? x => for i in 0..MAXINDEX x repeat x.i := min(x.i,ht) hashCheck(x,ht) |