Changeset 39019 in project


Ignore:
Timestamp:
09/11/20 08:49:02 (2 weeks ago)
Author:
felix winkelmann
Message:

##sys#delq is gone, add it here directly

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/r7rs/trunk/scheme.eval.scm

    r35586 r39019  
    1818      (define (delmod)
    1919        (and-let* ((modp (assq name ##sys#module-table)))
    20           (set! ##sys#module-table (##sys#delq modp ##sys#module-table))))
     20          (set! ##sys#module-table (delq modp ##sys#module-table))))
     21      (define (delq x lst)
     22        (let loop ([lst lst])
     23          (cond ((null? lst) lst)
     24                ((eq? x (##sys#slot lst 0)) (##sys#slot lst 1))
     25                (else (cons (##sys#slot lst 0) (loop (##sys#slot lst 1)))) ) ) )
    2126      (dynamic-wind
    2227       void
Note: See TracChangeset for help on using the changeset viewer.