whitespace fix

diff --git a/cgen/sim.scm b/cgen/sim.scm
index 3ecb925..b1d7f18 100644 (file)
--- a/cgen/sim.scm
+++ b/cgen/sim.scm
@@ -1145,8 +1145,8 @@
                 "fn_"
                 "")
             (string-downcase (symbol->string (if sem-mode
-                                 (mode-real-name sem-mode)
-                                 (mode-real-name mode)))))))
+                                                 (mode-real-name sem-mode)
+                                                 (mode-real-name mode)))))))
      "_write (current_cpu"
      ; ??? May need to include h/w id some day.
      (if setter