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