Changeset 37653 in project


Ignore:
Timestamp:
06/06/19 10:05:22 (3 months ago)
Author:
felix winkelmann
Message:

coops 1.1: define dummy record for coops-instance, avoid using raw record-type name in internal predicate, fix missing dependency in egg file

Location:
release/5/coops
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/coops/tags/1.1/coops-module.scm

    r35591 r37653  
    1414               <standard-class>
    1515               <standard-object>
     16               coops-instance
    1617               make
    1718               make-class
  • release/5/coops/tags/1.1/coops.egg

    r35707 r37653  
    55 (dependencies matchable miscmacros record-variants srfi-1)
    66 (test-dependencies test)
    7  (components (extension coops (source "coops-module.scm"))
     7 (components (extension coops
     8                        (source "coops-module.scm")
     9                        (source-dependencies "coops.scm"))
    810             (extension coops-primitive-objects (component-dependencies coops))))
  • release/5/coops/tags/1.1/coops.scm

    r35591 r37653  
    1515(import-for-syntax matchable (chicken plist) srfi-1)
    1616
     17;; this will be overridden
     18(define-record coops-instance class slots)
     19
    1720(define-record-variant coops-instance (unsafe inline unchecked)
    1821  class                                 ; CLASS (instance)
     
    3336
    3437(define-inline (check-instance x loc)
    35   (##sys#check-structure x 'coops-instance loc))
     38  (##sys#check-structure x coops-instance loc))
    3639
    3740(define <standard-class>
     
    158161
    159162(define-inline (fast-class-of o)
    160   (if (##sys#structure? o 'coops-instance)
     163  (if (##sys#structure? o coops-instance)
    161164      (##sys#slot o 1)
    162165      (primitive-class-hook o)))
  • release/5/coops/trunk/coops-module.scm

    r35591 r37653  
    1414               <standard-class>
    1515               <standard-object>
     16               coops-instance
    1617               make
    1718               make-class
  • release/5/coops/trunk/coops.egg

    r35707 r37653  
    55 (dependencies matchable miscmacros record-variants srfi-1)
    66 (test-dependencies test)
    7  (components (extension coops (source "coops-module.scm"))
     7 (components (extension coops
     8                        (source "coops-module.scm")
     9                        (source-dependencies "coops.scm"))
    810             (extension coops-primitive-objects (component-dependencies coops))))
  • release/5/coops/trunk/coops.scm

    r35591 r37653  
    1515(import-for-syntax matchable (chicken plist) srfi-1)
    1616
     17;; this will be overridden
     18(define-record coops-instance class slots)
     19
    1720(define-record-variant coops-instance (unsafe inline unchecked)
    1821  class                                 ; CLASS (instance)
     
    3336
    3437(define-inline (check-instance x loc)
    35   (##sys#check-structure x 'coops-instance loc))
     38  (##sys#check-structure x coops-instance loc))
    3639
    3740(define <standard-class>
     
    158161
    159162(define-inline (fast-class-of o)
    160   (if (##sys#structure? o 'coops-instance)
     163  (if (##sys#structure? o coops-instance)
    161164      (##sys#slot o 1)
    162165      (primitive-class-hook o)))
Note: See TracChangeset for help on using the changeset viewer.