From 869ab36eec3d6422cd56ba968b1e26ed9cef3ed1 Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Sun, 4 Aug 2019 19:23:09 +0100
Subject: [PATCH] Fix let-bindings

---
 ast.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.30.2