fix silly test errors

Author: jpolitz

src/lang/racket-ffi/ast.rkt

@@ -332,7 +332,7 @@
     (make-string-map
       (list
         (cons "pre-desugar" (to-pyret ast))
-        (cons "post-desugar" (to-pyret (get-desugared str src ast)))))))
+        (cons "post-desugar" (to-pyret (get-desugared str src check-mode?)))))))
 
 (define-syntax-rule (has-brand obj brand)
   (ffi-unwrap (p:apply-fun (p:get-field p:dummy-loc ast (string-append "is-" (symbol->string (quote brand)))) p:dummy-loc (ffi-wrap obj))))

src/tests/compile-tests.rkt

@@ -607,7 +607,7 @@ Looks shipshape, all 2 tests passed, mate!
 
   ;; NOTE(joe): allow this here because checkers
   (parameterize [(current-allow-shadowed-vars #t)]
-    (check-pyret-match/check "../lang/pyret-lib/moorings.arr" _ 31))
+    (check-pyret-match/check "../lang/pyret-lib/moorings.arr" _ 35))
 
   (check-pyret "prim-num-keys({})" (p:mk-num 0))
   (check-pyret "prim-num-keys({x:5})" (p:mk-num 1))