In Guile 2.x, (srfi srfi-34) would already replace 'raise'. Replacing avoids a run-time warning about the core binding being overridden.
* module/srfi/srfi-34.scm (raise): New variable. Mark it as #:replace instead of #:re-export. --- module/srfi/srfi-34.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/module/srfi/srfi-34.scm b/module/srfi/srfi-34.scm index 0e7ad995d..255bfecb9 100644 --- a/module/srfi/srfi-34.scm +++ b/module/srfi/srfi-34.scm @@ -1,6 +1,6 @@ ;;; srfi-34.scm --- Exception handling for programs -;; Copyright (C) 2003, 2006, 2008, 2010 Free Software Foundation, Inc. +;; Copyright (C) 2003, 2006, 2008, 2010, 2019 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -27,12 +27,16 @@ ;;; Code: (define-module (srfi srfi-34) - #:re-export (with-exception-handler - (raise-exception . raise)) + #:re-export (with-exception-handler) + #:replace (raise) #:export-syntax (guard)) (cond-expand-provide (current-module) '(srfi-34)) +(define (raise exn) + "Raise the given exception, invoking the current exception handler on EXN." + (raise-exception exn)) + (define-syntax guard (syntax-rules (else) "Syntax: (guard (<var> <clause1> <clause2> ...) <body>) -- 2.24.0