Changeset 38129 in project


Ignore:
Timestamp:
01/18/20 21:49:28 (8 months ago)
Author:
Kon Lovett
Message:

recieve -> let-values

Location:
release/5/srfi-19/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-19/trunk/srfi-19-date.scm

    r38126 r38129  
    410410                (hours 0) (minutes 0) (seconds 0)
    411411                (milliseconds 0) (microseconds 0) (nanoseconds 0))
    412   (receive (ns sec)
     412  (let-values (
     413    ((ns sec)
    413414      (tm:duration-elements->time-values
    414415        days hours minutes seconds
    415         milliseconds microseconds nanoseconds)
     416        milliseconds microseconds nanoseconds)) )
    416417    (tm:make-time 'duration ns sec) ) )
    417418
  • release/5/srfi-19/trunk/srfi-19-period.scm

    r38128 r38129  
    370370      (tm:ensure-compatible-time 'time-period-intersection
    371371        e1 (%time-period-end per2))) )
    372     (receive (bi ei) (tm:time-point-intersection b1 e1 b2 e2)
     372    (let-values (
     373      ((bi ei) (tm:time-point-intersection b1 e1 b2 e2)) )
    373374      (and
    374375        (tm:time<=? bi ei)
     
    384385    (b2 (tm:ensure-compatible-time 'time-period-union b1 (time-period-begin per2)))
    385386    (e2 (tm:ensure-compatible-time 'time-period-union e1 (time-period-end per2))) )
    386     (receive (bi ei) (tm:time-point-intersection b1 e1 b2 e2)
     387    (let-values (
     388      ((bi ei) (tm:time-point-intersection b1 e1 b2 e2)) )
    387389      (and
    388390        (tm:time<=? bi ei)
    389         (receive (bu eu) (tm:time-point-union b1 e1 b2 e2)
     391        (let-values (
     392          ((bu eu) (tm:time-point-union b1 e1 b2 e2)) )
    390393          (%make-time-period bu eu) ) ) ) ) )
    391394
     
    398401    (b2 (tm:ensure-compatible-time 'time-period-span b1 (%time-period-begin per2)))
    399402    (e2 (tm:ensure-compatible-time 'time-period-span e1 (%time-period-end per2))))
    400     (receive (bu eu) (tm:time-point-union b1 e1 b2 e2)
     403    (let-values (
     404      ((bu eu) (tm:time-point-union b1 e1 b2 e2)) )
    401405      (%make-time-period bu eu) ) ) )
    402406
  • release/5/srfi-19/trunk/srfi-19-time.scm

    r38126 r38129  
    138138                (hours 0) (minutes 0) (seconds 0)
    139139                (milliseconds 0) (microseconds 0) (nanoseconds 0))
    140   (receive (ns sec)
    141             (tm:duration-elements->time-values
    142               (check-real 'make-duration days 'days)
    143               (check-real 'make-duration hours 'hours)
    144               (check-real 'make-duration minutes 'minutes)
    145               (check-real 'make-duration seconds 'seconds)
    146               (check-real 'make-duration milliseconds 'milliseconds)
    147               (check-real 'make-duration microseconds 'microseconds)
    148               (check-real 'make-duration nanoseconds 'nanoseconds))
     140  (let-values (
     141    ((ns sec)
     142      (tm:duration-elements->time-values
     143        (check-real 'make-duration days 'days)
     144        (check-real 'make-duration hours 'hours)
     145        (check-real 'make-duration minutes 'minutes)
     146        (check-real 'make-duration seconds 'seconds)
     147        (check-real 'make-duration milliseconds 'milliseconds)
     148        (check-real 'make-duration microseconds 'microseconds)
     149        (check-real 'make-duration nanoseconds 'nanoseconds))) )
    149150    (check-time-elements 'make-duration 'duration ns sec)
    150151    (tm:make-time 'duration ns sec) ) )
     
    183184(define (nanoseconds->time ns . args)
    184185  (let-optionals args ((tt 'duration))
    185     (receive (ns sec) (tm:nanoseconds->time-values ns)
     186    (let-values (
     187      ((ns sec) (tm:nanoseconds->time-values ns)) )
    186188      (check-time-elements 'nanoseconds->time tt ns sec)
    187189      (tm:make-time tt ns sec) ) ) )
     
    192194(define (milliseconds->time ms . args)
    193195  (let-optionals args ((tt 'duration))
    194     (receive (ns sec)
    195                 (tm:milliseconds->time-values
    196                   (check-raw-milliseconds 'milliseconds->time ms))
     196    (let-values (
     197      ((ns sec)
     198        (tm:milliseconds->time-values
     199          (check-raw-milliseconds 'milliseconds->time ms))) )
    197200      (check-time-elements 'milliseconds->time tt ns sec)
    198201      (tm:make-time tt ns sec) ) ) )
Note: See TracChangeset for help on using the changeset viewer.