Changeset 36480 in project


Ignore:
Timestamp:
09/02/18 06:08:10 (2 months ago)
Author:
kon
Message:

srfi-111

Location:
release/5/box/trunk
Files:
3 edited

Legend:

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

    r36153 r36480  
    33
    44((synopsis "Boxing")
    5  (version "3.0.0")
     5 (version "3.0.1")
    66 (category data)
    77 (license "BSD")
  • 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))
  • release/5/box/trunk/tests/box-test.scm

    r36153 r36480  
    99
    1010(import box)
     11
     12;;
     13
     14(import (only (chicken platform) features))
     15
     16(test-group "Box Support"
     17  (test-assert "SRFI 111"
     18    (let loop ((rem (features)))
     19      (cond
     20        ((null? rem)
     21          #f )
     22        ((eq? #:srfi-111 (car rem))
     23          #t )
     24        (else
     25          (loop (cdr rem)) ) ) ) )
     26)
     27
     28;;
    1129
    1230(test-group "Box Mutable"
Note: See TracChangeset for help on using the changeset viewer.