diff options
| author | Andy Wingo <wingo@pobox.com> | 2008-09-24 11:47:25 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2008-09-24 11:47:25 +0200 |
| commit | 7bbed5181c562f771276e93480358d6512260dbf (patch) | |
| tree | a05e1bee6c993f58740efe910a1f7ac3639d2486 /libguile/vm.h | |
| parent | 02b84691b274155f4528f99e90fbe39c77ed546d (diff) | |
| download | guile-7bbed5181c562f771276e93480358d6512260dbf.tar.gz | |
the vm is a fluid
* module/system/vm/vm.scm:
* libguile/vm.h:
* libguile/vm.c: Make the `the-vm' procedure access a fluid, `*the-vm*'.
Export that fluid from vm.h and vm.scm.
Diffstat (limited to 'libguile/vm.h')
| -rw-r--r-- | libguile/vm.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/vm.h b/libguile/vm.h index b3afbfdf6..398013575 100644 --- a/libguile/vm.h +++ b/libguile/vm.h @@ -71,6 +71,8 @@ struct scm_vm { unsigned long clock; /* bogos clock */ }; +extern SCM scm_the_vm_fluid; + #define SCM_VM_P(x) SCM_SMOB_PREDICATE (scm_tc16_vm, x) #define SCM_VM_DATA(vm) ((struct scm_vm *) SCM_SMOB_DATA (vm)) #define SCM_VALIDATE_VM(pos,x) SCM_MAKE_VALIDATE (pos, x, VM_P) |