Changeset 34856 in project


Ignore:
Timestamp:
11/04/17 03:22:36 (4 years ago)
Author:
Kon Lovett
Message:

re-flow

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-27/trunk/srfi-27.scm

    r34855 r34856  
    8888
    8989(define (make-entropy-source #!optional (es (current-entropy-source)))
    90   (let ((ctor
    91           (cond
    92             ((entropy-source? es)
    93               (@entropy-source-constructor es) )
    94             ((symbol? es)
    95               (registered-entropy-source es) )
    96             (else
    97               #f ) ) ) )
     90  (let (
     91    (ctor
     92      (cond
     93        ((entropy-source? es)
     94          (@entropy-source-constructor es) )
     95        ((symbol? es)
     96          (registered-entropy-source es) )
     97        (else
     98          #f ) ) ) )
     99    ;
    98100    (unless ctor
    99101      (error-argument-type
Note: See TracChangeset for help on using the changeset viewer.