fix incorrect wrapping in quote-syntax

[mnieper]

This fixes issue #861.

The mistake was an incorrect application of a wrap.

[burgerrg]

Thank you for finding and fixing this bug! Please add a subsection to the release notes under section:bugfixes for this.

[burgerrg]

Did you intend to update the zlib & zuo submodules? I'd prefer to see those kinds of updates in separate pull requests.

[mnieper]

Did you intend to update the zlib & zuo submodules?

I didn't. Thanks for catching this.

[mnieper]

Thank you for finding and fixing this bug! Please add a subsection to the release notes under section:bugfixes for this.

I missed that. There is now a subsection about the bug in my patch.

[burgerrg]

The fix to the submodule update didn't resolve it, so I took the liberty of rewriting history on your branch to eliminate the submodule updates in the first place.

[mflatt]

When I add just the test here, unpatched Chez Scheme still passes. Maybe I'm confused, but I think it's because the bug is related to annotations, and .ms files are loaded in that way that doesn't get them. If that's right, here's a test that explicitly constructs annotations and fails for me before and passes after.

   (let ([src (make-source-object
               (make-source-file-descriptor "src" (open-bytevector-input-port '#vu8()))
               1
               2)])
     (identifier?
      (eval
       (make-annotation `(quote-syntax
                          ,(make-annotation
                            'if
                            src
                            'if))
                        src
                        '(quote-syntax if)))))