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