suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

enable longer command line for embedding

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-02 14:55:45 -06:00
parent ea7c34568c
commit 3638ea4963
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/embed-unit.rkt
View File

@ -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?