X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/blobdiff_plain/10427eb21d77a0edeb2f17e434515b91b420cdfb..2d4554ca5ee1304e67ddd29b00402993ca07fcd2:/runlisp.c diff --git a/runlisp.c b/runlisp.c index b2708d7..5cd1320 100644 --- a/runlisp.c +++ b/runlisp.c @@ -303,6 +303,9 @@ static void parse_options(int argc, char *argv[]) default: flags |= AF_BOGUS; break; } } + +#undef FLAGOPT +#undef CMDL } /* Extract and process the embedded options from a SCRIPT. */ @@ -495,11 +498,10 @@ int main(int argc, char *argv[]) /* If we're in eval mode, then find the `eval.lisp' script. */ if (!script) - script = config_subst_string_alloc - (&config, common, "", - "${@ENV:RUNLISP_EVAL?" - "${@CONFIG:eval-script?" - "${@data-dir}/eval.lisp}}"); + script = config_subst_string_alloc(&config, common, "", + "${@ENV:RUNLISP_EVAL?" + "${@CONFIG:eval-script?" + "${@data-dir}/eval.lisp}}"); /* We now have the script name, so publish it for `uiop'. *