diff options
| author | David Robillard <d@drobilla.net> | 2012-12-23 05:31:15 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2012-12-23 05:31:15 +0000 |
| commit | 67319bf0410196787c753225f46057bc7c94beec (patch) | |
| tree | 572e8f8989a903fde8be784de5dddbaa1938ecfe /test/match.resp | |
| parent | 0375a20786f1e6eba9d128889f700b22d447021c (diff) | |
| download | resp-67319bf0410196787c753225f46057bc7c94beec.tar.gz resp-67319bf0410196787c753225f46057bc7c94beec.tar.bz2 resp-67319bf0410196787c753225f46057bc7c94beec.zip | |
Move towards standard Scheme syntax.
git-svn-id: http://svn.drobilla.net/resp/trunk@442 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'test/match.resp')
| -rw-r--r-- | test/match.resp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/test/match.resp b/test/match.resp deleted file mode 100644 index 0df0568..0000000 --- a/test/match.resp +++ /dev/null @@ -1,14 +0,0 @@ -; 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))) - -(def s (Rectangle 3.0 4.0)) - -(area s)
\ No newline at end of file |