mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

(and-let*): Remove unused variable "val".

Browse source
This commit is contained in:
Kevin Ryde 2004-07-09 23:40:07 +00:00
parent 052fbfd928
commit ac0a9fa32f
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/and-let-star.scm
View file

@ -1,7 +1,7 @@
;;;; and-let-star.scm --- and-let* syntactic form (draft SRFI-2) for Guile
;;;; written by Michael Livshin <mike@olan.com>
;;;;
;;;; 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