Changeset 38761 in project for release

Timestamp:

06/21/20 20:18:10 (7 months 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:

• coops-introspection.scm (modified) (1 diff)
• coops-utils.egg (modified) (2 diffs)
• tests/coops-utils-test.scm (modified) (1 diff)

release/5/coops-utils/trunk/coops-introspection.scm

@@ -272 +272 @@
   (*method-specializers (check-method 'method-specializers method)) )
 
-(: method-procedure (coops-method -> list))
+(: method-procedure (coops-method -> *))
 ;
 (define (method-procedure method)

release/5/coops-utils/trunk/coops-utils.egg

@@ -3 +3 @@
 
 ((synopsis "coops utilities")
- (version "2.1.1")
+ (version "2.1.2")
  (category oop)
  (license "BSD")
@@ -17 +17 @@
   (extension closure-raw-introspection
     (types-file)
-    (csc-options
-      "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
+    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
   (extension coops-introspection
     (types-file)
-    (csc-options
-      "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
+    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
   (extension coops-describe
     (types-file)
-    (csc-options
-      "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
+    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
   (extension coops-extras
     (types-file)
-    (csc-options
-      "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") )
+    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") )
   (extension coops-utils
     (types-file)
     (component-dependencies coops-describe coops-introspection coops-extras)
-    (csc-options
-      "-O3" "-d1" "-local" "-no-procedure-checks-for-toplevel-bindings") ) ) )
+    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") ) ) )

release/5/coops-utils/trunk/tests/coops-utils-test.scm

@@ -66 +66 @@
   (for-each
     (lambda (x)
+      (test-assert (method? x))
+      (test-assert (procedure? (method-procedure x)))
       (let ((specials (method-specializers x)))
         (test-assert (list? specials))
-        (test-assert (every class? specials)) )
-      (test-assert (procedure? (method-procedure x)))
-      (test-assert (method? x)) )
+        (test-assert (every class? specials)) ) )
     primaries) )