sodium: Less stack shuffling in test.

[factor.git] / extra / sodium / sodium-tests.factor

diff --git a/extra/sodium/sodium-tests.factor b/extra/sodium/sodium-tests.factor
index c2c3dfefa669209835c7e5abffeb9b1741b0a853..4361d40395f17d83fc49c2d3a9087b9738aba017 100644 (file)
--- a/extra/sodium/sodium-tests.factor
+++ b/extra/sodium/sodium-tests.factor
@@ -13,6 +13,7 @@ IN: sodium.tests
 
 { t } [
     "Signature verification test" utf8 encode
-    crypto-sign-keypair [ over ] dip crypto-sign
-    -rot crypto-sign-verify
+    crypto-sign-keypair
+    [ nip crypto-sign ]
+    [ drop crypto-sign-verify ] 3bi
 ] unit-test