a bug soo 20 Jul 2005 09:08 UTC

Although no response, I report a bug.

>
(srfi-let (( a (begin (display "first") (newline) 10))
	   (b c (values 20 (begin (display "second") (newline) 30)))
	   ( d (begin (display "third") (newline) 1000))
	   ((values e f . g) (values 1 (begin (display "end") (newline) 2))))
	  (display (list a b c d e f g))
	  (newline))
second
end
first
third
(10 20 30 1000 1 2 ())

;;; The (a b) form should be evaluated once before conversion.
>
(srfi-let* (( a (begin (display "first") (newline) 10))
	    (b c (values 20 (begin (display "second") (newline) 30)))
	    ( d (begin (display "third") (newline) 1000))
	    ((values e f . g) (values 1 (begin (display "end") (newline) 2))))
	   (display (list a b c d e f g))
	   (newline))
first
second
third
end
(10 20 30 1000 1 2 ())

--
Joo ChurlSoo