mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +02:00
Code Activity

(false-if-exception): Unquote catch and lambda, so as not

Browse source 
to depend on expansion environment.
This commit is contained in:
Kevin Ryde 2004-01-03 21:10:27 +00:00
parent 193239f1e9
commit b83fc1070c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/boot-9.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003, 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
@ -3326,8 +3326,8 @@
signals old-handlers)))))) signals old-handlers))))))
(defmacro false-if-exception (expr) (defmacro false-if-exception (expr)
`(catch #t (lambda () ,expr) `(,catch #t (,lambda () ,expr)
(lambda args #f))) (,lambda args #f)))
;;; This hook is run at the very end of an interactive session. ;;; This hook is run at the very end of an interactive session.
;;; ;;;