18 lines
640 B
Racket
18 lines
640 B
Racket
#lang s-exp "minimal.rkt"
|
|
|
|
|
|
|
|
(providing (libs (except scheme/base #%module-begin #%top-interaction with-handlers lambda #%app for for*)
|
|
(except "private/prims.rkt")
|
|
(except "private/base-types.rkt")
|
|
(except "private/base-types-extra.rkt"))
|
|
(basics #%module-begin
|
|
#%top-interaction
|
|
lambda
|
|
#%app))
|
|
(require "private/extra-procs.rkt"
|
|
(for-syntax "private/base-types-extra.rkt"))
|
|
(provide (rename-out [with-handlers: with-handlers])
|
|
(for-syntax (all-from-out "private/base-types-extra.rkt"))
|
|
assert defined? with-type for for*)
|