github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 23:46:14 +00:00
Code Issues Projects Releases Wiki Activity

Correct C dremove() implementation (not used for implementation of the Lisp DREMOVE function)

Browse Source 
The C translation didn't observe that the value of (COND (C X)) is NIL if not C.

	modified:   src/storage.c
This commit is contained in:
Nick Briggs 2020-12-11 16:20:33 -08:00
parent 259a2006a1
commit 0786d75e67
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/storage.c
View File

@ -252,7 +252,8 @@ LispPTR dremove(LispPTR x, LispPTR l) {
rplaca(l, car(cdr(l)));
rplacd(l, cdr(cdr(l)));
return (dremove(x, l));
}
} else
return (NIL);
} else {
z = l;
lp: