diff kernel.rhope @ 98:a34a982ecd32

Broken port of nworker to compiler
author Mike Pavone <pavone@retrodev.com>
date Tue, 03 Aug 2010 23:51:39 -0400
parents 5a08705f7610
children e09c2d1d6d5b
line wrap: on
line diff
--- a/kernel.rhope	Tue Aug 03 22:38:25 2010 -0400
+++ b/kernel.rhope	Tue Aug 03 23:51:39 2010 -0400
@@ -287,3 +287,13 @@
 	}
 }
 
+_Keys[list,val,key:out]
+{
+	out <- [list]Append[key]
+}
+
+Keys[container:out]
+{
+	out <- Fold[_Keys[?], (), container]
+}
+