428 - cleanup odds and ends

1 files changed, 13 insertions, 13 deletions

diff --git a/factorial.mu b/factorial.mu
index 707e04f9..580b30d4 100644
--- a/factorial.mu
+++ b/factorial.mu
@@ -1,22 +1,22 @@
 (function factorial [
-  ((default-scope scope-address) <- new (scope literal) (30 literal))
-  ((n integer) <- next-input)
+  (default-scope:scope-address <- new scope:literal 30:literal)
+  (n:integer <- next-input)
   { begin
     ; if n=0 return 1
-    ((zero? boolean) <- equal (n integer) (0 literal))
-    (break-unless (zero? boolean))
-    (reply (1 literal))
+    (zero?:boolean <- equal n:integer 0:literal)
+    (break-unless zero?:boolean)
+    (reply 1:literal)
   }
   ; return n*factorial(n-1)
-  ((x integer) <- subtract (n integer) (1 literal))
-  ((subresult integer) <- factorial (x integer))
-  ((result integer) <- multiply (subresult integer) (n integer))
-  (reply (result integer))
+  (x:integer <- subtract n:integer 1:literal)
+  (subresult:integer <- factorial x:integer)
+  (result:integer <- multiply subresult:integer n:integer)
+  (reply result:integer)
 ])
 
 (function main [
-  ((1 integer) <- factorial (5 literal))
-  (print-primitive ("result: " literal))
-  (print-primitive (1 integer))
-  (print-primitive ("\n" literal))
+  (1:integer <- factorial 5:literal)
+  (print-primitive (("result: " literal)))
+  (print-primitive 1:integer)
+  (print-primitive (("\n" literal)))
 ])