79 lines
2.4 KiB
Racket
79 lines
2.4 KiB
Racket
#lang scheme/base
|
|
|
|
(require "private/teach.rkt"
|
|
"private/teach-module-begin.rkt"
|
|
mzlib/etc
|
|
mzlib/list
|
|
mzlib/pretty
|
|
syntax/docprovide
|
|
scheme/promise
|
|
test-engine/scheme-tests
|
|
"posn.rkt")
|
|
|
|
(require "private/provide-and-scribble.rkt")
|
|
|
|
|
|
;; syntax:
|
|
(provide (rename-out
|
|
[advanced-define define]
|
|
[advanced-define-struct define-struct]
|
|
[advanced-define-datatype define-datatype]
|
|
[advanced-lambda lambda]
|
|
[advanced-lambda λ]
|
|
[advanced-app #%app]
|
|
[beginner-top #%top]
|
|
[intermediate-local local]
|
|
[advanced-let let]
|
|
[intermediate-let* let*]
|
|
[intermediate-letrec letrec]
|
|
[advanced-recur recur]
|
|
[beginner-cond cond]
|
|
[beginner-else else]
|
|
[beginner-if if]
|
|
[beginner-and and]
|
|
[beginner-or or]
|
|
[beginner-require require]
|
|
[beginner-dots ..]
|
|
[beginner-dots ...]
|
|
[beginner-dots ....]
|
|
[beginner-dots .....]
|
|
[beginner-dots ......]
|
|
[beginner-true true]
|
|
[beginner-false false]
|
|
[intermediate-quote quote]
|
|
[intermediate-quasiquote quasiquote]
|
|
[intermediate-unquote unquote]
|
|
[intermediate-unquote-splicing unquote-splicing]
|
|
[intermediate-time time]
|
|
[advanced-begin begin]
|
|
[advanced-begin0 begin0]
|
|
[advanced-shared shared]
|
|
[advanced-set! set!]
|
|
[advanced-when when]
|
|
[advanced-unless unless]
|
|
[advanced-case case]
|
|
[advanced-match match]
|
|
[advanced-delay delay]
|
|
[advanced-module-begin #%module-begin])
|
|
check-expect
|
|
check-within
|
|
check-error
|
|
check-member-of
|
|
check-range
|
|
#%datum
|
|
#%top-interaction
|
|
empty
|
|
|
|
signature : -> mixed one-of predicate combined
|
|
Number Real Rational Integer Natural Boolean True False String Symbol Char Empty-list Any
|
|
cons-of
|
|
Property
|
|
check-property for-all ==> expect expect-within expect-member-of expect-range)
|
|
|
|
;; procedures:
|
|
(provide-and-scribble
|
|
procedures
|
|
(begin)
|
|
(all-from-except intermediate: lang/private/intermediate-funs procedures cons list* append random)
|
|
(all-from advanced: lang/private/advanced-funs procedures))
|