fix recursive throws if an error occurs at boot-time
authorAndy Wingo <wingo@pobox.com>
Wed, 9 Feb 2011 22:01:37 +0000 (23:01 +0100)
committerAndy Wingo <wingo@pobox.com>
Wed, 9 Feb 2011 22:17:09 +0000 (23:17 +0100)
commit5a5885215afae3c547ae6ca10e769704b0f7e3d9
tree639005ba64fc5da88e6c8da20a3ffa3aa8477310
parent6245ea944026e8897a6a36ce39db537fd3a77cad
fix recursive throws if an error occurs at boot-time

* libguile/throw.c (find_pre_init_catch): New internal helper.
  (pre_init_throw): If we don't find a catch, print out a message and
  abort.
  (scm_init_throw): Declare pre-init-throw as taking at least one arg.
libguile/throw.c