# HG changeset patch # User Michael Pavone # Date 1406361761 25200 # Node ID 934d03d42a7e255948080dc9da1171ce8395c7e6 # Parent 3812bf35168d3fcf8be5f2eb932218989f0672d2 Debug junk removed diff -r 3812bf35168d -r 934d03d42a7e code/dotScanner.lm --- a/code/dotScanner.lm Sat Jul 26 00:58:50 2014 -0700 +++ b/code/dotScanner.lm Sat Jul 26 01:02:41 2014 -0700 @@ -207,32 +207,25 @@ notdone <- 0 } else: { continuations <- fold: continuations [] with: :acc el{ - print: #[20 acc] ret <- acc if: notdone { ret <- el: - print: #[11 ret] if: (ret isInteger?) { ret <- acc } else: { if: (ret value) { - print: 12 notdone <- 0 ret <- (ret tail) } else: { - print: 13 ret <- (ret tail) | acc } } } else: {} - print: #[21 ret] ret } - print: #[15 continuations] if: notdone { continuations <- flatten: continuations } else: {} - print: #[16 continuations] } } continuations @@ -282,7 +275,6 @@ } } else: { } - print: #[10 myLoc ret] ret } } @@ -295,9 +287,7 @@ visited <- treeMap: grid :row { treeMap: row :el { 0 } } - print: #[5 myLoc] path <- advancer: [(makeContClos: grid myLoc [])] - print: path #[0 (path value)] }