diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2022-08-10 18:12:44 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-08-10 18:50:08 -0400 |
commit | c441f8f092cd5da5b09e3e4e826141d915189ab5 (patch) | |
tree | 93400e2620238f29cbd527eec8684ea117a6be6f /compiler.scm |
Step 1: Integers
Diffstat (limited to 'compiler.scm')
-rw-r--r-- | compiler.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/compiler.scm b/compiler.scm new file mode 100644 index 0000000..1285ac6 --- /dev/null +++ b/compiler.scm @@ -0,0 +1,17 @@ +(use-modules (ice-9 format)) + +(define (emit template-string . args) + (apply format #t template-string args) + (newline)) + +(define (compile-program x) + (with-output-to-file "scheme_entry.S" + (lambda () + (display ".text +.p2align 4 +.globl scheme_entry +.type scheme_entry, @function +scheme_entry: +") + (emit "movl $~a, %eax" x) + (emit "ret")))) |