update test file

sugar/test/debug-meta-lang.rkt

@@ -6,10 +6,10 @@
       [only-in "completely unexpected!"]
       [report "well, not really"])
   (parameterize ([current-error-port out])
-    ^5)
+    #^5)
   (check-equal? (get-output-string out) "5 = 5\n"))
 (let ([out (open-output-string)]
       [report/line "outta the blue!"])
   (parameterize ([current-error-port out])
-    ^^5)
+    #^^5)
   (check-equal? (get-output-string out) "5 = 5 on line 14\n"))