diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-19 23:37:50 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-19 23:37:50 -0700 |
| commit | b9fef0471dd11b63353d20fa57358acf477cf534 (patch) | |
| tree | 473494bb158f136a20c5f05df9765b3f332ed92f /mu.arc.t | |
| parent | f9dd51f6727f4a0344663b6edf470663e6dca174 (diff) | |
| download | mu-b9fef0471dd11b63353d20fa57358acf477cf534.tar.gz | |
57 - multi-word or multi-field ops
Diffstat (limited to 'mu.arc.t')
| -rw-r--r-- | mu.arc.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index 8f9edb2f..a7003c6e 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -345,6 +345,18 @@ (reset) (add-fns + '((main + ((1 integer) <- literal 34) + ((2 boolean) <- literal nil) + ((4 boolean) <- literal t) + ((3 integer-boolean-pair) <- copy (1 integer-boolean-pair))))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 34 2 nil 3 34 4 nil)) + (prn "F - ops can operate on multi-field records")) + +(reset) +(add-fns '((test1 ((4 type) <- otype 0) ((5 type) <- literal integer) |