From 53cecd82b267e2044075aed7b64ee22f6687ea85 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 8 Jul 2013 22:12:10 +0900 Subject: [PATCH] Forgot quotes. --- lib/chibi/optional.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/optional.scm b/lib/chibi/optional.scm index 35b7c79b..003d59b0 100644 --- a/lib/chibi/optional.scm +++ b/lib/chibi/optional.scm @@ -31,10 +31,10 @@ (let ((tmp (op . args))) (let-keywords* tmp vars . body))) ((let-keywords* opt-ls ((var default) . rest) . body) - (let ((var (keyword-ref opt-ls var default))) + (let ((var (keyword-ref opt-ls 'var default))) (let-keywords* opt-ls rest . body))) ((let-keywords* opt-ls ((var key default) . rest) . body) - (let ((var (keyword-ref opt-ls key default))) + (let ((var (keyword-ref opt-ls 'key default))) (let-keywords* opt-ls rest . body))) ((let-keywords* opt-ls tail . body) (let ((tail opt-ls)) . body))))