[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] branch master updated: support: Remove local 'call/ec' defini
From: |
Ludovic Courtès |
Subject: |
[shepherd] branch master updated: support: Remove local 'call/ec' definition. |
Date: |
Thu, 16 Apr 2020 12:17:30 -0400 |
This is an automated email from the git hooks/post-receive script.
civodul pushed a commit to branch master
in repository shepherd.
The following commit(s) were added to refs/heads/master by this push:
new 6b0e1e1 support: Remove local 'call/ec' definition.
6b0e1e1 is described below
commit 6b0e1e1923107bdf5073f87649a724b7375808b0
Author: guy fleury iteriteka <address@hidden>
AuthorDate: Wed Apr 15 20:09:58 2020 +0200
support: Remove local 'call/ec' definition.
* modules/shepherd/args.scm: Import (ice-9 control).
* modules/shepherd/service.scm: Likewise.
* modules/shepherd/support.scm (call/ec): Remove.
Signed-off-by: Ludovic Courtès <address@hidden>
---
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [shepherd] branch master updated: support: Remove local 'call/ec' definition.,
Ludovic Courtès <=