Address code review feedback: improve error handling and logging

Co-authored-by: jackfirth <[email protected]>

Author: Copilot

private/analysis.rkt

@@ -156,10 +156,7 @@
                     (define valid? (syntax-contains-path? expanded path))
                     (unless valid?
                       (log-resyntax-warning
-                       (string-append
-                        "ignoring property with out-of-syntax path returned by analyzer\n"
-                        "  path: ~a\n"
-                        "  property key: ~a")
+                       "ignoring property with out-of-syntax path returned by analyzer~n  path: ~a~n  property key: ~a"
                        path
                        key))
                     valid?))

private/syntax-path.rkt

@@ -566,7 +566,7 @@
 
 
 (define (syntax-contains-path? init-stx path)
-  (with-handlers ([exn:fail:contract? (λ (_) #false)])
+  (with-handlers ([exn:fail? (λ (_) #false)])
     (syntax-ref init-stx path)
     #true))