bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 17867769614fc1d3484aa3a57eb24f16779b8296
parent ea7c1d38f01ac2f83b1b5dbd0b3a144b0b108152
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Wed, 29 Jul 2009 17:00:29 +0000

`@foo@bar' will now parse as a `foo@bar' identifier.  This used to be
the case in Scheme mode but not in text mode, and this commit makes
the text mode behave as the Scheme mode.  (Seems like a convenience
point that is not useful since people won't remember the difference.)

svn: r15622

original commit: d0f8970addc95bb98c17bfac06ca9077ec535e51

Diffstat:
M
collects/scribblings/scribble/preprocessor.scrbl
 | 
10
+++++-----
M
collects/tests/scribble/reader.ss
 | 
8
++++----

2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/collects/scribblings/scribble/preprocessor.scrbl b/collects/scribblings/scribble/preprocessor.scrbl
@@ -283,7 +283,7 @@ separate text arguments in the S-expression part of an @"@"-form.
 
 @example|-{#lang scribble/text
            @(define (choose 1st 2nd)
-              @list{Either @1st, or @2nd@"."})
+              @list{Either @1st, or @|2nd|@"."})
            @(define who "us")
            @choose[@list{you're with @who}
                    @list{against @who}]
@@ -297,7 +297,7 @@ sub-parts without dealing with quotes.
 
 @example|-{#lang scribble/text
            @(define (choose 1st 2nd)
-              @list{Either @1st, or @2nd@"."})
+              @list{Either @1st, or @|2nd|@"."})
            @(define who "us")
            @choose[@list{you're with @who}
                    @list{against @who}]
@@ -324,9 +324,9 @@ convenient --- you can even specify the patterns with @"@"-forms.
            @(require scheme/match)
            @(define (features . text)
               (match text
-                [@list{@1st@...
+                [@list{@|1st|@...
                        ---
-                       @2nd@...}
+                       @|2nd|@...}
                  @list{>> Pros <<
                        @1st;
                        >> Cons <<
@@ -369,7 +369,7 @@ number of body expressions must be fixed.
 
 @example|-{#lang scribble/text
            @(define ((choose . 1st) . 2nd)
-              @list{Either you're @1st, or @2nd@"."})
+              @list{Either you're @1st, or @|2nd|.})
            @(define who "me")
            @@choose{with @who}{against @who}
            ---***---
diff --git a/collects/tests/scribble/reader.ss b/collects/tests/scribble/reader.ss
@@ -31,13 +31,13 @@ fo@o  -@->  fo@o
 ---
 |@foo|  -@->  @foo
 ---
-@foo@bar  -@-> foo bar
+@foo@bar  -@-> foo@bar
 ---
-@foo@bar.  -@-> foo bar.
+@foo@bar.  -@-> foo@bar.
 ---
-@foo@bar:  -@-> foo bar:
+@foo@bar:  -@-> foo@bar:
 ---
-@foo@bar;  -@-> foo bar
+@foo@bar;  -@-> foo@bar
 ---
 @foo[]@bar{}  -@-> (foo) (bar)
 ---