From 53c3d27bfc43b4a140ff2fe53694d407c20376b3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 23 Sep 2018 16:25:23 +0200 Subject: [PATCH] time: Use 'syntax-rules' instead of 'define-macro'. * module/ice-9/time.scm (time): Rewrite using 'define-syntax-rule'. --- module/ice-9/time.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/module/ice-9/time.scm b/module/ice-9/time.scm index 0fad8dfca..b693d6126 100644 --- a/module/ice-9/time.scm +++ b/module/ice-9/time.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 2001, 2004, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 2001, 2004, 2006, 2018 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -52,7 +52,7 @@ (get identity gc-start gc-end)) result)) -(define-macro (time exp) - `((@@ (ice-9 time) time-proc) (lambda () ,exp))) +(define-syntax-rule (time exp) + (time-proc (lambda () exp))) ;;; time.scm ends here