From ddd448ae86e5730d5cd297f44ec89ee3fa3c0006 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 Jan 2025 01:25:47 -0700 Subject: use a scheme procedures+eval to manage and transform AST Removes records for a more-managable scheme-syntax approach. Modules+overriding allows for the IR itself to be represented and evaluated as scheme code during each transformation. --- src/modules/utils/merge-instructions.scm | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 src/modules/utils/merge-instructions.scm (limited to 'src/modules/utils/merge-instructions.scm') diff --git a/src/modules/utils/merge-instructions.scm b/src/modules/utils/merge-instructions.scm new file mode 100644 index 0000000..dea5556 --- /dev/null +++ b/src/modules/utils/merge-instructions.scm @@ -0,0 +1,7 @@ +(define-module (modules 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)) -- cgit v1.2.3