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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
; -*- Mode: Scheme; Syntax: Scheme; Package: Scheme; -*-
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Mike Sperber
; This is file plt-features.scm.
; Synchronize any changes with all the other *-features.scm files.
; SIGNALS
; ERROR is built-in
(define (format-error-message message who irritants)
(printf "~a: ~a~a"
who message
(apply string-append
(map (lambda (irritant)
(string-append " " ((error-value->string-handler) irritant 1000)))
irritants))))
(define (assertion-violation who message . irritants)
(error (format-error-message message who irritants)
irritants))
(define (implementation-restriction-violation who message . irritants)
(error (format-error-message message who irritants)
irritants))
(define (warning who message . irritants)
(display (format-error-message message who irritants)
(current-error-port))
(newline (current-error-port)))
(define (syntax-violation who message form . maybe-subform)
(apply warning who message form maybe-subform)
''syntax-error)
(define (note who message . irritants)
(apply warning who message irritants))
; FEATURES
(define force-output flush-output)
(define current-noise-port current-error-port)
(define (string-hash s) (abs (equal-hash-code s)))
(define (make-immutable! thing) thing) ; PLT can only do this upon construction
; IMMUTABLE? is built in
; BITWISE
; ARITHMETIC-SHIFT is built-in
; BITWISE-AND is built-in
; BITWISE-IOR is built-in
; BITWISE-NOT is built-in
; ASCII
(define char->ascii char->integer)
(define ascii->char integer->char)
(define ascii-limit 127)
(define ascii-whitespaces '(32 10 9 12 13))
; CELLS
(define make-cell box)
(define cell-ref unbox)
(define cell-set! set-box!)
; CODE-VECTORS
(define make-code-vector make-bytes)
(define code-vector? bytes?)
(define code-vector-ref bytes-ref)
(define code-vector-set! bytes-set!)
(define code-vector-length bytes-length)
; BINARY I/O
; WRITE-BYTE is built-in
(define (set-port-crlf?! port val)
(values))
|
