diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-09-23 16:25:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-23 16:41:13 +0200 |
| commit | 8885eb58cd23e65853869b67fa33d0da2aad0b8a (patch) | |
| tree | 579336953d3dd2cf91f852109eebfb585b0fda8b /module/ice-9 | |
| parent | 4c91de3e45e7c98d5b7c484509fe5c59bd70f9fd (diff) | |
time: Use 'syntax-rules' instead of 'define-macro'.
* module/ice-9/time.scm (time): Rewrite using 'define-syntax-rule'.
Diffstat (limited to 'module/ice-9')
| -rw-r--r-- | module/ice-9/time.scm | 6 |
1 files 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 |