From: Bennet Bleßmann <bb-github@t-online.de>
Date: Sat, 19 Jul 2025 19:00:36 +0000 (+0200)
Subject: fix indices
X-Git-Tag: v0.10.0~35^2^2~34
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=d79ece24974ab2a175d4af1aab5870055686829a;p=scryer-prolog.git

fix indices
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 7e448e03..51092f64 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -8441,8 +8441,8 @@ impl Machine {
             _ => panic!("Invalid value for clear_env"),
         };
 
-        let env_names = self.machine_st.try_from_list(env_args[1], stub_gen)?;
-        let env_values = self.machine_st.try_from_list(env_args[2], stub_gen)?;
+        let env_names = self.machine_st.try_from_list(env_args[0], stub_gen)?;
+        let env_values = self.machine_st.try_from_list(env_args[1], stub_gen)?;
 
         let envs = env_names
             .into_iter()