fixed sched mark to make ;ul;

This commit is contained in:
Anton Dyudin 2015-06-17 15:44:55 -07:00
parent 2bb8921fdf
commit 43728c690e

View File

@ -6,7 +6,7 @@
|% ++ mime [/text/x-sched (tact tape)]
++ tape
(zing `wall`(turn sorted-list |=([a=@da b=cord] "{<a>} {(trip b)}\0a")))
++ elem =< ;list: *{(turn sorted-list .)}
++ elem =< ;ul: *{(turn sorted-list .)}
|= [tym=@da ite=cord] ^- manx
;li: ;{b "{<tym>}"}: {(trip ite)}
++ sorted-list