== guile16 =
Исходные данные: (define rows '( #(("default" . "") (#t . "theme:ltsconf/check.png") (#t . "theme:ltsconf/check.png") ("default" . "")) #(("192.168.1.238" . "") (#f . "theme:ltsconf/cross.png") ("default" . "") ("1024x768" . "")) #(("192.168.1.252" . "") ("default" . "") (#f . "theme:ltsconf/cross.png") ("default" . "")) ) )
Рабочая функция: (define (rows->buff rows) (map (lambda (old-row) (define new-row (make-array #f (vector-length old-row))) (array-map! new-row (lambda (old-cell) (car old-cell) ) old-row ) new-row ) rows ) )
Нерабочая функция: (map (lambda (old-row) (let ( (new-row (make-array #f (vector-length old-row))) ) ( (array-map! new-row (lambda (old-cell) (car old-cell) ) old-row ) new-row ) ) ) rows ) )