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