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

(let-optional-template, let-keywords-template): Change

Browse source 
"(begin body)" to "(let () body)" for empty bindings, since the former
allows "internal defines" in body leak out to the surrounding
environment.
This commit is contained in:
Kevin Ryde 2004-09-25 22:06:01 +00:00
parent 32540d858c
commit cdd69fd858
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/optargs.scm
View file

@ -1,6 +1,6 @@
;;;; optargs.scm -- support for optional arguments ;;;; optargs.scm -- support for optional arguments
;;;; ;;;;
;;;; Copyright (C) 1997, 1998, 1999, 2001, 2002 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 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
@ -125,7 +125,7 @@
(define (let-optional-template REST-ARG BINDINGS BODY let-type) (define (let-optional-template REST-ARG BINDINGS BODY let-type)
(if (null? BINDINGS) (if (null? BINDINGS)
`(begin ,@BODY) `(let () ,@BODY)
(let-o-k-template REST-ARG BINDINGS BODY let-type (let-o-k-template REST-ARG BINDINGS BODY let-type
(lambda (optional) (lambda (optional)
`(,(car optional) `(,(car optional)
@ -140,7 +140,7 @@
(define (let-keywords-template REST-ARG ALLOW-OTHER-KEYS? BINDINGS BODY let-type) (define (let-keywords-template REST-ARG ALLOW-OTHER-KEYS? BINDINGS BODY let-type)
(if (null? BINDINGS) (if (null? BINDINGS)
`(begin ,@BODY) `(let () ,@BODY)
(let* ((kb-list-gensym (gensym "kb:G")) (let* ((kb-list-gensym (gensym "kb:G"))
(bindfilter (lambda (key) (bindfilter (lambda (key)
`(,(car key) `(,(car key)