1 |
;;; installed-scm-file |
;;; installed-scm-file |
2 |
|
|
3 |
;;;; 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. |
4 |
;;;; |
;;;; |
5 |
;;;; This library is free software; you can redistribute it and/or |
;;;; This library is free software; you can redistribute it and/or |
6 |
;;;; modify it under the terms of the GNU Lesser General Public |
;;;; modify it under the terms of the GNU Lesser General Public |
3326 |
signals old-handlers)))))) |
signals old-handlers)))))) |
3327 |
|
|
3328 |
(defmacro false-if-exception (expr) |
(defmacro false-if-exception (expr) |
3329 |
`(catch #t (lambda () ,expr) |
`(,catch #t (,lambda () ,expr) |
3330 |
(lambda args #f))) |
(,lambda args #f))) |
3331 |
|
|
3332 |
;;; This hook is run at the very end of an interactive session. |
;;; This hook is run at the very end of an interactive session. |
3333 |
;;; |
;;; |