diff options
author | dos-reis <gdr@axiomatics.org> | 2009-10-25 02:39:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-10-25 02:39:57 +0000 |
commit | bd7d826e17d7719188598a9149403d544d1c45bc (patch) | |
tree | 50ca970578d4560c976c6d9818adb07857775106 /src/interp/functor.boot | |
parent | 4a8c82c52e9cf88d925c1de807307b6ec8d26c9b (diff) | |
download | open-axiom-bd7d826e17d7719188598a9149403d544d1c45bc.tar.gz |
* lib/cfuns-c.c (oa_spawn): New.
(oa_allocate_process_argv): Likewise.
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r-- | src/interp/functor.boot | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index f023faab..06b14c50 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -744,21 +744,18 @@ CheckVector(vec,name,catvecListMaker) == for i in 6..MAXINDEX vec repeat v:= vec.i v=true => nil - null v => nil - --a domain, which setVector4part3 will fill in + null v => nil --a domain, which setVector4part3 will fill in atom v => systemErrorHere ["CheckVector",v] atom first v => - --It's a secondary view of a domain, which we - --must generate code to fill in + --It's a secondary view of a domain, which we + --must generate code to fill in for x in $catNames for y in catvecListMaker repeat - if y=v then code:= - [["setShellEntry",name,i,x],:code] + if y=v then + code := [["setShellEntry",name,i,x],:code] if name='$ then assoc(first v,$CheckVectorList) => nil $CheckVectorList:= [[first v,:makeMissingFunctionEntry(condAlist,i)],:$CheckVectorList] --- member(first v,$CheckVectorList) => nil --- $CheckVectorList:= [first v,:$CheckVectorList] code makeMissingFunctionEntry(alist,i) == |