reformat comments

* module/language/elisp/bindings.scm:
* module/language/elisp/compile-tree-il.scm:
* module/language/elisp/lexer.scm:
* module/language/elisp/parser.scm:
* module/language/elisp/runtime.scm:
* module/language/elisp/runtime/function-slot.scm:
* module/language/elisp/runtime/macro-slot.scm:
* module/language/elisp/runtime/value-slot.scm: Reformat comments.

module/language/elisp/bindings.scm

@@ -2,19 +2,20 @@
 
 ;;; Copyright (C) 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 the License, or (at your option) any later version.
+;;; 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 the
+;;; License, or (at your option) any later version.
 ;;;
-;;; This library 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
+;;; This library 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
 ;;; Lesser General Public License for more details.
 ;;;
 ;;; You should have received a copy of the GNU Lesser General Public
 ;;; License along with this library; if not, write to the Free Software
-;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+;;; 02110-1301 USA
 
 ;;; Code:
 
@@ -24,31 +25,33 @@
             with-lexical-bindings with-dynamic-bindings
             get-lexical-binding))
 
-; This module defines routines to handle analysis of symbol bindings used
-; during elisp compilation.  This data allows to collect the symbols, for
-; which globals need to be created, or mark certain symbols as lexically bound.
+;;; This module defines routines to handle analysis of symbol bindings
+;;; used during elisp compilation. This data allows to collect the
+;;; symbols, for which globals need to be created, or mark certain
+;;; symbols as lexically bound.
+;;;
+;;; Needed globals are stored in an association-list that stores a list
+;;; of symbols for each module they are needed in.
+;;;
+;;; The lexical bindings of symbols are stored in a hash-table that
+;;; associates symbols to fluids; those fluids are used in the
+;;; with-lexical-binding and with-dynamic-binding routines to associate
+;;; symbols to different bindings over a dynamic extent.
 
-; Needed globals are stored in an association-list that stores a list of symbols
-; for each module they are needed in.
-
-; The lexical bindings of symbols are stored in a hash-table that associates
-; symbols to fluids; those fluids are used in the with-lexical-binding and
-; with-dynamic-binding routines to associate symbols to different bindings
-; over a dynamic extent.
-
-; Record type used to hold the data necessary.
+;;; Record type used to hold the data necessary.
 
 (define bindings-type
   (make-record-type 'bindings
                     '(needed-globals lexical-bindings)))
 
-; Construct an 'empty' instance of the bindings data structure to be used
-; at the start of a fresh compilation.
+;;; Construct an 'empty' instance of the bindings data structure to be
+;;; used at the start of a fresh compilation.
 
 (define (make-bindings)
   ((record-constructor bindings-type) '() (make-hash-table)))
 
-; Mark that a given symbol is needed as global in the specified slot-module.
+;;; Mark that a given symbol is needed as global in the specified
+;;; slot-module.
 
 (define (mark-global-needed! bindings sym module)
   (let* ((old-needed ((record-accessor bindings-type 'needed-globals) bindings))
@@ -59,8 +62,8 @@
          (new-needed (assoc-set! old-needed module new-in-module)))
     ((record-modifier bindings-type 'needed-globals) bindings new-needed)))
 
-; Cycle through all globals needed in order to generate the code for their
-; creation or some other analysis.
+;;; Cycle through all globals needed in order to generate the code for
+;;; their creation or some other analysis.
 
 (define (map-globals-needed bindings proc)
   (let ((needed ((record-accessor bindings-type 'needed-globals) bindings)))
@@ -81,8 +84,8 @@
                                  (cons (proc module (car sym-tail))
                                        sym-result))))))))))
 
-; Get the current lexical binding (gensym it should refer to in the current
-; scope) for a symbol or #f if it is dynamically bound.
+;;; Get the current lexical binding (gensym it should refer to in the
+;;; current scope) for a symbol or #f if it is dynamically bound.
 
 (define (get-lexical-binding bindings sym)
   (let* ((lex ((record-accessor bindings-type 'lexical-bindings) bindings))
@@ -91,8 +94,8 @@
       (fluid-ref slot)
       #f)))
 
-; Establish a binding or mark a symbol as dynamically bound for the extent of
-; calling proc.
+;;; Establish a binding or mark a symbol as dynamically bound for the
+;;; extent of calling proc.
 
 (define (with-symbol-bindings bindings syms targets proc)
   (if (or (not (list? syms))