home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / siod / scm / index.scm < prev    next >
Encoding:
Text File  |  1993-02-21  |  683 b   |  21 lines
  1. (define (insert-ord st l t)
  2.         (cond ((null? l) (append t (list st)))
  3.               ((string>? st (car l))
  4.                    (append t 
  5.                            (list st) 
  6.                            l))
  7.               (else (insert-ord st 
  8.                                 (cdr l) 
  9.                                 (append t 
  10.                                         (list (car l)))))))
  11.  
  12. (define l nil)
  13.  
  14. (define (ord-obl)
  15.         (for-each (lambda (x) 
  16.                           (set! l 
  17.                                 (insert-ord (symbol->string x) 
  18.                                             l 
  19.                                             nil)))
  20.                   (oblist)))
  21.