add %default-prompt-tag, and error (not abort()) on an abort to bad tag
authorAndy Wingo <wingo@pobox.com>
Wed, 24 Feb 2010 17:55:34 +0000 (18:55 +0100)
committerAndy Wingo <wingo@pobox.com>
Wed, 24 Feb 2010 17:55:34 +0000 (18:55 +0100)
commit3ccee39194a2ae967eb12dd9c0adceeddb305646
tree88b5c2f2b507ec5110d10e3d92449176b45b22ad
parent29366989cf19c844c8d46e456da03466db534ddf
add %default-prompt-tag, and error (not abort()) on an abort to bad tag

* libguile/init.c (scm_i_init_guile): Call scm_init_control after
  initing fluids.
* libguile/control.h (scm_sys_default_prompt_tag): New internal var.
* libguile/control.c (scm_c_abort): If abort is called for an unknown
  tag, raise an exception, except if the tag was the default prompt tag,
  in which case really abort -- to prevent recursion when some other
  patches land.
  (scm_init_control): Define %default-prompt-tag in the default
  environment.
libguile/control.c
libguile/control.h
libguile/init.c