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