svn: r14832

This commit is contained in:
Robby Findler 2009-05-15 17:39:09 +00:00
parent 6a4c101859
commit dff15857f0

View File

@ -89,7 +89,7 @@
#:under? [under? #f] #:under? [under? #f]
#:solid? [solid? #t] #:solid? [solid? #t]
#:hide-arrowhead? [hide-arrowhead? #f]) #:hide-arrowhead? [hide-arrowhead? #f])
(if (not sa ea) (if (not (or sa ea))
(finish-pin (launder (t:pin-arrows-line sz (ghost p) (finish-pin (launder (t:pin-arrows-line sz (ghost p)
src src-find src src-find
dest dest-find dest dest-find