summaryrefslogtreecommitdiff
path: root/libguile/programs.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/programs.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/programs.c')
-rw-r--r--libguile/programs.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index a5f540ac8..675035727 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -1,4 +1,4 @@
-/* Copyright 2001,2009-2014,2017-2018
+/* Copyright 2001,2009-2014,2017-2019
Free Software Foundation, Inc.
This file is part of Guile.
@@ -60,7 +60,7 @@ scm_i_program_name (SCM program)
static SCM program_name = SCM_BOOL_F;
if (SCM_PRIMITIVE_P (program))
- return SCM_SUBR_NAME (program);
+ return scm_i_primitive_name (SCM_PROGRAM_CODE (program));
if (scm_is_false (program_name) && scm_module_system_booted_p)
program_name =