diff options
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")))) |