path: root/src/modules/utils/merge-instructions.scm

(define-module (utils merge-instructions)
  #:use-module (srfi srfi-1)
  #:export (merge-instr))


(define (merge-instr lst)
  (append-map (lambda (x) (if (list? (car x)) x (list x))) lst))