guile: Add as_a_scm_t_subr

[deliverable/binutils-gdb.git] / gdb / guile / scm-disasm.c

diff --git a/gdb/guile/scm-disasm.c b/gdb/guile/scm-disasm.c
index 782d915f23192a5bda839fb0f65231c05ec63032..fe37a38e6b554ac9c4a286b2367d65de9c6bfd53 100644 (file)
--- a/gdb/guile/scm-disasm.c
+++ b/gdb/guile/scm-disasm.c
@@ -318,7 +318,7 @@ gdbscm_arch_disassemble (SCM self, SCM start_scm, SCM rest)
 
 static const scheme_function disasm_functions[] =
 {
-  { "arch-disassemble", 2, 0, 1, gdbscm_arch_disassemble,
+  { "arch-disassemble", 2, 0, 1, as_a_scm_t_subr (gdbscm_arch_disassemble),
     "\
 Return list of disassembled instructions in memory.\n\
 \n\