X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=ast.scm;h=3b4d164b9e23fa71a1c3547c01dd6a20fbe13dac;hp=1a4afe21f3258d829c4f305ea78fd2f804cca2ad;hb=869ab36eec3d6422cd56ba968b1e26ed9cef3ed1;hpb=25ef5a684dec5eedfc4e34a12b00a04e2d6b2b1b

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)