diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-19 02:28:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 02:28:08 +0000 |
| commit | 2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6 (patch) | |
| tree | 756dc891b84576b3697a1d636e908328afb7719b /src/interp/i-intern.boot | |
| parent | af7a143e3a13e932e243165814fa40424507dae0 (diff) | |
| download | open-axiom-2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index c0fb0483..0c4a6141 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -222,7 +222,7 @@ mkAtree3(x,op,argl) == x is ['ADEF,arg,:r] => r := mkAtreeValueOf r v := - null arg => VECTOR(nil,nil,nil) + null arg => vector [nil,nil,nil] cons? arg and rest arg and first arg ~= "|" => collectDefTypesAndPreds ["tuple",:arg] null rest arg => collectDefTypesAndPreds first arg @@ -239,7 +239,7 @@ mkAtree3(x,op,argl) == r := mkAtreeValueOf r a is [op,:arg] => v := - null arg => VECTOR(nil,nil,nil) + null arg => vector [nil,nil,nil] cons? arg and rest arg and first arg ~= "|" => collectDefTypesAndPreds ["tuple",:arg] null rest arg => collectDefTypesAndPreds first arg @@ -348,7 +348,7 @@ collectDefTypesAndPreds args == pred := addPred(pred,v.2) types := [nil] vars := [args] - VECTOR(vars,types,pred) + vector [vars,types,pred] where addPred(old,new) == null new => old |