Follow the changes to the stepper.

See racket/htdp#246.

Author: mikesperber

deinprogramm-lib/deinprogramm/sdp/private/stepper-button.rkt

@@ -42,13 +42,27 @@
     (define (stepper:show-consumed-and/or-clauses?) #t)
 
     (public stepper:render-to-sexp)
-    (define (stepper:render-to-sexp val settings language-level)
+    (define (stepper:render-to-sexp val language-level)
       (when (boolean? val)
         (log-stepper-debug "render-to-sexp got a boolean: ~v\n" val))
       (or (and (procedure? val)
                (object-name val))
           (print-convert val)))
 
+    (public stepper:pretty-print-hooks)
+    (define (stepper:pretty-print-hooks settings previous-size-hook previous-print-hook)
+      ;; avoid mutating the parameters in the current thread
+      ;; (the stepper will typically run in the same thread on subsequent invocations)
+      (thread-wait
+        (thread
+         (lambda ()
+           (parameterize ((pretty-print-size-hook previous-size-hook)
+                          (pretty-print-print-hook previous-print-hook))
+             (configure/settings settings)
+             (values (pretty-print-size-hook)
+                     (pretty-print-print-hook))))
+         #:keep 'results)))
+
     (public render-value)
     (define (render-value val settings port)
       (parameterize ([print-value-columns +inf.0])

deinprogramm-tool/deinprogramm/sdp/private/sdp-langs.rkt

@@ -736,6 +736,25 @@
               (init-field stepper:supported)
               (define/override (stepper:supported?) stepper:supported)
               (define/override (stepper:print-boolean-long-form?) #f)
+              (define/override (stepper:pretty-print-hooks settings previous-size-hook previous-print-hook)
+                ;; avoid mutating the parameters in the current thread
+                ;; (the stepper will typically run in the same thread on subsequent invocations)
+                (thread-wait
+                  (thread
+                   (lambda ()
+                     (parameterize ((pretty-print-size-hook previous-size-hook)
+                                    (pretty-print-print-hook previous-print-hook))
+                       (configure/settings
+                        (sdp-runtime-settings (drscheme:language:simple-settings-printing-style settings)
+                                              (deinprogramm-lang-settings-writing-style settings)
+                                              (drscheme:language:simple-settings-fraction-style settings)
+                                              (drscheme:language:simple-settings-show-sharing settings)
+                                              (drscheme:language:simple-settings-insert-newlines settings)
+                                              (deinprogramm-lang-settings-tracing? settings)))
+                       (values (pretty-print-size-hook)
+                               (pretty-print-print-hook))))
+                   #:keep 'results)))
+
               (super-new))
             (class* % ()
               (init stepper:supported)