-
Notifications
You must be signed in to change notification settings - Fork 15
/
chez-swank.sls
26 lines (25 loc) · 1015 Bytes
/
chez-swank.sls
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
(library (chez-swank)
(export start-swank
swank:get-last-exception
swank:lookup-presented-object-or-lose
swank:lookup-presented-object
make-swank-image
swank-register-image-converter
inspect-in-emacs
swank-present
tracing
trace-let trace-let* trace-letrec trace-letrec* trace-define)
(import (socket net)
(srfi :69)
(except (rename (chezscheme)
(bytevector-copy! %bytevector-copy!)
(load %load)
(error %error)
(with-output-to-string %with-output-to-string))
string-ci-hash make-hash-table hash-table? string-hash define-record-type trace-let trace-define)
(only (scheme base) define-record-type bytevector-append))
(include "specific/chez.ss")
(include "common/base.scm")
(include "common/handlers.scm")
;; print everything possible
(print-extended-identifiers #t))