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
|
; Copyright (c) 1993-2008 by Richard Kelsey. See file COPYING.
(define-structures ((fact (export *one* fact all)))
(open prescheme)
(files fact))
(define-structures ((list (export test)))
(open prescheme ps-memory)
(files list))
(define-structures ((dispatch (export main)))
(open prescheme)
(files dispatch))
(define-structures ((vector (export test)))
(open prescheme)
(files vector))
(define-structures ((string (export test)))
(open prescheme)
(files string))
(define-structures ((goto (export test odd?)))
(open prescheme)
(files goto))
(define-structures ((external (export test)))
(open prescheme)
(files external))
(define-structures ((eval (export f4)))
(open prescheme)
(files eval))
(define-structures ((memory (export test)))
(open prescheme)
(files memory))
(define-structures ((poly (export test)))
(open prescheme)
(files poly))
(define-structures ((select (export test)))
(open prescheme)
(files select))
(define-structures ((hoist (export test)))
(open prescheme)
(files hoist))
(define-structures ((record (export init cons member? reverse!)))
(open prescheme ps-record-types)
(files record))
(define-structures ((buffer (export port->stream stream-read-char)))
(open prescheme ps-record-types ps-memory)
(files buffer))
(define-structures ((values (export test)))
(open prescheme)
(files values))
(define-structures ((write (export test)))
(open prescheme)
(files write))
|
