5a43f2c6bc
Cleaned up other docs in preparation for alpha-testing announcement Created `math/utils' module for stuff that doesn't go anywhere else (e.g. FFT scaling convention, max-math-threads parameters) Reduced the number of macros that expand to applications of `array-map' Added `flvector-sum', defined `flsum' in terms of it Reduced the number of pointwise `flvector', `flarray' and `fcarray' operations Reworked `inline-build-flvector' and `inline-flvector-map' to be faster and expand to less code in both typed and untyped Racket Redefined conversions like `list->flvector' in terms of for loops (can do it now that TR has working `for/flvector:', etc.)
41 lines
1.6 KiB
Racket
41 lines
1.6 KiB
Racket
#lang racket/base
|
|
|
|
(require (for-syntax racket/base)
|
|
"private/flonum/flonum-bits.rkt"
|
|
"private/flonum/flonum-constants.rkt"
|
|
"private/flonum/flonum-functions.rkt"
|
|
"private/flonum/flonum-search.rkt"
|
|
"private/flonum/flonum-exp.rkt"
|
|
"private/flonum/flonum-log.rkt"
|
|
"private/flonum/flonum-more-functions.rkt"
|
|
"private/flonum/flonum-factorial.rkt"
|
|
"private/flonum/flonum-log1pmx.rkt"
|
|
"private/flonum/flonum-polyfun.rkt"
|
|
"private/flonum/flonum-syntax.rkt"
|
|
"private/flonum/expansion/expansion-base.rkt"
|
|
"private/flonum/expansion/expansion-exp.rkt"
|
|
"private/flonum/expansion/expansion-log.rkt"
|
|
"private/flonum/flvector.rkt")
|
|
|
|
(provide (all-from-out
|
|
"private/flonum/flonum-bits.rkt"
|
|
"private/flonum/flonum-constants.rkt"
|
|
"private/flonum/flonum-functions.rkt"
|
|
"private/flonum/flonum-search.rkt"
|
|
"private/flonum/flonum-exp.rkt"
|
|
"private/flonum/flonum-log.rkt"
|
|
"private/flonum/flonum-more-functions.rkt"
|
|
"private/flonum/flonum-factorial.rkt"
|
|
"private/flonum/flonum-log1pmx.rkt"
|
|
"private/flonum/flonum-polyfun.rkt"
|
|
"private/flonum/flonum-syntax.rkt"
|
|
"private/flonum/expansion/expansion-base.rkt"
|
|
"private/flonum/expansion/expansion-exp.rkt"
|
|
"private/flonum/expansion/expansion-log.rkt"
|
|
"private/flonum/flvector.rkt")
|
|
lg* lg/ lgprod)
|
|
|
|
(define-syntax lg* (make-rename-transformer #'fl+))
|
|
(define-syntax lg/ (make-rename-transformer #'fl-))
|
|
(define-syntax lgprod (make-rename-transformer #'flsum))
|