diff options
| author | Andy Wingo <wingo@pobox.com> | 2008-08-08 00:26:17 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2008-08-08 00:26:17 +0200 |
| commit | 81aae20202b46e58b315dbea6b12f277b222f035 (patch) | |
| tree | 5db3960fbb4841fffd70db33b193343b18476142 /src | |
| parent | 17d1b4bffd32ab3f4eae5d0dbef63fca96174e6d (diff) | |
| download | guile-81aae20202b46e58b315dbea6b12f277b222f035.tar.gz | |
fix bug in variable-set instruction; ,x prints out program metadata
* module/system/vm/disasm.scm (disassemble-program, disassemble-meta):
Disassemble program meta information too, if it's there.
* src/vm_system.c (variable-set): Don't try to proxy name information;
maybe we can do this later, but the code as it was was calling SCM_CAR
on a variable, which is for the lose.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vm_system.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/vm_system.c b/src/vm_system.c index e97bf9556..0e734d821 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -310,7 +310,6 @@ VM_DEFINE_INSTRUCTION (external_set, "external-set", 1, 1, 0) VM_DEFINE_INSTRUCTION (variable_set, "variable-set", 0, 1, 0) { VARIABLE_SET (sp[0], sp[-1]); - scm_set_object_property_x (sp[-1], scm_sym_name, SCM_CAR (sp[0])); sp -= 2; NEXT; } |