mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

%init-goops-builtins is an extension, not a global

Browse source 
* libguile/goops.h:
* libguile/goops.c (scm_init_goops, scm_init_goops_builtins): Move
  %init-goops-builtins to be an extension instead of a globally
  accessible function.

* module/oop/goops.scm: Adapt.
This commit is contained in:
Andy Wingo 2014-12-24 11:07:47 -05:00
parent 9167e0b88d
commit 6ab1939653
3 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/oop/goops.scm
View file

@ -200,7 +200,8 @@
;; First initialize the builtin part of GOOPS
(eval-when (compile load eval)
(%init-goops-builtins))
(load-extension (string-append "libguile-" (effective-version))
"scm_init_goops_builtins"))
(eval-when (compile load eval)
(use-modules ((language tree-il primitives) :select (add-interesting-primitive!)))