From 3da3c18e529878c201a48005f83332819e286ce3 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 16 Feb 2016 18:00:19 -0800
Subject: [PATCH] rash

---
 quad/quad/foo.rkt         | 7 ++++---
 quad/quad/lang/quad.rkt   | 1 +
 quad/quad/lang/reader.rkt | 1 +
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/quad/quad/foo.rkt b/quad/quad/foo.rkt
index b5892888..5c685b15 100644
--- a/quad/quad/foo.rkt
+++ b/quad/quad/foo.rkt
@@ -9,6 +9,7 @@
 (quad? o:out)
 (define o:ts (typeset o:out))
 (time (send (new pdf-renderer%) render-to-file o:ts "foo-test.pdf"))
-(require "foo2.rkt")
-(define ts (typeset out))
-(time (send (new pdf-renderer%) render-to-file ts "foo2-test.pdf"))
+
+;(require "foo2.rkt")
+;(define ts (typeset out))
+;(time (send (new pdf-renderer%) render-to-file ts "foo2-test.pdf"))
diff --git a/quad/quad/lang/quad.rkt b/quad/quad/lang/quad.rkt
index be000912..bc47cb01 100644
--- a/quad/quad/lang/quad.rkt
+++ b/quad/quad/lang/quad.rkt
@@ -10,4 +10,5 @@
      (replace-context #'(expr ...)
                       #'(#%module-begin
                          (define out (block #f expr ...))
+                         (println out)
                          (provide out)))]))
\ No newline at end of file
diff --git a/quad/quad/lang/reader.rkt b/quad/quad/lang/reader.rkt
index 995a43d7..2fb9aaee 100644
--- a/quad/quad/lang/reader.rkt
+++ b/quad/quad/lang/reader.rkt
@@ -14,4 +14,5 @@ quad/lang/quad
                           #:syntax? #t 
                           #:inside? #t))
   (define source-stx (quad-at-reader path-string p))
+  (println (syntax->datum source-stx))
   source-stx)
\ No newline at end of file