fixes small mistakes

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

View File

@ -1,7 +1,7 @@
(define-library (srfi 17)
(import (except (scheme base) set!)
(rename (prefix (only (scheme base) set!) %))
(prefix (only (scheme base) set!) %)
(picrin dictionary)
(picrin attribute)
(srfi 1)
@ -18,7 +18,7 @@
(letrec ((setter
(lambda (proc)
(receive (setter exists) (dictionary-ref (attribute proc)
'setter)
'@@setter)
(if exists
setter
(error "No setter found")))))