Skip to content

Commit 2ced867

Browse files
committed
Use a consistent quoting style in the type definitions
1 parent 8f7081e commit 2ced867

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

scheme-types.lisp

+7-7
Original file line numberDiff line numberDiff line change
@@ -55,7 +55,7 @@
5555
'real)
5656

5757
(define-scheme-type (rational?)
58-
'(or rational float))
58+
`(or rational float))
5959

6060
(define-scheme-type (integer?)
6161
"
@@ -79,7 +79,7 @@ SATISFIES type, it should be used sparingly.
7979
'double-float)
8080

8181
(define-scheme-type (exact-integer?)
82-
`integer)
82+
'integer)
8383

8484
(define-scheme-type* (finite?) finitep
8585
`(satisfies finitep))
@@ -103,7 +103,7 @@ known as #t or #f
103103

104104
(define-scheme-type (vector?)
105105
"A Scheme vector is just a T vector"
106-
`simple-vector)
106+
'simple-vector)
107107

108108
(define-scheme-type (string?)
109109
"A Scheme string is just a simple string."
@@ -123,22 +123,22 @@ known as #t or #f
123123

124124
(define-scheme-type* (list?) a:proper-list-p
125125
"Scheme's list? tests for a proper list"
126-
`a:proper-list)
126+
'a:proper-list)
127127

128128
(define-scheme-type* (%list?) listp
129129
"
130130
A lower-level, faster list test that permits improper lists, which
131131
don't end in NIL.
132132
"
133-
`list)
133+
'list)
134134

135135
(define-scheme-type* (pair?) consp
136136
"A pair? in Scheme is a cons cell."
137-
`cons)
137+
'cons)
138138

139139
(define-scheme-type* (null?) null
140140
"A null? in Scheme is nil."
141-
`null)
141+
'null)
142142

143143
;;;; Type Conversion
144144

0 commit comments

Comments
 (0)