From 72c18c7e3f30b66323fad836d141d6acb0cbac88 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Mon, 7 Oct 2013 18:08:57 -0400
Subject: [PATCH] Fix docs for pin-arrow-line.

---
 pkgs/pict-pkgs/pict-doc/pict/scribblings/pict.scrbl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/pkgs/pict-pkgs/pict-doc/pict/scribblings/pict.scrbl b/pkgs/pict-pkgs/pict-doc/pict/scribblings/pict.scrbl
index c3d4a925a0..cba1ed1d07 100644
--- a/pkgs/pict-pkgs/pict-doc/pict/scribblings/pict.scrbl
+++ b/pkgs/pict-pkgs/pict-doc/pict/scribblings/pict.scrbl
@@ -400,7 +400,7 @@ argument for consistency with the other functions.}
                       [#:end-pull end-pull real? 1/4]
                       [#:line-width line-width (or/c #f real?) #f]
                       [#:color color (or/c #f string? (is-a?/c color%)) #f]
-                      [#:alpha alpha (real-in 0.0 1.0)]
+                      [#:alpha alpha (real-in 0.0 1.0) #f]
                       [#:style style (one-of/c 'transparent 'solid 'xor 'hilite 
                                                'dot 'long-dash 'short-dash 'dot-dash 
                                                'xor-dot 'xor-long-dash 'xor-short-dash 
@@ -419,7 +419,7 @@ argument for consistency with the other functions.}
                       [#:end-pull end-pull real? 1/4]
                       [#:line-width line-width (or/c #f real?) #f]
                       [#:color color (or/c #f string? (is-a?/c color%)) #f]
-                      [#:alpha alpha (real-in 0.0 1.0)]
+                      [#:alpha alpha (real-in 0.0 1.0) #f]
                       [#:style style (one-of/c 'transparent 'solid 'xor 'hilite 
                                                'dot 'long-dash 'short-dash 'dot-dash 
                                                'xor-dot 'xor-long-dash 'xor-short-dash 
@@ -427,7 +427,7 @@ argument for consistency with the other functions.}
                                'solid]
                       [#:under? under? any/c #f]
                       [#:solid? solid? any/c #t]
-		      [#:hide-arrowhead? any/c #f])
+		      [#:hide-arrowhead? hide-arrowhead? any/c #f])
             pict?]
            [(pin-arrows-line [arrow-size real?] [pict pict?]
                       [src pict-path?]
@@ -440,14 +440,14 @@ argument for consistency with the other functions.}
                       [#:end-pull end-pull real? 1/4]
                       [#:line-width line-width (or/c #f real?) #f]
                       [#:color color (or/c #f string? (is-a?/c color%)) #f]
-                      [#:alpha alpha (real-in 0.0 1.0)]
+                      [#:alpha alpha (real-in 0.0 1.0) #f]
                       [#:style style (one-of/c 'transparent 'solid 'xor 'hilite 
                                                'dot 'long-dash 'short-dash 'dot-dash 
                                                'xor-dot 'xor-long-dash 'xor-short-dash 
                                                'xor-dot-dash)]
                       [#:under? under? any/c #f]
                       [#:solid? solid? any/c #t]
-		      [#:hide-arrowhead? any/c #f])
+		      [#:hide-arrowhead? hide-arrowhead? any/c #f])
             pict?])]{
 
 Adds a line or line-with-arrows onto @racket[pict], using one of the