fix incorrect wrapping in quote-syntax

mats/8.ms

@@ -12030,6 +12030,7 @@
 (mat quote-syntax
    (equal? (syntax->datum (quote-syntax (a b c))) '(a b c))
    (equal? (syntax->datum (quote-syntax ...)) '...)
+   (identifier? (quote-syntax if))
    (bound-identifier=? (quote-syntax ...) (syntax (... ...)))
    (free-identifier=? (quote-syntax ...) (syntax (... ...)))
    (equal? (with-syntax ([x #'y]) (syntax->datum (quote-syntax x))) 'x)

s/syntax.ss

@@ -6027,10 +6027,11 @@
          (_ (syntax-error (source-wrap e w ae))))))
 
 (global-extend 'core 'quote-syntax
-   (lambda (e r w ae)
+  (lambda (e r w ae)
+    (let ([e (source-wrap e w ae)])
       (syntax-case e ()
-         ((_ e) (build-data no-source (source-wrap (syntax e) w ae)))
-         (_ (syntax-error (source-wrap e w ae))))))
+         ((_ e) (build-data no-source (syntax e)))
+         (_ (syntax-error e))))))
 
 (global-extend 'core 'syntax
   (let ()