From e169b1a9ef75e727392cede1496f1e1dedfbe3d8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 18 Jun 1999 17:06:11 +0000 Subject: [PATCH] . original commit: e8bc774aa1a24ffc13ad1a4d5b0eec77f725643b --- collects/tests/mzscheme/pconvert.ss | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss index fd1ea43..9a600e5 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.ss @@ -329,16 +329,16 @@ (test-not-shared 1 1) (test-not-shared 3276832768327683276832768327683276832768 3276832768327683276832768327683276832768) - (test-not-shared (regexp "") '(regexp ...)) - (let ([in (open-input-string "")]) (test-not-shared in in)) - (let ([out (open-output-string)]) (test-not-shared out out)) + (test-shared (regexp "") '(regexp ...)) + (let ([in (open-input-string "")]) (test-shared in in)) + (let ([out (open-output-string)]) (test-shared out out)) (test-not-shared #\a #\a) (test-not-shared 'x ''x) - (test-not-shared (lambda (x) x) '(lambda (a1) ...)) - (test-not-shared (make-promise (lambda () 1)) '(delay ...)) - (test-not-shared (class object% ()) '(class ...)) - (test-not-shared (unit (import) (export)) '(unit ...)) - (test-not-shared (make-object (class object% () (sequence (super-init)))) '(make-object (class ...) ...)) + (test-shared (lambda (x) x) '(lambda (a1) ...)) + (test-shared (make-promise (lambda () 1)) '(delay ...)) + (test-shared (class object% ()) '(class ...)) + (test-shared (unit (import) (export)) '(unit ...)) + (test-shared (make-object (class object% () (sequence (super-init)))) '(make-object (class ...) ...)) (test-shared "abc" "abc") (test-shared (list 1 2 3) '(list 1 2 3))