From 0ba8cad706c3a9d051e9780a86c6a0048984a5f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 1 Feb 2022 00:56:04 +0100 Subject: Remove define-many. It was only used in one module, and provided litle clarity over a simple set of define statementns. --- module/hnh/util.scm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'module/hnh') diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 90b23ca6..7fe44462 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -9,7 +9,7 @@ set/r! -> ->> set set-> aif awhen let-lazy let-env - case* define-many + case* and=>> label print-and-return begin1 @@ -211,17 +211,6 @@ val)))) -(define-syntax define-many - (syntax-rules () - [(_) (begin)] - [(_ def) (begin)] - [(_ (symbols ...) value rest ...) - (begin (define symbols value) ... - (define-many rest ...))] - [(_ def (symbols ...) value rest ...) - (begin (def symbols value) ... - (define-many def rest ...))])) - ;; Attach a label to a function, allowing it to call itself ;; without actually giving it a name (can also be thought ;; of as letrec-1). -- cgit v1.2.3