Fix constant block.

This commit is contained in:
C. Guy Yarvin 2018-01-31 13:26:51 -08:00
parent 9b14546e83
commit 3b99f4c269

View File

@ -4433,7 +4433,7 @@
++ stud :: parse UTC format
=< |= a/cord :: expose parsers
%+ biff (rush a (more sepa elem))
|= b/(list _(wonk *elem)) ^- (unit date)
|: $:{b/(list _(wonk $:elem))} ^- (unit date)
=- ?.((za:dejs:format -) ~ (some (zp:dejs:format -)))
^+ =+ [*date u=unit]
*{(u _[a y]) (u _m) (u _d.t) (u _+.t) $~}