guile/guile-core/oop goops.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/04 15:18:12

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

Log message:
        Use `re-export' instead of `export' when re-exporting
        `class-of'.

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

Patches:
Index: guile/guile-core/oop/goops.scm
diff -u guile/guile-core/oop/goops.scm:1.12 guile/guile-core/oop/goops.scm:1.13
--- guile/guile-core/oop/goops.scm:1.12 Sun Jun  3 16:32:27 2001
+++ guile/guile-core/oop/goops.scm      Mon Jun  4 15:18:12 2001
@@ -96,7 +96,7 @@
 (export
     instance?  slot-ref-using-class
     slot-set-using-class! slot-bound-using-class?
-    slot-exists-using-class? slot-ref slot-set! slot-bound? class-of
+    slot-exists-using-class? slot-ref slot-set! slot-bound?
     class-name class-direct-supers class-direct-subclasses
     class-direct-methods class-direct-slots class-precedence-list
     class-slots class-environment
@@ -105,6 +105,8 @@
     primitive-generic-generic enable-primitive-generic!
     method-procedure accessor-method-slot-definition
     slot-exists? make find-method get-keyword)
+
+(re-export class-of)  ;; from (guile)
 
 
 (define min-fixnum (- (expt 2 29)))