From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.lisp.guile.devel Subject: and-let*, pretty-print unused vars Date: Mon, 05 Jul 2004 09:49:15 +1000 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <87y8lzpc3o.fsf@zip.com.au> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1088985017 23188 80.91.224.253 (4 Jul 2004 23:50:17 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 4 Jul 2004 23:50:17 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon Jul 05 01:50:12 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BhGkN-0008J0-00 for ; Mon, 05 Jul 2004 01:50:12 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BhGmK-0002pE-6K for guile-devel@m.gmane.org; Sun, 04 Jul 2004 19:52:12 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BhGlx-0002mi-C1 for guile-devel@gnu.org; Sun, 04 Jul 2004 19:51:49 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BhGlw-0002m2-Kp for guile-devel@gnu.org; Sun, 04 Jul 2004 19:51:48 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BhGlw-0002lg-FH for guile-devel@gnu.org; Sun, 04 Jul 2004 19:51:48 -0400 Original-Received: from [61.8.0.84] (helo=mailout1.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.34) id 1BhGjb-0007dB-2c for guile-devel@gnu.org; Sun, 04 Jul 2004 19:49:23 -0400 Original-Received: from mailproxy2.pacific.net.au (mailproxy2.pacific.net.au [61.8.0.87]) by mailout1.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i64NnL4u001795 for ; Mon, 5 Jul 2004 09:49:21 +1000 Original-Received: from localhost (ppp2B88.dyn.pacific.net.au [61.8.43.136]) by mailproxy2.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i64NnKnk017510 for ; Mon, 5 Jul 2004 09:49:20 +1000 Original-Received: from gg by localhost with local (Exim 3.36 #1 (Debian)) id 1BhGjT-0000gg-00; Mon, 05 Jul 2004 09:49:15 +1000 Original-To: guile-devel@gnu.org Mail-Copies-To: never User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:3829 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:3829 --=-=-= * and-let-star.scm (and-let*): Remove unused variable "val". * pretty-print.scm (read-macro-prefix): Remove unused variable "tail". Looks like "val" was never needed once the whole "exp" is plonked into the resulting "let". "tail" might have been a cut and paste from the nearby read-macro?, then not needed. --=-=-= Content-Disposition: attachment; filename=and-let-star.scm.val.diff --- and-let-star.scm.~1.5.~ 2003-04-07 08:04:57.000000000 +1000 +++ and-let-star.scm 2004-07-02 18:49:27.000000000 +1000 @@ -1,7 +1,7 @@ ;;;; and-let-star.scm --- and-let* syntactic form (draft SRFI-2) for Guile ;;;; written by Michael Livshin ;;;; -;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2001, 2004 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -34,8 +34,7 @@ ((null? (cdr exp)) `(and ,(car exp) ,(expand (cdr vars) body))) (else - (let ((var (car exp)) - (val (cadr exp))) + (let ((var (car exp))) `(let (,exp) (and ,var ,(expand (cdr vars) body))))))) (else --=-=-= Content-Disposition: attachment; filename=pretty-print.scm.tail.diff --- pretty-print.scm.~1.7.~ 2003-04-07 08:04:59.000000000 +1000 +++ pretty-print.scm 2004-07-02 19:43:56.000000000 +1000 @@ -1,6 +1,6 @@ ;;;; -*-scheme-*- ;;;; -;;;; Copyright (C) 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 2001, 2004 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -42,7 +42,7 @@ (cadr l)) (define (read-macro-prefix l) - (let ((head (car l)) (tail (cdr l))) + (let ((head (car l))) (case head ((quote) "'") ((quasiquote) "`") --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel --=-=-=--