diff --git a/compiler.r b/compiler.r index 4995e2789e..f021a6dac5 100644 --- a/compiler.r +++ b/compiler.r @@ -4516,7 +4516,7 @@ red: context [ ] comp-finish: does [ - redbin/finish pick [[compress] []] to logic! redc/load-lib? + redbin/finish pick [[compress] []] to logic! all [redc/load-lib? job/redbin-compress?] ] comp-source: func [code [block!] /local user main saved mods][ diff --git a/red.r b/red.r index 7347245938..056583c94c 100644 --- a/red.r +++ b/red.r @@ -725,6 +725,7 @@ redc: context [ | "--dev" (opts/dev-mode?: yes) | "--no-runtime" (opts/runtime?: no) ;@@ overridable by config! | "--cli" (gui?: no) + | "--no-compress" (opts/redbin-compress?: no) | "--catch" ;-- just pass-thru ] set filename skip (src: load-filename filename) diff --git a/system/compiler.r b/system/compiler.r index d1306b7c6e..c07f6e2f14 100644 --- a/system/compiler.r +++ b/system/compiler.r @@ -65,6 +65,7 @@ system-dialect: make-profilable context [ red-strict-check?: yes ;-- no => defers undefined word errors reporting at run-time red-tracing?: yes ;-- no => do not compile tracing code red-help?: no ;-- yes => keep doc-strings from boot.red + redbin-compress?: yes ;-- yes => compress Redbin payload using custom CRUSH algorithm legacy: none ;-- block of optional OS legacy features flags gui-console?: no ;-- yes => redirect printing to gui console (temporary) libRed?: no