Allow GOOPS getters to add methods to primitive generics
authorMark H Weaver <mhw@netris.org>
Sat, 12 Feb 2011 10:43:17 +0000 (05:43 -0500)
committerAndy Wingo <wingo@pobox.com>
Mon, 14 Feb 2011 19:33:11 +0000 (20:33 +0100)
commit4fb8bc64a0c5d074ab6658b763dfe24449f3d3b4
tree7bd7e28fd93093db21f3860cea65b2a0802c325e
parent5093e51839bb1246e96547a25ae41b4c4d92e1f7
Allow GOOPS getters to add methods to primitive generics

* module/oop/goops.scm (ensure-generic): If the old definition of a
  desired getter is a primitive generic, let the new method be added to
  it instead of creating a fresh new generic.

  (ensure-accessor): Modify as necessary to keep the old behavior.
  Maybe something more optimal can be done here, but it's not yet
  obvious to me how to do it.
module/oop/goops.scm