Changeset 34151 in project


Ignore:
Timestamp:
06/01/17 05:13:57 (3 months ago)
Author:
kon
Message:

updt typs

Location:
release/4/box
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/box/tags/2.3.3/box.scm

    r27985 r34151  
    11;;;; box.scm
    22;;;; Kon Lovett, Oct '08
     3;;;; Kon Lovett, May '17
    34
    45;; Issues
     
    1213(module box
    1314
    14   (;export
    15     ;;
    16     make-box (make-box-variable $finvar) (make-box-location $finloc)
    17     box? box-variable? box-location?
    18     box-mutable? box-immutable?
    19     box-set! box-ref
    20     box-swap!
    21     box-location
    22     ;;
    23     box set-box! unbox
    24     ;;
    25     *box-structure? *box-structure-ref *box-structure-set!
    26     *box-procedure? *box-procedure-ref *box-procedure-set!)
    27 
    28   (import
    29     scheme
    30     chicken
    31     foreign
    32     (only ports
    33       with-output-to-port
    34       with-output-to-string)
    35     (only lolevel
    36       extend-procedure procedure-data
    37       make-weak-locative make-locative)
    38     (only type-errors
    39       define-error-type) )
    40 
    41   (require-library ports lolevel type-errors)
    42 
    43   (declare
    44     (bound-to-procedure
    45       ##sys#signal-hook
    46       ##sys#procedure->string ) )
    47 
    48   (define-type box-struct (or (struct box) (struct box!)))
    49   (define-type box-closure ((* * * -> *) -> *))
    50   (define-type box (or box-struct box-closure))
    51 
    52   (declare
    53     (type
    54       (##sys#procedure->string (* -> string))
    55 
    56       ($finloc (symbol (-> *) (* -> undefined) (-> locative) -> box-closure))
    57       ($finvar (symbol (-> *) (* -> undefined) -> box-closure))
    58 
    59       (make-box (#!optional * boolean -> box-struct))
    60 
    61       (box? (* -> boolean : box))
    62       (box-variable? (* -> boolean : box-closure))
    63       (box-location? (* -> boolean : box-closure))
    64       (box-immutable? (* -> boolean : box))
    65       (box-mutable? (* -> boolean : box))
    66 
    67       (box-set! (box * -> undefined))
    68       (box-ref (box -> *))
    69       (box-swap! (box (#!rest -> *) #!rest -> *))
    70 
    71       (box-location (box #!optional boolean -> locative))
    72 
    73       (*box-ref (box -> *))
    74 
    75       (*box-structure? (* -> boolean : box-struct))
    76       (*box-structure-ref (box-struct -> *))
    77       (*box-structure-set! (box-struct * -> undefined))
    78 
    79       (*box-procedure? (* -> boolean : box-closure))
    80       (box-procedure-ref (box-closure -> *))
    81       (*box-procedure-set! (box-closure * -> undefined)) ) )
     15(;export
     16  ;;
     17  make-box (make-box-variable $finvar) (make-box-location $finloc)
     18  box? box-variable? box-location?
     19  box-mutable? box-immutable?
     20  box-set! box-ref
     21  box-swap!
     22  box-location
     23  ;;
     24  box set-box! unbox
     25  ;;
     26  *box-structure? *box-structure-ref *box-structure-set!
     27  *box-procedure? *box-procedure-ref *box-procedure-set!)
     28
     29(import scheme)
     30
     31(import chicken foreign)
     32
     33(import
     34  (only ports
     35    with-output-to-port
     36    with-output-to-string)
     37  (only lolevel
     38    extend-procedure procedure-data
     39    make-weak-locative make-locative))
     40(require-library ports lolevel)
     41
     42(import
     43  (only type-errors
     44    define-error-type) )
     45(require-library type-errors)
     46
     47(declare
     48  (bound-to-procedure
     49    ##sys#signal-hook
     50    ##sys#procedure->string ) )
     51
     52(define-type box-struct (or (struct box) (struct box!)))
     53(define-type box-closure ((* * * -> *) -> *))
     54(define-type box (or box-struct box-closure))
     55
     56(: ##sys#procedure->string (* -> string))
     57
     58(: $finloc (symbol (-> *) (* -> undefined) (-> locative) -> box-closure))
     59(: $finvar (symbol (-> *) (* -> undefined) -> box-closure))
     60
     61(: make-box (#!optional * boolean -> box-struct))
     62
     63(: box? (* -> boolean : box))
     64(: box-variable? (* -> boolean : box-closure))
     65(: box-location? (* -> boolean : box-closure))
     66(: box-immutable? (* -> boolean : box))
     67(: box-mutable? (* -> boolean : box))
     68
     69(: box-set! (box * -> undefined))
     70(: box-ref (box -> *))
     71(: box-swap! (box (* #!rest * -> *) #!rest * -> *))
     72
     73(: box-location (box #!optional boolean -> locative))
     74
     75(: *box-ref (box -> *))
     76
     77(: *box-structure? (* -> boolean : box-struct))
     78(: *box-structure-ref (box-struct -> *))
     79(: *box-structure-set! (box-struct * -> undefined))
     80
     81(: *box-procedure? (* -> boolean : box-closure))
     82(: box-procedure-ref (box-closure -> *))
     83(: *box-procedure-set! (box-closure * -> undefined))
    8284
    8385;;; Prelude
     
    166168  (let ((val
    167169          (cond
    168             ((%box-structure? box)  (%box-structure-ref box))
    169             ((%box-closure? box)    (%box-closure-ref box))
     170            ((%box-structure? box)
     171              (%box-structure-ref box))
     172            ((%box-closure? box)
     173              (%box-closure-ref box))
    170174            (else
    171175              (error-box 'box-print box)))))
     
    195199(define (*box-ref box)
    196200  (cond
    197     ((%box-structure? box)  (%box-structure-ref box) )
    198     ((%box-closure? box)    (%box-closure-ref box) )
     201    ((%box-structure? box)
     202      (%box-structure-ref box) )
     203    ((%box-closure? box)
     204      (%box-closure-ref box) )
    199205    (else
    200206      (error-box 'box-ref box 'box) ) ) )
     
    204210(define-syntax make-box-variable
    205211  (syntax-rules ()
    206     ((_ ?var) (make-box-variable ?var #f))
     212    ((_ ?var)
     213      (make-box-variable ?var #f) )
    207214    ((_ ?var ?immutable?)
    208215     #;(identifier? ?var)
    209      ($finvar (if ?immutable? 'boxvar 'boxvar!)
    210               (lambda () ?var)
    211               (if ?immutable? void (lambda (val) (set! ?var val)))))))
     216     ($finvar
     217        (if ?immutable? 'boxvar 'boxvar!)
     218        (lambda () ?var)
     219        (if ?immutable? void (lambda (val) (set! ?var val)))) ) ) )
    212220
    213221(define-syntax make-box-location
    214222  (syntax-rules ()
    215     ((_ ?typ ?val) (make-box-location ?typ ?val #f))
     223    ((_ ?typ ?val)
     224      (make-box-location ?typ ?val #f) )
    216225    ((_ ?typ ?val ?immutable?)
    217226     #;(identifier? ?typ)
    218227     (let-location ((var ?typ ?val))
    219        ($finloc (if ?immutable? 'boxloc 'boxloc!)
    220                 (lambda () var)
    221                 (if ?immutable? void (lambda (val) (set! var val)))
    222                 (lambda () (location var)))))))
    223 
    224 (define (make-box #!optional init immutable?) (%make-box (if immutable? 'box 'box!) init))
     228       ($finloc
     229          (if ?immutable? 'boxloc 'boxloc!)
     230          (lambda () var)
     231          (if ?immutable? void (lambda (val) (set! var val)))
     232          (lambda () (location var))) ) ) ) )
     233
     234(define (make-box #!optional init immutable?)
     235  (%make-box (if immutable? 'box 'box!) init) )
    225236
    226237;; Predicates
     
    232243(define (box-location? obj) (%box-location? obj))
    233244
    234 (define (box-immutable? obj) (or (%box-structure-immutable? obj) (%box-closure-immutable? obj)))
    235 
    236 (define (box-mutable? obj) (or (%box-structure-mutable? obj) (%box-closure-mutable? obj)))
     245(define (box-immutable? obj)
     246  (or (%box-structure-immutable? obj) (%box-closure-immutable? obj)) )
     247
     248(define (box-mutable? obj)
     249  (or (%box-structure-mutable? obj) (%box-closure-mutable? obj)) )
    237250
    238251;; Mutators
     
    240253(define (box-set! box val)
    241254  (case (%box-structure-tag box)
    242     ((box!) (%box-structure-set! box val))
    243     ((box)  (error-box-mutable 'box-set! box))
     255    ((box!)
     256      (%box-structure-set! box val))
     257    ((box)
     258      (error-box-mutable 'box-set! box))
    244259    (else
    245260      (case (%box-closure-tag box)
    246         ((boxvar! boxloc!) (%box-closure-set! box val))
    247         ((boxvar boxloc)   (error-box-mutable 'box-set! box))
     261        ((boxvar! boxloc!)
     262          (%box-closure-set! box val))
     263        ((boxvar boxloc)
     264          (error-box-mutable 'box-set! box))
    248265        (else
    249266          (error-box 'box-set! box) ) ) ) ) )
     
    257274
    258275(define (box-swap! box func . args)
    259   (let* ((btag (%box-structure-tag box))
    260          (oval (case btag
    261                  ((box!) (%box-structure-ref box))
    262                  ((box)  (error-box-mutable 'box-swap! box))
    263                  (else
    264                    (case (%box-closure-tag box)
    265                      ((boxvar! boxloc!) (%box-closure-ref box))
    266                      ((boxvar boxloc)   (error-box-mutable 'box-swap! box))
    267                      (else
    268                        (error-box 'box-swap! box) ) ) ) ) )
    269          (nval (apply func oval args)) )
     276  (let* (
     277      (btag
     278        (%box-structure-tag box))
     279      (oval
     280        (case btag
     281          ((box!)
     282            (%box-structure-ref box))
     283          ((box)
     284            (error-box-mutable 'box-swap! box))
     285          (else
     286            (case (%box-closure-tag box)
     287              ((boxvar! boxloc!)
     288                (%box-closure-ref box))
     289              ((boxvar boxloc)
     290                (error-box-mutable 'box-swap! box))
     291              (else
     292                (error-box 'box-swap! box) ) ) ) ) )
     293      (nval
     294        (apply func oval args)) )
    270295    (case btag
    271       ((box!) (%box-structure-set! box nval))
    272       (else   (%box-closure-set! box nval) ) )
     296      ((box!)
     297        (%box-structure-set! box nval))
     298      (else
     299        (%box-closure-set! box nval) ) )
    273300    nval ) )
    274301
     
    279306(define (box-location box #!optional (weak? #f))
    280307  (cond
    281     ((%box-structure? box)  ((if weak? make-weak-locative make-locative) box 1))
    282     ((%box-closure? box)    (box (lambda (ref set loc) (loc))))
     308    ((%box-structure? box)
     309      ((if weak? make-weak-locative make-locative) box 1))
     310    ((%box-closure? box)
     311      (box (lambda (ref set loc) (loc))))
    283312    (else
    284313      (error-box 'box-location box))))
     
    288317(define-syntax box
    289318  (syntax-rules ()
    290     ((_ ?arg0 ...) (make-box ?arg0 ...))))
     319    ((_ ?arg0 ...)
     320      (make-box ?arg0 ...))))
    291321
    292322(define-syntax unbox
    293323  (syntax-rules ()
    294     ((_ ?box) (box-ref ?box))))
     324    ((_ ?box)
     325      (box-ref ?box))))
    295326
    296327(define-syntax set-box!
    297328  (syntax-rules ()
    298     ((_ ?box ?val) (box-set! ?box ?val))))
     329    ((_ ?box ?val)
     330      (box-set! ?box ?val))))
    299331
    300332
     
    314346  (let ((##sys#procedure->string ##sys#procedure->string))
    315347    (lambda (x)
    316                         (if (%box? x) (with-output-to-string (lambda () (%box-print x)))
    317                                         (##sys#procedure->string x)))))
     348                        (if (%box? x)
     349                          (with-output-to-string (lambda () (%box-print x)))
     350        (##sys#procedure->string x)))))
    318351
    319352) ;module box
  • release/4/box/tags/2.3.3/box.setup

    r27985 r34151  
    55(verify-extension-name 'box)
    66
    7 (setup-shared-extension-module (extension-name) (extension-version "2.3.2")
     7(setup-shared-extension-module (extension-name) (extension-version "2.3.3")
    88  #:types? #t
    99  #:inline? #t
    1010  #:compile-options '(
    1111    -disable-interrupts
    12     -fixnum-arithmetic
    13     -optimize-level 3 -debug-level 1
     12    -optimize-level 3 -debug-level 2
    1413    -no-procedure-checks))
  • release/4/box/tags/2.3.3/tests/run.scm

    r24565 r34151  
    11(require-extension test)
     2
    23(require-extension box)
    34
  • release/4/box/trunk/box.scm

    r27985 r34151  
    11;;;; box.scm
    22;;;; Kon Lovett, Oct '08
     3;;;; Kon Lovett, May '17
    34
    45;; Issues
     
    1213(module box
    1314
    14   (;export
    15     ;;
    16     make-box (make-box-variable $finvar) (make-box-location $finloc)
    17     box? box-variable? box-location?
    18     box-mutable? box-immutable?
    19     box-set! box-ref
    20     box-swap!
    21     box-location
    22     ;;
    23     box set-box! unbox
    24     ;;
    25     *box-structure? *box-structure-ref *box-structure-set!
    26     *box-procedure? *box-procedure-ref *box-procedure-set!)
    27 
    28   (import
    29     scheme
    30     chicken
    31     foreign
    32     (only ports
    33       with-output-to-port
    34       with-output-to-string)
    35     (only lolevel
    36       extend-procedure procedure-data
    37       make-weak-locative make-locative)
    38     (only type-errors
    39       define-error-type) )
    40 
    41   (require-library ports lolevel type-errors)
    42 
    43   (declare
    44     (bound-to-procedure
    45       ##sys#signal-hook
    46       ##sys#procedure->string ) )
    47 
    48   (define-type box-struct (or (struct box) (struct box!)))
    49   (define-type box-closure ((* * * -> *) -> *))
    50   (define-type box (or box-struct box-closure))
    51 
    52   (declare
    53     (type
    54       (##sys#procedure->string (* -> string))
    55 
    56       ($finloc (symbol (-> *) (* -> undefined) (-> locative) -> box-closure))
    57       ($finvar (symbol (-> *) (* -> undefined) -> box-closure))
    58 
    59       (make-box (#!optional * boolean -> box-struct))
    60 
    61       (box? (* -> boolean : box))
    62       (box-variable? (* -> boolean : box-closure))
    63       (box-location? (* -> boolean : box-closure))
    64       (box-immutable? (* -> boolean : box))
    65       (box-mutable? (* -> boolean : box))
    66 
    67       (box-set! (box * -> undefined))
    68       (box-ref (box -> *))
    69       (box-swap! (box (#!rest -> *) #!rest -> *))
    70 
    71       (box-location (box #!optional boolean -> locative))
    72 
    73       (*box-ref (box -> *))
    74 
    75       (*box-structure? (* -> boolean : box-struct))
    76       (*box-structure-ref (box-struct -> *))
    77       (*box-structure-set! (box-struct * -> undefined))
    78 
    79       (*box-procedure? (* -> boolean : box-closure))
    80       (box-procedure-ref (box-closure -> *))
    81       (*box-procedure-set! (box-closure * -> undefined)) ) )
     15(;export
     16  ;;
     17  make-box (make-box-variable $finvar) (make-box-location $finloc)
     18  box? box-variable? box-location?
     19  box-mutable? box-immutable?
     20  box-set! box-ref
     21  box-swap!
     22  box-location
     23  ;;
     24  box set-box! unbox
     25  ;;
     26  *box-structure? *box-structure-ref *box-structure-set!
     27  *box-procedure? *box-procedure-ref *box-procedure-set!)
     28
     29(import scheme)
     30
     31(import chicken foreign)
     32
     33(import
     34  (only ports
     35    with-output-to-port
     36    with-output-to-string)
     37  (only lolevel
     38    extend-procedure procedure-data
     39    make-weak-locative make-locative))
     40(require-library ports lolevel)
     41
     42(import
     43  (only type-errors
     44    define-error-type) )
     45(require-library type-errors)
     46
     47(declare
     48  (bound-to-procedure
     49    ##sys#signal-hook
     50    ##sys#procedure->string ) )
     51
     52(define-type box-struct (or (struct box) (struct box!)))
     53(define-type box-closure ((* * * -> *) -> *))
     54(define-type box (or box-struct box-closure))
     55
     56(: ##sys#procedure->string (* -> string))
     57
     58(: $finloc (symbol (-> *) (* -> undefined) (-> locative) -> box-closure))
     59(: $finvar (symbol (-> *) (* -> undefined) -> box-closure))
     60
     61(: make-box (#!optional * boolean -> box-struct))
     62
     63(: box? (* -> boolean : box))
     64(: box-variable? (* -> boolean : box-closure))
     65(: box-location? (* -> boolean : box-closure))
     66(: box-immutable? (* -> boolean : box))
     67(: box-mutable? (* -> boolean : box))
     68
     69(: box-set! (box * -> undefined))
     70(: box-ref (box -> *))
     71(: box-swap! (box (* #!rest * -> *) #!rest * -> *))
     72
     73(: box-location (box #!optional boolean -> locative))
     74
     75(: *box-ref (box -> *))
     76
     77(: *box-structure? (* -> boolean : box-struct))
     78(: *box-structure-ref (box-struct -> *))
     79(: *box-structure-set! (box-struct * -> undefined))
     80
     81(: *box-procedure? (* -> boolean : box-closure))
     82(: box-procedure-ref (box-closure -> *))
     83(: *box-procedure-set! (box-closure * -> undefined))
    8284
    8385;;; Prelude
     
    166168  (let ((val
    167169          (cond
    168             ((%box-structure? box)  (%box-structure-ref box))
    169             ((%box-closure? box)    (%box-closure-ref box))
     170            ((%box-structure? box)
     171              (%box-structure-ref box))
     172            ((%box-closure? box)
     173              (%box-closure-ref box))
    170174            (else
    171175              (error-box 'box-print box)))))
     
    195199(define (*box-ref box)
    196200  (cond
    197     ((%box-structure? box)  (%box-structure-ref box) )
    198     ((%box-closure? box)    (%box-closure-ref box) )
     201    ((%box-structure? box)
     202      (%box-structure-ref box) )
     203    ((%box-closure? box)
     204      (%box-closure-ref box) )
    199205    (else
    200206      (error-box 'box-ref box 'box) ) ) )
     
    204210(define-syntax make-box-variable
    205211  (syntax-rules ()
    206     ((_ ?var) (make-box-variable ?var #f))
     212    ((_ ?var)
     213      (make-box-variable ?var #f) )
    207214    ((_ ?var ?immutable?)
    208215     #;(identifier? ?var)
    209      ($finvar (if ?immutable? 'boxvar 'boxvar!)
    210               (lambda () ?var)
    211               (if ?immutable? void (lambda (val) (set! ?var val)))))))
     216     ($finvar
     217        (if ?immutable? 'boxvar 'boxvar!)
     218        (lambda () ?var)
     219        (if ?immutable? void (lambda (val) (set! ?var val)))) ) ) )
    212220
    213221(define-syntax make-box-location
    214222  (syntax-rules ()
    215     ((_ ?typ ?val) (make-box-location ?typ ?val #f))
     223    ((_ ?typ ?val)
     224      (make-box-location ?typ ?val #f) )
    216225    ((_ ?typ ?val ?immutable?)
    217226     #;(identifier? ?typ)
    218227     (let-location ((var ?typ ?val))
    219        ($finloc (if ?immutable? 'boxloc 'boxloc!)
    220                 (lambda () var)
    221                 (if ?immutable? void (lambda (val) (set! var val)))
    222                 (lambda () (location var)))))))
    223 
    224 (define (make-box #!optional init immutable?) (%make-box (if immutable? 'box 'box!) init))
     228       ($finloc
     229          (if ?immutable? 'boxloc 'boxloc!)
     230          (lambda () var)
     231          (if ?immutable? void (lambda (val) (set! var val)))
     232          (lambda () (location var))) ) ) ) )
     233
     234(define (make-box #!optional init immutable?)
     235  (%make-box (if immutable? 'box 'box!) init) )
    225236
    226237;; Predicates
     
    232243(define (box-location? obj) (%box-location? obj))
    233244
    234 (define (box-immutable? obj) (or (%box-structure-immutable? obj) (%box-closure-immutable? obj)))
    235 
    236 (define (box-mutable? obj) (or (%box-structure-mutable? obj) (%box-closure-mutable? obj)))
     245(define (box-immutable? obj)
     246  (or (%box-structure-immutable? obj) (%box-closure-immutable? obj)) )
     247
     248(define (box-mutable? obj)
     249  (or (%box-structure-mutable? obj) (%box-closure-mutable? obj)) )
    237250
    238251;; Mutators
     
    240253(define (box-set! box val)
    241254  (case (%box-structure-tag box)
    242     ((box!) (%box-structure-set! box val))
    243     ((box)  (error-box-mutable 'box-set! box))
     255    ((box!)
     256      (%box-structure-set! box val))
     257    ((box)
     258      (error-box-mutable 'box-set! box))
    244259    (else
    245260      (case (%box-closure-tag box)
    246         ((boxvar! boxloc!) (%box-closure-set! box val))
    247         ((boxvar boxloc)   (error-box-mutable 'box-set! box))
     261        ((boxvar! boxloc!)
     262          (%box-closure-set! box val))
     263        ((boxvar boxloc)
     264          (error-box-mutable 'box-set! box))
    248265        (else
    249266          (error-box 'box-set! box) ) ) ) ) )
     
    257274
    258275(define (box-swap! box func . args)
    259   (let* ((btag (%box-structure-tag box))
    260          (oval (case btag
    261                  ((box!) (%box-structure-ref box))
    262                  ((box)  (error-box-mutable 'box-swap! box))
    263                  (else
    264                    (case (%box-closure-tag box)
    265                      ((boxvar! boxloc!) (%box-closure-ref box))
    266                      ((boxvar boxloc)   (error-box-mutable 'box-swap! box))
    267                      (else
    268                        (error-box 'box-swap! box) ) ) ) ) )
    269          (nval (apply func oval args)) )
     276  (let* (
     277      (btag
     278        (%box-structure-tag box))
     279      (oval
     280        (case btag
     281          ((box!)
     282            (%box-structure-ref box))
     283          ((box)
     284            (error-box-mutable 'box-swap! box))
     285          (else
     286            (case (%box-closure-tag box)
     287              ((boxvar! boxloc!)
     288                (%box-closure-ref box))
     289              ((boxvar boxloc)
     290                (error-box-mutable 'box-swap! box))
     291              (else
     292                (error-box 'box-swap! box) ) ) ) ) )
     293      (nval
     294        (apply func oval args)) )
    270295    (case btag
    271       ((box!) (%box-structure-set! box nval))
    272       (else   (%box-closure-set! box nval) ) )
     296      ((box!)
     297        (%box-structure-set! box nval))
     298      (else
     299        (%box-closure-set! box nval) ) )
    273300    nval ) )
    274301
     
    279306(define (box-location box #!optional (weak? #f))
    280307  (cond
    281     ((%box-structure? box)  ((if weak? make-weak-locative make-locative) box 1))
    282     ((%box-closure? box)    (box (lambda (ref set loc) (loc))))
     308    ((%box-structure? box)
     309      ((if weak? make-weak-locative make-locative) box 1))
     310    ((%box-closure? box)
     311      (box (lambda (ref set loc) (loc))))
    283312    (else
    284313      (error-box 'box-location box))))
     
    288317(define-syntax box
    289318  (syntax-rules ()
    290     ((_ ?arg0 ...) (make-box ?arg0 ...))))
     319    ((_ ?arg0 ...)
     320      (make-box ?arg0 ...))))
    291321
    292322(define-syntax unbox
    293323  (syntax-rules ()
    294     ((_ ?box) (box-ref ?box))))
     324    ((_ ?box)
     325      (box-ref ?box))))
    295326
    296327(define-syntax set-box!
    297328  (syntax-rules ()
    298     ((_ ?box ?val) (box-set! ?box ?val))))
     329    ((_ ?box ?val)
     330      (box-set! ?box ?val))))
    299331
    300332
     
    314346  (let ((##sys#procedure->string ##sys#procedure->string))
    315347    (lambda (x)
    316                         (if (%box? x) (with-output-to-string (lambda () (%box-print x)))
    317                                         (##sys#procedure->string x)))))
     348                        (if (%box? x)
     349                          (with-output-to-string (lambda () (%box-print x)))
     350        (##sys#procedure->string x)))))
    318351
    319352) ;module box
  • release/4/box/trunk/box.setup

    r27985 r34151  
    55(verify-extension-name 'box)
    66
    7 (setup-shared-extension-module (extension-name) (extension-version "2.3.2")
     7(setup-shared-extension-module (extension-name) (extension-version "2.3.3")
    88  #:types? #t
    99  #:inline? #t
    1010  #:compile-options '(
    1111    -disable-interrupts
    12     -fixnum-arithmetic
    13     -optimize-level 3 -debug-level 1
     12    -optimize-level 3 -debug-level 2
    1413    -no-procedure-checks))
  • release/4/box/trunk/tests/run.scm

    r24565 r34151  
    11(require-extension test)
     2
    23(require-extension box)
    34
Note: See TracChangeset for help on using the changeset viewer.