From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 24 Mar 1991 05:06:11 +0000 (+0000)
Subject: read_a_char was not handling \t and \b correctly.
X-Git-Tag: 20090517-FFI~10821
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=801455d8eefc02100f6b6b750425e8c0bbd1ccf4;p=mit-scheme.git

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 104c7acad..a4aa88174 100644
--- 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 c78358de4..df01dea11 100644
--- 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);
   }
 }