From b38507c1af6a74373c208ff3effc85dc3988a8ea Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 11 Jun 2010 11:36:57 +0200
Subject: [PATCH] comments in boot-9

* module/ice-9/boot-9.scm: Add comments.
---
 module/ice-9/boot-9.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index b46009c39..2a24a87ca 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -857,6 +857,9 @@ If there is no handler at all, Guile prints an error and then exits."
 
 
 
+;;; {Time Structures}
+;;;
+
 (define (tm:sec obj) (vector-ref obj 0))
 (define (tm:min obj) (vector-ref obj 1))
 (define (tm:hour obj) (vector-ref obj 2))
@@ -887,6 +890,11 @@ If there is no handler at all, Guile prints an error and then exits."
 (define (tms:cutime obj) (vector-ref obj 3))
 (define (tms:cstime obj) (vector-ref obj 4))
 
+
+
+;;; {File Descriptors and Ports}
+;;;
+
 (define file-position ftell)
 (define* (file-set-position port offset #:optional (whence SEEK_SET))
   (seek port offset whence))