Move make to its own vocabulary, remove fry _ feature

[factor.git] / basis / http / http.factor

diff --git a/basis/http/http.factor b/basis/http/http.factor
index 03cca05ff38028f278fb16ae7c551c976d6a611e..d03d6c22036ab9c8d80ae188e1a5f1b52e7e5a4c 100755 (executable)
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@@ -196,7 +196,7 @@ M: response clone
         [ clone ] change-cookies ;
 
 : get-cookie ( request/response name -- cookie/f )
-    [ cookies>> ] dip '[ , _ name>> = ] find nip ;
+    [ cookies>> ] dip '[ [ , ] dip name>> = ] find nip ;
 
 : delete-cookie ( request/response name -- )
     over cookies>> [ get-cookie ] dip delete ;