Inline internal slot accessors
authorAndy Wingo <wingo@pobox.com>
Mon, 19 Jan 2015 11:20:50 +0000 (12:20 +0100)
committerAndy Wingo <wingo@pobox.com>
Fri, 23 Jan 2015 15:16:04 +0000 (16:16 +0100)
commit2a3ef7c44bcd2ec2067da55582dabc72d5129f25
tree2ae2c41ec8fe4818540f07a78a4e8bcea2aa86bf
parentc4974c57997dfd0a10628a6f5d215c02e6ec9548
Inline internal slot accessors

* module/oop/goops.scm (define-slot-accessor): Also define internal
  accessors without the type check for when we know that the object is a
  slot.  Adapt struct-ref users to use these variants.
module/oop/goops.scm