diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-03-01 15:37:05 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-03-01 15:37:05 +0100 |
| commit | 77cfd7e4bfbf8271a5b75a62bbad3ce0bf79f209 (patch) | |
| tree | 7ade522f149403483a26fb71f288f3ecf17fdd78 /module | |
| parent | a86bb2e613f050e63275c357d7df41f019d5efc8 (diff) | |
Fix class slot allocation since GOOPS rewrite
* module/oop/goops.scm (%compute-layout): Fix class slot layout.
Before, a #:class that was an argument to #:allocation was getting
interpreted as a keyword with a value.
* test-suite/tests/goops.test ("#:class slot allocation"): Add test.
Diffstat (limited to 'module')
| -rw-r--r-- | module/oop/goops.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index ece03c6e0..b7d980dce 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -765,7 +765,7 @@ slots as we go." (define (slot-protection-and-kind slot) (define (subclass? class parent) (memq parent (class-precedence-list class))) - (let ((type (kw-arg-ref (%slot-definition-options slot) #:class))) + (let ((type (get-keyword #:class (%slot-definition-options slot)))) (if (and type (subclass? type <foreign-slot>)) (values (cond ((subclass? type <self-slot>) #\s) |