simon/mw-engine
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Found a serious fault in display.clj because marginalia picked it up.

Browse source 
Hadn't been picked up otherwise because

(1) I hadn't written any unit tests for it, and
(2) it isn't actually used by anything.

Should possibly be deleted.
This commit is contained in:
simon 2014-08-16 21:50:18 +01:00
parent 6fd8e4bb13
commit 2bf9d34794
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/mw_engine/display.clj
View file

@ -35,4 +35,4 @@
[world] [world]
(apply vector (apply vector
(cons :table (cons :table
(map render-world-row world))) (map render-world-row world))))

3
src/mw_engine/world.clj
View file

@ -30,13 +30,14 @@
true (cons (make-cell index height) true (cons (make-cell index height)
(make-world-row (inc index) width height)))) (make-world-row (inc index) width height))))
(defn- make-world-rows [index width height] (defn- make-world-rows
"Make the (remaining) rows in a world of this width and height, from this "Make the (remaining) rows in a world of this width and height, from this
index. index.
* `index` y coordinate of the next row to be created; * `index` y coordinate of the next row to be created;
* `width` total width of the matrix, in cells; * `width` total width of the matrix, in cells;
* `height` total height of the matrix, in cells." * `height` total height of the matrix, in cells."
[index width height]
(cond (= index height) nil (cond (= index height) nil
true (cons (apply vector (make-world-row 0 width index)) true (cons (apply vector (make-world-row 0 width index))
(make-world-rows (inc index) width height)))) (make-world-rows (inc index) width height))))