mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Call `%init-goops-builtins' instead of using the

Browse source 
`(oop goops goopscore)' module.
This commit is contained in:
Marius Vollmer 2001-05-19 00:19:25 +00:00
parent 94451729e0
commit 78ec533c40
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
oop/goops.scm
View file

@ -27,12 +27,15 @@
;;;; ;;;;
(define-module (oop goops) (define-module (oop goops)
:use-module (oop goops goopscore) :no-backtrace)
:use-module (oop goops util)
:use-module (oop goops dispatch) ;; First initialize the builtin part of GOOPS
:use-module (oop goops compile) (%init-goops-builtins)
:no-backtrace
) ;; Then load the rest of GOOPS
(use-modules (oop goops util)
(oop goops dispatch)
(oop goops compile)
(export ; Define the exported symbols of this file (export ; Define the exported symbols of this file
goops-version is-a? goops-version is-a?