From 25ef5a684dec5eedfc4e34a12b00a04e2d6b2b1b Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Sun, 4 Aug 2019 19:09:40 +0100
Subject: [PATCH] Fix flat-map

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

diff --git a/ast.scm b/ast.scm
index 23e7723..1a4afe2 100644
--- a/ast.scm
+++ b/ast.scm
@@ -120,7 +120,7 @@
       (append (range s (- n 1))
 	      (list (+ s (- n 1))))))
 
-(define (flat-map f . xs) (fold-left append '() (map f xs)))
+(define (flat-map f . xs) (fold-left append '() (apply map (cons f xs))))
 (define (repeat x n) (if (<= n 0) '()
 			 (cons x (repeat x (- n 1)))))
 
-- 
2.30.2