append_destructive   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/adt.xtm

Implementation

(bind-func append_destructive:[List{!a}*,List{!a}*,List{!a}*]*
  (lambda (a b)
    (if (null? a) b
        (begin
          (tset! (last a) 1 b)
          a))))


Back to Index

Similar Entries