Changeset 39165 in project for release/5/box/trunk/srfi-111.scm


Ignore:
Timestamp:
11/08/20 16:30:07 (5 months ago)
Author:
Kon Lovett
Message:

incl bug so no types, just alias, bump ver

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/box/trunk/srfi-111.scm

    r38573 r39165  
    1111  immutable-box)
    1212
    13 (import scheme)
    14 (import (chicken base))
    15 (import (chicken syntax))
    16 (import (chicken type))
    17 (import (only (chicken platform) register-feature!))
    18 (import (only box-core box? make-box-mutable make-box-immutable box-ref box-set!))
     13(import scheme
     14  (chicken base)
     15  (only (chicken platform) register-feature!)
     16  (only box-core box? make-box-mutable make-box-immutable box-ref box-set!))
    1917
    2018;;
    2119
    22 (define (box arg)           (make-box-mutable arg))
    23 (define (immutable-box arg) (make-box-immutable arg))
    24 (define (unbox box)         (box-ref box))
    25 (define (set-box! box val)  (box-set! box val))
     20(define box           make-box-mutable)
     21(define immutable-box make-box-immutable)
     22(define unbox         box-ref)
     23(define set-box!      box-set!)
    2624
    2725;;
Note: See TracChangeset for help on using the changeset viewer.