# HG changeset patch
# User William Morgan <billjunk@mrgn.org>
# Date 1406522211 25200
# Node ID d087d0b28039799db57d6303efa20ed8cfc95c5a
# Parent  476cd9eba2be60163ac7a766a1b7a5846a9b8206
added getter with a default.

diff -r 476cd9eba2be -r d087d0b28039 code/grid.lm
--- a/code/grid.lm	Sun Jul 27 16:52:36 2014 -0700
+++ b/code/grid.lm	Sun Jul 27 21:36:51 2014 -0700
@@ -51,6 +51,14 @@
 		((x >= 0) + (y >= 0) + (x < maxX) + (y < maxY)) > 0
 	}
 
+	grid:get:withDefault <- :grid pos default {
+		if: (grid: grid inbounds?: pos) {
+			grid: grid get: pos
+		} else: {
+			default
+		}
+	}
+
 	calcPos <- :move from {
 		x <- from value
 		y <- from tail