diff options
Diffstat (limited to 'src/modules/tacky/traverse.scm')
-rw-r--r-- | src/modules/tacky/traverse.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/modules/tacky/traverse.scm b/src/modules/tacky/traverse.scm index 24c4054..5f1ad1f 100644 --- a/src/modules/tacky/traverse.scm +++ b/src/modules/tacky/traverse.scm @@ -1,5 +1,5 @@ -(define-module (modules tacky traverse) - #:use-module (modules ast ir) +(define-module (tacky traverse) + #:use-module (ast ir) #:export (prog func stmt @@ -26,8 +26,8 @@ (define (make-instruction op src instrs) (let ((dst (make-temporary))) (cons dst - (append instrs - (list (op dst src)))))) + (append instrs + (list (op src dst)))))) (define make-temporary (let ((count 100)) @@ -35,8 +35,8 @@ (set! count (1+ count)) (list 'tmp count)))) -(define (neg dst src) - (list 'neg dst src)) +(define (neg src dst) + (list 'neg src dst)) -(define (not dst src) - (list 'not dst src)) +(define (not src dst) + (list 'not src dst)) |