Megatest

Diff
Login

Differences From Artifact [09a47e551f]:

To Artifact [5e34d56527]:


932
933
934
935
936
937
938
939
940
941
942
943
944






945
946
947
948
949
950
951
932
933
934
935
936
937
938






939
940
941
942
943
944
945
946
947
948
949
950
951







-
-
-
-
-
-
+
+
+
+
+
+







           (save-environment-as-files (args:get-arg "-env2file"))
           (set! *didsomething* #t)))
     
     (if (args:get-arg "-list-disks")
         (let ((toppath (launch:setup)))
           (print 
            (string-intersperse 
     	(map (lambda (x)
     	       (string-intersperse 
     		x
     		" => "))
     	     (common:get-disks *configdat*))
     	"\n"))
     	     (map (lambda (x)
     		    (string-intersperse 
     		     x
     		     " => "))
     		  (common:get-disks *configdat*))
     	     "\n"))
           (set! *didsomething* #t)))
     
     
  (if (args:get-arg "-refdb2dat")
         (let* ((input-db (args:get-arg "-refdb2dat"))
     	   (out-file (args:get-arg "-o"))
     	   (out-fmt  (or (args:get-arg "-dumpmode") "scheme"))