mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

simplify make-struct

Browse source 
* libguile/vm-i-scheme.c: Use DROPN idiom.
This commit is contained in:
Andy Wingo 2010-05-01 00:49:06 +02:00
parent 9a974fd384
commit c99865c123
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/vm-i-scheme.c
View file

@ -443,8 +443,7 @@ VM_DEFINE_INSTRUCTION (166, make_struct, "make-struct", 2, -1, 1)
else else
ret = scm_c_make_structv (vtable, 0, n - 1, (scm_t_bits *) inits); ret = scm_c_make_structv (vtable, 0, n - 1, (scm_t_bits *) inits);
sp -= n; DROPN (n);
NULLSTACK (n);
PUSH (ret); PUSH (ret);
NEXT; NEXT;