diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-04 22:18:12 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-04 22:18:12 +0000 |
commit | 5a3ea5018402c102b8c03e71b38dcd6738c79057 (patch) | |
tree | f91cd61a2c93b0127aaab0287efb085998e84b46 /oop/goops.scm | |
parent | 4a68d142ae7bce2f18517ae37a6d1f51849a6adb (diff) | |
download | guile-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.scm | 4 |
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))) |