continuing to work on structures

tests/more-tests/hello.expected

@@ -1 +1,3 @@
 hello world
+hello again
+helloworld

tests/more-tests/hello.rkt

@@ -1,2 +1,8 @@
 #lang planet dyoo/whalesong
 (displayln "hello world")
+
+
+(displayln (format "hello ~a" "again"))
+
+(printf "hello")
+(printf "world\n")

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

@@ -3,4 +3,4 @@
 (require "../browser-harness.rkt")
 
 (test "hello.rkt" "hello.expected")
-#;(test "simple-structs.rkt" "simple-structs.expected")
+(test "simple-structs.rkt" "simple-structs.expected")

tests/more-tests/simple-structs.rkt

@@ -3,19 +3,14 @@
 (define-struct p (f r))
 
 
-"1"
 struct:p
-"2"
 make-p
-"3"
 p-f
-"4"
 p-r
-"5"
 p?
-"6"
 
 
-#;(define p1 (make-p 3 4))
-#;(p-f p1)
-#;(p-r p1)
+
+(define p1 (make-p 3 4))
+(p-f p1)
+(p-r p1)