# HG changeset patch
# User William Morgan <billjunk@mrgn.org>
# Date 1406353925 25200
# Node ID 37158acf31e59be071a7205eeac1d847d25347b3
# Parent  4bc308c039523c16d15f3661ebe3be5ac8d960da
Initial pass at scan loop

diff -r 4bc308c03952 -r 37158acf31e5 code/dotScanner.lm
--- a/code/dotScanner.lm	Fri Jul 25 21:06:22 2014 -0700
+++ b/code/dotScanner.lm	Fri Jul 25 22:52:05 2014 -0700
@@ -18,7 +18,41 @@
 		...
 	}
     */
-	//scanFor <- :target depth visited{
+
+	grid <- tree: ...
+	visited <- tree: ...
+	
+	advancer <- :listOfTupsLams {
+		notdone <- 1
+		while: { notdone } do: {
+			listOfLamTups <- fold: listOfLamTups [] with: :acc el{
+				ret <- 0
+				newTupLams <- (el tail):
+				
+	
+				// zero means "I have not found it"
+			
+				if: (el value) = 0 {
+					newTupLams <- (el tail):
+					if: (isInteger?: newTupLams) {
+						ret <- acc
+					} else: {
+						ret <- acc | newTupLams
+					}
+				} else: {
+					notdone <- 0
+					ret <- [(el tail)]
+				}
+			}
+		}
+
+		//splitter: target start
+	}
+	splitter <- :target start{
+		
+	}
+
+	//scanFor <- :target visited {
 	//}
 	counterLoad <- 4
 	step <- :myState world {