# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1401596823 25200
# Node ID 697c2c562af2b0286611a168e4ac4d019dde3640
# Parent  0049467436781d3ed7f9b460912a37bf53043339
Fix infinite loop in hash dict

diff -r 004946743678 -r 697c2c562af2 modules/dict.tp
--- a/modules/dict.tp	Sat May 10 19:11:01 2014 -0700
+++ b/modules/dict.tp	Sat May 31 21:27:03 2014 -0700
@@ -127,6 +127,7 @@
 								notdone <- false
 							}
 						}
+						i <- i + 1
 					}
 					if: (ret empty?) ifnot else: {
 						ifpres: (ret v)