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

the vm is a fluid

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2008-09-24 11:47:25 +02:00
parent 02b84691b2
commit 7bbed5181c
3 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/vm.scm
View file

@ -22,7 +22,7 @@
(define-module (system vm vm)
#:use-module (system vm frame)
#:use-module (system vm objcode)
#:export (vm? the-vm make-vm vm-version
#:export (vm? the-vm *the-vm* make-vm vm-version
vm:ip vm:sp vm:fp vm:last-ip
vm-load vm-return-value