Found a bug in guile 1.6.0

[Roland Orre <orre@nada.kth.se>]

I found a bug when a let clause only contains a macro.
When the clause also contains a lambda clause it works.

The procedures iserror1 and iserror2 below gives the following error message:
      : In procedure cadr in expression (cadr x):
      : Wrong type argument in position 1: (#@push! stack vec)
but the procedure isworking below is working.

(define-public push!
  (procedure->macro
   (lambda(x env) `(set! ,(cadr x) (cons ,(caddr x) ,(cadr x))))))

(define stack '())

(define iserror1
  (lambda(size)
    (let ((vec (make-vector size #f)))
      (push! stack vec)
      vec)))

(define iserror2
  (lambda(size)
    (let ((vec (make-vector size #f)))
      ""
      (push! stack vec)
      vec)))

(define isworking
  (lambda(size)
    (let ((vec (make-vector size #f)))
      (lambda()#f)
      (push! stack vec)
      vec)))

(iserror1 1) 
(iserror2 1)
(isworking 1)

	Best regards
	Roland Orre



_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-user