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


Ignore:
Timestamp:
09/02/18 06:08:10 (3 years ago)
Author:
Kon Lovett
Message:

srfi-111

File:
1 edited

Legend:

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

    r36153 r36480  
    1111
    1212(declare
    13   (disable-interrupts))
     13  (disable-interrupts)
     14  (bound-to-procedure ##sys#procedure->string))
    1415
    1516(module box
    1617
    1718(;export
    18   ;;
     19  ;
    1920  make-box
    2021  make-box-variable
     
    2728  make-box-variable-closure
    2829  make-box-location-closure
    29   ;;
     30  ;
    3031  box set-box! unbox
    31   ;;
     32  ;
    3233  *box-structure? *box-structure-ref *box-structure-set!
    3334  *box-procedure? *box-procedure-ref *box-procedure-set!)
     
    3738  (chicken type)
    3839  (chicken foreign)
     40  (only (chicken platform) register-feature!)
    3941  (only (chicken read-syntax) define-reader-ctor set-sharp-read-syntax!)
    4042  (only (chicken port) with-output-to-port with-output-to-string)
     
    4345  (only type-errors define-error-type))
    4446
    45 (declare
    46   (bound-to-procedure
    47     ##sys#procedure->string ) )
    48 
    4947;;;
     48
     49;;
     50
     51(register-feature! 'srfi-111)
     52
     53;;
    5054
    5155(define-type box-struct (or (struct box) (struct box!)))
    5256(define-type box-closure ((* * * -> *) -> *))
    5357(define-type box (or box-struct box-closure))
     58
     59;;
    5460
    5561(: ##sys#procedure->string (* -> string))
Note: See TracChangeset for help on using the changeset viewer.