Changeset 13835 in project
- Timestamp:
- 03/19/09 00:36:35 (11 years ago)
- Location:
- release/4/box
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/box/tags/2.1.0/box.scm
r13833 r13835 121 121 122 122 (module box (;export 123 make-box (make-box-variable finvar) (make-box-locationfinloc)123 make-box (make-box-variable $finvar) (make-box-location $finloc) 124 124 box? box-variable? box-location? 125 125 box-mutable? box-immutable? … … 166 166 ;; Finishers 167 167 168 (define ( finvar tag ref set)168 (define ($finvar tag ref set) 169 169 (extend-procedure (lambda (proc) (proc ref set (lambda () (location (ref))))) tag)) 170 170 171 (define ( finloc tag ref set loc)171 (define ($finloc tag ref set loc) 172 172 (extend-procedure (lambda (proc) (proc ref set loc)) tag)) 173 173 … … 194 194 ((_ ?var ?immutable?) 195 195 #;(identifier? ?var) 196 ( finvar196 ($finvar 197 197 (if ?immutable? 'boxvar 'boxvar!) 198 198 (lambda () ?var) … … 206 206 #;(identifier? ?typ) 207 207 (let-location ((var ?typ ?val)) 208 ( finloc208 ($finloc 209 209 (if ?immutable? 'boxloc 'boxloc!) 210 210 (lambda () var) -
release/4/box/trunk/box.scm
r13832 r13835 121 121 122 122 (module box (;export 123 make-box (make-box-variable finvar) (make-box-locationfinloc)123 make-box (make-box-variable $finvar) (make-box-location $finloc) 124 124 box? box-variable? box-location? 125 125 box-mutable? box-immutable? … … 166 166 ;; Finishers 167 167 168 (define ( finvar tag ref set)168 (define ($finvar tag ref set) 169 169 (extend-procedure (lambda (proc) (proc ref set (lambda () (location (ref))))) tag)) 170 170 171 (define ( finloc tag ref set loc)171 (define ($finloc tag ref set loc) 172 172 (extend-procedure (lambda (proc) (proc ref set loc)) tag)) 173 173 … … 194 194 ((_ ?var ?immutable?) 195 195 #;(identifier? ?var) 196 ( finvar196 ($finvar 197 197 (if ?immutable? 'boxvar 'boxvar!) 198 198 (lambda () ?var) … … 206 206 #;(identifier? ?typ) 207 207 (let-location ((var ?typ ?val)) 208 ( finloc208 ($finloc 209 209 (if ?immutable? 'boxloc 'boxloc!) 210 210 (lambda () var)
Note: See TracChangeset
for help on using the changeset viewer.