diff options
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 b2b5c8c3..7fd36e0f 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -348,7 +348,7 @@ mkNewUnionFunList(name,form is ["Union",:listOfEntries],e) == ["hash",[$SingleInteger,name],["ELT",dc,0]], ["coerce",[$OutputForm,name],["ELT",dc,$FirstParamSlot+nargs+1]],: ("append"/ - [[["construct",[name,type],["XLAM",["#1"],["%makepair",i,"#1"]]], + [[["construct",[name,type],["XLAM",["#1"],["%pair",i,"#1"]]], ["elt",[type,name,tag],cdownFun], ["case",[$Boolean,name,tag], ["XLAM",["#1","#2"],['%ieq,['%head,"#1"],i]]]] @@ -395,7 +395,7 @@ mkUnionFunList(op,form is ["Union",:listOfEntries],e) == for p in predList for t in listOfEntries])] where upFun() == p is ['%ieq,['%head,x],n] => - ["XLAM",["#1"],["%makepair",n,"#1"]] + ["XLAM",["#1"],["%pair",n,"#1"]] ["XLAM",["#1"],"#1"] cdownFun() == gg:=gensym() |