cl:delete   scheme


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

Implementation

(define (cl:delete obj lst)
  (let delete ((lst lst))
    (cond ((null? lst) '())
    ((equal? obj (car lst)) (delete (cdr lst)))
    (else
     (set-cdr! lst (delete (cdr lst)))
     lst))))
;@


Back to Index

Similar Entries

  • Texture_delete    xtlang
  • VAO_delete    xtlang
  • VBO_delete    xtlang
  • cl:delete-if    scheme
  • cl:delete-if-not    scheme
  • delete    xtlang
  • delete-at-index    scheme
  • fleet_delete_unit    xtlang
  • ghttp_perform_DELETE    xtlang
  • sys_env_delete    xtlang