Type printer crash fix

This commit is contained in:
Anton Dyudin 2015-01-26 15:24:31 -08:00
parent 2ba05992ae
commit 205d1868ec
2 changed files with 6 additions and 5 deletions

View File

@ -7092,11 +7092,12 @@
[[%leaf (rip 3 -.lum)] $(lum +.lum)] [[%leaf (rip 3 -.lum)] $(lum +.lum)]
:: ::
%type %type
=+ cis=(type lum) =+ reb=(slap [p:!>(.) .(sut lum)] %cnzy %duck)
?. =(lum cis) ~ =+ cis=(tank q.reb)
?. =(cis q.reb) ~
:^ ~ %palm :^ ~ %palm
[~ ~ ~ ~] [~ ~ ~ ~]
[[%leaf '#' 't' '/' ~] duck(sut cis) ~] [[%leaf '#' 't' '/' ~] cis ~]
:: ::
%wall %wall
:- ~ :- ~

View File

@ -524,7 +524,7 @@
== ==
:: ::
++ poja :: parse JSON ++ poja :: parse JSON
=< |=(a=cord (rush a apex)) =< |=(a=cord `(unit json)`(rush a apex))
|% |%
++ apex :: JSON value ++ apex :: JSON value
%+ knee *json |. ~+ %+ knee *json |. ~+
@ -2206,7 +2206,7 @@
-- --
:: ::
++ epur :: url/header parser ++ epur :: url/header parser
=< |=(a=cord (rush a auri)) =< |=(a=cord `(unit purl)`(rush a auri))
|% |%
++ apat :: 2396 abs_path ++ apat :: 2396 abs_path
%+ cook deft %+ cook deft