diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-12-24 11:29:45 -0500 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:15:59 +0100 |
| commit | 82ab50900aa182cba4731a09a9e15d1978e4888e (patch) | |
| tree | b38460be5f68237d45cca98db7a13a12c144b585 /module/oop | |
| parent | 6ab19396539d9f4dffed0fc80c754e3e61bdc08c (diff) | |
| download | guile-82ab50900aa182cba4731a09a9e15d1978e4888e.tar.gz | |
Preparation for more GOOPS refactorings
* 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.
Diffstat (limited to 'module/oop')
| -rw-r--r-- | module/oop/goops.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index dfe4d6cad..efa9f0390 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -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) |