mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

comments in boot-9

Browse source 
* module/ice-9/boot-9.scm: Add comments.
This commit is contained in:
Andy Wingo 2010-06-11 11:36:57 +02:00
parent 4100dc5dee
commit b38507c1af
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/ice-9/boot-9.scm
View file

@ -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))