break from loop upon successful peek in peek_char/1 and peek_code/1

2021-11-25 23:08:02 -07:00
parent f340f9ac94
commit d02b9d848c
1 changed files with 2 additions and 0 deletions
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -1512,6 +1512,7 @@ impl MachineState {
                    match stream.peek_char().map(|result| result.map_err(|e| e.kind())) {
                        Some(Ok(d)) => {
                            self.unify_char(d, a2);
+                            break;
                        }
                        Some(Err(ErrorKind::PermissionDenied)) => {
                            self.fail = true;
@@ -1614,6 +1615,7 @@ impl MachineState {
                    match result.map(|result| result.map_err(|e| e.kind())) {
                        Some(Ok(c)) => {
                            self.unify_fixnum(Fixnum::build_with(c as i64), addr);
+                            break;
                        }
                        Some(Err(ErrorKind::PermissionDenied)) => {
                            self.fail = true;