diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-10 20:53:02 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-10 20:53:02 -0800 |
commit | 5405583c3e39f0aa1a5f1ea93f106f5dd598b757 (patch) | |
tree | 4637e390e6f340e157cd0df763f5868b8d27b45f | |
parent | 12fc8a196dd7cfa4ef9413d7fde7545c78d1a017 (diff) | |
download | txr-5405583c3e39f0aa1a5f1ea93f106f5dd598b757.tar.gz txr-5405583c3e39f0aa1a5f1ea93f106f5dd598b757.tar.bz2 txr-5405583c3e39f0aa1a5f1ea93f106f5dd598b757.zip |
Fix circular printing issue for package objects.
* lib.c (obj_print_impl): Print package name using ~a
rather than ~s. Otherwise if the string object occurs
elsewhere in the structure being printed, we have a problem.
-rw-r--r-- | lib.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -9651,7 +9651,7 @@ dot: put_string(symbol_name(obj), out); break; case PKG: - format(out, lit("#<package: ~s>"), obj->pk.name, nao); + format(out, lit("#<package: ~a>"), obj->pk.name, nao); break; case FUN: { |