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/wi2.boot | |
parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/wi2.boot')
-rw-r--r-- | src/interp/wi2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index 828afd4c..669abeed 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -1119,7 +1119,7 @@ chk(x,key) == fn(x,0,key) where fn(x,cnt,key) == sayBrightly ["--> ", key, " <---"] hahaha(key) atom x => cnt - VECP x => systemError nil + vector? x => systemError nil for y in x repeat cnt := fn(y, cnt + 1, key) cnt |