comparison src/lread.c @ 39809:57070445ceac

(syms_of_lread): Fix init of default_suffixes.

39808:98efaf9813f4

  DEFVAR_LISP ("load-suffixes", &Vload_suffixes,
    "*List of suffixes to try for files to load.
This list should not include the empty string.");
  Vload_suffixes = Fcons (build_string (".elc"),
			  Fcons (build_string (".el"), Qnil));
  default_suffixes = Fcons (empty_string, Qnil);
  staticpro (&default_suffixes);

  DEFVAR_BOOL ("load-in-progress", &load_in_progress,
    "Non-nil iff inside of `load'.");

39809:57070445ceac

  DEFVAR_LISP ("load-suffixes", &Vload_suffixes,
    "*List of suffixes to try for files to load.
This list should not include the empty string.");
  Vload_suffixes = Fcons (build_string (".elc"),
			  Fcons (build_string (".el"), Qnil));
  /* We don't use empty_string because it's not initialized yet.  */
  default_suffixes = Fcons (build_string (""), Qnil);
  staticpro (&default_suffixes);

  DEFVAR_BOOL ("load-in-progress", &load_in_progress,
    "Non-nil iff inside of `load'.");