Handle quote-syntax.

Fixes #178. Related to #168.
racket · Oct 11, 2022 · d2aa76a · d2aa76a
1 parent 9175540
commit d2aa76a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/htdp-lib/stepper/private/reconstruct.rkt b/htdp-lib/stepper/private/reconstruct.rkt
@@ -518,8 +518,9 @@
 
          ; quote
          [(quote body) (recon-value (eval-quoted expr) render-settings)]
+         [(quote-syntax v #:local) (recon-value (eval-quoted #'(quote v)) render-settings)]
+         [(quote-syntax v) (recon-value (eval-quoted #'(quote v)) render-settings)]
 
-         ; quote-syntax : like set!, the current stepper cannot handle quote-syntax
 
          ; with-continuation-mark
          [(with-continuation-mark . rest) (recon-basic)]