[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/55: time: Use 'syntax-rules' instead of 'define-macro
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/55: time: Use 'syntax-rules' instead of 'define-macro'. |
Date: |
Thu, 23 May 2019 11:52:36 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit 53c3d27bfc43b4a140ff2fe53694d407c20376b3
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
- [Guile-commits] branch master updated (63de189 -> b94c5f8), Andy Wingo, 2019/05/23
- [Guile-commits] 01/55: time: Use 'syntax-rules' instead of 'define-macro'.,
Andy Wingo <=
- [Guile-commits] 03/55: time: Use #: for 'define-module' clauses., Andy Wingo, 2019/05/23
- [Guile-commits] 02/55: time: Support expressions that return any number of values., Andy Wingo, 2019/05/23
- [Guile-commits] 06/55: Fix 32/64 bit bug in INTEGER_ACCESSOR_PROLOGUE, Andy Wingo, 2019/05/23
- [Guile-commits] 10/55: Fix 'round-ash' of negative integers by huge right shift counts., Andy Wingo, 2019/05/23
- [Guile-commits] 12/55: Clarify the manual's "Processes" section., Andy Wingo, 2019/05/23
- [Guile-commits] 09/55: Gracefully handle huge shift counts in 'ash' and 'round-ash'., Andy Wingo, 2019/05/23
- [Guile-commits] 24/55: SRFI-19: time-utc->date: Support non-integer nanoseconds values., Andy Wingo, 2019/05/23
- [Guile-commits] 21/55: SRFI-19: Add a few more tests., Andy Wingo, 2019/05/23
- [Guile-commits] 11/55: In 'ash' and 'round-ash', handle right shift count of LONG_MIN., Andy Wingo, 2019/05/23
- [Guile-commits] 16/55: Add tests for type inferencing for 'nil?' and 'null?' predicates., Andy Wingo, 2019/05/23