diff options
author | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-26 15:36:51 +0000 |
---|---|---|
committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-26 15:36:51 +0000 |
commit | 04b447005f0428ac68ef5bf7dd1d6d3349bc1567 (patch) | |
tree | cd73e02c4b56b73dc92ca18a5065dc0bde52697e /tactics/tacinterp.ml | |
parent | 67fe536720c5ef5bb509249b9a30cbc6f2cebd92 (diff) |
added breakpoints to help ide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5387 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
-rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index bc9a21ff3..fe96fa44d 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1297,7 +1297,8 @@ let rec val_interp ist gl (tac:glob_tactic_expr) = (* Delayed evaluation *) | t -> VTactic (dummy_loc,eval_tactic ist t) - in match ist.debug with + in check_for_interrupt (); + match ist.debug with | DebugOn lev -> debug_prompt lev gl tac (fun v -> value_interp {ist with debug=v}) | _ -> value_interp ist |