make-record.lfe

(defmacro make-record (name)
  `(lambda (rec)
     (lists:zip ,(rec-fields name)
                (lists:map (lambda (rec-field) (funcall ,(rec-get name rec-field) rec
                                                        ,(rec-fields 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))