Changeset 38761 in project for release


Ignore:
Timestamp:
06/21/20 20:18:10 (7 weeks ago)
Author:
Kon Lovett
Message:

fix method-procedure return type, rearrange tests from less -> more specific, bump version

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

Legend:

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

    r38400 r38761  
    272272  (*method-specializers (check-method 'method-specializers method)) )
    273273
    274 (: method-procedure (coops-method -> list))
     274(: method-procedure (coops-method -> *))
    275275;
    276276(define (method-procedure method)
  • release/5/coops-utils/trunk/coops-utils.egg

    r38535 r38761  
    33
    44((synopsis "coops utilities")
    5  (version "2.1.1")
     5 (version "2.1.2")
    66 (category oop)
    77 (license "BSD")
     
    1717  (extension closure-raw-introspection
    1818    (types-file)
    19     (csc-options
    20       "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
     19    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
    2120  (extension coops-introspection
    2221    (types-file)
    23     (csc-options
    24       "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
     22    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
    2523  (extension coops-describe
    2624    (types-file)
    27     (csc-options
    28       "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
     25    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
    2926  (extension coops-extras
    3027    (types-file)
    31     (csc-options
    32       "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
     28    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
    3329  (extension coops-utils
    3430    (types-file)
    3531    (component-dependencies coops-describe coops-introspection coops-extras)
    36     (csc-options
    37       "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") ) ) )
     32    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") ) ) )
  • release/5/coops-utils/trunk/tests/coops-utils-test.scm

    r38441 r38761  
    6666  (for-each
    6767    (lambda (x)
     68      (test-assert (method? x))
     69      (test-assert (procedure? (method-procedure x)))
    6870      (let ((specials (method-specializers x)))
    6971        (test-assert (list? specials))
    70         (test-assert (every class? specials)) )
    71       (test-assert (procedure? (method-procedure x)))
    72       (test-assert (method? x)) )
     72        (test-assert (every class? specials)) ) )
    7373    primaries) )
    7474
Note: See TracChangeset for help on using the changeset viewer.