8 lines
205 B
Text
8 lines
205 B
Text
define insert_into_list(anchor, x);
|
|
cons(x, back(anchor)) -> back(anchor);
|
|
enddefine;
|
|
;;; Build inital list
|
|
lvars l1 = cons("a", []);
|
|
insert_into_list(l1, "b");
|
|
;;; insert c
|
|
insert_into_list(l1, "c");
|