diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-19 21:33:48 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-19 21:33:48 -0700 |
| commit | f9dd51f6727f4a0344663b6edf470663e6dca174 (patch) | |
| tree | a8849371964591237cf62eac6acc25a9b5776a2a /mu.arc.t | |
| parent | 6b133a720e379c5a891faf5e969361be85bdfcd5 (diff) | |
| download | mu-f9dd51f6727f4a0344663b6edf470663e6dca174.tar.gz | |
56 - 'get' for record access
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 b9c903e9..8f9edb2f 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -333,6 +333,18 @@ (reset) (add-fns + '((main + ((1 integer) <- literal 34) + ((2 boolean) <- literal nil) + ((3 boolean) <- get (1 integer-boolean-pair) (1 offset)) + ((4 integer) <- get (1 integer-boolean-pair) (0 offset))))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 34 2 nil 3 nil 4 34)) + (prn "F - 'get' accesses fields of records")) + +(reset) +(add-fns '((test1 ((4 type) <- otype 0) ((5 type) <- literal integer) |