/* Debugging extensions for Guile
- * Copyright (C) 1995, 1996, 1997 Free Software Foundation
+ * Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
#include <stdio.h>
#include "_scm.h"
#include "eval.h"
+#include "stackchk.h"
#include "throw.h"
#include "genio.h"
+#include "macros.h"
#include "smob.h"
#include "procprop.h"
#include "srcprop.h"
}
#endif
SCM_RESET_DEBUG_MODE;
+ scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
scm_debug_eframe_size = 2 * SCM_N_FRAMES;
SCM_ALLOW_INTS
return ans;
vframe.vect = &vframe_vect_body;
vframe.vect[0].id = id;
scm_last_debug_frame = &vframe;
- answer = scm_eval_3 (exp, 0, env);
+ answer = scm_eval_3 (exp, 1, env);
scm_last_debug_frame = vframe.prev;
return answer;
}