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? ]
[ 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