diff options
author | Andy Wingo <wingo@pobox.com> | 2016-11-27 21:54:14 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-11-27 21:55:42 +0100 |
commit | 8bd5dae8c372ffd5bd1866720acbddc2aa77cb65 (patch) | |
tree | 0fe86b5921ecdaa9514d7266e7078b357636ed82 /libguile/vm-engine.c | |
parent | 7b6b86f25564dc67a3a2538d0ee47f25e00e6833 (diff) | |
download | guile-8bd5dae8c372ffd5bd1866720acbddc2aa77cb65.tar.gz |
Compile fluid-set! to VM opcode
* libguile/vm-engine.c (fluid-set!): Fix name of opcode to correspond
with name of Tree-IL primitive. Fixes compilation of fluid-set! to
actually use the fluid-set! opcode.
* doc/ref/vm.texi (Dynamic Environment Instructions): Update.
* module/language/cps/compile-bytecode.scm (compile-function): Add
fluid-set! case.
* module/system/vm/assembler.scm: Update export name for
emit-fluid-set!.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index cfb60f242..03cca8d44 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2196,7 +2196,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, * * Set the value of the fluid in DST to the value in SRC. */ - VM_DEFINE_OP (75, fluid_set, "fluid-set", OP1 (X8_S12_S12)) + VM_DEFINE_OP (75, fluid_set, "fluid-set!", OP1 (X8_S12_S12)) { scm_t_uint16 a, b; size_t num; |