All: add keywords.

[jackhill/mal.git] / perl / printer.pm

diff --git a/perl/printer.pm b/perl/printer.pm
index 9ce6707..7b00b1e 100644 (file)
--- a/perl/printer.pm
+++ b/perl/printer.pm
@@ -30,7 +30,9 @@ sub _pr_str {
             return '{' . join(' ', @elems) . '}';
         }
         when(/^String/) {
-            if ($_r) {
+            if ($$obj =~ /^\x{029e}/) {
+                return ':' . substr($$obj,1);
+            } elsif ($_r) {
                 my $str = $$obj;
                 $str =~ s/\\/\\\\/g;
                 $str =~ s/"/\\"/g;