16 lines
229 B
C
16 lines
229 B
C
#include "wscm.h"
|
|
|
|
O listreverse(O list) {
|
|
O prev = NIL;
|
|
O curr = list;
|
|
O next;
|
|
|
|
while (curr != NIL) {
|
|
C *c = uncons(curr);
|
|
next = c->cdr;
|
|
c->cdr = prev;
|
|
prev = curr;
|
|
curr = next;
|
|
}
|
|
return prev;
|
|
}
|