use 0 instead of f -- can this be done better? i want maybe types or optional types -- f or integer, f or duration
parent
4459a9c281
commit
d980044719
|
@ -244,13 +244,13 @@ ERROR: invalid-timestamp-format ;
|
|||
[ (ymdhms>timestamp) ] with-string-reader ;
|
||||
|
||||
: (hms>timestamp) ( -- timestamp )
|
||||
f f f read-hms instant <timestamp> ;
|
||||
0 0 0 read-hms instant <timestamp> ;
|
||||
|
||||
: hms>timestamp ( str -- timestamp )
|
||||
[ (hms>timestamp) ] with-string-reader ;
|
||||
|
||||
: (ymd>timestamp) ( -- timestamp )
|
||||
read-ymd f f f instant <timestamp> ;
|
||||
read-ymd 0 0 0 instant <timestamp> ;
|
||||
|
||||
: ymd>timestamp ( str -- timestamp )
|
||||
[ (ymd>timestamp) ] with-string-reader ;
|
||||
|
|
Loading…
Reference in New Issue