This commit is contained in:
Jay McCarthy 2018-01-10 13:46:02 -05:00
parent 4aba3c335f
commit 3d765975a0
1 changed files with 1 additions and 1 deletions

View File

@ -107,7 +107,7 @@
(struct cells (rows cols vec) #:mutable)
(define (maybe-make-cells old new-rows new-cols)
(match-define (cells old-rows old-cols vec) old)
;; XXX support shrinking/growing
;; XXX support shrinking/growing while preserving information
(if (and (= old-rows new-rows)
(= old-cols new-cols))
old