Changeset 37868 in project


Ignore:
Timestamp:
09/01/19 10:44:56 (3 weeks ago)
Author:
Kon Lovett
Message:

scheme is not indempotent

Location:
release/5/coops-utils/trunk
Files:
2 edited

Legend:

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

    r37866 r37868  
    2626;;;coops-introspection
    2727
    28 (: *class-slots (coops-class --> list))
     28(: *class-slots (coops-class -> list))
    2929;
    3030(define (*class-slots class)
     
    3636
    3737;memq is not specific enough
    38 (: plist-key? (symbol plist --> boolean))
     38(: plist-key? (symbol plist -> boolean))
    3939;
    4040(define (plist-key? key ls)
     
    4747        (adv (cddr ls)) ) ) ) )
    4848
    49 (: plist-cons (symbol * plist --> plist))
     49(: plist-cons (symbol * plist -> plist))
    5050;
    5151(define (plist-cons key val ls) (cons* key val ls))
     
    5454
    5555;memq is not specific enough
    56 (: initslot? (symbol list --> boolean))
     56(: initslot? (symbol list -> boolean))
    5757;
    5858(define (initslot? slot initforms) (plist-key? slot initforms))
    5959
    60 (: slot-values (coops-instance (list-of symbol) #!optional list --> list))
     60(: slot-values (coops-instance (list-of symbol) #!optional list -> list))
    6161;
    6262(define (slot-values x slots #!optional (base '()))
     
    6969    slots) )
    7070
    71 (: shadowed-initforms (coops-instance list #!optional coops-class --> list))
     71(: shadowed-initforms (coops-instance list #!optional coops-class -> list))
    7272;
    7373(define (shadowed-initforms obj initforms #!optional (class (class-of obj)))
     
    9797
    9898;use w/ <primitive-object> is very suspect
    99 (: make-copy (coops-instance #!rest --> *))
     99(: make-copy (coops-instance #!rest -> *))
    100100;
    101101(define (make-copy obj . initforms)
  • release/5/coops-utils/trunk/coops-utils.egg

    r36628 r37868  
    33
    44((synopsis "coops utilities")
    5  (version "2.1.0")
     5 (version "2.2.0")
    66 (category oop)
    77 (license "BSD")
Note: See TracChangeset for help on using the changeset viewer.