Megatest

Diff
Login

Differences From Artifact [d7321ee147]:

To Artifact [d0b93e0a8f]:


502
503
504
505
506
507
508

509
510
511
512
513
514
515
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516







+







	    (vector-ref row n)
	    (if (null? tal) #f (loop (car tal)(cdr tal)(+ n 1)))))))

;;======================================================================
;;  R U N S
;;======================================================================

;; keys list to key1,key2,key3 ...
(define (runs:get-std-run-fields keys remfields)
  (let* ((header    (append (map key:get-fieldname keys)
			    remfields))
	 (keystr    (conc (keys->keystr keys) ","
			  (string-intersperse remfields ","))))
    (list keystr header)))