X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=gCons.dcl;h=9733f4a8a8ebd73d3cfab77ba52c64d4aceafaf5;hb=ce02e66737315fe6821272e7d7cc86a79a88060d;hp=72ab85361a4596eddc184141308c2f14c282862e;hpb=8316870cacd21b19badf032f3b8189bdd54eb1e3;p=mTask.git

diff --git a/gCons.dcl b/gCons.dcl
index 72ab853..9733f4a 100644
--- a/gCons.dcl
+++ b/gCons.dcl
@@ -16,4 +16,4 @@ generic consIndex a :: a -> Int
 derive consIndex CONS of {gcd_index},UNIT,PAIR,EITHER,OBJECT,Int,Bool,Char,String
 
 generic conses a :: [a]
-derive conses CONS,UNIT,PAIR,EITHER,OBJECT,FIELD,RECORD,Int,Bool,Char,Real,String,(),{},{!},[],[! ],[ !],[!!]
+derive conses CONS,UNIT,PAIR,EITHER,OBJECT,FIELD,RECORD,Int,Bool,Char,Real,String,(),{},{!},[],[! ],[ !],[!!],(->)