From 44dd9ae9fbfec7029597967b48825015cf50ab79 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Adri=C3=A1n=20Arroyo=20Calle?= <adrian.arroyocalle@gmail.com>
Date: Fri, 15 Oct 2021 17:22:15 +0200
Subject: [PATCH] Go back and accept only list of chars

---
 src/lib/os.pl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/lib/os.pl b/src/lib/os.pl
index b60a1a71..448b5f74 100644
--- a/src/lib/os.pl
+++ b/src/lib/os.pl
@@ -39,13 +39,9 @@ unsetenv(Key) :-
 
 shell(Command) :- shell(Command, 0).
 shell(Command, Status) :-
-    (   atom_si(Command) ->
-        atom_chars(Command, CommandChars)
-    ;   Command = CommandChars
-    ),
-    must_be_chars(CommandChars),
+    must_be_chars(Command),
     can_be(integer, Status),
-    '$shell'(CommandChars, Status).
+    '$shell'(Command, Status).
 
 pid(PID) :-
         can_be(integer, PID),
-- 
2.54.0