Fix intmap bug for maps with only one element

[bpt/guile.git] / module / ice-9 / time.scm

diff --git a/module/ice-9/time.scm b/module/ice-9/time.scm
index a704596..0fad8df 100644 (file)
--- a/module/ice-9/time.scm
+++ b/module/ice-9/time.scm
@@ -3,7 +3,7 @@
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
 ;;;; License as published by the Free Software Foundation; either
-;;;; version 2.1 of the License, or (at your option) any later version.
+;;;; version 3 of the License, or (at your option) any later version.
 ;;;; 
 ;;;; This library is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -53,6 +53,6 @@
     result))
 
 (define-macro (time exp)
-  `(,time-proc (lambda () ,exp)))
+  `((@@ (ice-9 time) time-proc) (lambda () ,exp)))
 
 ;;; time.scm ends here