update test

10 years ago · 8a121f2006
parent 7fe01da7a5
commit 8a121f2006
1 changed files with 2 additions and 2 deletions
--- a/sugar/test/debug-meta-lang.rkt
+++ b/sugar/test/debug-meta-lang.rkt
@ -6,10 +6,10 @@
      [only-in "completely unexpected!"]
      [report "well, not really"])
  (parameterize ([current-error-port out])
-    #^5)
+    #R5)
  (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)
+    #RR5)
  (check-equal? (get-output-string out) "5 = 5 on line 14\n"))