From ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:31 -0800
Subject: Import Upstream version 5e2

---
 build.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'build.scm')

diff --git a/build.scm b/build.scm
index a467a52..664eb28 100644
--- a/build.scm
+++ b/build.scm
@@ -1934,7 +1934,9 @@
 	 (lambda (batch-port)
 	   (define o-files #f)
 	   (adjoin-parameters! parms (list 'batch-port batch-port))
-
+	   (batch:comment
+		   parms
+		   (string-append "[-p " (symbol->string platform) "]"))
 	   (let ((options-file (parameter-list-ref parms 'options-file)))
 	     (and (not (null? options-file))
 		  (batch:comment
-- 
cgit v1.2.3