time: Use 'syntax-rules' instead of 'define-macro'.

* module/ice-9/time.scm (time): Rewrite using 'define-syntax-rule'.

diff --git a/module/ice-9/time.scm b/module/ice-9/time.scm
index 0fad8dfca0adbafdb64fc78e392ae5f9cc70c2d5..b693d61260e308dcc339e68cdc1bedff1212c5f6 100644 (file)
--- 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