From 2583edf6b172ea98d700773df5f51761aee01692 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 12 Dec 2010 04:12:20 +0000
Subject: Clean symbol vs. character vs. string confusion

---
 src/interp/newfort.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/newfort.boot')

diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index e83ce7c7..203345e9 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -337,7 +337,7 @@ fortError1 u ==
  
 fortError(u,v) ==
   $fortError := "t"
-  msg := strconc("   ",STRINGIMAGE u);
+  msg := strconc('"   ",STRINGIMAGE u);
   sayErrorly("Fortran translation error",msg)
   mathPrint v
  
@@ -844,7 +844,7 @@ fortPreRoot e ==
 fix2FortranFloat e ==
   -- Return a Fortran float for a given integer.
   $fortranPrecision = "double" => strconc(STRINGIMAGE(e),".0D0")
-  strconc(STRINGIMAGE(e),".")
+  strconc(STRINGIMAGE(e),'".")
  
 isFloat e ==
   FLOATP(e) or string?(e) and FIND(char ".",e)
@@ -860,7 +860,7 @@ checkPrecision e ==
       ePos => SUBSEQ(e,period+1,ePos)
       period+1 < # e => SUBSEQ(e,period+1)
       "0"
-    strconc(iPart,rPart,"D",expt)
+    strconc(iPart,rPart,'"D",expt)
   e
  
 ----------------- segment.boot -----------------------
-- 
cgit v1.2.3