~mdw
/
runlisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dump-runlisp-image.c: Fix random typo in commentary.
[runlisp]
/
dump-runlisp-image.c
diff --git
a/dump-runlisp-image.c
b/dump-runlisp-image.c
index
7d1d88f
..
e33582d
100644
(file)
--- a/
dump-runlisp-image.c
+++ b/
dump-runlisp-image.c
@@
-702,7
+702,10
@@
static void add_job(unsigned f, struct config_section *sect)
config_subst_split_var(&config, sect, runvar, &av_version);
if (!av_version.n)
lose("empty `run-script' command for Lisp implementation `%s'", name);
config_subst_split_var(&config, sect, runvar, &av_version);
if (!av_version.n)
lose("empty `run-script' command for Lisp implementation `%s'", name);
- argv_append(&av_version, xstrdup("?(lisp-implementation-version)"));
+ argv_append(&av_version,
+ config_subst_string_alloc
+ (&config, sect, "<internal>",
+ "?${lisp-version?(lisp-implementation-version)}"));
config_subst_split_var(&config, sect, dumpvar, &av_dump);
if (!av_dump.n)
lose("empty `dump-image' command for Lisp implementation `%s'", name);
config_subst_split_var(&config, sect, dumpvar, &av_dump);
if (!av_dump.n)
lose("empty `dump-image' command for Lisp implementation `%s'", name);
@@
-915,7
+918,7
@@
static void finish_job(struct job *job)
job->exit);
/* What happens next depends on the state of the job. This is the main
job->exit);
/* What happens next depends on the state of the job. This is the main
- * place which advance
d
the job state machine.
+ * place which advance
s
the job state machine.
*/
if (ok) switch (job->st) {
*/
if (ok) switch (job->st) {