Added #:mutable to fish example in procedures.scrbl.

svn: r8517
This commit is contained in:
Danny Yoo 2008-02-03 04:09:16 +00:00
parent d4da20c951
commit ab3dee3d0e

View File

@ -252,6 +252,7 @@ is disallowed).
@examples[ @examples[
(define-struct fish (weight color) (define-struct fish (weight color)
#:mutable
#:property #:property
prop:procedure prop:procedure
(lambda (f n) (set-fish-weight! f (+ n (fish-weight f))))) (lambda (f n) (set-fish-weight! f (+ n (fish-weight f)))))