mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

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

Browse source 
* module/ice-9/time.scm (time): Rewrite using 'define-syntax-rule'.
This commit is contained in:
Ludovic Courtès 2018-09-23 16:25:23 +02:00
parent 4c91de3e45
commit 8885eb58cd
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/time.scm
View file

@ -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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -52,7 +52,7 @@
(get identity gc-start gc-end)) (get identity gc-start gc-end))
result)) result))
(define-macro (time exp) (define-syntax-rule (time exp)
`((@@ (ice-9 time) time-proc) (lambda () ,exp))) (time-proc (lambda () exp)))
;;; time.scm ends here ;;; time.scm ends here