Changeset 38972 in project


Ignore:
Timestamp:
08/31/20 16:02:10 (4 weeks ago)
Author:
Kon Lovett
Message:

apply megane's test genny fix (just-once)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/message-digest-utils/trunk/tests/message-digest-utils-test.scm

    r38970 r38972  
    4949(define SHORT-TEST-FILE-LENGTH 26)
    5050
    51 ;FIXME -strict-types no like union return type
     51;type must be (or DATA false)
    5252(: just-once (-> (or string false)))
    5353(define just-once
    54   (let ((flag #t))
     54  ;override most specific inferred type - true - w/ what is needed
     55  (let ((flag (the boolean #t)))
    5556    (lambda ()
    5657      (and flag (begin (set! flag #f) simple-src)))))
Note: See TracChangeset for help on using the changeset viewer.