motivating the need for make-struct-type

tests/more-tests/run-more-tests.rkt

@@ -2,4 +2,5 @@
 
 (require "../browser-harness.rkt")
 
-(test "hello.rkt" "hello.expected")
+(test "hello.rkt" "hello.expected")
+(test "simple-structs.rkt" "simple-structs.expected")

tests/more-tests/simple-structs.expected

@@ -0,0 +1,2 @@
+3
+4

tests/more-tests/simple-structs.rkt

@@ -0,0 +1,6 @@
+#lang planet dyoo/whalesong
+(define-struct p (f r))
+
+(define p1 (make-p 3 4))
+(p-f p1)
+(p-r p1)