diff options
Diffstat (limited to '')
-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 () |