From ec6ec884401922aa09325046d779d8f165995ab3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 22 Jun 2022 23:36:44 +0200 Subject: Replace define-macro with define-syntax in (hnh util). --- module/hnh/util.scm | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/module/hnh/util.scm b/module/hnh/util.scm index f95a24bf..1fa3eb83 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -60,12 +60,6 @@ #'(let ((it condition)) (when it body ...)))])) -#; -(define-macro (awhen pred . body) - `(let ((it ,pred)) - (when it - ,@body))) - (define-syntax for @@ -88,13 +82,13 @@ -(define-macro (print-and-return expr) - (let ((str (gensym "str")) - (result (gensym "result"))) - `(let* ((,result ,expr) - (,str (format #f "~a [~a]~%" ,result (quote ,expr)))) - (display ,str (current-error-port)) - ,result))) + +(define-syntax-rule (print-and-return expr) + (let ((result expr)) + (display (format #f "~a [~a]~%" result (quote expr)) + (current-error-port)) + result)) + -- cgit v1.2.3