diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/match.scm | 2 | ||||
| -rw-r--r-- | test/quote.scm | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/test/match.scm b/test/match.scm index db19be1..0cf0efc 100644 --- a/test/match.scm +++ b/test/match.scm @@ -1,5 +1,5 @@ ; A Shape is either a Circle (w/ radius) or a Rectangle (w/ width/height) -(def-type (Shape) +(define-type (Shape) (Circle Float) (Rectangle Float Float)) diff --git a/test/quote.scm b/test/quote.scm index 4895d2e..817f812 100644 --- a/test/quote.scm +++ b/test/quote.scm @@ -1,10 +1,9 @@ -(def-type (Expr) +(define-type (Expr) (Symbol Symbol) (Int Int) (List Expr Expr) (Empty)) - (define list (quote (2 a b c))) (define (len l) |