Changeset 35341 in project for release/4/message-digest/trunk/message-digest-item.scm

Timestamp:

03/25/18 19:50:42 (3 years ago)

Author:

Kon Lovett

Message:

add types, message-digest-result-form -> -type, -form is symbol, -byte-order is symbol, do not type check-/error- (no no no no no)

File:

• release/4/message-digest/trunk/message-digest-item.scm (modified) (3 diffs)

release/4/message-digest/trunk/message-digest-item.scm

@@ -35 +35 @@
 ;;
 
-(define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result-form
+(define: (message-digest-object (mdp message-digest-primitive) (obj *) . (opts list)) -> message-digest-result-type
   (let-optionals* opts (
-    (result-type (message-digest-result-form))
+    (restyp (message-digest-result-form))
     (start 0)
     (end #f) )
     (let ((md (initialize-message-digest mdp)))
       (message-digest-update-object md obj start end)
-      (finalize-message-digest md result-type) ) ) )
+      (finalize-message-digest md restyp) ) ) )
 
-(define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result-form
-  (let* (
-    (result-type (message-digest-result-form))
+(define: (message-digest-file (mdp message-digest-primitive) (flnm pathname) . (opts list)) -> message-digest-result-type
+  (let (
+    (restyp (message-digest-result-form))
     (md (initialize-message-digest mdp)) )
     (message-digest-update-file md flnm)
-    (finalize-message-digest md result-type) ) )
+    (finalize-message-digest md restyp) ) )
 
-(define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result-form
-  (let* (
-    (result-type (message-digest-result-form))
+(define: (message-digest-port (mdp message-digest-primitive) (port output-port) . (opts list)) -> message-digest-result-type
+  (let (
+    (restyp (message-digest-result-form))
     (md (initialize-message-digest mdp)) )
     (message-digest-update-port md port)
-    (finalize-message-digest md result-type) ) )
+    (finalize-message-digest md restyp) ) )
 
 ;;
 
-(define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result-form
+(define: (message-digest-object! (mdp message-digest-primitive) (obj *) (buf message-digest-buffer) . (opts list)) -> message-digest-result-type
   (let-optionals* opts (
     (start 0)
@@ -69 +69 @@
       (finalize-message-digest! md buf) ) ) )
 
-(define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result-form
+(define: (message-digest-file! (mdp message-digest-primitive) (flnm pathname) (buf message-digest-buffer)) -> message-digest-result-type
   (let (
     (md (initialize-message-digest mdp)) )
@@ -75 +75 @@
     (finalize-message-digest! md buf) ) )
 
-(define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-form
-  (let ((md (initialize-message-digest mdp)))
+(define: (message-digest-port! (mdp message-digest-primitive) (port output-port) (buf message-digest-buffer)) -> message-digest-result-type
+  (let (
+    (md (initialize-message-digest mdp)) )
     (message-digest-update-port md port)
     (finalize-message-digest! md buf) ) )