summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2000-09-20 21:06:51 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2000-09-20 21:06:51 +0000
commit4fdec843ed17fbee25660afd963b1b137d72a027 (patch)
treefc4ff0608838f86d0594f392be48076d97b5a34b /src/vm_system.c
parente6db4668ea81bf7b37076450bb6f91eb5b3a699e (diff)
downloadguile-4fdec843ed17fbee25660afd963b1b137d72a027.tar.gz
* src/vm_system.c (name): New instruction.
(savet): Don't set name.
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c9
1 files changed, 8 insertions, 1 deletions
diff --git a/src/vm_system.c b/src/vm_system.c
index 7d8d18282..3b1e04bbd 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -83,6 +83,14 @@ SCM_DEFINE_INSTRUCTION (halt, "%halt", INST_NONE)
return ac;
}
+SCM_DEFINE_INSTRUCTION (name, "%name", INST_SCM)
+{
+ SCM name = FETCH ();
+ if (SCM_NIMP (name))
+ scm_set_name_x (ac, name);
+ NEXT;
+}
+
/*
* %push family
@@ -342,7 +350,6 @@ SCM_DEFINE_INSTRUCTION (savee_2, "%savee:2", INST_INUM)
SCM_DEFINE_INSTRUCTION (savet, "%savet", INST_TOP)
{
SCM cell = FETCH ();
- scm_set_object_property_x (ac, scm_sym_name, SCM_CAR (cell));
VM_VARIABLE_SET (cell, ac);
NEXT;
}