Megatest

Diff
Login

Differences From Artifact [46a3b150ea]:

To Artifact [9216cfc587]:


17
18
19
20
21
22
23

24


25
17
18
19
20
21
22
23
24

25
26
27







+
-
+
+


(define-inline (keys->key/field keys . additional)
  (string-join (map (lambda (k)(conc (key:get-fieldname k) " " 
				     (key:get-fieldtype k)))
		    (append keys additional)) ","))

(define-inline (item-list->path itemdat)
  (if (list? itemdat)
  (string-intersperse  (map cadr itemdat) "/"))
      (string-intersperse  (map cadr itemdat) "/")
      ""))