Changeset 36240 in project


Ignore:
Timestamp:
08/13/18 00:00:45 (4 months ago)
Author:
kon
Message:

canon

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/coops-utils/trunk/coops-extras.scm

    r35790 r36240  
    77  (bound-to-procedure
    88    ##sys#peek-unsigned-integer
    9     ##sys#check-closure ) )
     9    ##sys#check-closure))
    1010
    1111(module coops-extras
     
    9999  (syntax-rules (=)
    100100    ;
    101     ((_ ?obj)
     101    ((slot@ ?obj)
    102102      ?obj )
    103103    ;
    104     ((_ ?obj ?slot = ?val)
    105       (set! (slot-value ?obj '?slot) ?val) )
     104    ((slot@ ?obj ?slot = ?valu)
     105      (set! (slot-value ?obj '?slot) ?valu) )
    106106    ;
    107     ((_ ?obj ?slot ?slots ...)
    108       (slot@ (slot-value ?obj '?slot) ?slots ...) ) ) )
     107    ((slot@ ?obj ?slot ?rest0 ...)
     108      (slot@ (slot-value ?obj '?slot) ?rest0 ...) ) ) )
    109109
    110110;;
Note: See TracChangeset for help on using the changeset viewer.