about summary refs log tree commit diff stats
path: root/factorial.mu
diff options
context:
space:
mode:
Diffstat (limited to 'factorial.mu')
-rw-r--r--factorial.mu8
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))
 ])