parsed -> suffix!, add append!

[factor.git] / basis / urls / urls.factor

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index a72fac567a28b0f532e786f78583da339ffc228c..bf4a9bb76c9d6cd83cd1c3bf815fa333468fa737 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -181,7 +181,7 @@ PRIVATE>
     clone dup protocol>> '[ _ protocol-port or ] change-port ;
 
 ! Literal syntax
-SYNTAX: URL" lexer get skip-blank parse-string >url parsed ;
+SYNTAX: URL" lexer get skip-blank parse-string >url suffix! ;
 
 USING: vocabs vocabs.loader ;