Commit e094738f authored by Sapphie's avatar Sapphie
Browse files

Replace tabs with spaces

parent a4efac0c
......@@ -148,10 +148,10 @@
(defrec int-print
(fun (i)
(cond
((< i 0) (char-print '-') (int-print (- i)))
((< i 10) (char-print (int->char-digit i)))
(#t (let ((digit (%t i 10))) (int-print (/t i 10)) (char-print (int->char-digit digit))))
(cond
((< i 0) (char-print '-') (int-print (- i)))
((< i 10) (char-print (int->char-digit i)))
(#t (let ((digit (%t i 10))) (int-print (/t i 10)) (char-print (int->char-digit digit))))
)
)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment