diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-10-01 18:02:09 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-10-01 18:04:16 +0200 |
commit | 3ed7673ac067a8614dcf36e2f5293111ba60b243 (patch) | |
tree | a4037d84008577dd4b6c210ca66ebbf9e0bd3a53 /module/srfi/srfi-35.scm | |
parent | 78c7772eb77f9ce08147cf7a722226edce3f5aaa (diff) | |
download | guile-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.scm | 6 |
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 ...) + ...)))) |