diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 23:13:13 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-15 23:13:13 -0800 |
| commit | 737e99bde791401bf52b32e46c2aa91fb0dadf59 (patch) | |
| tree | d169b60c5534ed2d286b72b6e3685e1ffffcc303 | |
| parent | 122b243160f6ff7942eebb040b30df3bdeebf123 (diff) | |
| download | mu-737e99bde791401bf52b32e46c2aa91fb0dadf59.tar.gz | |
753
| -rw-r--r-- | mu.arc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 16d6bd0c..5ba77b9d 100644 --- a/mu.arc +++ b/mu.arc @@ -1662,6 +1662,7 @@ :else (recur (+ addr 1) (+ idx 1)))))) +; like memory-contains-array but shows diffs (def memory-contains-array-verbose (addr value) (prn "Mismatch when looking at @addr, size @memory*.addr vs @len.value") (and (>= memory*.addr len.value) @@ -1677,6 +1678,7 @@ :else (recur (+ addr 1) (+ idx 1)))))) +; like memory-contains-array but shows diffs in 2D (def screen-contains (addr width value) (or (memory-contains-array addr value) (do ;(memory-contains-array-verbose addr value) |