-
Notifications
You must be signed in to change notification settings - Fork 0
/
base.ss
40 lines (30 loc) · 1.18 KB
/
base.ss
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#lang scheme/base
(require (planet untyped/unlib:3/require))
; Library aliases ------------------------------
(define-library-aliases cce-scheme (planet cce/scheme:7) #:provide)
(define-library-aliases mirrors (planet untyped/mirrors:2) #:provide)
(define-library-aliases unlib (planet untyped/unlib:3) #:provide)
(define-library-aliases schemeunit (planet schematics/schemeunit:3) #:provide)
; Require statements ---------------------------
(require net/url
scheme/class
scheme/contract
scheme/match
scheme/pretty
srfi/26
web-server/http
(mirrors-in)
(unlib-in debug enumeration exn url))
; Exceptions -----------------------------------
(define-struct (exn:dispatch exn) () #:transparent)
; Provide statements ---------------------------
(provide (all-from-out net/url
scheme/class
scheme/contract
scheme/match
scheme/pretty
srfi/26
web-server/http)
(mirrors-out)
(unlib-out debug enumeration exn url)
(struct-out exn:dispatch))