Changeset 36734 in project

Timestamp:

10/28/18 13:56:55 (13 months ago)

Author:

Kon Lovett

Message:

reflow

Location:

release/5/message-digest-utils/trunk

Files:

• message-digest-types.scm (modified) (1 diff)
• message-digest-update-item.scm (modified) (4 diffs)

release/5/message-digest-utils/trunk/message-digest-types.scm

@@ -29 +29 @@
 (define-type message-digest-result-type (or string blob u8vector))
 
-(define-type message-digest-context (or fixnum procedure))
+;(define-type context-info (or fixnum procedure))
 
 (define-type digest-output-port output-port)
+
+(define-type message-digest-primitive-context *)

release/5/message-digest-utils/trunk/message-digest-update-item.scm

@@ -100 +100 @@
     (let loop ()
       (and-let* ((dat (proc)))
-        (do-byte-source-update loc ctx dat src-updt raw-updt start end)
+        (*do-bytes-update loc ctx dat src-updt raw-updt start end)
         (loop) ) )
     ;do not return #f
@@ -108 +108 @@
 ;
 (define (do-bytes-update loc md src start end)
-  (do-byte-source-update
+  (*do-bytes-update
     loc
     (message-digest-context md)
@@ -116 +116 @@
     start end) )
 
-(: do-byte-source-update (symbol * * source-update raw-update start-index end-index -> void))
-;
-(define (do-byte-source-update loc ctx src src-updt raw-updt start end)
+(: *do-bytes-update (symbol message-digest-primitive-context * source-update raw-update start-index end-index -> void))
+;
+(define (*do-bytes-update loc ctx src src-updt raw-updt start end)
   (cond
     ;simple bytes
@@ -139 +139 @@
         (updater ctx obj (message-digest-raw-chunk-size src)) ) )
     ;more complicated bytes
-    ((object->bytevector-like src) =>
-        (cut do-byte-source-update loc ctx <> src-updt raw-updt start end) )
+    ((object->bytevector-like src)
+      => (cut *do-bytes-update loc ctx <> src-updt raw-updt start end) )
     ;too complicated bytes
     (else