From 342641a93ccb627d81350ba9b1be29447c939cf3 Mon Sep 17 00:00:00 2001
From: Andreas Olsson <photoguy.apo@gmail.com>
Date: Wed, 28 Dec 2016 22:55:55 +0100
Subject: [PATCH] Add files via upload

---
 pmap.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/pmap.rkt b/pmap.rkt
index cb72d9f..ad189cf 100644
--- a/pmap.rkt
+++ b/pmap.rkt
@@ -7,12 +7,14 @@
 
 (provide pmap)
 
-(define (transpose . lists) ; collumns to rows!
+(define (transpose lists) ; collumns to rows!
   (apply map list lists))
 
+;(transpose '((1 3 5) (2 4 6))) ; test
+
 (define (pmap func . lists) ; pmap
   (map touch
-       (for/list ([a (apply transpose lists)])
+       (for/list ([a (transpose lists)])
          (future (lambda () (apply func a)))
          )))