2007-05-05 23:03:29 -04:00
|
|
|
|
|
|
|
|
(library (ikarus date-string)
|
|
|
|
|
(export date-string)
|
|
|
|
|
(import (except (ikarus) date-string))
|
|
|
|
|
(define date-string
|
|
|
|
|
(lambda ()
|
2007-05-18 20:59:10 -04:00
|
|
|
(let ([s (make-bytevector 10)])
|
|
|
|
|
(foreign-call "ikrt_bvftime" s
|
|
|
|
|
(string->utf8-bytevector "%F"))
|
|
|
|
|
(utf8-bytevector->string s)))))
|
