aboutsummaryrefslogtreecommitdiffstats
path: root/test/match.resp
diff options
context:
space:
mode:
Diffstat (limited to 'test/match.resp')
-rw-r--r--test/match.resp14
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