/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.324 by ossau, Wed Nov 19 01:16:16 2003 UTC revision 1.325 by kryde, Sat Jan 3 21:10:27 2004 UTC
# Line 1  Line 1 
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
# Line 3326  Line 3326 
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  ;;;  ;;;

Legend:
Removed from v.1.324  
changed lines
  Added in v.1.325

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26