bldc/tests/test_flat_unflat_4.lisp


(define tree '((1 2) (3 4)))

(define a (flatten tree))

(check (eq (unflatten a) tree))
Squashed 'lispBM/lispBM/' changes from c1b12e9d..7ed5cc62 7ed5cc62 simplifying eval_symbol a small bit a378c2e2 cleaning and streamlining with a small performance benefit as bonus f4661119 removed unused statistics fields from heap_state (functionality kind of duplicates profiler). Small reorganization of eval_symbol 96a118e5 tightened up the run_eval loop a small amount 574309a6 Laptop charger just exploded so uploading what I have locally. Additions to profiler and tweaks to GC 0278230b Added arithmetic stress tests b0ad9619 added additional arith stress tests 5cb11cdf update lbmref and lbm_version.h 04d8483b Unified sleep and blocked queue, added profiler. Needs documentation and additional testing (WiP) 4a709753 timeout functionality added and restructuring of queue handling in main loop. Much testing needed e2605f7b flatten value calculates the size of the memory buffer needed to create a flat value. flatten now takes only one argument, the value to flatten. b79455aa added match test for const block df35d9a6 attempt fix of issue showing up in pattern matching from constant code. 0021d4c5 removed left over printf and fix in flatten that could leak memory a7abb204 flat values are now part of the language. lisp values can be flattened and unflattened. Added kill function for termination of threads ea58c616 Added a flat value constructor for symbol as string git-subtree-dir: lispBM/lispBM git-subtree-split: 7ed5cc621360d19577c5b14836c5ecd9fd608a1d 2023-08-03 00:53:38 -07:00
			`(define tree '((1 2) (3 4)))`

			`(define a (flatten tree))`

			`(check (eq (unflatten a) tree))`