Applies scheme indentation according to the GNU guidelines

scm/define-context-properties.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2012  Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                  Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
 ;;;; LilyPond is distributed in the hope that it will be useful,
 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;; GNU General Public License for more details.
 ;;;;
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
 
 (define-public all-translation-properties '())
 
 (define (translator-property-description symbol type? description)
   (if (not (and
-            (symbol? symbol)
-            (procedure? type?)
-            (string? description)))
+            (symbol? symbol)
+            (procedure? type?)
+            (string? description)))
       (throw 'init-format-error))
 
 
   (if (not (equal? #f (object-property symbol 'translation-doc)))
       (ly:error (_ "symbol ~S redefined" symbol)))
 
   (set-object-property! symbol 'translation-type? type?)
   (set-object-property! symbol 'translation-doc description)
   (set! all-translation-properties (cons symbol all-translation-properties))
   symbol)
@@ skipping 233 matching lines @@
 at this point.")
      (forceClef ,boolean? "Show clef symbol, even if it has not
 changed.  Only active for the first clef after the property is set, not
 for the full staff.")
      (fretLabels ,list? "A list of strings or Scheme-formatted markups
 containing, in the correct order, the labels to be used for lettered
 frets in tablature.")
 
 
      (glissandoMap ,list? "A map in the form of '((source1 . target1)
-(source2 . target2) (sourcen . targetn)) showing the glissandi to
+                                                  (source2 . target2) (sourcen . targetn)) showing the glissandi to
 be drawn for note columns.  The value '() will default to '((0 . 0)
-(1 . 1) (n . n)), where n is the minimal number of note-heads in
+                                                            (1 . 1) (n . n)), where n is the minimal number of note-heads in
 the two note columns between which the glissandi occur.")
      (gridInterval ,ly:moment? "Interval for which to generate
 @code{GridPoint}s.")
 
 
      (handleNegativeFrets ,symbol? "How the automatic fret calculator
 should handle calculated negative frets.  Values include @code{'ignore},
 to leave them out of the diagram completely, @code{'include}, to include
 them as calculated, and @code{'recalculate}, to ignore the specified
 string and find a string where they will fit with a positive fret number.")
@@ skipping 32 matching lines @@
      (internalBarNumber ,integer? "Contains the current barnumber.
 This property is used for internal timekeeping, among others by the
 @code{Accidental_engraver}.")
 
 
      (keepAliveInterfaces ,list? "A list of symbols, signifying grob
 interfaces that are worth keeping a staff with @code{remove-empty} set
 around for.")
      (keyAlterationOrder ,list? "An alist that defines in what order
 alterations should be printed.  The format is @code{(@var{step}
-. @var{alter})}, where @var{step} is a number from 0 to@tie{}6 and
+                                                         . @var{alter})}, where @var{step} is a number from 0 to@tie{}6 and
 @var{alter} from -2 (sharp) to 2 (flat).")
      (keySignature ,list? "The current key signature.  This is an alist
 containing @code{(@var{step} . @var{alter})} or @code{((@var{octave} .
-@var{step}) . @var{alter})},  where @var{step} is a number in the range
+                                                            @var{step}) . @var{alter})},  where @var{step} is a number in the range
 0 to@tie{}6 and @var{alter} a fraction, denoting alteration.  For
 alterations, use symbols, e.g. @code{keySignature = #`((6 . ,FLAT))}.")
 
 
      (lyricMelismaAlignment ,number? "Alignment to use for a melisma syllable.")
 
 
      (majorSevenSymbol ,markup? "How should the major 7th be formatted
 in a chord name?")
      (markFormatter ,procedure? "A procedure taking as arguments the
@@ skipping 110 matching lines @@
      (skipBars ,boolean? "If set to true, then skip the empty bars
 that are produced by multimeasure notes and rests.  These bars will
 not appear on the printed output.  If not set (the default),
 multimeasure notes and rests expand into their full length, printing
 the appropriate number of empty bars so that synchronization with other
 voices is preserved.
 
 @example
 @{
   r1 r1*3 R1*3
-  \\set Score.skipBars= ##t
-  r1*3 R1*3
-@}
+     \\set Score.skipBars= ##t
+     r1*3 R1*3
+     @}
 @end example")
      (skipTypesetting ,boolean? "If true, no typesetting is done,
 speeding up the interpretation phase.  Useful for debugging large
 scores.")
      (soloIIText ,markup? "The text for the start of a solo for
 voice @q{two} when part-combining.")
      (soloText ,markup? "The text for the start of a solo when
 part-combining.")
      (squashedPosition ,integer? "Vertical position of squashing for
 @rinternals{Pitch_squash_engraver}.")
@@ skipping 176 matching lines @@
 and subscripts.  See @file{scm/@/script.scm} for more information.")
      (slurMelismaBusy ,boolean? "Signal if a slur is present.")
      (stavesFound ,grob-list? "A list of all staff-symbols found.")
 
 
      (tieMelismaBusy ,boolean? "Signal whether a tie is present.")
      )))
 
 (define-public all-translation-properties
   (append all-user-translation-properties
-          all-internal-translation-properties))
+          all-internal-translation-properties))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-public default-melisma-properties
   '(melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy completionBusy))