Log broken refactoring attempts as warnings

This allows Resyntax to continue attempting to apply other refactoring rules when one rule breaks.
jackfirth · Aug 31, 2024 · d80b31f · d80b31f
1 parent 9738e69
commit d80b31f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/main.rkt b/main.rkt
@@ -54,10 +54,9 @@
     (with-handlers
         ([exn:fail?
           (λ (e)
-            (define message
-              (format "~a: refactoring attempt failed\n  syntax: ~e\n  cause: ~e"
-                      (object-name rule) syntax e))
-            (raise (exn:fail:refactoring message (current-continuation-marks) rule syntax e)))])
+            (log-resyntax-warning "~a: refactoring attempt failed\n  syntax: ~e\n  cause: ~e"
+                                  (object-name rule) syntax e)
+            absent)])
       (guarded-block
         (guard-match (present replacement)
           (refactoring-rule-refactor rule syntax #:analysis analysis)