[pure-lang-svn] SF.net SVN: pure-lang:[693] pure/trunk/lib/dict.pure
Status: Beta
Brought to you by:
agraef
|
From: <ag...@us...> - 2008-09-03 22:02:16
|
Revision: 693
http://pure-lang.svn.sourceforge.net/pure-lang/?rev=693&view=rev
Author: agraef
Date: 2008-09-03 22:02:24 +0000 (Wed, 03 Sep 2008)
Log Message:
-----------
Prelude changes: repeat was renamed to repeatn.
Modified Paths:
--------------
pure/trunk/lib/dict.pure
Modified: pure/trunk/lib/dict.pure
===================================================================
--- pure/trunk/lib/dict.pure 2008-09-03 21:47:54 UTC (rev 692)
+++ pure/trunk/lib/dict.pure 2008-09-03 22:02:24 UTC (rev 693)
@@ -271,8 +271,8 @@
// create dict or hdict from a list of keys and a constant value
-mkdict y xs = dict (zipwith (=>) xs (repeat (#xs) y)) if listp xs;
-mkhdict y xs = hdict (zipwith (=>) xs (repeat (#xs) y)) if listp xs;
+mkdict y xs = dict (zipwith (=>) xs (repeatn (#xs) y)) if listp xs;
+mkhdict y xs = hdict (zipwith (=>) xs (repeatn (#xs) y)) if listp xs;
// check for the empty dict or hdict
null (Dict nil) = 1;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|