Using "same?" in more places.

[factor.git] / basis / http / client / client-tests.factor

diff --git a/basis/http/client/client-tests.factor b/basis/http/client/client-tests.factor
index 0b2120d31abbeb6f8e45e213222ebcb6af0bf818..d2d4fb5abe3c3057c69b7489a24dd5a08b7f87aa 100644 (file)
--- a/basis/http/client/client-tests.factor
+++ b/basis/http/client/client-tests.factor
@@ -51,5 +51,5 @@ IN: http.client.tests
         "date: Wed, 12 Oct 2011 18:57:49 GMT"
         "server: Factor http.server"
     } [ "\n" join ] [ "\r\n" join ] bi
-    [ [ read-response ] with-string-reader ] bi@ =
+    [ [ read-response ] with-string-reader ] same?
 ] unit-test