diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-28 16:55:47 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-28 16:55:47 -0800 |
| commit | 307dd5b8e7cbb5c20f831b9d948f68bc77acc83a (patch) | |
| tree | b1717c2c492433bc2454a25760594f8bb4c11eab /mu.arc.t | |
| parent | 1b4131ff40cc46db75552917a851f8ea0655b8e5 (diff) | |
| download | mu-307dd5b8e7cbb5c20f831b9d948f68bc77acc83a.tar.gz | |
362
Gaining confidence..
Diffstat (limited to 'mu.arc.t')
| -rw-r--r-- | mu.arc.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index 5deecb96..bb08c583 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -750,6 +750,9 @@ (prn "F - 'deref' handles simple addresses")) (if (~iso '(4 integer deref) (deref '(3 integer-address deref deref))) (prn "F - 'deref' deletes just one deref")) +(= memory*.4 5) +(if (~iso '(5 integer) (deref:deref '(3 integer-address-address deref deref))) + (prn "F - 'deref' can be chained")) ; unit tests for 'sizeof' helper (reset) |