catch up more cross references

svn: r6722

collects/scribblings/guide/begin.scrbl

@@ -93,7 +93,7 @@ computation produces an unknown number of results.
 ]
 
 @;------------------------------------------------------------------------
-@section{Effects If...: @scheme[when] and @scheme[unless]}
+@section[#:tag "guide:when+unless"]{Effects If...: @scheme[when] and @scheme[unless]}
 
 @refalso["mz:when+unless"]{@scheme[when] and @scheme[unless]}
 

collects/scribblings/guide/quote.scrbl

@@ -3,7 +3,7 @@
 @require[(lib "eval.ss" "scribble")]
 @require["guide-utils.ss"]
 
-@title{Quoting: @scheme[quote] and @schemevalfont{'}}
+@title[#:tag "guide:quote"]{Quoting: @scheme[quote] and @schemevalfont{'}}
 
 @refalso["mz:quote"]{@scheme[quote]}
 

collects/scribblings/reference/define-struct.scrbl

@@ -3,6 +3,8 @@
 
 @title[#:tag "mz:define-struct"]{Structure Types: @scheme[define-struct]}
 
+@guideintro["guide:define-struct"]{@scheme[define-struct]}
+
 @defform/subs[(define-struct id-maybe-super (field ...) 
                              struct-option ...)
               ([id-maybe-super id

collects/scribblings/reference/derived.scrbl

@@ -9,6 +9,8 @@
 @;------------------------------------------------------------------------
 @section[#:tag "mz:cond"]{Conditionals: @scheme[cond]}
 
+@guideintro["guide:cond"]{@scheme[cond]}
+
 @defform/subs[#:literals (else =>)
               (cond cond-clause ...)
               ([cond-clause [test-expr then-expr ...+]
@@ -68,6 +70,8 @@ returned as the result of the @scheme[cond] form. The
 @;------------------------------------------------------------------------
 @section[#:tag "mz:and+or"]{Boolean Combination: @scheme[and] and @scheme[or]}
 
+@guideintro["guide:and+or"]{@scheme[and] and @scheme[or]}
+
 @defform[(and expr ...)]{
 
 If no @scheme[expr]s are provided, then result is @scheme[#f].
@@ -116,6 +120,8 @@ position with respect to the original @scheme[or] form.
 @;------------------------------------------------------------------------
 @section[#:tag "mz:when+unless"]{Guarded Evaluation: @scheme[when] and @scheme[unless]}
 
+@guideintro["guide:when+unless"]{@scheme[when] and @scheme[unless]}
+
 @defform[(when test-expr expr ...)]{
 
 Evaluates the @scheme[text-expr]. If the result is any value other

collects/scribblings/reference/syntax.scrbl

@@ -53,6 +53,8 @@ Within such specifications,
 @;------------------------------------------------------------------------
 @section[#:tag "mz:quote"]{Literals: @scheme[quote] and @scheme[#%datum]}
 
+@guideintro["guide:quote"]{@scheme[quote]}
+
 @defform[(quote datum)]{
 
 Produces a constant value corresponding to @scheme[datum] (i.e., the
@@ -356,6 +358,8 @@ Like @scheme[lambda], but without support for keyword or optional arguments.
 @;------------------------------------------------------------------------
 @section[#:tag "mz:let"]{Local Binding: @scheme[let], @scheme[let*], and @scheme[letrec]}
 
+@guideintro["guide:let"]{local binding}
+
 @defform*[[(let ([id val-expr] ...) body ...+)
            (let proc-id ([id init-expr] ...) body ...+)]]{
 
@@ -463,6 +467,8 @@ and in the @scheme[body]s.
 @;------------------------------------------------------------------------
 @section[#:tag "mz:if"]{Conditionals: @scheme[if]}
 
+@guideintro["guide:conditionals"]{conditionals}
+
 @defform[(if test-expr then-expr else-expr)]{
 
 Evaluates @scheme[test-expr]. If it produces any value other than
@@ -480,6 +486,8 @@ position with respect to the @scheme[if] form.
 @;------------------------------------------------------------------------
 @section[#:tag "mz:define"]{Definitions: @scheme[define] and @scheme[define-values]}
 
+@guideintro["guide:define"]{definitions}
+
 @defform*/subs[[(define id expr)
                 (define (head args) body ...+)]
                 ([head id
@@ -548,6 +556,8 @@ z
 @;------------------------------------------------------------------------
 @section[#:tag "mz:begin"]{Sequencing: @scheme[begin] and @scheme[begin0]}
 
+@guideintro["guide:begin"]{@scheme[begin] and @scheme[begin0]}
+
 @defform*[[(begin form ...)
            (begin expr ...+)]]{
 
@@ -592,6 +602,8 @@ in tail position only if no @scheme[body]s are present.
 @;------------------------------------------------------------------------
 @section[#:tag "mz:set!"]{Assignment: @scheme[set!] and @scheme[set!-values]}
 
+@guideintro["guide:set!"]{@scheme[set!]}
+
 @defform[(set! id expr)]{
 
 Evaluates @scheme[expr] and installs the result into the location for