hashcash: quick fix for string argument to checksum-bytes.

char-rename
John Benediktsson 2016-06-30 14:50:47 -07:00
parent 8d61ace2b4
commit 58dd52e82e
1 changed files with 5 additions and 4 deletions

View File

@ -1,8 +1,9 @@
! Copyright (C) 2009 Diego Martinelli.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays calendar calendar.format checksums
checksums.openssl classes.tuple fry kernel make math math.functions
math.parser math.ranges present random sequences splitting strings ;
USING: accessors calendar calendar.format checksums
checksums.openssl classes.tuple fry io.encodings.ascii
io.encodings.string kernel math math.functions math.parser
math.ranges present random sequences splitting ;
IN: hashcash
! Hashcash implementation
@ -49,7 +50,7 @@ M: hashcash string>>
<PRIVATE
: sha1-checksum ( str -- bytes )
openssl-sha1 checksum-bytes ; inline
ascii encode openssl-sha1 checksum-bytes ; inline
: set-suffix ( tuple guess -- tuple )
>hex >>suffix ;