summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-35.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-10-01 18:02:09 +0200
committerLudovic Courtès <ludo@gnu.org>2022-10-01 18:04:16 +0200
commit3ed7673ac067a8614dcf36e2f5293111ba60b243 (patch)
treea4037d84008577dd4b6c210ca66ebbf9e0bd3a53 /module/srfi/srfi-35.scm
parent78c7772eb77f9ce08147cf7a722226edce3f5aaa (diff)
downloadguile-3ed7673ac067a8614dcf36e2f5293111ba60b243.tar.gz
srfi-35: Fix expansion of 'condition' for compound conditions.
* module/srfi/srfi-35.scm (condition): Use 'make-exception' instead of 'make-compound-condition', which is unbound in this module. * test-suite/tests/srfi-35.test ("syntax")["compound condition, hygienic macro expansion"]: New test.
Diffstat (limited to 'module/srfi/srfi-35.scm')
-rw-r--r--module/srfi/srfi-35.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/srfi/srfi-35.scm b/module/srfi/srfi-35.scm
index e430833c4..99a93dc18 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, 2022 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
@@ -146,5 +146,5 @@ by C."
((_ (type field ...))
(condition-instantiation type () field ...))
((_ (type field ...) ...)
- (make-compound-condition (condition-instantiation type () field ...)
- ...))))
+ (make-exception (condition-instantiation type () field ...)
+ ...))))