From: Luke Lau <luke_lau@icloud.com>
Date: Sun, 4 Aug 2019 18:23:09 +0000 (+0100)
Subject: Fix let-bindings
X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=commitdiff_plain;h=869ab36eec3d6422cd56ba968b1e26ed9cef3ed1

Fix let-bindings
---

diff --git a/ast.scm b/ast.scm
index 1a4afe2..3b4d164 100644
--- a/ast.scm
+++ b/ast.scm
@@ -73,7 +73,7 @@
 (define (let-bindings e)
   (define (pattern-match x body)
     (if (eqv? (ast-type x) 'var)
-	(cons x body)
+	(list (cons x body))
 	(let* ([constructor (car x)]
 	      [destructor (lambda (i) `(destruct ,i ,constructor))])
 	  (flat-map (lambda (y i)