mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-01 22:32:40 +00:00
Correct C dremove() implementation (not used for implementation of the Lisp DREMOVE function)
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:
@@ -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:
|
||||
|
||||
Reference in New Issue
Block a user