Perl: add step7_quote

1 files changed, 15 insertions, 7 deletions

diff --git a/perl/reader.pm b/perl/reader.pm
index 6fac066..e173910 100644
--- a/perl/reader.pm
+++ b/perl/reader.pm
@@ -78,13 +78,21 @@ sub read_form {
     my($rdr) = @_;
     my $token = $rdr->peek();
     given ($token) {
-        when(')') { die "unexpected ')'"; }
-        when('(') { return read_list($rdr, 'List'); }
-        when(']') { die "unexpected ']'"; }
-        when('[') { return read_list($rdr, 'Vector', '[', ']'); }
-        when('}') { die "unexpected '}'"; }
-        when('{') { return read_list($rdr, 'HashMap', '{', '}'); }
-        default  { return read_atom($rdr); }
+        when("'") { $rdr->next(); List->new([Symbol->new('quote'),
+                                             read_form($rdr)]) }
+        when('`') { $rdr->next(); List->new([Symbol->new('quasiquote'),
+                                             read_form($rdr)]) }
+        when('~') { $rdr->next(); List->new([Symbol->new('unquote'),
+                                             read_form($rdr)]) }
+        when('~@') { $rdr->next(); List->new([Symbol->new('splice-unquote'),
+                                              read_form($rdr)]) }
+        when(')') { die "unexpected ')'" }
+        when('(') { return read_list($rdr, 'List') }
+        when(']') { die "unexpected ']'" }
+        when('[') { return read_list($rdr, 'Vector', '[', ']') }
+        when('}') { die "unexpected '}'" }
+        when('{') { return read_list($rdr, 'HashMap', '{', '}') }
+        default  { return read_atom($rdr) }
     }
 }