Changeset 36802 in project for release/5/box/trunk/box.scm


Ignore:
Timestamp:
11/11/18 03:06:01 (3 years ago)
Author:
Kon Lovett
Message:

better srfi-111 support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/box/trunk/box.scm

    r36480 r36802  
    2828  make-box-variable-closure
    2929  make-box-location-closure
    30   ;
    31   box set-box! unbox
     30  ;SRFI 111
     31  box immutable-box set-box! unbox
    3232  ;
    3333  *box-structure? *box-structure-ref *box-structure-set!
     
    387387      (error-box 'box-location box))))
    388388
    389 ;;; MZ Scheme Style
     389;;; SRFI-111 Style
    390390
    391391(define-syntax box
     
    393393    ((_ ?arg0 ...)
    394394      (make-box ?arg0 ...))))
     395
     396(define-syntax immutable-box
     397  (syntax-rules ()
     398    ((_ ?arg0 ...)
     399      (make-box ?arg0 ... #t))))
    395400
    396401(define-syntax unbox
Note: See TracChangeset for help on using the changeset viewer.