diff --git a/test/programs/dev-parity.flan b/test/programs/dev-parity.flan index 277838a6..f079ec36 100644 --- a/test/programs/dev-parity.flan +++ b/test/programs/dev-parity.flan @@ -56,6 +56,8 @@ ;; The innermost frame names every global above, so the break loop's section ;; holds all of them; then it stops. It prints them, and a frame whose only ;; slots are the printer's temporaries is still attributed its globals. +;; [nowhere] is stored to itself as well: a pointer prints as without +;; reading the variable, so printing it alone would not name it. (defn inner [] i64 (print small) (print mid) (print large) (print huge) (print neg) (print ratio) (print far) (print odd) (print yes) @@ -63,7 +65,7 @@ (print some) (print none) (print wide) (print deep) (print dot) (print empty) (print row) (print words) (print nums) (print live) (print dead) (print nowhere) - (print un) (print anything) (print pair) + (print un) (print anything) (print pair) (set nowhere nowhere) (println "") (error (Boom {.why 3})) 0)