diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-02 13:03:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-02 13:03:26 +0000 |
| commit | 4ac600edddd39335715c053ded118a59c804778d (patch) | |
| tree | d60f88eb9626a3a0de210246dcc36198478b5ad0 /src/interp/buildom.boot | |
| parent | c129ad817cd16aef92f5b433a509e15254b9ccd3 (diff) | |
| download | open-axiom-4ac600edddd39335715c053ded118a59c804778d.tar.gz | |
* interp/buildom.boot: Use constants by names.
* interp/i-analy.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-intern.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/wi1.boot: Likewise.
Diffstat (limited to 'src/interp/buildom.boot')
| -rw-r--r-- | src/interp/buildom.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index 12b77b33..13a2de6d 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -342,7 +342,7 @@ mkNewUnionFunList(name,form is ["Union",:listOfEntries],e) == ("append"/ [[["construct",[name,type],["XLAM",["#1"],["CONS",i,"#1"]]], ["elt",[type,name,tag],cdownFun], - ["case",['(Boolean),name,tag], + ["case",[$Boolean,name,tag], ["XLAM",["#1"],["QEQCAR","#1",i]]]] for [.,tag,type] in listOfEntries for i in 0..])] where cdownFun() == @@ -382,7 +382,7 @@ mkUnionFunList(op,form is ["Union",:listOfEntries],e) == [[["autoCoerce",[g,t],upFun], ["coerce",[t,g],cdownFun], ["autoCoerce",[t,g],downFun], --this should be removed eventually - ["case",['(Boolean),g,t],typeFun]] + ["case",[$Boolean,g,t],typeFun]] for p in predList for t in listOfEntries])] where upFun() == p is ["EQCAR",x,n] => ["XLAM",["#1"],["CONS",n,"#1"]] |