summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index c83dde14..4213f0d4 100644
--- a/lib.c
+++ b/lib.c
@@ -5072,7 +5072,9 @@ val obj_print(val obj, val out)
} else if (sym == splice_s) {
put_string(lit(",*"), out);
obj_print(second(obj), out);
- } else if (sym == var_s && symbolp(second(obj)) && !cdr(cdr(obj))) {
+ } else if (sym == var_s && (symbolp(second(obj)) || integerp(second(obj)))
+ && !cdr(cdr(obj)))
+ {
put_char(chr('@'), out);
obj_print(second(obj), out);
} else if (sym == expr_s) {
@@ -5237,7 +5239,9 @@ val obj_pprint(val obj, val out)
} else if (sym == splice_s) {
put_string(lit(",*"), out);
obj_pprint(second(obj), out);
- } else if (sym == var_s && symbolp(second(obj)) && !cdr(cdr(obj))) {
+ } else if (sym == var_s && (symbolp(second(obj)) || integerp(second(obj)))
+ && !cdr(cdr(obj)))
+ {
put_char(chr('@'), out);
obj_print(second(obj), out);
} else if (sym == expr_s) {