From facf11a6153478c4a1ac89309aa0fe96118d09b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Thu, 12 Jan 2017 19:48:17 +0100
Subject: [PATCH] Fixed test

---
 test/test-map.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/test-map.rkt b/test/test-map.rkt
index 2047a4b..d81c121 100644
--- a/test/test-map.rkt
+++ b/test/test-map.rkt
@@ -93,7 +93,7 @@
 
 ;; Test internal definitions inside the body
 (check-equal? (foldl (λ (x acc) (define y x) (cons (add1 y) acc)) '() '(1 2 3))
-              '(2 3 4))
+              '(4 3 2))
 
 ;; Does not work because the inferred type changes between the first and the
 ;; second iteration