diff options
Diffstat (limited to 'generic.mu')
-rw-r--r-- | generic.mu | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic.mu b/generic.mu index e73612c5..8b65d109 100644 --- a/generic.mu +++ b/generic.mu @@ -1,21 +1,21 @@ ; To demonstrate generic functions, we'll construct a factorial function with -; separate base and recursive cases. Compare factorial.mu. +; separate base and recursive clauses. Compare factorial.mu. ; def factorial n = n*factorial(n-1) (def factorial [ ((default-scope scope-address) <- new (scope literal) (30 literal)) - ((n integer) <- arg (0 literal)) + ((n integer) <- input (0 literal)) more-clauses - ((x integer) <- sub (n integer) (1 literal)) + ((x integer) <- subtract (n integer) (1 literal)) ((subresult integer) <- factorial (x integer)) - ((result integer) <- mul (subresult integer) (n integer)) + ((result integer) <- multiply (subresult integer) (n integer)) (reply (result integer)) ]) ; def factorial 0 = 1 (after factorial/more-clauses [ { begin - ((zero? boolean) <- eq (n integer) (0 literal)) + ((zero? boolean) <- equal (n integer) (0 literal)) (break-unless (zero? boolean)) (reply (1 literal)) } |