401 - stop abbreviating ops

We expect users to come across mu from arbitrary bits of code, so try to
make each line as self-contained as possible.

1 files changed, 4 insertions, 4 deletions

diff --git a/tangle.mu b/tangle.mu
index 46ddd6fc..21d9800e 100644
--- a/tangle.mu
+++ b/tangle.mu
@@ -5,7 +5,7 @@
 
 (def factorial [
   ((default-scope scope-address) <- new (scope literal) (30 literal))
-  ((n integer) <- arg)
+  ((n integer) <- next-input)
   { begin
     base-case
   }
@@ -14,16 +14,16 @@
 
 (after base-case [
   ; if n=0 return 1
-  ((zero? boolean) <- eq (n integer) (0 literal))
+  ((zero? boolean) <- equal (n integer) (0 literal))
   (break-unless (zero? boolean))
   (reply (1 literal))
 ])
 
 (after recursive-case [
   ; return n*factorial(n-1)
-  ((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))
 ])