From 28041032337632a401c9a67c434c0e66556f2eb4 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> Date: Mon, 2 Jan 2012 20:43:55 +0530 Subject: [PATCH] additional check for let bindings --- src/sicp/metacircular2.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sicp/metacircular2.rkt b/src/sicp/metacircular2.rkt index 83d89fa..26f9c12 100644 --- a/src/sicp/metacircular2.rkt +++ b/src/sicp/metacircular2.rkt @@ -176,7 +176,7 @@ ;; let (define (let->combination lexpr) - (match-let* ([`(let ,bindings ,body ..1) lexpr] + (match-let* ([`(let ,(? (lambda (x) (or (pair? x) (empty? x))) bindings) ,body ..1) lexpr] [`((,var ,val) ...) bindings]) `((lambda ,var ,@body) ,@val))) -- 2.45.2