* lib.c (obj_init): changing the quote, qquote, unquote

and splice symbols to be in the regular user package,
rather than the system package.

2 files changed, 10 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index 02f27206..1664beed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2014-02-22  Kaz Kylheku  <kaz@kylheku.com>
 
+	* lib.c (obj_init): changing the quote, qquote, unquote
+	and splice symbols to be in the regular user package,
+	rather than the system package.
+
+2014-02-22  Kaz Kylheku  <kaz@kylheku.com>
+
 	* parser.y: Allow the (. expr) syntax to denote expr.
 
 	* eval.h: Declare existing lambda_s extern variable.
diff --git a/lib.c b/lib.c
index 0c257102..21362724 100644
--- a/lib.c
+++ b/lib.c
@@ -5093,10 +5093,10 @@ static void obj_init(void)
   regex_s = intern(lit("regex"), system_package);
   nongreedy_s = intern(lit("ng0+"), user_package);
   compiled_regex_s = intern(lit("compiled-regex"), system_package);
-  quote_s = intern(lit("quote"), system_package);
-  qquote_s = intern(lit("qquote"), system_package);
-  unquote_s = intern(lit("unquote"), system_package);
-  splice_s = intern(lit("splice"), system_package);
+  quote_s = intern(lit("quote"), user_package);
+  qquote_s = intern(lit("qquote"), user_package);
+  unquote_s = intern(lit("unquote"), user_package);
+  splice_s = intern(lit("splice"), user_package);
   chset_s = intern(lit("chset"), system_package);
   set_s = intern(lit("set"), user_package);
   cset_s = intern(lit("cset"), user_package);