summaryrefslogtreecommitdiff
path: root/oop/goops.scm
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-06-04 22:18:12 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-06-04 22:18:12 +0000
commit5a3ea5018402c102b8c03e71b38dcd6738c79057 (patch)
treef91cd61a2c93b0127aaab0287efb085998e84b46 /oop/goops.scm
parent4a68d142ae7bce2f18517ae37a6d1f51849a6adb (diff)
downloadguile-5a3ea5018402c102b8c03e71b38dcd6738c79057.tar.gz
Use `re-export' instead of `export' when re-exporting
`class-of'.
Diffstat (limited to 'oop/goops.scm')
-rw-r--r--oop/goops.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/oop/goops.scm b/oop/goops.scm
index 8445d20b1..4f997da3f 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -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
@@ -106,6 +106,8 @@
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)))