From: Adrián Arroyo Calle <adrian.arroyocalle@gmail.com>
Date: Sun, 27 Mar 2022 12:23:14 +0000 (+0200)
Subject: http_open/3 try_or_throw
X-Git-Tag: v0.9.1~87^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=bb2a8c90908f2c420d27a1fa6217d69af28e62d8;p=scryer-prolog.git

http_open/3 try_or_throw
---

diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs
index 9320ac5d..cb3dbe59 100644
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -4128,11 +4128,11 @@ impl Machine {
                     step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
                 }
                 &Instruction::CallHttpOpen(_) => {
-                    self.http_open();
+                    try_or_throw!(self.machine_st, self.http_open());
                     step_or_fail!(self, self.machine_st.p += 1);
                 }
                 &Instruction::ExecuteHttpOpen(_) => {
-                    self.http_open();
+                    try_or_throw!(self.machine_st, self.http_open());
                     step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
                 }
                 &Instruction::CallCurrentTime(_) => {