mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Preparation for more GOOPS refactorings

Browse source 
* libguile/goops.c (scm_sys_goops_early_init)
  (scm_init_goops_builtins): Factor out some initialization to a
  separate helper.  This will be the base for moving more things from C
  to Scheme in the future.

* module/oop/goops.scm: Call %goops-early-init.
This commit is contained in:
Andy Wingo 2014-12-24 11:29:45 -05:00
parent 6ab1939653
commit 82ab50900a
2 changed files with 29 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/oop/goops.scm
View file

@ -207,6 +207,9 @@
(use-modules ((language tree-il primitives) :select (add-interesting-primitive!)))
(add-interesting-primitive! 'class-of))
(eval-when (compile load eval)
(%goops-early-init))
;; Then load the rest of GOOPS
(use-modules (oop goops util)
(oop goops dispatch)