aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c10
1 files changed, 6 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c
index 0d3376f0903..b2c395831ae 100644
--- a/src/data.c
+++ b/src/data.c
@@ -891,9 +891,11 @@ function or t otherwise. */)
891{ 891{
892 CHECK_SUBR (subr); 892 CHECK_SUBR (subr);
893 893
894 return SUBR_NATIVE_COMPILED_DYNP (subr) 894#ifdef HAVE_NATIVE_COMP
895 ? XSUBR (subr)->lambda_list[0] 895 if (SUBR_NATIVE_COMPILED_DYNP (subr))
896 : Qt; 896 return XSUBR (subr)->lambda_list;
897#endif
898 return Qt;
897} 899}
898 900
899DEFUN ("subr-type", Fsubr_type, 901DEFUN ("subr-type", Fsubr_type,
@@ -917,7 +919,7 @@ DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
917 (Lisp_Object subr) 919 (Lisp_Object subr)
918{ 920{
919 CHECK_SUBR (subr); 921 CHECK_SUBR (subr);
920 return XSUBR (subr)->native_comp_u[0]; 922 return XSUBR (subr)->native_comp_u;
921} 923}
922 924
923DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, 925DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,