Closes #2 (foldl behaves like foldr in some cases)

typed-map-lib/typed-map/main.rkt

@@ -85,4 +85,4 @@
                      upcast-result))))))]
     [(_ f init-acc lᵢ ...)
      (with-syntax ([(argᵢ ...) (generate-temporaries #'(lᵢ ...))])
-       #'(foldr (λ (argᵢ ... arg-acc) (f argᵢ ... arg-acc)) init-acc lᵢ ...))]))
+       #'(foldl (λ (argᵢ ... arg-acc) (f argᵢ ... arg-acc)) init-acc lᵢ ...))]))

typed-map-test/typed-map/test/gh-bug-2.rkt

@@ -0,0 +1,9 @@
+#lang typed/racket
+(require typed-map
+         typed/rackunit)
+
+(check-equal? (foldl (λ (x [acc : (Rec R (U Null (Pairof R Positive-Index)))])
+                       (cons acc (add1 x)))
+                     '()
+                     '(1 2 3))
+              '(((() . 2) . 3) . 4))