runlisp.c: Undefine local option-parsing macros at the end of the block.

[runlisp] / runlisp.c

diff --git a/runlisp.c b/runlisp.c
index b2708d7..5cd1320 100644 (file)
--- 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, "<internal>",
-       "${@ENV:RUNLISP_EVAL?"
-        "${@CONFIG:eval-script?"
-          "${@data-dir}/eval.lisp}}");
+    script = config_subst_string_alloc(&config, common, "<internal>",
+                                      "${@ENV:RUNLISP_EVAL?"
+                                        "${@CONFIG:eval-script?"
+                                          "${@data-dir}/eval.lisp}}");
 
   /* We now have the script name, so publish it for `uiop'.
    *