From 4e47c669ca6cfce3be266f5f61214b15b7b5791c Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 24 Jul 2012 06:42:00 -0400 Subject: [PATCH] repair hack for beginner-proc names --- collects/stepper/private/reconstruct.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/stepper/private/reconstruct.rkt b/collects/stepper/private/reconstruct.rkt index 1d03b6ad58..bc927487a2 100644 --- a/collects/stepper/private/reconstruct.rkt +++ b/collects/stepper/private/reconstruct.rkt @@ -655,7 +655,7 @@ (if m (datum->syntax s (string->symbol (cadr m)) s s) s))) -(define re:beginner: (regexp "^beginner:(.*)$")) +(define re:beginner: (regexp "^beginner-(.*)$")) ;; eval-quoted : take a syntax that is an application of quote, and evaluate it (for display)