diff --git a/compatibility-test/tests/mzlib/pconvert.rktl b/compatibility-test/tests/mzlib/pconvert.rktl index 048b9c4..dee7c3a 100644 --- a/compatibility-test/tests/mzlib/pconvert.rktl +++ b/compatibility-test/tests/mzlib/pconvert.rktl @@ -413,6 +413,8 @@ (test '(s 1) (pc #f) (s 1)) (test '(make-s 1) (pc #t) (s 1))) +(test '(make-prefab-struct 's 1) print-convert (make-prefab-struct 's 1)) + (let ([pc (lambda (pv) (lambda (x)