From 3638ea496380637fdd9faf58ac06b07e420738e3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 2 Jun 2010 14:55:45 -0600
Subject: [PATCH] enable longer command line for embedding

---
 collects/compiler/embed-unit.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/compiler/embed-unit.rkt b/collects/compiler/embed-unit.rkt
index 01f4b4b59a..08ef7c37ad 100644
--- a/collects/compiler/embed-unit.rkt
+++ b/collects/compiler/embed-unit.rkt
@@ -1055,8 +1055,8 @@
                   ((apply +
                           (map (lambda (s)
                                  (+ word-size (bytes-length (string->bytes/utf-8 s))))
-                               cmdline)) . < . 60))
-        (error 'create-embedding-executable "command line too long"))
+                               cmdline)) . < . 80))
+        (error 'create-embedding-executable "command line too long: ~e" cmdline))
       (check-collects-path 'create-embedding-executable collects-path collects-path-bytes)
       (let ([exe (find-exe mred? variant)])
         (when verbose?