setter -> @@setter
This commit is contained in:
parent
607e961525
commit
6a52aa2610
|
@ -24,7 +24,7 @@
|
||||||
(error "No setter found")))))
|
(error "No setter found")))))
|
||||||
(set-setter!
|
(set-setter!
|
||||||
(lambda (proc setter)
|
(lambda (proc setter)
|
||||||
(dictionary-set! (attribute proc) 'setter setter))))
|
(dictionary-set! (attribute proc) '@@setter setter))))
|
||||||
(set-setter! setter set-setter!)
|
(set-setter! setter set-setter!)
|
||||||
setter))
|
setter))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue