From ab839f9efdc396c529fed55d93c3c1599d0ddddd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 30 Aug 2010 09:06:13 -0500 Subject: [PATCH] minor rackety --- .../tests/drracket/teaching-lang-save-file.rkt | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/collects/tests/drracket/teaching-lang-save-file.rkt b/collects/tests/drracket/teaching-lang-save-file.rkt index 8101ba1df7..87bb4df009 100644 --- a/collects/tests/drracket/teaching-lang-save-file.rkt +++ b/collects/tests/drracket/teaching-lang-save-file.rkt @@ -9,15 +9,15 @@ (fire-up-drscheme-and-run-tests (λ () - (let* ([drs-frame (wait-for-drscheme-frame)] + (let* ([drr-frame (wait-for-drscheme-frame)] [fn (make-temporary-file "save-teaching-lang-test~a")]) (test:menu-select "File" "New Tab") - (let ([definitions-text (send drs-frame get-definitions-text)] - [interactions-text (send drs-frame get-interactions-text)]) + (let ([definitions-text (send drr-frame get-definitions-text)] + [interactions-text (send drr-frame get-interactions-text)]) (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$")) - (clear-definitions drs-frame) + (clear-definitions drr-frame) (send definitions-text set-filename fn) (send definitions-text insert "(define (f x) x)\n(f 1)\n") (test:menu-select "File" "Save Definitions") @@ -29,15 +29,15 @@ (fprintf (current-error-port) "---- saved file, cut here ----\n") (error 'save-teaching-lang-file.rkt "expected the saved file to contain the word 'metadata' in a comment")) - (do-execute drs-frame) + (do-execute drr-frame) (test:menu-select "File" "Close Tab") (use-get/put-dialog (λ () (test:menu-select "File" "Open...")) fn) - (do-execute drs-frame) + (do-execute drr-frame) (let ([result (fetch-output - drs-frame + drr-frame (send interactions-text paragraph-start-position 2) (send interactions-text last-position))]) (test:menu-select "File" "Close Tab")