From eb57300bddf81ba194aa477f374d2dbe47f886fd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 14 Aug 2017 17:38:05 +0000
Subject: [PATCH] WIP

---
 read.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/read.scm b/read.scm
index 1f9caa31..6f96f1a7 100644
--- a/read.scm
+++ b/read.scm
@@ -742,12 +742,14 @@
            ((eq? t #\))
             (reverse lis))
            (else
-            (loop (cons t lis) (parse2 fp)))))
-      )
-      ;; Close parent, stop current read loop
-      ;; Quote
-      ;; , - could be unquote or unquote-splicing
-      ;; # - get next char(s)
+            (loop (cons t lis) (parse2 fp))))))
+      ((eq? token #\')
+       (list 'quote (parse2 fp)))
+      ((eq? token #\`)
+       (list 'quasiquote (parse2 fp)))
+      ;; TODO: , - tricky, could be unquote or unquote-splicing
+      ;;((eq? t #\`)
+      ;; (list 'quasiquote (parse2 fp)))
       ;; Other special cases?
       (else
         token))))