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/i-intern.boot | |
| parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
| download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 3c16a7e0..e0e2b2f0 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -97,7 +97,7 @@ mkAtreeExpandMacros x == mkAtree1 x == -- first special handler for making attrib tree null x => throwKeyedMsg("S2IP0005",['"NIL"]) - VECP x => x + vector? x => x atom x => x in '(%noBranch %noMapVal) => x x in '(nil true false) => mkAtree2([x],x,NIL) @@ -377,7 +377,7 @@ atree2Tree1(x,evalIfTrue) == (triple := getValue x) and objMode(triple) ~= $EmptyMode => coerceOrCroak(triple,$OutputForm,$mapName) isLeaf x => - VECP x => x.0 + vector? x => x.0 x [atree2Tree1(y,evalIfTrue) for y in x] |