From 21640dcc3646127d8f591cf088aec086631fe654 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 12 Sep 2008 02:47:13 +0000
Subject: [PATCH] put scribble property on escape expressions (no []s or {}s)

svn: r11667
---
 collects/scribble/reader.ss | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/collects/scribble/reader.ss b/collects/scribble/reader.ss
index f98c492d1b..ec37774123 100644
--- a/collects/scribble/reader.ss
+++ b/collects/scribble/reader.ss
@@ -466,16 +466,14 @@
                      (internal-error 'dispatcher))]
           [(stx) (let ([ds (and datums (length datums))]
                        [ls (and lines  (length lines))])
-                   (if (or ds ls)
-                     (syntax-property
-                      (if (syntax? stx)
-                        stx
-                        (datum->syntax #f stx
-                          (vector source-name line-num col-num position
-                                  (span-from position))
-                          orig-stx))
-                      'scribble (list 'form ds ls))
-                     stx))]
+                   (syntax-property
+                    (if (syntax? stx)
+                      stx
+                      (datum->syntax #f stx
+                        (vector source-name line-num col-num position
+                                (span-from position))
+                        orig-stx))
+                    'scribble (list 'form ds ls)))]
           [(stx) (syntax-post-processor stx)]
           [(stx)
            ;; wrap the prefixes around the result