guile-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

guile/guile-core/oop goops.scm


From: Marius Vollmer
Subject: guile/guile-core/oop goops.scm
Date: Fri, 18 May 2001 17:19:25 -0700

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/18 17:19:25

Modified files:
        guile-core/oop : goops.scm 

Log message:
        Call `%init-goops-builtins' instead of using the
        `(oop goops goopscore)' module.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops.scm.diff?cvsroot=OldCVS&tr1=1.9&tr2=1.10&r1=text&r2=text

Patches:
Index: guile/guile-core/oop/goops.scm
diff -u guile/guile-core/oop/goops.scm:1.9 guile/guile-core/oop/goops.scm:1.10
--- guile/guile-core/oop/goops.scm:1.9  Sat May  5 12:08:32 2001
+++ guile/guile-core/oop/goops.scm      Fri May 18 17:19:25 2001
@@ -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?



reply via email to

[Prev in Thread] Current Thread [Next in Thread]