Changeset 34855 in project


Ignore:
Timestamp:
11/04/17 02:44:40 (4 years ago)
Author:
Kon Lovett
Message:

st trk

Location:
release/4/srfi-27/trunk
Files:
2 added
1 edited

Legend:

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

    r34210 r34855  
    180180
    181181(define (make-random-source #!optional (rs (current-random-source)))
    182   (let ((ctor
    183           (cond
    184             ((random-source? rs)
    185               (@random-source-constructor rs) )
    186             ((symbol? rs)
    187               (registered-random-source rs) )
    188             (else
    189               #f ) ) ) )
     182  (let (
     183    (ctor
     184      (cond
     185        ((random-source? rs)
     186          (@random-source-constructor rs) )
     187        ((symbol? rs)
     188          (registered-random-source rs) )
     189        (else
     190          #f ) ) ) )
     191    ;
    190192    (unless ctor
    191193      (error-argument-type
Note: See TracChangeset for help on using the changeset viewer.