diff options
Diffstat (limited to 'src/modules/ast/syntax-tree.scm')
-rw-r--r-- | src/modules/ast/syntax-tree.scm | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/src/modules/ast/syntax-tree.scm b/src/modules/ast/syntax-tree.scm deleted file mode 100644 index e2ca8da..0000000 --- a/src/modules/ast/syntax-tree.scm +++ /dev/null @@ -1,59 +0,0 @@ -(define-module (modules ast syntax-tree) - #:use-module (srfi srfi-9) - #:export (make-program - program? - program-function - - make-function - function? - function-id - function-stmt - - make-stmt - stmt? - stmt-expr - - make-unary - unary? - unary-operator - unary-expr - - make-const - const? - const-int - - make-id - id? - id-symbol)) - -(define-record-type <program> - (make-program func) - program? - (func program-function)) - -(define-record-type <function> - (make-function id stmt) - function? - (id function-id) - (stmt function-stmt)) - -(define-record-type <stmt> - (make-stmt expr) - stmt? - (expr stmt-expr)) - -(define-record-type <unary> - (make-unary op expr) - unary? - (op unary-operator) - (expr unary-expr)) - -(define-record-type <const> - (make-const int) - const? - (int const-int)) - -(define-record-type <id> - (make-id symbol) - id? - (symbol id-symbol)) |