From 5a3ea5018402c102b8c03e71b38dcd6738c79057 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 4 Jun 2001 22:18:12 +0000 Subject: [PATCH] Use `re-export' instead of `export' when re-exporting `class-of'. --- oop/goops.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))