suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

motivating the need for make-struct-type

Browse Source
This commit is contained in:
Danny Yoo 2011-06-30 16:14:47 -04:00
parent b985efc28c
commit e3aed9b884
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/more-tests/run-more-tests.rkt
View File

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

2
tests/more-tests/simple-structs.expected Normal file
View File

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

6
tests/more-tests/simple-structs.rkt Normal file
View File

@ -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)