diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 16:26:19 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 16:26:19 +0200 |
| commit | 968efa1cea39b9b7ec555940407c2c65acedda26 (patch) | |
| tree | 39505c1dac6a07d2d3a1ea35592ad93af6798452 | |
| parent | Move catch-warnings. (diff) | |
| download | calp-968efa1cea39b9b7ec555940407c2c65acedda26.tar.gz calp-968efa1cea39b9b7ec555940407c2c65acedda26.tar.xz | |
Remove custom if + *unspecified*.
| -rw-r--r-- | module/util.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/module/util.scm b/module/util.scm index eab93a69..755afccf 100644 --- a/module/util.scm +++ b/module/util.scm @@ -17,7 +17,7 @@ print-and-return ) #:replace (let* set! define-syntax - when unless if)) + when unless)) ((@ (guile) define-syntax) define-syntax (syntax-rules () @@ -28,8 +28,6 @@ ((_ otherwise ...) ((@ (guile) define-syntax) otherwise ...)))) -(define-public *unspecified* ((@ (guile) if) #f #f)) - ;; NOTE @@ -47,15 +45,6 @@ (define-syntax-rule (unless pred body ...) (if pred '() (begin body ...))) -(define-syntax if - (syntax-rules () - [(_ p t) - (when p t)] - - [(_ p t f ...) - ((@ (guile) if) p t - (begin f ...))])) - (define-syntax (aif stx) (syntax-case stx () |