summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-04-25 06:20:43 -0700
committerKaz Kylheku <kaz@kylheku.com>2015-04-25 06:20:43 -0700
commit55e6dc2691bfaa898e3d999e809aebc461a816bc (patch)
tree091d823e0f8a18d3074160ccc9893e2eb34aab3f /lib.c
parentde64b753946034895bca74bc198b6090cb2d5bcc (diff)
downloadtxr-55e6dc2691bfaa898e3d999e809aebc461a816bc.tar.gz
txr-55e6dc2691bfaa898e3d999e809aebc461a816bc.tar.bz2
txr-55e6dc2691bfaa898e3d999e809aebc461a816bc.zip
* lib.c (symbol_package): If the argument is nil, return
the user package directly, not the value of the *user-package* variable.
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 03316881..c4c3edae 100644
--- a/lib.c
+++ b/lib.c
@@ -3511,7 +3511,7 @@ static void symbol_setname(val sym, val name)
val symbol_package(val sym)
{
if (sym == nil)
- return user_package;
+ return user_package_var;
type_check(sym, SYM);
return sym->s.package;
}