fix trait bug found by Ryan
svn: r6653 original commit: 2385d8bd9318c1f25e1cc34642853aa8f5123180
This commit is contained in:
parent
251d76073b
commit
31a56be75c
|
@ -12,6 +12,7 @@
|
||||||
generate-class-expand-context))
|
generate-class-expand-context))
|
||||||
|
|
||||||
(provide (rename :trait trait)
|
(provide (rename :trait trait)
|
||||||
|
trait?
|
||||||
trait->mixin
|
trait->mixin
|
||||||
trait-sum
|
trait-sum
|
||||||
trait-exclude trait-exclude-field
|
trait-exclude trait-exclude-field
|
||||||
|
@ -65,7 +66,7 @@
|
||||||
(augride)
|
(augride)
|
||||||
(overment)
|
(overment)
|
||||||
(inherit) (inherit/super) (inherit/inner)
|
(inherit) (inherit/super) (inherit/inner)
|
||||||
(inherit-fields)))))]
|
(inherit-field)))))]
|
||||||
[(fields)
|
[(fields)
|
||||||
(extract-fields expanded-clauses)])
|
(extract-fields expanded-clauses)])
|
||||||
;; Every declaration implies direct use for other declarations:
|
;; Every declaration implies direct use for other declarations:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user