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

break from loop in get_code upon successful character read

Browse Source
This commit is contained in:
Mark Thom
2021-11-24 23:13:14 -07:00
parent 1b3f290037
commit f340f9ac94
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib/builtins.pl
View File

@@ -988,8 +988,10 @@ module_abolish(Pred, Module) :-
; Pred = Name/Arity -> ; Pred = Name/Arity ->
( var(Name) -> ( var(Name) ->
throw(error(instantiation_error, abolish/1)) throw(error(instantiation_error, abolish/1))
; var(Arity) ->
throw(error(instantiation_error, abolish/1))
; integer(Arity) -> ; integer(Arity) ->
( \+ atom(Name) -> (\+ atom(Name) ->
throw(error(type_error(atom, Name), abolish/1)) throw(error(type_error(atom, Name), abolish/1))
; Arity < 0 -> ; Arity < 0 ->
throw(error(domain_error(not_less_than_zero, Arity), abolish/1)) throw(error(domain_error(not_less_than_zero, Arity), abolish/1))
@@ -1003,7 +1005,6 @@ module_abolish(Pred, Module) :-
; throw(error(permission_error(modify, static_procedure, Pred), abolish/1)) ; throw(error(permission_error(modify, static_procedure, Pred), abolish/1))
) )
) )
; var(Arity) -> throw(error(instantiation_error, abolish/1))
; throw(error(type_error(integer, Arity), abolish/1)) ; throw(error(type_error(integer, Arity), abolish/1))
) )
; throw(error(type_error(predicate_indicator, Module:Pred), abolish/1)) ; throw(error(type_error(predicate_indicator, Module:Pred), abolish/1))

2
src/machine/system_calls.rs
View File

@@ -2369,6 +2369,8 @@ impl MachineState {
if self.fail { if self.fail {
return Ok(()); return Ok(());
} }
break;
} }
_ => { _ => {
self.eof_action( self.eof_action(