From 3cb2775f7c123a4e354ae3e1e0a222184830a5c1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 Aug 2009 01:58:03 +0000
Subject: [PATCH] preserve original id use in expansion of
 first-order->higher-order

svn: r15699
---
 collects/lang/private/firstorder.ss | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/lang/private/firstorder.ss b/collects/lang/private/firstorder.ss
index 6181bb0929..e8eb8de666 100644
--- a/collects/lang/private/firstorder.ss
+++ b/collects/lang/private/firstorder.ss
@@ -13,8 +13,11 @@
       (if (or (fo? v)
               (and (set!-transformer? v)
                    (fo? (set!-transformer-procedure v))))
-          (syntax-local-introduce 
-	   (fo-proc-id (if (fo? v) v (set!-transformer-procedure v))))
+          (syntax-property
+           (syntax-local-introduce 
+            (fo-proc-id (if (fo? v) v (set!-transformer-procedure v))))
+           'disappeared-use
+           (syntax-local-introduce id))
 	  id))))