From 86d21816b68241a84d9e4eac477f7299125cd140 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Tue, 12 Nov 2019 02:45:20 -0500
Subject: [PATCH] Fix jpm mendoza install on windows.

---
 auxbin/jpm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/auxbin/jpm b/auxbin/jpm
index 2abab3e3..bab51dbf 100755
--- a/auxbin/jpm
+++ b/auxbin/jpm
@@ -223,7 +223,8 @@
   [src dest]
   (print "copying " src " to " dest "...")
   (if is-win
-    (shell "xcopy" src dest "/y" "/s" "/e")
+    (let [end (last (peg/match path-splitter src))]
+        (shell "xcopy" src (string dest "\\" end) "/y" "/s" "/e"))
     (shell "cp" "-rf" src dest)))
 
 #