Fix stack effects
parent
5647d08f59
commit
ad1c520d13
|
@ -14,7 +14,7 @@ IN: urls
|
||||||
[ letter? ]
|
[ letter? ]
|
||||||
[ LETTER? ]
|
[ LETTER? ]
|
||||||
[ digit? ]
|
[ digit? ]
|
||||||
[ "/_-." member? ]
|
[ "/_-.:" member? ]
|
||||||
} 1|| ; foldable
|
} 1|| ; foldable
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
@ -25,7 +25,7 @@ IN: urls
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: url-encode ( str -- str )
|
: url-encode ( str -- encoded )
|
||||||
[
|
[
|
||||||
[ dup url-quotable? [ , ] [ push-utf8 ] if ] each
|
[ dup url-quotable? [ , ] [ push-utf8 ] if ] each
|
||||||
] "" make ;
|
] "" make ;
|
||||||
|
@ -58,7 +58,7 @@ PRIVATE>
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: url-decode ( str -- str )
|
: url-decode ( str -- decoded )
|
||||||
[ 0 swap url-decode-iter ] "" make utf8 decode ;
|
[ 0 swap url-decode-iter ] "" make utf8 decode ;
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
Loading…
Reference in New Issue