From cf0e89a9865491ace9a42b2b53fc31a43a7a269d Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 31 Oct 1993 18:34:13 +0000 Subject: [PATCH] Add newlines after every argument to RCONSM to make lines shorter. --- v7/src/compiler/machines/C/cout.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm index 741369f23..f29c63055 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.7 1993/10/31 04:04:20 gjr Exp $ +$Id: cout.scm,v 1.8 1993/10/31 18:34:13 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -557,7 +557,7 @@ MIT in each case. |# "(RCONSM (" (number->string (1+ npairs)) (apply string-append (map (lambda (frob) - (string-append ", " + (string-append ",\n\t\t" (process frob))) (cons object frobs))) "))")))))) -- 2.25.1