Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Removed all #:transparent on structures as they are just evil.

  • Loading branch information...
commit caa41b4d258d37827b7b393fdceb3aed449ce817 1 parent abe6055
@RayRacine authored
View
2  rpr/format/fixed/parser.rkt
@@ -93,7 +93,7 @@
(bindings (build-parser-let-bindings pfields))
(args (build-ctor-args pfields)))
#`(begin
- (struct: parser-struct fields #:transparent)
+ (struct: parser-struct fields)
(define: parser-name : (String -> parser-struct)
(λ: ((line : String))
(let: bindings
View
4 rpr/format/layout-types.rkt
@@ -7,7 +7,7 @@
(struct: Field ([name : Symbol]
[type : Symbol]
[offset : Natural]
- [length : Natural]) #:transparent)
+ [length : Natural]))
(struct: Layout ([name : Symbol]
- [fields : (Listof Field)]) #:transparent)
+ [fields : (Listof Field)]))
View
2  rpr/format/tabbed/parser.rkt
@@ -96,7 +96,7 @@
(bindings (build-parser-let-bindings pfields))
(args (build-ctor-args pfields)))
#`(begin
- (struct: parser-struct fields #:transparent)
+ (struct: parser-struct fields)
(define: parser-name : (String -> parser-struct)
(λ: ((inp : (U String Input-Port)))
(let: ((inp : Input-Port (if (string? inp)
View
2  rpr/frame/categorical-series-builder.rkt
@@ -14,7 +14,7 @@
(struct: CSeriesBuilder ([index : Index]
[ord : Index]
[data : (Vectorof Index)]
- [nominals : (HashTable Symbol Index)]) #:mutable #:transparent)
+ [nominals : (HashTable Symbol Index)]) #:mutable)
(define default-cseries-size 512)
View
4 rpr/frame/categorical-series.rkt
@@ -30,8 +30,8 @@
(displayln (vector-ref nominals (vector-ref data i))))))
(struct: CSeries LabelIndex ([data : (Vectorof Index)]
- [nominals : (Vectorof Label)])
- #:transparent)
+ [nominals : (Vectorof Label)]))
+
;; #:methods gen:custom-write [(define write-proc writer-CSeries)])
(: new-CSeries ((Vectorof Label) -> CSeries))
View
2  rpr/frame/frame-print.rkt
@@ -1,7 +1,7 @@
#lang typed/racket/base
(provide:
- [ frame-write-tab (Frame Output-Port [#:heading Boolean] -> Void)]
+ [frame-write-tab (Frame Output-Port [#:heading Boolean] -> Void)]
[frame-head (case-> (Frame -> Void)
(Frame (Option Index) -> Void))])
View
4 rpr/frame/frame.rkt
@@ -54,10 +54,10 @@
(define-type Columns (Listof Column))
;; A frame is map of series.
-(struct: Frame LabelIndex ([series : (Vectorof Series)]) #:transparent)
+(struct: Frame LabelIndex ([series : (Vectorof Series)]))
(struct: FrameDescription ([dimensions : Dim]
- [series : (Listof SeriesDescription)]) #:transparent)
+ [series : (Listof SeriesDescription)]))
(: column-heading (Column -> Label))
View
2  rpr/frame/numeric-series-builder.rkt
@@ -15,7 +15,7 @@
(only-in "../frame/numeric-series.rkt"
NSeries))
(struct: NSeriesBuilder ([index : Index]
- [data : FlVector]) #:mutable #:transparent)
+ [data : FlVector]) #:mutable)
(define base-len 512)
View
2  rpr/frame/series-description.rkt
@@ -27,7 +27,7 @@
(struct: SeriesDescription ([name : Label]
[type : SeriesType]
- [count : Integer]) #:transparent)
+ [count : Integer]))
(: series-type (Series -> SeriesType))
(define (series-type series)
View
2  rpr/load/frame-builder.rkt
@@ -8,7 +8,7 @@
(only-in "../frame/series-builder.rkt"
SeriesBuilder))
-(struct: FrameBuilder ([builders : (Listof SeriesBuilder)]) #:transparent)
+(struct: FrameBuilder ([builders : (Listof SeriesBuilder)]))
(: check-all-data-processed ((Listof Any) (Listof Any) -> Boolean))
(define (check-all-data-processed l1 l2)
View
4 rpr/load/schema.rkt
@@ -25,10 +25,10 @@
(define-type SeriesTypes (U 'CATEGORICAL 'NUMERIC))
(struct: ColumnInfo ([name : Symbol]
- [type : SeriesTypes]) #:transparent)
+ [type : SeriesTypes]))
(struct: Schema ([has-headers : Boolean]
- [meta : (Listof ColumnInfo)]) #:transparent)
+ [meta : (Listof ColumnInfo)]))
(: Schema-headers (Schema -> (Listof Symbol)))
(define (Schema-headers schema)
View
2  rpr/stats/statistics.rkt
@@ -22,7 +22,7 @@
[min : Float]
[max : Float]
[count : Natural]
- [nans : Natural]) #:transparent)
+ [nans : Natural]))
;; See Knuth TAOCP vol 2, 3rd edition, page 232
;; For mean and variance.
View
6 rpr/stats/tabulate.rkt
@@ -67,10 +67,10 @@
[vector-copy (All (A) ((Vectorof A) -> (Vectorof A)))])
(struct: Tabulation ([nominals : (Vectorof Symbol)]
- [counts : (Vectorof Fixnum)]) #:transparent)
+ [counts : (Vectorof Fixnum)]))
(struct: Binning ([breaks : FlVector]
- [nominals : (Vectorof Label)]) #:transparent)
+ [nominals : (Vectorof Label)]))
(: frame-cseries-tabulate (Frame Symbol -> Frame))
(define (frame-cseries-tabulate frame symbol)
@@ -99,7 +99,7 @@
(struct: NTabulation ([start : Float]
[width : Float]
- [counts : (Vectorof Fixnum)]) #:transparent)
+ [counts : (Vectorof Fixnum)]))
(define-type Binning-Algo
(U 'Fixed 'Struges 'Doane 'Scott 'Sqr 'Freedman-Diaconis))

0 comments on commit caa41b4

Please sign in to comment.
Something went wrong with that request. Please try again.