1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
|
;; BUG: This next line sucks up a lot of horsepower
;; (set! tal (append tal (list newtestname)))
;; (set! tal (cons newtestname tal)) ;; 4/6/2023 - try using cons, does it matter if the test gets added at the beginning?
(set! incoming-tests (cons newtestname incoming-tests))
)) ;; since these are itemized create new test names testname/itempath
items-in-testpatt)))
(if (< (length tal) 20)
(begin
(set! tal (append tal (reverse incoming-tests)))
(set! incoming-tests '())))
;; At this point we have possibly added items to tal but all must be handed off to
;; INNER COND logic. I think loop without rotating the queue
;; (loop hed tal reg reruns))
|
|
>
|
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
|
;; BUG: This next line sucks up a lot of horsepower
;; (set! tal (append tal (list newtestname)))
;; (set! tal (cons newtestname tal)) ;; 4/6/2023 - try using cons, does it matter if the test gets added at the beginning?
(set! incoming-tests (cons newtestname incoming-tests))
)) ;; since these are itemized create new test names testname/itempath
items-in-testpatt)))
(if (and (< (length tal) 20)
(not (null? incoming-tests)))
(begin
(set! tal (append tal (reverse incoming-tests)))
(set! incoming-tests '())))
;; At this point we have possibly added items to tal but all must be handed off to
;; INNER COND logic. I think loop without rotating the queue
;; (loop hed tal reg reruns))
|