~peter-pearse/ubuntu/natty/guile-1.8/prop001

« back to all changes in this revision

Viewing changes to lang/elisp/primitives/time.scm

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

lang/elisp/primitives/time.scm

 

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

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1