From 78ec533c40f83b200a529beb12d75e50c4384b23 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 19 May 2001 00:19:25 +0000
Subject: [PATCH] Call `%init-goops-builtins' instead of using the `(oop goops
 goopscore)' module.

---
 oop/goops.scm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/oop/goops.scm b/oop/goops.scm
index 7cf7c7b64..162cd2811 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -27,12 +27,15 @@
 ;;;;
 
 (define-module (oop goops)
-  :use-module (oop goops goopscore)
-  :use-module (oop goops util)
-  :use-module (oop goops dispatch)
-  :use-module (oop goops compile)
-  :no-backtrace
-  )
+  :no-backtrace)
+
+;; First initialize the builtin part of GOOPS
+(%init-goops-builtins)
+
+;; 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
     goops-version is-a?