up

[mTask.git] / gCons.dcl

diff --git a/gCons.dcl b/gCons.dcl
index c43236a..9733f4a 100644 (file)
--- a/gCons.dcl
+++ b/gCons.dcl
@@ -14,3 +14,6 @@ derive consName CONS of {gcd_name},UNIT,PAIR,EITHER,OBJECT,RECORD,FIELD,Int,Bool
 
 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,(),{},{!},[],[! ],[ !],[!!],(->)