X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=gCons.dcl;h=64564daf8bc06ad28c209276c3611a138977c6ec;hb=20d565b9eb2b58cc1e7e43b518d3529fb7ba10d4;hp=c43236a2415b92ca4787f58559b84b3a131240c2;hpb=48dfd7ad2f104321657a3ea44d33340761c95c2e;p=mTask.git

diff --git a/gCons.dcl b/gCons.dcl
index c43236a..64564da 100644
--- a/gCons.dcl
+++ b/gCons.dcl
@@ -14,3 +14,7 @@ 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
+
+conses :: [a] | gconses{|*|} a
+generic gconses a :: Bool -> [a]
+derive gconses CONS,UNIT,PAIR,EITHER,OBJECT,FIELD,RECORD,Int,Bool,Char,Real,String,(),{},{!},[],[! ],[ !],[!!],(->)