src/backend/utils/merge-instructions.scm


1
2
3
4
5
6
7

(define-module (backend 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))