From 7de449312c4c8f3a7a7f1db8e8d977337fef16fe Mon Sep 17 00:00:00 2001 From: John Clements Date: Thu, 28 Sep 2006 00:59:28 +0000 Subject: [PATCH] there's an extra syntax-e in the stepper-skipto for (time ...) svn: r4450 --- collects/lang/private/teach.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.ss index 3641c1eb84..c2cb659899 100644 --- a/collects/lang/private/teach.ss +++ b/collects/lang/private/teach.ss @@ -1655,7 +1655,7 @@ (syntax-property (syntax/loc stx (time . exprs)) 'stepper-skipto - '(syntax-e cdr car syntax-e car syntax-e cdr car syntax-e cdr syntax-e cdr car syntax-e cdr cdr car))] + '(syntax-e cdr car syntax-e car syntax-e cdr car syntax-e cdr syntax-e cdr car syntax-e cdr cdr syntax-e car))] [_else (bad-use-error 'time stx)]))))