mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

Use re-export' instead of export' when re-exporting

Browse source 
`class-of'.
This commit is contained in:
Marius Vollmer 2001-06-04 22:18:12 +00:00
parent 4a68d142ae
commit 5a3ea50184
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
oop/goops.scm
View file

@ -96,7 +96,7 @@
(export (export
instance? slot-ref-using-class instance? slot-ref-using-class
slot-set-using-class! slot-bound-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-name class-direct-supers class-direct-subclasses
class-direct-methods class-direct-slots class-precedence-list class-direct-methods class-direct-slots class-precedence-list
class-slots class-environment class-slots class-environment
@ -106,6 +106,8 @@
method-procedure accessor-method-slot-definition method-procedure accessor-method-slot-definition
slot-exists? make find-method get-keyword) slot-exists? make find-method get-keyword)
(re-export class-of) ;; from (guile)
(define min-fixnum (- (expt 2 29))) (define min-fixnum (- (expt 2 29)))