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/nruncomp.boot | |
| parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
| download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 7bb931ab..d7b9eefd 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -116,7 +116,7 @@ NRTencode(x,y) == encode(x,y,true) where encode(x,compForm,firstTime) == --converts a domain form to a lazy domain form; everything other than --the operation name should be assigned a slot not firstTime and (k:= NRTassocIndex x) => k - VECP x => systemErrorHere '"NRTencode" + vector? x => systemErrorHere '"NRTencode" cons? x => op := first x op = "Record" or x is ['Union,['_:,a,b],:.] => |