diff options
Diffstat (limited to 'lib.c')
-rw-r--r-- | lib.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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) { |