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

if `=>` is specified, treat expression as a function

This commit is contained in:
Sunrim KIM (keen) 2014-05-27 17:49:51 +09:00
parent 0fea822ac0
commit b9a783c23e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
piclib/built-in.scm
View File

@ -269,7 +269,7 @@
,@(map (lambda (x) `(,(r 'eqv?) ,(r 'key) (,(r 'quote) ,x))) ,@(map (lambda (x) `(,(r 'eqv?) ,(r 'key) (,(r 'quote) ,x)))
(caar clauses)))) (caar clauses))))
,(if (compare (r '=>) (cadar clauses)) ,(if (compare (r '=>) (cadar clauses))
`(,(r 'begin) ,@(cddar clauses)) `(,(caddar clauses) ,(r 'key))
`(,(r 'begin) ,@(cdar clauses))) `(,(r 'begin) ,@(cdar clauses)))
,(loop (cdr clauses)))))))))) ,(loop (cdr clauses))))))))))