fix #126 url path elements not being escaped

This commit is contained in:
Anton Dyudin 2016-05-04 17:12:02 -07:00
parent d607f968d5
commit 2ca1d928fd

View File

@ -1287,7 +1287,7 @@
|= pok/pork ^- tape
?~ q.pok ~
|-
=+ seg=(trip i.q.pok)
=+ seg=(urle (trip i.q.pok))
?~ t.q.pok
?~(p.pok seg (welp seg '.' (trip u.p.pok)))
(welp seg '/' $(q.pok t.q.pok))