compiler: tighter code for quasiliterals.

Give the sys:fmt-simple function argument defaulting so the
generated code doesn't have to call it with all five arguments
present, four of them nil being much of the time.

* eval.c (fmt_simple): Default all but the first four
arguments.
(eval_init): Re-register sys:fmt-simple as having only one
required argument.

* parser.c (read_file_common): Load version 1 or 2 files.
We are bumping the object file version to 2 because
now when we compile files, they won't work with older
TXR in which all five arguments to sys:fmt-simple are
required.

* share/txr/stdlib/compiler.tl (expand-quasi-mods):
Generate the sys:fmt-simple call with just enough
arguments to express the modifiers that were decoded.
(sexpand-quasi-args): Reduce the trivial modifier-less
sys:fmt-simple calls to just one argument.
(%tlo-ver%): Bump major version to 2.

1 files changed, 2 insertions, 2 deletions

diff --git a/parser.c b/parser.c
index 14bad41e..1649fc05 100644
--- a/parser.c
+++ b/parser.c
@@ -629,9 +629,9 @@ static val read_file_common(val stream, val error_stream, val compiled)
 
     if (compiled && first) {
       val major = car(form);
-      if (neq(major, one))
+      if (lt(major, one) || gt(major, two))
         uw_throwf(error_s,
-                  lit("cannot load ~s; version number mismatch"),
+                  lit("cannot load ~s: version number mismatch"),
                   stream, nao);
       big_endian = caddr(form);
       first = nil;