lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replace tabs with spaces in Lisp printer

This commit is contained in:
Lassi Kortela 2019-08-09 17:24:17 +03:00
parent be9b2b364e
commit 04b3c3b292
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c/print.c
View File

@ -39,10 +39,6 @@ static int outindent(int n, ios_t *f)
ios_putc('\n', f); ios_putc('\n', f);
VPOS++; VPOS++;
HPOS = n; HPOS = n;
while (n >= 8) {
ios_putc('\t', f);
n -= 8;
}
while (n) { while (n) {
ios_putc(' ', f); ios_putc(' ', f);
n--; n--;

6
scheme-core/compiler.scm
View File

@ -666,7 +666,7 @@
(begin (princ "\n") (begin (princ "\n")
(disassemble v (+ lev 1))) (disassemble v (+ lev 1)))
(print v))) (print v)))
(dotimes (xx lev) (princ "\t")) (dotimes (xx lev) (princ " "))
(princ "maxstack " (ref-int32-LE code 0) "\n") (princ "maxstack " (ref-int32-LE code 0) "\n")
(let ((i 4) (let ((i 4)
(N (length code))) (N (length code)))
@ -677,9 +677,9 @@
k))) k)))
#f Instructions))) #f Instructions)))
(if (> i 4) (newline)) (if (> i 4) (newline))
(dotimes (xx lev) (princ "\t")) (dotimes (xx lev) (princ " "))
(princ (hex5 (- i 4)) ": " (princ (hex5 (- i 4)) ": "
(string inst) "\t") (string inst) " ")
(set! i (+ i 1)) (set! i (+ i 1))
(case inst (case inst
((loadv.l loadg.l setg.l) ((loadv.l loadg.l setg.l)