From 307dd5b8e7cbb5c20f831b9d948f68bc77acc83a Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 28 Nov 2014 16:55:47 -0800 Subject: 362 Gaining confidence.. --- mu.arc.t | 3 +++ 1 file changed, 3 insertions(+) (limited to 'mu.arc.t') 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) -- cgit 1.4.1-2-gfad0