scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added fluid-cell-ref and fluid-cell-set!.

This commit is contained in:
mainzelm 2002-04-04 08:22:20 +00:00
parent 06b68b7c5e
commit ffa5461a39
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/interfaces.scm
View File

@ -394,6 +394,10 @@
let-fluid let-fluid
let-fluids let-fluids
fluid fluid
fluid-cell-ref
fluid-cell-set!
set-fluid!)) set-fluid!))
(define-interface fluids-internal-interface (define-interface fluids-internal-interface

8
scheme/rts/thread-env.scm
View File

@ -88,6 +88,14 @@
(loop (cddr args) (loop (cddr args)
(cons (cons (car args) (cadr args)) env))))) (cons (cons (car args) (cadr args)) env)))))
; Handy utilities.
(define (fluid-cell-ref f)
(cell-ref (fluid f)))
(define (fluid-cell-set! f value)
(cell-set! (fluid f) value))
; Thread cells ; Thread cells
(define-record-type thread-cell :thread-cell (define-record-type thread-cell :thread-cell