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/factorial.mu b/factorial.mu
index 9a07bc07..d94a9354 100644
--- a/factorial.mu
+++ b/factorial.mu
@@ -1,16 +1,16 @@
 (def factorial [
   ((default-scope scope-address) <- new (scope literal) (30 literal))
-  ((n integer) <- arg)
+  ((n integer) <- next-input)
   { begin
     ; 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))
   }
   ; 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))
 ])