rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

return to toplevel from a long running query after receiving Ctrl-C

Browse Source
This commit is contained in:
Mark Thom
2019-09-30 13:27:22 -06:00
parent ecb2cc3518
commit b26c5c213e
4 changed files with 35 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/prolog/machine/machine_state_impl.rs
View File

@@ -8,6 +8,7 @@ use prolog::forms::*;
use prolog::heap_iter::*;
use prolog::heap_print::*;
use prolog::instructions::*;
use prolog::machine::INTERRUPT;
use prolog::machine::and_stack::*;
use prolog::machine::attributed_variables::*;
use prolog::machine::code_repo::CodeRepo;
@@ -3176,6 +3177,13 @@ impl MachineState {
lco: bool,
use_default_cp: bool,
) {
let interrupted = INTERRUPT.load(std::sync::atomic::Ordering::Relaxed);
if INTERRUPT.compare_and_swap(interrupted, false, std::sync::atomic::Ordering::Relaxed) {
self.fail = true;
return;
}
let mut default_call_policy: Box<CallPolicy> = Box::new(DefaultCallPolicy {});
let call_policy = if use_default_cp {
&mut default_call_policy