artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Prepare for conversion to pointer cells.

Browse source 
* src/posix.c (execl_): Prepare for conversion to pointer cells.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-05-19 09:11:29 +02:00
parent 96809cadf1
commit a25dff6837
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/posix.c
View file

@ -305,7 +305,8 @@ execl_ (SCM file_name, SCM args) /*:((name . "execl")) */
while (args != cell_nil) while (args != cell_nil)
{ {
assert_msg (TYPE (CAR (args)) == TSTRING, "TYPE (CAR (args)) == TSTRING"); assert_msg (TYPE (CAR (args)) == TSTRING, "TYPE (CAR (args)) == TSTRING");
c_argv[i] = CSTRING (CAR (args)); SCM arg = CAR (args);
c_argv[i] = CSTRING (arg);
i = i + 1; i = i + 1;
args = CDR (args); args = CDR (args);
if (g_debug > 2) if (g_debug > 2)