From bf6b9529646ad02b28fd4623e2502c522169348b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 31 Dec 2011 10:08:30 -0700
Subject: [PATCH] add `ffi/com', `ffi/unsafe/com'

original commit: ff41a896bc03ccba95da0ba0a8e4b38c70bab278
---
 collects/scribble/private/manual-scheme.rkt | 13 ++++++++-----
 collects/scribblings/scribble/manual.scrbl  |  7 ++++---
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/collects/scribble/private/manual-scheme.rkt b/collects/scribble/private/manual-scheme.rkt
index af5d923f..20f28337 100644
--- a/collects/scribble/private/manual-scheme.rkt
+++ b/collects/scribble/private/manual-scheme.rkt
@@ -230,18 +230,21 @@
 (define-/form racketblock/form racketblock)
 (define-/form racket/form racket)
 
-(define (*racketlink stx-id id . s)
+(define (*racketlink stx-id id style . s)
   (let ([content (decode-content s)])
     (make-delayed-element
      (lambda (r p ri)
        (make-link-element
-        #f
+        style
         content
         (or (find-racket-tag p ri stx-id #f)
             `(undef ,(format "--UNDEFINED:~a--" (syntax-e stx-id))))))
      (lambda () content)
      (lambda () content))))
 
-(define-syntax-rule (racketlink id . content)
-  (*racketlink (quote-syntax id) 'id . content))
-
+(define-syntax racketlink
+  (syntax-rules ()
+    [(_ id #:style style . content)
+     (*racketlink (quote-syntax id) 'id style . content)]
+    [(_ id . content)
+     (*racketlink (quote-syntax id) 'id #f . content)]))
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
index 5ae3a8d5..1f843b41 100644
--- a/collects/scribblings/scribble/manual.scrbl
+++ b/collects/scribblings/scribble/manual.scrbl
@@ -1213,9 +1213,10 @@ typewriter font with two leading @litchar{+}s).}
 
 See also @secref["base-links"].
 
-@defform[(racketlink id pre-content ...)
-         #:contracts ([id identifier?]
-                      [pre-content pre-content?])]{
+@defform*[[(racketlink id #:style style-expr pre-content ...)
+           (racketlink id pre-content ...)]
+          #:contracts ([id identifier?]
+                       [pre-content pre-content?])]{
 
 An element where the @tech{decode}d @racket[pre-content] is hyperlinked to the definition
 of @racket[id].}