From 13231d99e8c917ee39c448f00ccb8fdad598e5a1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 22 Jan 2017 05:17:14 -0800 Subject: Streamline repeated intern call in txr_main. * txr.c (txr_main): Reduce three repetitions of the same call to intern to one call. --- txr.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'txr.c') diff --git a/txr.c b/txr.c index d339589a..cc5fe87a 100644 --- a/txr.c +++ b/txr.c @@ -582,13 +582,14 @@ int txr_main(int argc, char **argv) val dopt_arg = sub(arg, two, t); cons_bind(var, def, split_str(dopt_arg, lit("="))); val deflist = if2(def, split_str(car(def), lit(","))); + val sym = intern(var, nil); if (rest(deflist)) - bindings = cons(cons(intern(var, nil), deflist), bindings); + bindings = cons(cons(sym, deflist), bindings); else if (deflist) - bindings = cons(cons(intern(var, nil), car(deflist)), bindings); + bindings = cons(cons(sym, car(deflist)), bindings); else - bindings = cons(cons(intern(var, nil), t), bindings); + bindings = cons(cons(sym, t), bindings); continue; } -- cgit v1.2.3