summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-11-27 21:54:14 +0100
committerAndy Wingo <wingo@pobox.com>2016-11-27 21:55:42 +0100
commit8bd5dae8c372ffd5bd1866720acbddc2aa77cb65 (patch)
tree0fe86b5921ecdaa9514d7266e7078b357636ed82 /libguile/vm-engine.c
parent7b6b86f25564dc67a3a2538d0ee47f25e00e6833 (diff)
downloadguile-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.c2
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;