cl:remove   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define (cl:remove obj lst)
  (define head (list '*head*))
  (let remove ((lst lst)
         (tail head))
    (cond ((null? lst))
    ((eqv? obj (car lst)) (remove (cdr lst) tail))
    (else
     (set-cdr! tail (list (car lst)))
     (remove (cdr lst) (cdr tail)))))
  (cdr head))
;@


Back to Index

Similar Entries

  • Widget_type_remove_flags    xtlang
  • aiProcess_RemoveComponent    scheme
  • aiProcess_RemoveRedundantMaterials    scheme
  • analogue_remove_file    xtlang
  • cerberus_remove_file    xtlang
  • cl:remove-duplicates    scheme
  • cl:remove-if    scheme
  • cl:remove-if-not    scheme
  • impc:ti:remove-polyfunc-candidate    scheme
  • impc:ti:remove-single-element-lists    scheme
  • remove    scheme
  • remove-all    scheme
  • remove-first    scheme
  • remove-func    macro
  • sys_dir_remove    xtlang
  • sys_file_remove    xtlang
  • sys_g_remove    xtlang