Merge branch 'master' of git://factorcode.org/git/factor

core/kernel/kernel-docs.factor

@@ -630,7 +630,7 @@ HELP: tri*
     "The following two lines are equivalent:"
     { $code
         "[ p ] [ q ] [ r ] tri*"
-        ">r >r q r> q r> r"
+        ">r >r p r> q r> r"
     }
 } ;
 

extra/http/client/client-tests.factor

@@ -17,7 +17,7 @@ tuple-syntax namespaces ;
         path: "/index.html"
         version: "1.1"
         cookies: V{ }
-        header: H{ { "connection" "close" } }
+        header: H{ { "connection" "close" } { "user-agent" "Factor http.client vocabulary" } }
     }
 ] [
     [
@@ -35,7 +35,7 @@ tuple-syntax namespaces ;
         path: "/index.html"
         version: "1.1"
         cookies: V{ }
-        header: H{ { "connection" "close" } }
+        header: H{ { "connection" "close" } { "user-agent" "Factor http.client vocabulary" } }
     }
 ] [
     [

extra/http/client/client.factor

@@ -4,7 +4,7 @@ USING: assocs http kernel math math.parser namespaces sequences
 io io.sockets io.streams.string io.files io.timeouts strings
 splitting calendar continuations accessors vectors math.order
 io.encodings.8-bit io.encodings.binary io.streams.duplex
-fry debugger inspector ;
+fry debugger inspector ascii ;
 IN: http.client
 
 : max-redirects 10 ;
@@ -37,8 +37,12 @@ SYMBOL: redirects
 
 PRIVATE>
 
+: read-chunk-size ( -- n )
+    read-crlf ";" split1 drop [ blank? ] right-trim
+    hex> [ "Bad chunk size" throw ] unless* ;
+
 : read-chunks ( -- )
-    read-crlf ";" split1 drop hex> dup { f 0 } member?
+    read-chunk-size dup zero?
     [ drop ] [ read % read-crlf "" assert= read-chunks ] if ;
 
 : read-response-body ( response -- response data )

extra/http/http.factor

@@ -256,7 +256,8 @@ cookies ;
         H{ } clone >>header
         H{ } clone >>query
         V{ } clone >>cookies
-        "close" "connection" set-header ;
+        "close" "connection" set-header
+        "Factor http.client vocabulary" "user-agent" set-header ;
 
 : query-param ( request key -- value )
     swap query>> at ;

extra/openssl/openssl.factor

@@ -153,13 +153,13 @@ M: openssl-context dispose*
 
 TUPLE: ssl-handle file handle connected disposed ;
 
-ERROR: no-ssl-context ;
+ERROR: no-secure-context ;
 
-M: no-ssl-context summary
+M: no-secure-context summary
-    drop "SSL operations must be wrapped in calls to with-ssl-context" ;
+    drop "Secure socket operations must be wrapped in calls to with-secure-context" ;
 
 : current-ssl-context ( -- ctx )
-    secure-context get [ no-ssl-context ] unless* ;
+    secure-context get [ no-secure-context ] unless* ;
 
 : <ssl-handle> ( fd -- ssl )
     current-ssl-context handle>> SSL_new dup ssl-error

extra/symbols/symbols-tests.factor

@@ -1,4 +1,4 @@
-USING: kernel symbols tools.test parser generic words ;
+USING: kernel symbols tools.test parser generic words accessors ;
 IN: symbols.tests
 
 [ ] [ SYMBOLS: a b c ; ] unit-test
@@ -13,3 +13,8 @@ DEFER: blah
 
 [ f ] [ \ blah generic? ] unit-test
 [ t ] [ \ blah symbol? ] unit-test
+
+[ "IN: symbols.tests USE: symbols SINGLETONS: blah blah blah ;" eval ]
+[ error>> error>> def>> \ blah eq? ]
+must-fail-with
+

extra/symbols/symbols.factor

@@ -10,5 +10,5 @@ IN: symbols
 
 : SINGLETONS:
     ";" parse-tokens
-    [ create-class-in dup save-location define-singleton-class ] each ;
+    [ create-class-in define-singleton-class ] each ;
     parsing