File tree Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change 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 "
130130A lower-level, faster list test that permits improper lists, which
131131don'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
You can’t perform that action at this time.
0 commit comments