blob: 3f034b85d1ce69be305fbe3dcd7a9a34c5823dc1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(define-module (community-garden plant)
#:use-module (srfi srfi-9)
#:export (make-plant
plant?
plant-name
plant-char
sunflower
cabbage
winter-squash))
(define-record-type <plant>
(make-plant name char)
plant?
(name plant-name)
(char plant-char))
(define sunflower (make-plant "Sunflower" #\S))
(define cabbage (make-plant "Cabbage" #\C))
(define winter-squash (make-plant "Winter Squash" #\W))
|