In stepper annotation, don't wrap test return value in list.

Fixes #214 - as per discussion there.
racket · Jan 6, 2024 · eff7ae0 · eff7ae0 · jbclements · Jan 6, 2024
1 parent 9be44de
commit eff7ae0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/htdp-lib/stepper/private/annotate.rkt b/htdp-lib/stepper/private/annotate.rkt
@@ -666,7 +666,7 @@
                                           #,(lambda () exp)
                                           #f
                                           (#%plain-lambda () results))))
-                                          (#%plain-app values results)))
+                                          (#%plain-app apply values results)))
                        annotated)
                    free-vars)]
           [error 'maybe-final-val-wrap "stepper internal error 20080527"]))

diff --git a/htdp-lib/test-engine/syntax.rkt b/htdp-lib/test-engine/syntax.rkt
@@ -69,7 +69,7 @@
                   #,@embedded-stxes
                   #,src-info)))))))
 
-; this wrapper is necessary because add-test! has a contract which confuses the stepper
+; without this wrapper the stepper annotations break
 (define (add-check-expect-test! thunk)
   (add-test! thunk))