minor cleanup.

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index da8b9f333223e51df68d8c4e30505917a7026b1e..8f51743e34a8da2c2c65ad78f15d7e1d6ef8a4c7 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -31,7 +31,7 @@ TUPLE: tokenizer-tuple any one many ;
 
 : parser-tokenizer ( parser -- tokenizer )
     [ 1quotation ] keep
-    [ swap [ = ] curry semantic ] curry dup \ tokenizer-tuple boa ;
+    [ swap [ = ] curry semantic ] curry dup tokenizer-tuple boa ;
 
 : rule-tokenizer ( name word -- tokenizer )
     rule parser-tokenizer ;

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 45d87fc9c14fde14c8e001267a42b97139b7ed0d..bc99601f761c85cf690e7deb05c020b01017e955 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -43,7 +43,7 @@ M: url >url ;
 
 EBNF: parse-url
 
-protocol = [a-z+]+                   => [[ url-decode ]]
+protocol = [a-z+]+                  => [[ url-decode ]]
 username = [^/:@#?]+                => [[ url-decode ]]
 password = [^/:@#?]+                => [[ url-decode ]]
 pathname = [^#?]+                   => [[ url-decode ]]