Changeset 39165 in project for release/5/box/trunk/srfi-111.scm
- Timestamp:
- 11/08/20 16:30:07 (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/box/trunk/srfi-111.scm
r38573 r39165 11 11 immutable-box) 12 12 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!)) 19 17 20 18 ;; 21 19 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!) 26 24 27 25 ;;
Note: See TracChangeset
for help on using the changeset viewer.