Doubly-linked list/Element definition: Difference between revisions

Content added Content deleted

Inline

@@ Line 652: / Line 652: @@
 previous element.
 <lang PicoLisp>
+(de 2tail (X DLst)
+   (let L (cdr DLst)
+      (con DLst (cons X L NIL))
+      (if L
+         (con (cdr L) (cdr DLst))
+         (set DLst (cdr DLst)) ) ) )
 (de 2head (X DLst)
    (let L (car DLst)                  # Get current data list