From e177a17e3e89715e7fdad582f5f9b466e0634e5d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 7 Nov 2018 06:34:08 -0800
Subject: 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.
---
 lib.c | 6 +++---
 lib.h | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib.c b/lib.c
index 506905af..1c824f6c 100644
--- a/lib.c
+++ b/lib.c
@@ -5447,7 +5447,7 @@ val symbol_visible(val package, val sym)
 /* symbol_needs_prefix assumes the perspective that package
  * is the current package!
  */
-val symbol_needs_prefix(val package, val sym)
+val symbol_needs_prefix(val self, val package, val sym)
 {
   val name = symbol_name(sym);
   type_check (package, PKG);
@@ -11017,7 +11017,7 @@ static int unquote_star_check(val obj, val pretty)
     return 0;
   if (car(obj->s.name) != chr('*'))
     return 0;
-  return pretty || !symbol_needs_prefix(cur_package, obj);
+  return pretty || !symbol_needs_prefix(lit("print"), cur_package, obj);
 }
 
 val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *ctx)
@@ -11284,7 +11284,7 @@ dot:
         put_string(lit("#:"), out);
       } else if (obj->s.package == keyword_package) {
         put_char(chr(':'), out);
-      } else if (symbol_needs_prefix(cur_package, obj)) {
+      } else if (symbol_needs_prefix(lit("print"), cur_package, obj)) {
         put_string(obj->s.package->pk.name, out);
         put_char(chr(':'), out);
       }
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);
-- 
cgit v1.2.3