From 74f4561982a73374942bf7fbb66ee5367da535cc Mon Sep 17 00:00:00 2001 From: Mistivia Date: Wed, 4 Dec 2024 20:37:10 +0800 Subject: fix () --- assembler/fvm-as.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/assembler/fvm-as.scm b/assembler/fvm-as.scm index 68a2ca0..5f1951e 100644 --- a/assembler/fvm-as.scm +++ b/assembler/fvm-as.scm @@ -4,6 +4,7 @@ (import (chicken condition)) (import (chicken keyword)) (import (chicken process-context)) +(import (chicken port)) (define (make-opcode-table) (define opcodes @@ -181,7 +182,10 @@ (define (main input-file output-file) (define prog '()) ;; read s-exp from file - (call-with-input-file input-file + (define input-str + (with-input-from-file input-file + read-string)) + (call-with-input-string (string-append "(" input-str ")") (lambda (port) (set! prog (read port)))) (set! prog (preprocess prog)) (set! prog (pseudo-op-pass prog)) -- cgit v1.0