Changeset 18073 in project


Ignore:
Timestamp:
05/13/10 19:48:35 (9 years ago)
Author:
ckeen
Message:

rename helper function, fixes #233

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/termite/trunk/match-support.scm

    r16244 r18073  
    7070
    7171;; remove duplicates (bad name...)
    72 (define (delete-duplicates lst)
     72(define (termite-delete-duplicates lst)
    7373  (cond
    7474   ((null? lst)
     
    7979   (else
    8080    (cons (car lst)
    81           (delete-duplicates (cdr lst))))))
     81          (termite-delete-duplicates (cdr lst))))))
    8282
    8383;; compile-pattern-match: generate the code for the pattern matching
     
    373373                                          (let ((code-label (gensym))
    374374                                                        (var-list
    375                                                           (delete-duplicates
     375                                                          (termite-delete-duplicates
    376376                                                                (tree-filter
    377377                                                                  (lambda (t)
Note: See TracChangeset for help on using the changeset viewer.