* [bug#40647] [PATCH] shepherd: remove local call/ec definition.
@ 2020-04-15 18:09 guy fleury iteriteka
2020-04-16 16:18 ` bug#40647: " Ludovic Courtès
0 siblings, 1 reply; 2+ messages in thread
From: guy fleury iteriteka @ 2020-04-15 18:09 UTC (permalink / raw)
To: 40647
Tests pass with guile 2.2 and 3.0.
I haven't test it with guile 2.0 version.
* modules/shepherd/args.scm(module): import (ice-9 control) module.
* modules/shepherd/service.scm: Likewise.
* modules/shepherd/support.scm(call/ec): remove call/ec definition and
his exportation.
---
modules/shepherd/args.scm | 1 +
modules/shepherd/service.scm | 1 +
modules/shepherd/support.scm | 13 -------------
3 files changed, 2 insertions(+), 13 deletions(-)
diff --git a/modules/shepherd/args.scm b/modules/shepherd/args.scm
index 604768f..b98f29c 100644
--- a/modules/shepherd/args.scm
+++ b/modules/shepherd/args.scm
@@ -20,6 +20,7 @@
(define-module (shepherd args)
#:use-module (oop goops)
#:use-module (srfi srfi-1)
+ #:use-module ((ice-9 control) #:select (call/ec))
#:use-module (shepherd support)
#:use-module (shepherd config)
#:export (<option>
diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index fc82cc4..88b5c07 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -29,6 +29,7 @@
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (rnrs io ports)
+ #:use-module ((ice-9 control) #:select (call/ec))
#:use-module (ice-9 match)
#:use-module (ice-9 format)
#:autoload (ice-9 pretty-print) (truncated-print)
diff --git a/modules/shepherd/support.scm b/modules/shepherd/support.scm
index 1f73f6b..cdb7b35 100644
--- a/modules/shepherd/support.scm
+++ b/modules/shepherd/support.scm
@@ -25,7 +25,6 @@
#:use-module (ice-9 match)
#:export (buffering-mode
- call/ec
caught-error
assert
label
@@ -80,18 +79,6 @@
((_ none)
(if-2.0 _IONBF 'none))))
-;; Implement `call-with-escape-continuation' with `catch' and `throw'.
-;; FIXME: Multiple return values.
-(define (call/ec proc)
- (let* ((catch-sym (gensym))
- (escape (lambda (value)
- (throw catch-sym value))))
- (catch catch-sym
- (lambda ()
- (proc escape))
- (lambda (sym value)
- value))))
-
;; Report the caught error.
;; FIXME: Needs some more work.
(define (caught-error key args)
--
2.25.1
^ permalink raw reply related [flat|nested] 2+ messages in thread
* bug#40647: [PATCH] shepherd: remove local call/ec definition.
2020-04-15 18:09 [bug#40647] [PATCH] shepherd: remove local call/ec definition guy fleury iteriteka
@ 2020-04-16 16:18 ` Ludovic Courtès
0 siblings, 0 replies; 2+ messages in thread
From: Ludovic Courtès @ 2020-04-16 16:18 UTC (permalink / raw)
To: guy fleury iteriteka; +Cc: 40647-done
Hi,
guy fleury iteriteka <gfleury@disroot.org> skribis:
> Tests pass with guile 2.2 and 3.0.
> I haven't test it with guile 2.0 version.
2.0 has ‘call/ec’ as well, so it should be fine.
> * modules/shepherd/args.scm(module): import (ice-9 control) module.
> * modules/shepherd/service.scm: Likewise.
> * modules/shepherd/support.scm(call/ec): remove call/ec definition and
> his exportation.
I adjusted the commit log and pushed, thanks!
Ludo’.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2020-04-16 16:19 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-04-15 18:09 [bug#40647] [PATCH] shepherd: remove local call/ec definition guy fleury iteriteka
2020-04-16 16:18 ` bug#40647: " Ludovic Courtès
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).