diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-21 16:17:28 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:58:30 +0100 |
| commit | d00fea566004e67161ee45246b239fff5d416b0e (patch) | |
| tree | 5641c0c0d0e78b046b6045ed2440512f12259560 /module/calp/util.scm | |
| parent | Complete rewrite of use2dot (diff) | |
| download | calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.gz calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.xz | |
Cleanup modules.
Primarly this moves all vcompenent input and output code to clearly
labeled modules, instead of being spread out. At the same time it also
removes a handfull of unused procedures.
Diffstat (limited to '')
| -rw-r--r-- | module/calp/util.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/module/calp/util.scm b/module/calp/util.scm index 70091b2e..93e9fd0c 100644 --- a/module/calp/util.scm +++ b/module/calp/util.scm @@ -14,6 +14,7 @@ case* define-many and=>> label print-and-return + begin1 ) #:replace (let* set! define-syntax when unless)) @@ -136,6 +137,14 @@ (let* ((head tail (split-at lst len))) (append head (list tail)))) + +(define-syntax-rule (begin1 first rest ...) + (let ((return first)) + rest ... + return)) + + + (define-macro (print-and-return expr) |