guile-elisp bootstrap (C)

guile-elisp bootstrap (C)

* src/data.c (Fsetq_default): Remove

* src/editfns.c (Fsave_excursion, Fsave_current_buffer)
  (Fsave_restriction): Change to functions taking thunks as arguments.

* src/eval.c (eval_fn, funcall_fn): New variables.
  (init_eval_once): Increase initial vales of max_specpdl_size and
  max_lisp_eval_depth. Define eval_fn and funcall_fn.
  (Fif, Fsetq, Fquote): Remove.
  (Ffunction): Don't define as DEFUN.
  Whitespace change.
  (Fdefvar, Fdefconst, FletX, Flet): Remove.
  (Fcatch): Take thunk as evaluated argument.
  (Funwind_protect): Remove.
  (Fcondition_case): Replace with Fcall_with_handler.
  (eval_sub_1): Only supported compiled and Scheme procedures.
  (Fapply): Don't define as DEFUN.
  (Ffuncall1): Don't define as DEFUN. Just call funcall_fn.
  (syms_of_eval): Don't unintern internal-interpreter-environment.

* src/fns.c (Fwidget_apply): Call `apply' instead of Fapply.

* src/keyboard.c (Ftrack_mouse): Take thunk as evaluated argument.

* src/lisp.h (WRAP1): Define a global symbol for the wrapped function.