core: Add the shuffler words but without primitives.

[factor.git] / extra / checksums / sodium / sodium.factor

diff --git a/extra/checksums/sodium/sodium.factor b/extra/checksums/sodium/sodium.factor
index cbf124c45090740da56dfeb988676a0351b26ed5..081001628403b9502756c3e8163325987f6db4f0 100644 (file)
--- a/extra/checksums/sodium/sodium.factor
+++ b/extra/checksums/sodium/sodium.factor
@@ -39,7 +39,7 @@ M: sodium-state get-checksum
     dup output>> [
         dup state>> [
             over output-size>> [ <byte-array> ] keep
-            [ crypto_generichash_final check0 ] 2keep drop
+            [ crypto_generichash_final check0 ] keepd
         ] [ B{ } clone ] if*
         [ >>output ] keep
     ] unless* nip ;