mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 09:20:23 +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 ;;;; and-let-star.scm --- and-let* syntactic form (draft SRFI-2) for Guile
;;;; written by Michael Livshin <mike@olan.com> ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -34,8 +34,7 @@
((null? (cdr exp)) ((null? (cdr exp))
`(and ,(car exp) ,(expand (cdr vars) body))) `(and ,(car exp) ,(expand (cdr vars) body)))
(else (else
(let ((var (car exp)) (let ((var (car exp)))
(val (cadr exp)))
`(let (,exp) `(let (,exp)
(and ,var ,(expand (cdr vars) body))))))) (and ,var ,(expand (cdr vars) body)))))))
(else (else