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

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

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

revision 1.1 by ossau, Fri Oct 26 16:42:44 2001 UTC revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC
# Line 0  Line 1 
1    (define-module (lang elisp primitives time)
2      #:use-module (lang elisp internals time)
3      #:use-module (lang elisp internals fset)
4      #:use-module (ice-9 optargs))
5    
6    (fset 'current-time
7          (lambda ()
8            (let ((now (current-time)))
9              (list (ash now -16)
10                    (logand now (- (ash 1 16) 1))
11                    0))))
12    
13    (fset 'format-time-string format-time-string)
14    
15    (fset 'current-time-string
16          (lambda* (#:optional specified-time)
17            (format-time-string "%a %b %e %T %Y" specified-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