(let ((foo '((bar . 2))))
  (test '((bar . 2)) foo))

=>

Error: during expansion of (test-syntax-error3412 ...) - no rule matches form: (test-syntax-error (quote test) "the test expression should come last " (test "some text" (quote ((bar . 2))) foo))

	Call history:

	<syntax>	  (let ((foo (quote ((bar . 2))))) (test "some text" (quote ((bar . 2))) foo))
	<syntax>	  (##core#let ((foo (quote ((bar . 2))))) (test "some text" (quote ((bar . 2))) foo))	<--

(let ((x 'a))
  (test 'a x))

=>

Error: during expansion of (test-syntax-error1043 ...) - no rule matches form: (test-syntax-error (quote test) "the test expression should come last " (test #f (quote a) a))

	Call history:

	<syntax>	  (let ((a (quote a))) (test (quote a) a))
	<syntax>	  (##core#let ((a (quote a))) (test (quote a) a))	<--