From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Roland Orre <orre@nada.kth.se>
Newsgroups: gmane.lisp.guile.user
Subject: Found a bug in guile 1.6.0
Date: 26 Dec 2002 22:30:32 +0100
Organization: Royal Institute of Technology
Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Message-ID: <1040938196.4595.75.camel@localhost>
References: <E18Oj9j-0000F0-00@giblet.glug.org>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1040938290 20343 80.91.224.249 (26 Dec 2002 21:31:30 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Thu, 26 Dec 2002 21:31:30 +0000 (UTC)
Return-path: <guile-user-bounces+guile-user=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18RfbE-0005Hy-00
	for <guile-user@m.gmane.org>; Thu, 26 Dec 2002 22:31:29 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18RfbU-0001hd-03
	for guile-user@m.gmane.org; Thu, 26 Dec 2002 16:31:44 -0500
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13)
	id 18Rfau-0000yz-00
	for guile-user@gnu.org; Thu, 26 Dec 2002 16:31:08 -0500
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13)
	id 18Rfaq-0000te-00
	for guile-user@gnu.org; Thu, 26 Dec 2002 16:31:05 -0500
Original-Received: from smtp.nada.kth.se ([130.237.222.232])
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18RfaQ-0000hb-00
	for guile-user@gnu.org; Thu, 26 Dec 2002 16:30:38 -0500
X-Authentication-Info: Sender authentication was <orre>
Original-Received: from [10.2.0.2] (h122n2fls33o875.telia.com [217.208.54.122])
	(authenticated bits=0)
	by smtp.nada.kth.se (8.12.1/8.12.1) with ESMTP id gBQLUZNd029054;
	Thu, 26 Dec 2002 22:30:35 +0100 (MET)
Original-To: guile-user@gnu.org
In-Reply-To: <E18Oj9j-0000F0-00@giblet.glug.org>
X-Mailer: Ximian Evolution 1.2.0 
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: General Guile related discussions <guile-user.gnu.org>
List-Help: <mailto:guile-user-request@gnu.org?subject=help>
List-Post: <mailto:guile-user@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/guile-user>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=unsubscribe>
Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.lisp.guile.user:1467
X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:1467

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