From b9a783c23e26e2c128d8f5bb6b885fc886eb0dd0 Mon Sep 17 00:00:00 2001 From: "Sunrim KIM (keen)" <3han5chou7@gmail.com> Date: Tue, 27 May 2014 17:49:51 +0900 Subject: [PATCH] if `=>` is specified, treat expression as a function --- piclib/built-in.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index e2648cd8..6210136f 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -269,7 +269,7 @@ ,@(map (lambda (x) `(,(r 'eqv?) ,(r 'key) (,(r 'quote) ,x))) (caar clauses)))) ,(if (compare (r '=>) (cadar clauses)) - `(,(r 'begin) ,@(cddar clauses)) + `(,(caddar clauses) ,(r 'key)) `(,(r 'begin) ,@(cdar clauses))) ,(loop (cdr clauses))))))))))