Finish renaming C-quotify.
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Tue, 16 Nov 1993 16:09:15 +0000 (16:09 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Tue, 16 Nov 1993 16:09:15 +0000 (16:09 +0000)
v7/src/compiler/machines/C/cout.scm

index 82f14777a93213019d80883c3ed84040f2bb6266..4211f970fa3dccf278ad31f6034e9fc8f73433d1 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cout.scm,v 1.17 1993/11/16 02:10:31 gjr Exp $
+$Id: cout.scm,v 1.18 1993/11/16 16:09:15 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -744,7 +744,8 @@ MIT in each case. |#
        (string-append
         (substring string 0 index)
         (C-quotify-string-char (string-ref string index))
-        (C-quotify (substring string (1+ index) (string-length string)))))))
+        (C-quotify-string
+         (substring string (1+ index) (string-length string)))))))
 
 (define (C-quotify-string-char char)
   (cond ((char-set-member? char-set:C-named-chars char)