scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug that skipped first entry in char_pp_2_string_list

This commit is contained in:
marting 2000-05-22 11:59:22 +00:00
parent b2130fc267
commit 6855de9ec8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/cstuff.c
View File

@ -6,9 +6,10 @@ s48_value char_pp_2_string_list(char **vec){
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
S48_GC_PROTECT_1(list); S48_GC_PROTECT_1(list);
while (*(++ptr)){ while (ptr && *(ptr)){
list = s48_cons (s48_enter_string (*ptr), list); list = s48_cons (s48_enter_string (*ptr), list);
ptr++;
} }
S48_GC_UNPROTECT(); S48_GC_UNPROTECT();
return list; return list;