guile/guile-core/ice-9 time.scm

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Thien-Thi Nguyen <>     01/04/28 11:51:51

Modified files:
        guile-core/ice-9: time.scm 

Log message:
        Add commentary; nfc.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/time.scm.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/time.scm
diff -u guile/guile-core/ice-9/time.scm:1.3 guile/guile-core/ice-9/time.scm:1.4
--- guile/guile-core/ice-9/time.scm:1.3 Fri Apr 27 17:25:22 2001
+++ guile/guile-core/ice-9/time.scm     Sat Apr 28 11:51:51 2001
@@ -1,22 +1,34 @@
 ;;;;   Copyright (C) 2001 Free Software Foundation, Inc.
-;;;; 
+;;;;
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation; either version 2, or (at your option)
 ;;;; any later version.
-;;;; 
+;;;;
 ;;;; This program is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;; GNU General Public License for more details.
-;;;; 
+;;;;
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with this software; see the file COPYING.  If not, write to
 ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;;;; Boston, MA 02111-1307 USA
-;;;; 
+;;;;
 
+;;; Commentary:
 
+;; This module exports a single macro: `time'.
+;; Usage: (time exp)
+;;
+;; Example:
+;; guile> (time (sleep 3))
+;; clock utime stime cutime cstime gctime
+;; 3.01  0.00  0.00   0.00   0.00   0.00
+;; 0
+
+;;; Code:
+
 (define-module (ice-9 time)
   :use-module (ice-9 format)
   :export (time))
@@ -41,3 +53,5 @@
 
 (define-macro (time exp)
   `(,time-proc (lambda () ,exp)))
+
+;;; time.scm ends here