Commit b0ab4615 authored by Michael Hanus 's avatar Michael Hanus
Browse files

Small bug fix

parent 662d4ae6
......@@ -526,7 +526,7 @@ writeProg(Mod,Imports,MainTypes,MainFuncs,MainOps,ImpTypes,ImpFuncs,ImpOps) :-
; % generate type clause for partcall in the prelude:
writeClause(constructortype(partcall,partcall,3,partcall,0,
'FuncType'('TCons'('Int',[]),
'FuncType'(_,'FuncType'('TCons'([],[_]),_))))),[]),
'FuncType'(_,'FuncType'('TCons'([],[_]),_)))))),
map1M(compiler:writeDTypeClause,MainTypes), nl,
getConstructors(AllTypes,ConsList),
......
......@@ -131,6 +131,6 @@ xmlUnquoteSpecial("quot",Cs,[34|UCs]) :- !, xmlUnquoteSpecials(Cs,UCs).
xmlUnquoteSpecial("apos",Cs,[39|UCs]) :- !, xmlUnquoteSpecials(Cs,UCs).
xmlUnquoteSpecial(Special,Cs,AllUCs) :-
append([38],Special,AmpSpecial),
append(AmpSpecial,59,QuoteSpecial),
append(AmpSpecial,[59],QuoteSpecial),
xmlUnquoteSpecials(Cs,UCs),
append(QuoteSpecial,UCs,AllUCs).
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment