diff options
author | Andy Wingo <wingo@pobox.com> | 2017-09-22 16:19:38 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-09-22 16:19:38 +0200 |
commit | 28d5e81c133904148c191e7b2368e3c4d7cad567 (patch) | |
tree | 2c4aa4bd867ccd1db6526504910444464ccec15e /module/oop | |
parent | b036422d154f7517a4a00aa2c4e852318220166d (diff) | |
download | guile-28d5e81c133904148c191e7b2368e3c4d7cad567.tar.gz |
Remove <int-slot>, <float-slot>, <double-slot>
* module/oop/goops.scm (<int-slot>, <float-slot>, <double-slot>): Remove
slot classes that never did anything.
Diffstat (limited to 'module/oop')
-rw-r--r-- | module/oop/goops.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index c883320f9..bbf7ff604 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -44,7 +44,7 @@ <foreign-slot> <protected-slot> <hidden-slot> <opaque-slot> <read-only-slot> <protected-opaque-slot> <protected-hidden-slot> <protected-read-only-slot> - <scm-slot> <int-slot> <float-slot> <double-slot> + <scm-slot> ;; Redefinable classes. <redefinable-class> @@ -890,9 +890,6 @@ slots as we go." (define-standard-class <protected-read-only-slot> (<protected-slot> <read-only-slot>)) (define-standard-class <scm-slot> (<protected-slot>)) -(define-standard-class <int-slot> (<foreign-slot>)) -(define-standard-class <float-slot> (<foreign-slot>)) -(define-standard-class <double-slot> (<foreign-slot>)) |