home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / siod / scm / merge2.scm < prev    next >
Encoding:
Text File  |  1993-05-08  |  408 b   |  12 lines
  1. (define (merge x y test)
  2.         (define tmp y)
  3.         (if (test (car y) (car x))
  4.             (begin (set! x y) (set! y tmp)))
  5.         (do ((x-ptr x (cdr x-ptr))
  6.              (y-ptr y))
  7.             ((or (null? x-ptr) (null? y-ptr)) x)
  8.             (if (test (car y) (car x))
  9.                 (begin (set! tmp (cdr x-ptr))
  10.                        (set-cdr! x-ptr y) 
  11.                        (set! y-ptr tmp)))))
  12.