@@ -16,17 +16,17 @@ ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see . ;;====================================================================== -(define-inline (keys->valslots keys) ;; => ?,?,? .... +(define (keys->valslots keys) ;; => ?,?,? .... (string-intersperse (map (lambda (x) "?") keys) ",")) -;; (define-inline (keys->key/field keys . additional) +;; (define (keys->key/field keys . additional) ;; (string-join (map (lambda (k)(conc k " TEXT")) ;; (append keys additional)) ",")) -(define-inline (item-list->path itemdat) +(define (item-list->path itemdat) (if (list? itemdat) (string-intersperse (map cadr itemdat) "/") ""))