Changeset 37389 in project


Ignore:
Timestamp:
03/17/19 01:01:32 (13 months ago)
Author:
Kon Lovett
Message:

comment

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/message-digest-type/trunk/message-digest-type.scm

    r36731 r37389  
    9494
    9595#; ;assumes blob 'res' may not be of result size
    96 (define: (get-result-form (loc symbol) (res blob) (restyp message-digest-result-form)) -> message-digest-result-type
     96(define: ((get-result-form message-digest-result-type) (loc symbol) (res blob) (restyp message-digest-result-form))
     97;(define:-pure ((func rettype) ,,,) ...)
     98;(define: (proc ,,,) ...) == (define: ((proc void) ,,,) ...)
    9799  (case restyp
    98100    ((blob)
Note: See TracChangeset for help on using the changeset viewer.