Mercurial > repos > rhope

diff string.rhope @ 87:3c4325e6298f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add First@Dictionary (need to find mem man bug)
author Mike Pavone <pavone@retrodev.com>
date Fri, 30 Jul 2010 01:48:59 -0400
parents 27bb051d631c
children c25d75c2440b
line wrap: on
line diff
--- a/string.rhope	Tue Jul 27 23:33:31 2010 -0400
+++ b/string.rhope	Fri Jul 30 01:48:59 2010 -0400
@@ -559,3 +559,13 @@
 	{ out <- UInt32[~] }
 }
 
+_From Dict String[arr,el:out]
+{
+	out <- [arr]Append[Trunc UInt8[el]]
+}
+
+From Dict Key@String[string,data:out]
+{
+	out <- String[Fold[_From Dict String[?], Array[], data]]
+}
+