/[guile]/guile/guile-core/lang/elisp/internals/time.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/internals/time.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC
# Line 0  Line 1 
1    (define-module (lang elisp internals time)
2      #:use-module (ice-9 optargs)
3      #:export (format-time-string))
4    
5    (define* (format-time-string format-string #:optional time universal)
6      (strftime format-string
7                ((if universal gmtime localtime)
8                 (if time
9                     (+ (ash (car time) 16)
10                        (let ((time-cdr (cdr time)))
11                          (if (pair? time-cdr)
12                              (car time-cdr)
13                              time-cdr)))
14                     (current-time)))))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26