X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=gCons.dcl;h=64564daf8bc06ad28c209276c3611a138977c6ec;hb=7d7b6bdf4400272d6199401bcd76794cba9055ce;hp=edd0a4ad0eca28a2db60ef32fa4acce1ff34472c;hpb=fe2e0f56c77de00d25686ab0b583a40595b35ab8;p=mTask.git

diff --git a/gCons.dcl b/gCons.dcl
index edd0a4a..64564da 100644
--- a/gCons.dcl
+++ b/gCons.dcl
@@ -17,4 +17,4 @@ derive consIndex CONS of {gcd_index},UNIT,PAIR,EITHER,OBJECT,Int,Bool,Char,Strin
 
 conses :: [a] | gconses{|*|} a
 generic gconses a :: Bool -> [a]
-derive gconses CONS,UNIT,PAIR,EITHER,OBJECT,FIELD,RECORD,Int,Bool,Char,Real,String,(),{},{!},[],[! ],[ !],[!!]
+derive gconses CONS,UNIT,PAIR,EITHER,OBJECT,FIELD,RECORD,Int,Bool,Char,Real,String,(),{},{!},[],[! ],[ !],[!!],(->)