Changeset 13835 in project


Ignore:
Timestamp:
03/19/09 00:36:35 (11 years ago)
Author:
Kon Lovett
Message:

Bug fix for fin proc names.

Location:
release/4/box
Files:
2 edited

Legend:

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

    r13833 r13835  
    121121
    122122(module box (;export
    123   make-box (make-box-variable finvar) (make-box-location finloc)
     123  make-box (make-box-variable $finvar) (make-box-location $finloc)
    124124  box? box-variable? box-location?
    125125  box-mutable? box-immutable?
     
    166166;; Finishers
    167167
    168 (define (finvar tag ref set)
     168(define ($finvar tag ref set)
    169169  (extend-procedure (lambda (proc) (proc ref set (lambda () (location (ref))))) tag))
    170170
    171 (define (finloc tag ref set loc)
     171(define ($finloc tag ref set loc)
    172172  (extend-procedure (lambda (proc) (proc ref set loc)) tag))
    173173
     
    194194    ((_ ?var ?immutable?)
    195195     #;(identifier? ?var)
    196      (finvar
     196     ($finvar
    197197      (if ?immutable? 'boxvar 'boxvar!)
    198198      (lambda () ?var)
     
    206206     #;(identifier? ?typ)
    207207     (let-location ((var ?typ ?val))
    208        (finloc
     208       ($finloc
    209209        (if ?immutable? 'boxloc 'boxloc!)
    210210        (lambda () var)
  • release/4/box/trunk/box.scm

    r13832 r13835  
    121121
    122122(module box (;export
    123   make-box (make-box-variable finvar) (make-box-location finloc)
     123  make-box (make-box-variable $finvar) (make-box-location $finloc)
    124124  box? box-variable? box-location?
    125125  box-mutable? box-immutable?
     
    166166;; Finishers
    167167
    168 (define (finvar tag ref set)
     168(define ($finvar tag ref set)
    169169  (extend-procedure (lambda (proc) (proc ref set (lambda () (location (ref))))) tag))
    170170
    171 (define (finloc tag ref set loc)
     171(define ($finloc tag ref set loc)
    172172  (extend-procedure (lambda (proc) (proc ref set loc)) tag))
    173173
     
    194194    ((_ ?var ?immutable?)
    195195     #;(identifier? ?var)
    196      (finvar
     196     ($finvar
    197197      (if ?immutable? 'boxvar 'boxvar!)
    198198      (lambda () ?var)
     
    206206     #;(identifier? ?typ)
    207207     (let-location ((var ?typ ?val))
    208        (finloc
     208       ($finloc
    209209        (if ?immutable? 'boxloc 'boxloc!)
    210210        (lambda () var)
Note: See TracChangeset for help on using the changeset viewer.