Skip to content

Commit

Permalink
Fix two syntax-property calls.
Browse files Browse the repository at this point in the history
These both purport so set stepper syntax properties, but they both
need to be stepper-syntax-property.  Changing the first one breaks the
tests, so remove it.  (The tests pass without it.)
  • Loading branch information
mikesperber committed Jul 9, 2023
1 parent 8890a4e commit a15c2af
Showing 1 changed file with 3 additions and 6 deletions.
9 changes: 3 additions & 6 deletions htdp-lib/lang/private/teach-module-begin.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -24,12 +24,9 @@
(syntax-case stx ()
((_ expr)
(not (syntax-property #'expr 'test-call))
(syntax-property
(syntax-property
#'(#%app call-with-values (lambda () expr)
do-print-results)
'stepper-skipto
'(syntax-e cdr cdr car syntax-e cdr cdr car))
'certify-mode
'transparent))
((_ expr) #'expr)))
Expand Down Expand Up @@ -142,9 +139,9 @@
(define (signature-id-dummy-uses ids)
#`(begin
#,@(map (lambda (id)
(syntax-property #`(begin #,id (void))
'stepper-skip-completely
#t))
(stepper-syntax-property #`(begin #,id (void))
'stepper-skip-completely
#t))
ids)))

(define (mk-module-begin options)
Expand Down

0 comments on commit a15c2af

Please sign in to comment.