From c2ad417c57deda9ced2748a6f5ca472390d6776e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 16 Nov 1993 16:09:15 +0000 Subject: [PATCH] Finish renaming C-quotify. --- v7/src/compiler/machines/C/cout.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm index 82f14777a..4211f970f 100644 --- a/v7/src/compiler/machines/C/cout.scm +++ b/v7/src/compiler/machines/C/cout.scm @@ -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) -- 2.25.1