record.lfe

(defmacro tupleize-record (rec-name)
  `(lambda (rec)
     ,(lists:map (lambda (field-name)
                   (tuple field-name (rec-get rec-name field-name)))
                 (rec-fields rec-name))))

(defmacro rec-fields (name)
  `(,(ltoa (++ "fields-" (atol name)))))

(defmacro rec-get (name field)
  `(lambda (rec) (,(ltoa (++ (atol name) "-" (atol field))) rec)))

(defun atol (a)
  (atom_to_list a))

(defun ltoa (l)
  (list_to_atom l))