diff options
Diffstat (limited to 'src/backend/utils/merge-instructions.scm')
| -rw-r--r-- | src/backend/utils/merge-instructions.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/backend/utils/merge-instructions.scm b/src/backend/utils/merge-instructions.scm new file mode 100644 index 0000000..f9fc043 --- /dev/null +++ b/src/backend/utils/merge-instructions.scm @@ -0,0 +1,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)) |