about summary refs log tree commit diff stats
path: root/factorial.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-11-24 21:09:07 -0800
committerKartik K. Agaram <vc@akkartik.com>2014-11-24 21:12:23 -0800
commitcb9e66d70b86909dc811182479253a78cfbead07 (patch)
tree2c11ee9a512640b46512dc4fba697289c85b4efb /factorial.mu
parent638ff3b1b84a17f8b92b89b1b305d83dcd66899c (diff)
downloadmu-cb9e66d70b86909dc811182479253a78cfbead07.tar.gz
314 - better syntax for functions
Diffstat (limited to 'factorial.mu')
-rw-r--r--factorial.mu10
1 files changed, 6 insertions, 4 deletions
diff --git a/factorial.mu b/factorial.mu
index 69d10180..9a07bc07 100644
--- a/factorial.mu
+++ b/factorial.mu
@@ -1,4 +1,4 @@
-(factorial
+(def factorial [
   ((default-scope scope-address) <- new (scope literal) (30 literal))
   ((n integer) <- arg)
   { begin
@@ -11,10 +11,12 @@
   ((x integer) <- sub (n integer) (1 literal))
   ((subresult integer) <- factorial (x integer))
   ((result integer) <- mul (subresult integer) (n integer))
-  (reply (result integer)))
+  (reply (result integer))
+])
 
-(main
+(def main [
   ((1 integer) <- factorial (5 literal))
   (print-primitive ("result: " literal))
   (print-primitive (1 integer))
-  (print-primitive ("\n" literal)))
+  (print-primitive ("\n" literal))
+])