note
This commit is contained in:
parent
4aba3c335f
commit
3d765975a0
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue