comparison src/lread.c @ 30917:469d242e5f72

Prototype readevalloop, load_unwind, load_descriptor_unwind. (unreadpure): Give it an arg.

30916:d4a0bd8a25a3

  register Lisp_Object val;
  XSETINT (val, getc (instream));
  return val;
}

static void readevalloop ();
static Lisp_Object load_unwind ();
static Lisp_Object load_descriptor_unwind ();

/* Non-zero means load dangerous compiled Lisp files.  */

int load_dangerous_libraries;

    Vload_history = Fcons (Fnreverse (Vcurrent_load_list),
			   Vload_history);
}

Lisp_Object
unreadpure ()	/* Used as unwind-protect function in readevalloop */
{
  read_pure = 0;
  return Qnil;
}

30917:469d242e5f72

  register Lisp_Object val;
  XSETINT (val, getc (instream));
  return val;
}

static void readevalloop P_ ((Lisp_Object, FILE*, Lisp_Object, 
			      Lisp_Object (*) (), int,
			      Lisp_Object, Lisp_Object));
static Lisp_Object load_unwind P_ ((Lisp_Object));
static Lisp_Object load_descriptor_unwind P_ ((Lisp_Object));

/* Non-zero means load dangerous compiled Lisp files.  */

int load_dangerous_libraries;

    Vload_history = Fcons (Fnreverse (Vcurrent_load_list),
			   Vload_history);
}

Lisp_Object
unreadpure (junk) /* Used as unwind-protect function in readevalloop */
     Lisp_Object junk;
{
  read_pure = 0;
  return Qnil;
}