diff options
| -rw-r--r-- | mu.arc | 3 | ||||
| -rw-r--r-- | x.mu | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 0b13030c..07c15ffe 100644 --- a/mu.arc +++ b/mu.arc @@ -290,6 +290,9 @@ (if types*.type!array (new-array type (v arg.1)) (new-scalar type))) + print + (do1 nil + (apply prn (map m arg))) reply (do (pop-stack context) (if empty.context (return ninstrs)) diff --git a/x.mu b/x.mu index 7341c5d2..1a3c3175 100644 --- a/x.mu +++ b/x.mu @@ -2,4 +2,5 @@ ((x integer) <- literal 1) ((y integer) <- literal 3) ((z integer) <- add (x integer) (y integer)) + (print (x integer) (y integer) (z integer)) ) |