Changeset 34193 in project


Ignore:
Timestamp:
06/19/17 17:22:49 (5 months ago)
Author:
kon
Message:

fix per sandra snan to make/copy

Location:
release/4/coops-utils
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/coops-utils/tags/1.0.2/coops-extras.scm

    r33518 r34193  
    11;;;; coops-extras.scm
     2;;;; Kon Lovett, Jun '17
    23;;;; Kon Lovett, Aug '10
    34
    45(module coops-extras
    56
    6   (;export
    7     slot@
    8     make/copy
    9     describe-object)
     7(;export
     8  slot@
     9  make/copy
     10  describe-object)
    1011
    11   (import
    12     scheme
    13     chicken
    14     (only extras fprintf)
    15     (only srfi-1 fold remove)
    16     (only srfi-13 string-pad)
    17     coops
    18     coops-introspection)
     12(import scheme)
     13(import
     14  chicken
     15  (only extras fprintf)
     16  (only srfi-1 fold remove)
     17  (only srfi-13 string-pad))
    1918
    20   (require-library
    21     extras srfi-1 srfi-13
    22     coops-introspection coops)
     19(require-extension coops-introspection coops)
    2320
    2421;;; Helpers
     
    3633  (fold
    3734    (lambda (slot ls)
    38       (cons slot (cons (slot-value x slot) ls)) )
     35      ;per Jun 19, '17 email from Sandra Snan
     36      (if (slot-initialized? x slot)
     37        (cons slot (cons (slot-value x slot) ls))
     38        ls ) )
    3939    base
    4040    slots) )
  • release/4/coops-utils/tags/1.0.2/coops-introspection.scm

    r33518 r34193  
    1111(module coops-introspection
    1212
    13   (;export
    14     ;
    15     class-cpl class-supers  ;= class-precedence-list
    16     primitive?              ;= primitive-instance?
    17     generic-methods         ;= generic-primary-methods
    18     ;
    19     instance-of?
    20     class? check-class error-class
    21     instance? check-instance error-instance
    22     generic? check-generic error-generic
    23     method? check-method error-method
    24     primitive-instance?
    25     ;
    26     class-precedence-list class-direct-supers
    27     class-slots class-direct-slots
    28     ;
    29     generic-anonymous?
    30     generic-name
    31     generic-specialized-arguments
    32     generic-primary-methods
    33     generic-before-methods
    34     generic-after-methods
    35     generic-around-methods
    36     ;
    37     method-specializers
    38     method-procedure)
    39 
    40   (import
    41     scheme
    42     chicken
    43     (only srfi-1 every fold-right lset-difference lset-union)
    44     (only type-checks define-check+error-type)
    45     coops)
    46 
    47   (require-library
    48     srfi-1
    49     type-checks coops)
     13(;export
     14  ;
     15  class-cpl class-supers  ;= class-precedence-list
     16  primitive?              ;= primitive-instance?
     17  generic-methods         ;= generic-primary-methods
     18  ;
     19  instance-of?
     20  class? check-class error-class
     21  instance? check-instance error-instance
     22  generic? check-generic error-generic
     23  method? check-method error-method
     24  primitive-instance?
     25  ;
     26  class-precedence-list class-direct-supers
     27  class-slots class-direct-slots
     28  ;
     29  generic-anonymous?
     30  generic-name
     31  generic-specialized-arguments
     32  generic-primary-methods
     33  generic-before-methods
     34  generic-after-methods
     35  generic-around-methods
     36  ;
     37  method-specializers
     38  method-procedure)
     39
     40(import scheme)
     41(import
     42  chicken
     43  (only srfi-1 every fold-right lset-difference lset-union))
     44
     45(import
     46  (only type-checks define-check+error-type))
     47(require-library type-checks)
     48
     49(require-extension coops)
    5050
    5151;;; Helpers
  • release/4/coops-utils/tags/1.0.2/coops-utils.scm

    r27968 r34193  
    44(module coops-utils ()
    55
    6   (import scheme chicken)
    7   (reexport coops-introspection coops-extras)
    8   (require-library coops-introspection coops-extras)
     6(import scheme chicken)
     7(reexport coops-introspection coops-extras)
     8(require-library coops-introspection coops-extras)
    99
    1010) ;coops-utils
  • release/4/coops-utils/tags/1.0.2/coops-utils.setup

    r33518 r34193  
    55(verify-extension-name "coops-utils")
    66
    7 (setup-shared-extension-module 'coops-introspection (extension-version "1.0.1")
     7(setup-shared-extension-module 'coops-introspection (extension-version "1.0.2")
    88  #:types? #t
    99  #:inline? #t
    1010  #:compile-options '(-scrutinize -local -fixnum-arithmetic -no-procedure-checks) )
    1111
    12 (setup-shared-extension-module 'coops-extras (extension-version "1.0.1")
     12(setup-shared-extension-module 'coops-extras (extension-version "1.0.2")
    1313  #:types? #t
    1414  #:inline? #t
    1515  #:compile-options '(-scrutinize -local -fixnum-arithmetic -no-procedure-checks) )
    1616
    17 (setup-shared-extension-module 'coops-utils (extension-version "1.0.1")
     17(setup-shared-extension-module 'coops-utils (extension-version "1.0.2")
    1818  #:types? #t
    1919  #:inline? #t
  • release/4/coops-utils/trunk/coops-extras.scm

    r33518 r34193  
    11;;;; coops-extras.scm
     2;;;; Kon Lovett, Jun '17
    23;;;; Kon Lovett, Aug '10
    34
    45(module coops-extras
    56
    6   (;export
    7     slot@
    8     make/copy
    9     describe-object)
     7(;export
     8  slot@
     9  make/copy
     10  describe-object)
    1011
    11   (import
    12     scheme
    13     chicken
    14     (only extras fprintf)
    15     (only srfi-1 fold remove)
    16     (only srfi-13 string-pad)
    17     coops
    18     coops-introspection)
     12(import scheme)
     13(import
     14  chicken
     15  (only extras fprintf)
     16  (only srfi-1 fold remove)
     17  (only srfi-13 string-pad))
    1918
    20   (require-library
    21     extras srfi-1 srfi-13
    22     coops-introspection coops)
     19(require-extension coops-introspection coops)
    2320
    2421;;; Helpers
     
    3633  (fold
    3734    (lambda (slot ls)
    38       (cons slot (cons (slot-value x slot) ls)) )
     35      ;per Jun 19, '17 email from Sandra Snan
     36      (if (slot-initialized? x slot)
     37        (cons slot (cons (slot-value x slot) ls))
     38        ls ) )
    3939    base
    4040    slots) )
  • release/4/coops-utils/trunk/coops-introspection.scm

    r33518 r34193  
    1111(module coops-introspection
    1212
    13   (;export
    14     ;
    15     class-cpl class-supers  ;= class-precedence-list
    16     primitive?              ;= primitive-instance?
    17     generic-methods         ;= generic-primary-methods
    18     ;
    19     instance-of?
    20     class? check-class error-class
    21     instance? check-instance error-instance
    22     generic? check-generic error-generic
    23     method? check-method error-method
    24     primitive-instance?
    25     ;
    26     class-precedence-list class-direct-supers
    27     class-slots class-direct-slots
    28     ;
    29     generic-anonymous?
    30     generic-name
    31     generic-specialized-arguments
    32     generic-primary-methods
    33     generic-before-methods
    34     generic-after-methods
    35     generic-around-methods
    36     ;
    37     method-specializers
    38     method-procedure)
    39 
    40   (import
    41     scheme
    42     chicken
    43     (only srfi-1 every fold-right lset-difference lset-union)
    44     (only type-checks define-check+error-type)
    45     coops)
    46 
    47   (require-library
    48     srfi-1
    49     type-checks coops)
     13(;export
     14  ;
     15  class-cpl class-supers  ;= class-precedence-list
     16  primitive?              ;= primitive-instance?
     17  generic-methods         ;= generic-primary-methods
     18  ;
     19  instance-of?
     20  class? check-class error-class
     21  instance? check-instance error-instance
     22  generic? check-generic error-generic
     23  method? check-method error-method
     24  primitive-instance?
     25  ;
     26  class-precedence-list class-direct-supers
     27  class-slots class-direct-slots
     28  ;
     29  generic-anonymous?
     30  generic-name
     31  generic-specialized-arguments
     32  generic-primary-methods
     33  generic-before-methods
     34  generic-after-methods
     35  generic-around-methods
     36  ;
     37  method-specializers
     38  method-procedure)
     39
     40(import scheme)
     41(import
     42  chicken
     43  (only srfi-1 every fold-right lset-difference lset-union))
     44
     45(import
     46  (only type-checks define-check+error-type))
     47(require-library type-checks)
     48
     49(require-extension coops)
    5050
    5151;;; Helpers
  • release/4/coops-utils/trunk/coops-utils.scm

    r27968 r34193  
    44(module coops-utils ()
    55
    6   (import scheme chicken)
    7   (reexport coops-introspection coops-extras)
    8   (require-library coops-introspection coops-extras)
     6(import scheme chicken)
     7(reexport coops-introspection coops-extras)
     8(require-library coops-introspection coops-extras)
    99
    1010) ;coops-utils
  • release/4/coops-utils/trunk/coops-utils.setup

    r33518 r34193  
    55(verify-extension-name "coops-utils")
    66
    7 (setup-shared-extension-module 'coops-introspection (extension-version "1.0.1")
     7(setup-shared-extension-module 'coops-introspection (extension-version "1.0.2")
    88  #:types? #t
    99  #:inline? #t
    1010  #:compile-options '(-scrutinize -local -fixnum-arithmetic -no-procedure-checks) )
    1111
    12 (setup-shared-extension-module 'coops-extras (extension-version "1.0.1")
     12(setup-shared-extension-module 'coops-extras (extension-version "1.0.2")
    1313  #:types? #t
    1414  #:inline? #t
    1515  #:compile-options '(-scrutinize -local -fixnum-arithmetic -no-procedure-checks) )
    1616
    17 (setup-shared-extension-module 'coops-utils (extension-version "1.0.1")
     17(setup-shared-extension-module 'coops-utils (extension-version "1.0.2")
    1818  #:types? #t
    1919  #:inline? #t
Note: See TracChangeset for help on using the changeset viewer.