mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fluid-ref / fluid-set! compile to dynref/dynset

Browse source 
* module/language/tree-il/primitives.scm: Resolve fluid-ref and
  fluid-set! as primitives, and thence to dynref/dynset.
This commit is contained in:
Andy Wingo 2010-02-19 11:50:51 +01:00
parent 706a705eca
commit f5b1f76af4
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/language/tree-il/primitives.scm
View file

@ -61,6 +61,8 @@
variable-bound?
;; args of variable-set are switched; it needs special help
fluid-ref fluid-set!
struct? struct-vtable make-struct struct-ref struct-set!
bytevector-u8-ref bytevector-u8-set!
@ -420,6 +422,18 @@
expr
(make-lexical-ref #f 'post POST)))))))
(hashq-set! *primitive-expand-table*
'fluid-ref
(case-lambda
((src fluid) (make-dynref src fluid))
(else #f)))
(hashq-set! *primitive-expand-table*
'fluid-set!
(case-lambda
((src fluid exp) (make-dynset src fluid exp))
(else #f)))
(hashq-set! *primitive-expand-table*
'prompt
(case-lambda