hashcash: Avoid generating the stamp unless it is unset or set to ``f``

[factor.git] / extra / hashcash / hashcash.factor

diff --git a/extra/hashcash/hashcash.factor b/extra/hashcash/hashcash.factor
index 80651ed98af182e556f8d9f9c8e526bd7cb429d3..46d4ac809a505f7eedfe58656795259f608501d2 100644 (file)
--- a/extra/hashcash/hashcash.factor
+++ b/extra/hashcash/hashcash.factor
@@ -1,5 +1,5 @@
 ! Copyright (C) 2009 Diego Martinelli.
-! Copyright (C) 2022 Zoltán Kéri.
+! Copyright (C) 2023 Zoltán Kéri.
 ! See https://factorcode.org/license.txt for BSD license.
 USING: accessors byte-arrays calendar calendar.format
 calendar.parser checksums checksums.openssl classes.tuple
@@ -87,8 +87,7 @@ PRIVATE>
 <PRIVATE
 
 ! NOTE: Recommended expiry time is 28 days.
-SYMBOL: expiry-days
-expiry-days [ 28 ] initialize
+INITIALIZED-SYMBOL: expiry-days [ 28 ]
 
 PRIVATE>