[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 03/05: support: Remove unused 'label' macro.
|
From: |
Ludovic Courtès |
|
Subject: |
[shepherd] 03/05: support: Remove unused 'label' macro. |
|
Date: |
Mon, 29 Aug 2022 11:18:09 -0400 (EDT) |
civodul pushed a commit to branch master
in repository shepherd.
commit 8b306dee37e8249e69affa50d4d0c03f13452154
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Aug 29 17:08:26 2022 +0200
support: Remove unused 'label' macro.
* modules/shepherd/support.scm (label): Remove.
---
modules/shepherd/support.scm | 7 -------
1 file changed, 7 deletions(-)
diff --git a/modules/shepherd/support.scm b/modules/shepherd/support.scm
index 36be3ff..a68bbd4 100644
--- a/modules/shepherd/support.scm
+++ b/modules/shepherd/support.scm
@@ -26,7 +26,6 @@
#:use-module (ice-9 format)
#:export (caught-error
assert
- label
buffering
catch-system-error
@@ -89,12 +88,6 @@
(local-output (l10n "Assertion ~a failed.") 'EXPR)
(throw 'assertion-failed))))
-;; Recursive procedures.
-(define-syntax-rule (label NAME PROC)
- (lambda args
- (letrec ((NAME PROC))
- (apply NAME args))))
-
(define (buffering port type . args)
"Return PORT after changing its buffering to TYPE and ARGS."
(apply setvbuf port type args)