conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/srfi/17.scm
View File

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