use 0 instead of f -- can this be done better? i want maybe types or optional types...

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 36849d4ae3afc9bd44bf93c89d10168ff0ac0641..bfe438fae11b05392fe63b93d8e5130f336c6bd2 100755 (executable)
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -244,13 +244,13 @@ ERROR: invalid-timestamp-format ;
     [ (ymdhms>timestamp) ] with-string-reader ;\r
 \r
 : (hms>timestamp) ( -- timestamp )\r
-    f f f read-hms instant <timestamp> ;\r
+    0 0 0 read-hms instant <timestamp> ;\r
 \r
 : hms>timestamp ( str -- timestamp )\r
     [ (hms>timestamp) ] with-string-reader ;\r
 \r
 : (ymd>timestamp) ( -- timestamp )\r
-    read-ymd f f f instant <timestamp> ;\r
+    read-ymd 0 0 0 instant <timestamp> ;\r
 \r
 : ymd>timestamp ( str -- timestamp )\r
     [ (ymd>timestamp) ] with-string-reader ;\r