printign for expected values differs from printing for actual values

[robby]

This program:

#lang planet plai/plai:1:8
(define-type AE

[num (n number?)])

(define a-num (num 1))
(test a-num (num 2))

prints this out:

(bad a-num #(struct:num 1) (num 2) "at line 5")

but that can be confusing since the expected and actual results are printed in different manners.

It is especially bad when you do something like this (which I just did ...)

#lang planet plai/plai:1:8
(define-type AE

[num (n number?)])

(define a-num '(num 1))
(test a-num (num 1))

which yields:

(bad a-num (num 1) (num 1) "at line 5")

[plai]

This was fixed.