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

Оглавление документа

Непонятные глюки в 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 `(let ...)`

Исходные данные:

(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)

Непонятка #1 `eqv?`

guile16:

guile> (eqv? "on" "on")
#f
guile> (eqv? '("a" . "b") '("a" . "b"))
#f
guile> (equal? '("a" . "b") '("a" . "b"))
#t
guile> (eqv? 42 42)
#t
guile> (eqv? -0.0 0.0)
#t
guile>  (equal? -0.0 0.0)
#t
guile> (eqv? -0 0)
#t
guile> (eqv? -0/1 0/1)
#t

mzscheme-2:

> (eqv? "on" "on")
#f
> (eqv? '("a" . "b") '("a" . "b"))
#f
> (equal? '("a" . "b") '("a" . "b"))
#t
> (eqv? 42 42)
#t
>  (eqv? -0.0 0.0)
#f
> (equal? -0.0 0.0)
#f
> (eqv? -0 0)
#t
> (eqv? -0/1 0/1)
#t

FreeSource : ValentynSolomko/Alterator

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

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

Глюк #1 (let ...)

Непонятка #1 eqv?

Глюк #1 `(let ...)`

Непонятка #1 `eqv?`