From 082e59d18704def1295c684ff44a64d697d3b6af Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Tue, 20 Sep 2016 00:10:06 +0300 Subject: [PATCH] checksums.process: in the process-state tuple rename proc slot to process --- extra/checksums/process/process.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/extra/checksums/process/process.factor b/extra/checksums/process/process.factor index 381c901674..acf512eb81 100644 --- a/extra/checksums/process/process.factor +++ b/extra/checksums/process/process.factor @@ -9,23 +9,23 @@ TUPLE: checksum-process launch-desc ; INSTANCE: checksum-process block-checksum C: checksum-process -TUPLE: process-state < disposable proc result ; +TUPLE: process-state < disposable process result ; M: checksum-process initialize-checksum-state ( checksum -- checksum-state ) - launch-desc>> binary process-state new-disposable swap >>proc ; + launch-desc>> binary process-state new-disposable swap >>process ; M: process-state dispose* ( process-state -- ) - proc>> [ dispose ] when* ; + process>> [ dispose ] when* ; M: process-state add-checksum-bytes ( process-state bytes -- process-state' ) - over proc>> stream-write ; + over process>> stream-write ; : trim-hash ( str -- str' ) dup empty? [ dup [ blank? ] find drop [ head ] when* ] unless ; M: process-state get-checksum ( checksum-state -- value ) dup result>> [ - dup proc>> [ + dup process>> [ [ [ out>> dispose ] keep stream-contents trim-hash hex-string>bytes