Fix bug in implementation
This commit is contained in:
		
							parent
							
								
									e5a2e91c42
								
							
						
					
					
						commit
						7c191a0b06
					
				| 
						 | 
				
			
			@ -32,10 +32,10 @@
 | 
			
		|||
                   (symbol->string symbol2)))
 | 
			
		||||
 | 
			
		||||
    (define (symbol-prefix? prefix symbol)
 | 
			
		||||
      (string-prefix? prefix symbol))
 | 
			
		||||
      (string-prefix? prefix (symbol->string symbol)))
 | 
			
		||||
 | 
			
		||||
    (define (symbol-suffix? suffix symbol)
 | 
			
		||||
      (string-suffix? suffix symbol))
 | 
			
		||||
      (string-suffix? suffix (symbol->string symbol)))
 | 
			
		||||
 | 
			
		||||
    (define symbol-middle
 | 
			
		||||
      (case-lambda
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue