diff options
| author | David Robillard <d@drobilla.net> | 2011-01-06 19:01:05 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2011-01-06 19:01:05 +0000 |
| commit | 9bf97f9ed8cca131284c214909c2730bdb3b96b1 (patch) | |
| tree | 5e79ed43beb7e2d3056ce774fe70f6ba9e4e10db /test/match.resp | |
| parent | 926830db4ca55dda653c780482c7710e617eb3a1 (diff) | |
| download | resp-9bf97f9ed8cca131284c214909c2730bdb3b96b1.tar.gz resp-9bf97f9ed8cca131284c214909c2730bdb3b96b1.tar.bz2 resp-9bf97f9ed8cca131284c214909c2730bdb3b96b1.zip | |
Update syntax highlighting script.
git-svn-id: http://svn.drobilla.net/resp/trunk@402 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'test/match.resp')
| -rw-r--r-- | test/match.resp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/match.resp b/test/match.resp index 83ea505..0df0568 100644 --- a/test/match.resp +++ b/test/match.resp @@ -1,12 +1,13 @@ +; A Shape is either a Circle (w/ radius) or a Rectangle (w/ width/height) (def-type (Shape) (Circle Float) (Rectangle Float Float)) +; Return the area of s (def (area s) (match s - (Rectangle w h) (* w h) - (Circle r) (* 3.14159 r))) - + (Rectangle w h) (* w h) + (Circle r) (* 3.14159 r))) (def s (Rectangle 3.0 4.0)) |