rash

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))
+;(require "foo2.rkt")
-(time (send (new pdf-renderer%) render-to-file ts "foo2-test.pdf"))
+;(define ts (typeset out))
+;(time (send (new pdf-renderer%) render-to-file ts "foo2-test.pdf"))

quad/quad/lang/quad.rkt

@@ -10,4 +10,5 @@
      (replace-context #'(expr ...)
                       #'(#%module-begin
                          (define out (block #f expr ...))
+                         (println out)
                          (provide out)))]))

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)