diff options
Diffstat (limited to 'src/gscc')
| -rwxr-xr-x | src/gscc | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -1,16 +1,16 @@ #!/run/current-system/profile/bin/guile \ --L ./src -e main -s +-L ./src/modules -e main -s !# (use-modules (ice-9 getopt-long) (ice-9 popen) (ice-9 pretty-print) - (modules lexer driver) - (modules parser driver) - (modules tacky driver) - (modules generator driver) - (modules emitter driver)) + (lexer driver) + (parser driver) + (tacky driver) + (generator driver) + (emitter driver)) (define version "v0.1.1") @@ -53,11 +53,11 @@ Options: (a-file (string-append dest ".s"))) (when (file-exists? a-file) (delete-file a-file)) - ;; (let ((port (open-output-file a-file))) - ;; (display program port) - ;; (close-port port)) - ;; (when (postprocess a-file dest) - ;; (display (string-concatenate `("Postprocess reported success (wrote " ,dest ").\n")))) + (let ((port (open-output-file a-file))) + (display program port) + (close-port port)) + (when (postprocess a-file dest) + (display (string-concatenate `("Postprocess reported success (wrote " ,dest ").\n")))) )))))))))) (define (preprocess file) |