From 408b58584050c8568c0cc82174b3b130527b4611 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 25 Jun 2010 12:09:39 +0200 Subject: [PATCH 5/8] Comment, whitespace munging; nfc. * libguile/pairs.c: Add space after sentence end; kill eol whitespace; selectively untabify; add "ends here" comment. --- libguile/pairs.c | 15 +++++++++------ 1 files changed, 9 insertions(+), 6 deletions(-) diff --git a/libguile/pairs.c b/libguile/pairs.c index 68fa4c9..da0d7b9 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,2000,2001, 2004, 2005, 2006, 2008, 2009 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 2000, 2001, 2004, 2005, 2006, 2008, + * 2009 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License * as published by the Free Software Foundation; either version 3 of @@ -79,14 +80,14 @@ SCM_DEFINE (scm_cons, "cons", 2, 0, 0, #undef FUNC_NAME -SCM +SCM scm_cons2 (SCM w, SCM x, SCM y) { return scm_cons (w, scm_cons (x, y)); } -SCM_DEFINE (scm_pair_p, "pair?", 1, 0, 0, +SCM_DEFINE (scm_pair_p, "pair?", 1, 0, 0, (SCM x), "Return @code{#t} if @var{x} is a pair; otherwise return\n" "@code{#f}.") @@ -129,13 +130,13 @@ SCM_DEFINE (scm_set_cdr_x, "set-cdr!", 2, 0, 0, * two bits is only needed to indicate when cxr-ing is ready. This is the * case, when all remaining pairs of bits equal 00. */ -/* The compiler should unroll this. */ +/* The compiler should unroll this. */ #define CHASE_PAIRS(tree, FUNC_NAME, pattern) \ scm_t_uint32 pattern_var = pattern; \ do \ { \ if (!scm_is_pair (tree)) \ - scm_wrong_type_arg_msg (FUNC_NAME, 0, tree, "pair"); \ + scm_wrong_type_arg_msg (FUNC_NAME, 0, tree, "pair"); \ tree = (pattern_var & 1) ? SCM_CAR (tree) : SCM_CDR (tree); \ pattern_var >>= 2; \ } \ @@ -278,3 +279,5 @@ scm_init_pairs () c-file-style: "gnu" End: */ + +/* pairs.c ends here */ -- 1.6.3.2