diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-09-20 21:06:51 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-09-20 21:06:51 +0000 |
commit | 4fdec843ed17fbee25660afd963b1b137d72a027 (patch) | |
tree | fc4ff0608838f86d0594f392be48076d97b5a34b /src/vm_system.c | |
parent | e6db4668ea81bf7b37076450bb6f91eb5b3a699e (diff) | |
download | guile-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.c | 9 |
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; } |