added example

svn: r11032
2008-08-02 07:46:48 +00:00 · 2008-08-02 07:46:48 +00:00 · 3858ad007f
commit 3858ad007f
parent 857bc4b63b
1 changed files with 1 additions and 0 deletions
--- a/collects/scribblings/reference/struct.scrbl
+++ b/collects/scribblings/reference/struct.scrbl
@ -455,6 +455,7 @@ of the structure type.
 (define-struct cat (name) #:prefab)
 (define-struct (cute-cat cat) (shipping-dest) #:prefab)
 (make-cute-cat "Nermel" "Abu Dhabi")
+(prefab-struct-key (make-cute-cat "Nermel" "Abu Dhabi"))
 ]}