X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=gCons.dcl;h=571aefeb27a0d7d688a0d42789dacd341260baab;hb=3c4bbb3cae00cb810107b39b99b8118e9e458a34;hp=9733f4a8a8ebd73d3cfab77ba52c64d4aceafaf5;hpb=f63e9891ef344e992a8a837cd3301ba3209f1e5c;p=mTask.git

diff --git a/gCons.dcl b/gCons.dcl
index 9733f4a..571aefe 100644
--- a/gCons.dcl
+++ b/gCons.dcl
@@ -10,10 +10,10 @@ definition module gCons
 import StdGeneric
 
 generic consName a :: a -> String
-derive consName CONS of {gcd_name},UNIT,PAIR,EITHER,OBJECT,RECORD,FIELD,Int,Bool,Char,String,(->)
+derive consName CONS of {gcd_name},UNIT,PAIR,EITHER,OBJECT,RECORD,FIELD,Int,Bool,Char,String,(->),[]
 
 generic consIndex a :: a -> Int
-derive consIndex CONS of {gcd_index},UNIT,PAIR,EITHER,OBJECT,Int,Bool,Char,String
+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,(),{},{!},[],[! ],[ !],[!!],(->)