diff options
| -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) |