469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
|
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
|
+
-
-
-
+
+
+
|
(let* ((keys (if *configdat* (keys:config-get-fields *configdat*) '()))
(numkeys (length keys))
(target (or (args:get-arg "-reqtarg")
(args:get-arg "-target")
(getenv "MT_TARGET")))
(tlist (if target (string-split target "/" #t) '()))
(valid (if target
(or (null? keys) ;; probably don't know our keys yet
(and (not (null? tlist))
(eq? numkeys (length tlist))
(null? (filter string-null? tlist)))
(and (not (null? tlist))
(eq? numkeys (length tlist))
(null? (filter string-null? tlist))))
#f)))
(if valid
(if split
tlist
target)
(if target
(begin
|