read_a_char was not handling \t and \b correctly.

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index 104c7acad1f261840e2940b51235d328c5835c43..a4aa881747581535c33e45fa8b13b1fe8f834b38 100644 (file)
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.42 1990/11/21 07:03:45 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.43 1991/03/24 05:06:11 jinx Exp $
 
 Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 
@@ -109,9 +109,11 @@ DEFUN_VOID (read_a_char)
   switch (C)
   {
     case 'n':  OUT ('\n');
-    case 't':  OUT ('\n');
+    case 't':  OUT ('\t');
+    case 'b':  OUT ('\b');
     case 'r':  OUT ('\r');
     case 'f':  OUT ('\f');
+    case '\\': OUT ('\\');
     case '0':  OUT ('\0');
     case 'X':
     {
@@ -124,7 +126,6 @@ DEFUN_VOID (read_a_char)
       getc (portable_file);                    /* Space */
       OUT (Code);
     }
-    case '\\': OUT ('\\');
     default  : OUT (C);
   }
 }

diff --git a/v8/src/microcode/psbtobin.c b/v8/src/microcode/psbtobin.c
index c78358de4b36632017b9100623a45b7cf671e48a..df01dea11cad14e3fd2f700bd2c4f4d4d44de6a5 100644 (file)
--- a/v8/src/microcode/psbtobin.c
+++ b/v8/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.42 1990/11/21 07:03:45 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.43 1991/03/24 05:06:11 jinx Exp $
 
 Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 
@@ -109,9 +109,11 @@ DEFUN_VOID (read_a_char)
   switch (C)
   {
     case 'n':  OUT ('\n');
-    case 't':  OUT ('\n');
+    case 't':  OUT ('\t');
+    case 'b':  OUT ('\b');
     case 'r':  OUT ('\r');
     case 'f':  OUT ('\f');
+    case '\\': OUT ('\\');
     case '0':  OUT ('\0');
     case 'X':
     {
@@ -124,7 +126,6 @@ DEFUN_VOID (read_a_char)
       getc (portable_file);                    /* Space */
       OUT (Code);
     }
-    case '\\': OUT ('\\');
     default  : OUT (C);
   }
 }