Changeset 38249 in project


Ignore:
Timestamp:
03/14/20 18:33:47 (3 weeks ago)
Author:
Kon Lovett
Message:

redundant alist type component, remove unused (& of any possible use?) code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/list-utils/trunk/list-utils.scm

    r35985 r38249  
    5656(define-type binary-predicate (* * --> boolean))
    5757
    58 (define-type alist (or null (list-of (pair * *))))
     58(define-type alist (or null (list-of pair)))
    5959
    6060;;
    6161
    6262(define-error-type plist)
     63
     64;;
     65
     66#| ;UNUSED
     67(import (chicken sort))
     68
     69(: sort-alist (alist #!optional procedure -> alist))
     70;
     71(define (sort-alist xs #!optional (lt? <))
     72  (sort xs (lambda (a b) (lt? (car a) (car b)))) )
     73
     74(: sort-alist! (alist #!optional procedure -> void))
     75;
     76(define (sort-alist! xs #!optional (lt? <))
     77  (sort! xs (lambda (a b) (lt? (car a) (car b)))) )
     78|#
    6379
    6480;;;
Note: See TracChangeset for help on using the changeset viewer.