Fix stack effects

db4
Slava Pestov 2008-09-19 15:46:12 -05:00
parent 5647d08f59
commit ad1c520d13
1 changed files with 3 additions and 3 deletions

View File

@ -14,7 +14,7 @@ IN: urls
[ letter? ]
[ LETTER? ]
[ digit? ]
[ "/_-." member? ]
[ "/_-.:" member? ]
} 1|| ; foldable
<PRIVATE
@ -25,7 +25,7 @@ IN: urls
PRIVATE>
: url-encode ( str -- str )
: url-encode ( str -- encoded )
[
[ dup url-quotable? [ , ] [ push-utf8 ] if ] each
] "" make ;
@ -58,7 +58,7 @@ PRIVATE>
PRIVATE>
: url-decode ( str -- str )
: url-decode ( str -- decoded )
[ 0 swap url-decode-iter ] "" make utf8 decode ;
<PRIVATE