Megatest

Diff
Login

Differences From Artifact [d34fbbfa1d]:

To Artifact [ddd98be244]:


38
39
40
41
42
43
44



45

46
47
48
49
50
51
52
38
39
40
41
42
43
44
45
46
47

48
49
50
51
52
53
54
55







+
+
+
-
+







     (lambda (section)
       (let ((section-dat (hash-table-ref/default confdat section #f)))
	 (if section-dat
	     (for-each 
	      (lambda (envvar)
		(let ((val (cadr (assoc envvar section-dat))))
		(hash-table-set! whatfound section (+ (hash-table-ref/default whatfound section 0) 1))
		(if (and (string? envvar)
			 (string? val)
			 change-env)
		(if change-env (setenv envvar val))
		    (setenv envvar val))
		(hash-table-set! finaldat envvar val)))
	      (map car section-dat)))))
     sections)
    (if already-seen
	(begin
	  (debug:print 2 "Key settings found in runconfig.config:")
	  (for-each (lambda (fullkey)