[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/04: time: Use 'syntax-rules' instead of 'define-macro
|
From: |
Ludovic Courtès |
|
Subject: |
[Guile-commits] 01/04: time: Use 'syntax-rules' instead of 'define-macro'. |
|
Date: |
Sun, 23 Sep 2018 10:42:02 -0400 (EDT) |
civodul pushed a commit to branch stable-2.2
in repository guile.
commit 8885eb58cd23e65853869b67fa33d0da2aad0b8a
Author: Ludovic Courtès <address@hidden>
Date: Sun Sep 23 16:25:23 2018 +0200
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 0fad8df..b693d61 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