From e728ab29250698f59019df070fb41e67704879dc Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Thu, 1 Sep 2005 23:12:20 +0000
Subject: [PATCH] added annotation for advanced setbang

svn: r743
---
 collects/lang/private/teach.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.ss
index 0d8a4dfaa6..9b6e1b9e0e 100644
--- a/collects/lang/private/teach.ss
+++ b/collects/lang/private/teach.ss
@@ -1763,7 +1763,10 @@
 					       null)
 		      (if continuing?
 			  (syntax/loc stx (set! id expr ...))
-			  (syntax/loc stx (#%app values (advanced-set!-continue id expr ...)))))]
+			  (syntax-property
+                           (syntax/loc stx (#%app values (advanced-set!-continue id expr ...)))
+                           'stepper-skipto
+                           (list syntax-e cdr syntax-e cdr car))))]
 		   [(_ id . __)
 		    (teach-syntax-error
 		     'set!