Альтераторская всячина

Непонятные глюки в guile16

rpm -qi guile16-1.6.8-alt1.1 Name : guile16 Relocations: (not relocateable) Version : 1.6.8 Vendor: ALT Linux Team Release : alt1.1 Build Date: Птн 17 Лис 2006 21:38:39 Install date: Чтв 10 Кві 2008 14:07:50 Build Host: bee5.hasher.altlinux.org Group : Development/Other Source RPM: guile16-1.6.8-alt1.1.src.rpm Size : 2118916 License: GPL Packager : Alexey Voinov <voins@altlinux.ru> URL : http://www.gnu.org/software/guile/ Summary : A GNU implementation of Scheme for application extensibility. Description : GUILE (GNU's Ubiquitous Intelligent Language for Extension) is a library implementation of the Scheme programming language, written in C. GUILE provides a machine-independent execution platform that can be linked in as a library during the building of extensible programs. Install the guile package if you'd like to add extensibility to programs that you are developing. You'll also need to install the guile-devel package.

Глюк #1

Исходные данные:
(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 ) )

Правильный результат:
guile> (rows->buff rows) (#("default" #t #t "default") #("192.168.1.238" #f "default" "1024x768") #("192.168.1.252" "default" #f "default"))

Нерабочая функция:
(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 ) )

Странный результат:
guile> (rows->buff rows) Backtrace: In standard input: 209: 0* [rows->buff (#(# # # #) #(# # # #) #(# # # #))] 187: 1 [map #<procedure #f (old-row)> (#(# # # #) #(# # # #) #(# # # #))] In unknown file: ?: 2* [#<procedure #f (old-row)> #(# # # #)] In standard input: 189: 3* (let ((new-row #)) ((array-map! new-row # old-row) new-row)) 194: 4 ((array-map! new-row (lambda (old-cell) (car old-cell)) old-row) new-row) standard input:194:33: In expression ((array-map! new-row # ...) new-row): standard input:194:33: Wrong type to apply: #<unspecified> ABORT: (misc-error)

Глюк #2

Исходные данные:
(define rows-default_on_off '("default" "on" "off"))

Рабочая функция:
(define (list-position lst itm) (define (find-index lst idx) (if (null? lst) #f (if (string=? (car lst) itm) idx (find-index (cdr lst) (+ idx 1)) ) ) ) (find-index lst 0) )

Правильный результат:
guile> (list-position rows-default_on_off "on") 1

Нерабочая функция (классика жанра):
(define (list-position lst itm) (let loop ( (lst lst) (idx 0) ) (if (null? lst) #f (if (eqv? (car lst) itm) idx (loop (cdr lst) (+ idx 1)) ) ) ) )

Странный результат:
guile> (list-position rows-default_on_off "on") #f