[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 2/2] srfi-35: Replace '&error'.
From: |
Ludovic Courtès |
Subject: |
[PATCH 2/2] srfi-35: Replace '&error'. |
Date: |
Mon, 25 Nov 2019 17:45:55 +0100 |
This ensures core binding '&error' is silently replaced by the SRFI-35
variant.
* module/srfi/srfi-35.scm (srfi:&error): New variable. Use it to
#:replace '&error'.
---
module/srfi/srfi-35.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/module/srfi/srfi-35.scm b/module/srfi/srfi-35.scm
index d1549f9d4..efa1566bf 100644
--- a/module/srfi/srfi-35.scm
+++ b/module/srfi/srfi-35.scm
@@ -1,6 +1,6 @@
;;; srfi-35.scm --- Conditions -*- coding: utf-8 -*-
-;; Copyright (C) 2007-2011, 2017 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2011, 2017, 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
@@ -39,8 +39,8 @@
(exception-message . condition-message)
(&error . &serious)
(error? . serious-condition?)
- (&external-error . &error)
(external-error? . error?))
+ #:replace ((srfi:&error . &error))
#:export (make-condition
define-condition-type
condition-has-type?
@@ -139,3 +139,5 @@ by C."
((_ (type field ...) ...)
(make-compound-condition (condition-instantiation type () field ...)
...))))
+
+(define srfi:&error &external-error)
--
2.24.0