summaryrefslogtreecommitdiff
path: root/libguile/vm-i-scheme.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-05-01 00:49:06 +0200
committerAndy Wingo <wingo@pobox.com>2010-05-01 00:49:06 +0200
commitc99865c123ce21eb7eac0deb4149c5335b7e1614 (patch)
tree24c170aa29d333750599b0ddb751399cf5dd8b2e /libguile/vm-i-scheme.c
parent9a974fd38438eee10a2e5389c14129193c833860 (diff)
downloadguile-c99865c123ce21eb7eac0deb4149c5335b7e1614.tar.gz
simplify make-struct
* libguile/vm-i-scheme.c: Use DROPN idiom.
Diffstat (limited to 'libguile/vm-i-scheme.c')
-rw-r--r--libguile/vm-i-scheme.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index f076d6b8c..d2bd43514 100644
--- a/libguile/vm-i-scheme.c
+++ b/libguile/vm-i-scheme.c
@@ -443,8 +443,7 @@ VM_DEFINE_INSTRUCTION (166, make_struct, "make-struct", 2, -1, 1)
else
ret = scm_c_make_structv (vtable, 0, n - 1, (scm_t_bits *) inits);
- sp -= n;
- NULLSTACK (n);
+ DROPN (n);
PUSH (ret);
NEXT;