Changeset 34715 in project for release/4/srfi-27/OO-example.scm


Ignore:
Timestamp:
10/16/17 16:39:10 (3 years ago)
Author:
Kon Lovett
Message:

use recv when 1 let-vals

File:
1 edited

Legend:

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

    r34532 r34715  
    2424
    2525(define-method (reset (obj <stepper>))
    26   (let-values (
    27       ((gen _)
    28         (apply
    29           (slot-value obj 'ctor)
    30           `(,@(slot-value obj 'params) ,(slot-value obj 'src))) ) )
     26  (receive (gen _)
     27            (apply
     28              (slot-value obj 'ctor)
     29              `(,@(slot-value obj 'params) ,(slot-value obj 'src)))
    3130    (set! (slot-value obj 'nxtval) gen) ) )
    3231
Note: See TracChangeset for help on using the changeset viewer.