whalesong/tests/more-tests/simple-structs.rkt
2011-06-30 16:14:47 -04:00

7 lines
96 B
Racket

#lang planet dyoo/whalesong
(define-struct p (f r))
(define p1 (make-p 3 4))
(p-f p1)
(p-r p1)