summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-04-24 18:14:54 +0200
committerAndy Wingo <wingo@pobox.com>2019-04-26 11:15:49 +0200
commit4e5329676bd24c4747cb1d0ca53b1dc3ec9d5641 (patch)
treec7a015f68ff5c1bc3c74ee88110e33af9d5d31c4 /libguile/vm.c
parent52248cf62236c2c3de78400dd725c84288dda3bb (diff)
downloadguile-4e5329676bd24c4747cb1d0ca53b1dc3ec9d5641.tar.gz
Fix backtraces with call-with-values during bootstrap
* libguile/programs.c (scm_i_program_name): Use scm_i_primitive_name for primitives. No functional change though. * libguile/vm.c (DEFINE_BUILTIN): Mark builtins as primitives.
Diffstat (limited to 'libguile/vm.c')
-rw-r--r--libguile/vm.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index d6b76f9fe..e9e6ad0c4 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -1,4 +1,4 @@
-/* Copyright 2001,2009-2015,2017-2018
+/* Copyright 2001,2009-2015,2017-2019
Free Software Foundation, Inc.
This file is part of Guile.
@@ -484,7 +484,9 @@ define_vm_builtins (void)
{ \
size_t sz = sizeof (builtin##_code); \
vm_builtin_##builtin##_code = instrumented_code (builtin##_code, sz); \
- vm_builtin_##builtin = scm_i_make_program (vm_builtin_##builtin##_code); \
+ vm_builtin_##builtin = \
+ scm_cell (scm_tc7_program | SCM_F_PROGRAM_IS_PRIMITIVE, \
+ (scm_t_bits)vm_builtin_##builtin##_code); \
}
FOR_EACH_VM_BUILTIN (DEFINE_BUILTIN);
#undef INDEX_TO_NAME