sodium.secure-memory: fix return type of secure-memory=.

[factor.git] / extra / sodium / secure-memory / secure-memory.factor

diff --git a/extra/sodium/secure-memory/secure-memory.factor b/extra/sodium/secure-memory/secure-memory.factor
index 33bbe9b6d228dd1f62b5a43153d937d6f5c8c2ea..1a3a315ac72beb09f62ef5244465267556fa597b 100644 (file)
--- a/extra/sodium/secure-memory/secure-memory.factor
+++ b/extra/sodium/secure-memory/secure-memory.factor
@@ -36,7 +36,7 @@ TUPLE: secure-memory < disposable
 : secure-memory= ( a b -- ? )
     [ check-disposed ] bi@ {
         [ [ size>> ] bi@ = ]
-        [ [ [ >c-ptr ] bi@ ] keep size>> sodium_memcmp ]
+        [ [ [ >c-ptr ] bi@ ] keep size>> sodium_memcmp 0 = ]
     } 2&& ;
 
 M: secure-memory dispose* ( disposable -- )