Revert "sequences: swap stack arguments for start/start*/subseq?."

[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 de5f6cbad864d501db4e8d3b6d896d85503ee1f2..651770acc8ec437e7b8684670a6de63951e1af32 100644 (file)
--- a/basis/http/client/client-tests.factor
+++ b/basis/http/client/client-tests.factor
@@ -50,8 +50,8 @@ IN: http.client.tests
 ! hit the velox.ch website.
 ! { t } [
     ! "https://alice.sni.velox.ch" http-get nip
-    ! [ "Great!" subseq? ]
-    ! [ "TLS SNI Test Site: alice.sni.velox.ch" subseq? ] bi and
+    ! [ "Great!" swap subseq? ]
+    ! [ "TLS SNI Test Site: alice.sni.velox.ch" swap subseq? ] bi and
 ! ] unit-test
 
 { t } [