diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 10 |
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 | ||
| 899 | DEFUN ("subr-type", Fsubr_type, | 901 | DEFUN ("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 | ||
| 923 | DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, | 925 | DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, |