fix trait bug found by Ryan

svn: r6653

original commit: 2385d8bd9318c1f25e1cc34642853aa8f5123180
This commit is contained in:
Matthew Flatt 2007-06-13 22:47:17 +00:00
parent 251d76073b
commit 31a56be75c

View File

@ -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: