symbol_needs_prefix: take function name argument.

* lib.c (symbol_needs_prefix): New parameter.
(unquote_star_check, obj_print_impl): Pass Lisp function name
to symbol_needs_prefix.

* lib.h (symbol_needs_prefix): Declaration updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 3e991592..0868d31c 100644
--- a/lib.h
+++ b/lib.h
@@ -850,7 +850,7 @@ val unuse_sym(val symbol, val package);
 val use_package(val use_list, val package);
 val unuse_package(val unuse_list, val package);
 val symbol_visible(val package, val sym);
-val symbol_needs_prefix(val package, val sym);
+val symbol_needs_prefix(val self, val package, val sym);
 val find_symbol(val str, val package);
 val intern(val str, val package);
 val unintern(val sym, val package);