Fixed bug in uncase that prevented uncase from being pushed into submatches.
This commit is contained in:
		
							parent
							
								
									7633b231be
								
							
						
					
					
						commit
						a6320a93a9
					
				|  | @ -498,7 +498,7 @@ | |||
| 			 (values re #f)))) | ||||
| 
 | ||||
| 		  ((re-submatch? re) | ||||
| 		   (receive (new-body body-changed?) (recur (re-submatch? re)) | ||||
| 		   (receive (new-body body-changed?) (recur (re-submatch:body re)) | ||||
| 		     (if body-changed? | ||||
| 			 (values (%make-re-submatch new-body | ||||
| 						    (re-submatch:pre-dsm re) | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue
	
	 mainzelm
						mainzelm