scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Switch functions entirely to Typed Racket.

Browse source
This commit is contained in:
Sergiu Ivanov 2022-04-25 23:55:32 +02:00
parent 0e2b91fdd1
commit 9182ea9ecb
2 changed files with 602 additions and 622 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1216
functions.rkt
View file

File diff suppressed because it is too large Load diff

8
scribblings/functions.scrbl
View file

@ -8,7 +8,7 @@
(parameterize ([sandbox-output 'string] (parameterize ([sandbox-output 'string]
[sandbox-error-output 'string] [sandbox-error-output 'string]
[sandbox-memory-limit 50]) [sandbox-memory-limit 50])
(make-evaluator 'typed/racket #:requires '((submod "functions.rkt" typed))))) (make-evaluator 'typed/racket #:requires '("functions.rkt"))))
@(define-syntax-rule (ex . args) @(define-syntax-rule (ex . args)
(examples #:eval functions-evaluator . args)) (examples #:eval functions-evaluator . args))
@ -610,10 +610,10 @@ See also @racket[read-org-tbfs].
} }
@section[#:tag "fuctions/untyped"]{Untyped definitions} @section[#:tag "fuctions/untyped"]{Untyped definitions}
@defmodule[(submod dds/functions typed untyped)] @defmodule[(submod dds/functions untyped)]
@(require (for-label (only-in racket/contract/base listof any/c) @(require (for-label (only-in racket/contract/base listof any/c)
(for-label (only-in (submod "../functions.rkt" typed untyped) (for-label (only-in (submod "../functions.rkt" untyped)
tabulate/boolean tabulate*/boolean tabulate/boolean tabulate*/boolean
tabulate/01 tabulate*/01)))) tabulate/01 tabulate*/01))))
@ -632,7 +632,7 @@ accompanied by the explicit mention "untyped".
(parameterize ([sandbox-output 'string] (parameterize ([sandbox-output 'string]
[sandbox-error-output 'string] [sandbox-error-output 'string]
[sandbox-memory-limit 50]) [sandbox-memory-limit 50])
(make-evaluator 'racket #:requires '((submod "functions.rkt" typed untyped))))) (make-evaluator 'racket #:requires '((submod "functions.rkt" untyped)))))
@(define-syntax-rule (ex/untyped . args) @(define-syntax-rule (ex/untyped . args)
(examples #:eval functions-evaluator/untyped . args)) (examples #:eval functions-evaluator/untyped . args))