From 5b339225267e3df1c35d34f85d843fff83b31d5b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 7 Aug 2008 01:31:07 +0000 Subject: [PATCH] renamed paste-in to a more accurate name svn: r11117 --- collects/tests/drscheme/drscheme-test-util.ss | 8 ++++---- collects/tests/drscheme/module-lang-test-utils.ss | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.ss index 47977b36b7..e3b044ec73 100644 --- a/collects/tests/drscheme/drscheme-test-util.ss +++ b/collects/tests/drscheme/drscheme-test-util.ss @@ -28,8 +28,8 @@ clear-definitions type-in-definitions type-in-interactions - paste-in-definitions - paste-in-interactions + insert-in-definitions + insert-in-interactions type-string wait wait-pending @@ -195,9 +195,9 @@ (put-in-frame (lambda (x) (send x get-definitions-canvas)) frame str #f)) (define (type-in-interactions frame str) (put-in-frame (lambda (x) (send x get-interactions-canvas)) frame str #f)) - (define (paste-in-definitions frame str) + (define (insert-in-definitions frame str) (put-in-frame (lambda (x) (send x get-definitions-canvas)) frame str #t)) - (define (paste-in-interactions frame str) + (define (insert-in-interactions frame str) (put-in-frame (lambda (x) (send x get-interactions-canvas)) frame str #t)) (define (put-in-frame get-canvas frame str/sexp paste?) diff --git a/collects/tests/drscheme/module-lang-test-utils.ss b/collects/tests/drscheme/module-lang-test-utils.ss index dd27b32903..95d1eb52f2 100644 --- a/collects/tests/drscheme/module-lang-test-utils.ss +++ b/collects/tests/drscheme/module-lang-test-utils.ss @@ -41,7 +41,7 @@ (define (single-test test) (let/ec k (clear-definitions drs) - (paste-in-definitions drs (test-definitions test)) + (insert-in-definitions drs (test-definitions test)) (do-execute drs) (let ([ints (test-interactions test)])