■

今後、微妙に使うかも知れないコードを書いたので、忘れないように、一応ココに張って、残しておく。

(define (delete-keywords delete-key-list target-kv-list)
  (let loop ((left target-kv-list)
             (result '()))
    (if (null? left)
      result
      (let ((now-keyword (car left))
            (now-keyword-value (cadr left))
            (next (cddr left)))
        (loop
          next
          (if (memq now-keyword delete-key-list)
            result
            (list* now-keyword now-keyword-value result)))))))