mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* src/vm_system.c (name): New instruction.

Browse source 
(savet): Don't set name.
This commit is contained in:
Keisuke Nishida 2000-09-20 21:06:51 +00:00
parent e6db4668ea
commit 4fdec843ed
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/vm_system.c
View file

@ -83,6 +83,14 @@ SCM_DEFINE_INSTRUCTION (halt, "%halt", INST_NONE)
return ac; 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 * %push family
@ -342,7 +350,6 @@ SCM_DEFINE_INSTRUCTION (savee_2, "%savee:2", INST_INUM)
SCM_DEFINE_INSTRUCTION (savet, "%savet", INST_TOP) SCM_DEFINE_INSTRUCTION (savet, "%savet", INST_TOP)
{ {
SCM cell = FETCH (); SCM cell = FETCH ();
scm_set_object_property_x (ac, scm_sym_name, SCM_CAR (cell));
VM_VARIABLE_SET (cell, ac); VM_VARIABLE_SET (cell, ac);
NEXT; NEXT;
} }