suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

renamed paste-in to a more accurate name

Browse Source 
svn: r11117
This commit is contained in:
Robby Findler 2008-08-07 01:31:07 +00:00
parent 3ae6db6f65
commit 5b33922526
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/drscheme/drscheme-test-util.ss
View File

@ -28,8 +28,8 @@
clear-definitions clear-definitions
type-in-definitions type-in-definitions
type-in-interactions type-in-interactions
paste-in-definitions insert-in-definitions
paste-in-interactions insert-in-interactions
type-string type-string
wait wait
wait-pending wait-pending
@ -195,9 +195,9 @@
(put-in-frame (lambda (x) (send x get-definitions-canvas)) frame str #f)) (put-in-frame (lambda (x) (send x get-definitions-canvas)) frame str #f))
(define (type-in-interactions frame str) (define (type-in-interactions frame str)
(put-in-frame (lambda (x) (send x get-interactions-canvas)) frame str #f)) (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)) (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)) (put-in-frame (lambda (x) (send x get-interactions-canvas)) frame str #t))
(define (put-in-frame get-canvas frame str/sexp paste?) (define (put-in-frame get-canvas frame str/sexp paste?)

2
collects/tests/drscheme/module-lang-test-utils.ss
View File

@ -41,7 +41,7 @@
(define (single-test test) (define (single-test test)
(let/ec k (let/ec k
(clear-definitions drs) (clear-definitions drs)
(paste-in-definitions drs (test-definitions test)) (insert-in-definitions drs (test-definitions test))
(do-execute drs) (do-execute drs)
(let ([ints (test-interactions test)]) (let ([ints (test-interactions test)])