setter -> @@setter

This commit is contained in:
stibear 2014-08-30 15:31:26 +09:00
parent 607e961525
commit 6a52aa2610
1 changed files with 1 additions and 1 deletions

View File

@ -24,7 +24,7 @@
(error "No setter found")))))
(set-setter!
(lambda (proc setter)
(dictionary-set! (attribute proc) 'setter setter))))
(dictionary-set! (attribute proc) '@@setter setter))))
(set-setter! setter set-setter!)
setter))