Line break between #; and multiline expression.

Otherwise Emacs gets confused.

diff --git a/src/berkeley-db/berkeley-db.scm b/src/berkeley-db/berkeley-db.scm
index 1c8694270fa809249faa6482fd6426710dcee29c..f8fbd6bd803c654fba36c8ef0b1d4bb21a8e1ac6 100644 (file)
--- a/src/berkeley-db/berkeley-db.scm
+++ b/src/berkeley-db/berkeley-db.scm
@@ -108,7 +108,7 @@ USA.
 (define-integrable db_txn_sync         #x00002000)
 
 ;; Flags for DB4:DB-GET, DB4:DB-PUT, DB4:DB-DEL
-#;(define-integrable db_dirty_read     #x02000000)
+;(define-integrable db_dirty_read      #x02000000)
 (define-integrable db_multiple         #x04000000)
 (define-integrable db_multiple_key     #x08000000)
 (define-integrable db_rmw              #x10000000)

diff --git a/src/gdbm/gdbm-check.scm b/src/gdbm/gdbm-check.scm
index e19725dffee48a66bdb643e88aa2eeb2f95edf8d..fa7c263812b14c48b4e6b75e19f2c8ed51ac775e 100644 (file)
--- a/src/gdbm/gdbm-check.scm
+++ b/src/gdbm/gdbm-check.scm
@@ -72,7 +72,8 @@ USA.
     (gdbm-store dbf "AString" "Testing 1 2 3." GDBM_INSERT)
     (gdbm-store dbf "ASecondString" "Testing 1 2 3." GDBM_REPLACE)
     (gdbm-store dbf "AThirdString" "Testing 1 2 3." GDBM_INSERT)
-    #;(let ((keys (sort (gdbm-keys dbf) string<?)))
+    #;
+    (let ((keys (sort (gdbm-keys dbf) string<?)))
       (if (not (equal? keys '("ASecondString" "AString" "AThirdString")))
          (error "keys:" keys)))
 

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index c542284338396912fb16bd89d2c88c3e54d1a34e..1a89c5be2b31ab218561cea65fdcb922775a4e31 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -386,7 +386,8 @@ USA.
          (flo:set-environment! saved)
          value))))))
 
-#;(define-integrable (call-alien* alien-function args)
+#;
+(define-integrable (call-alien* alien-function args)
   (apply (ucode-primitive c-call -1) alien-function args))
 
 ;; Use this definition to maintain a callout/back stack.
@@ -548,7 +549,8 @@ USA.
     (normalize-aliens! args)
     (callback-handler* procedure args)))
 
-#;(define-integrable (callback-handler* procedure args)
+#;
+(define-integrable (callback-handler* procedure args)
   (apply-callback-proc procedure args))
 
 ;; Use this definition to maintain a callout/back stack.
@@ -659,7 +661,8 @@ USA.
   (add-gc-daemon! free-malloced-aliens)
   unspecific)
 
-#;(define-syntax %assert
+#;
+(define-syntax %assert
   (syntax-rules ()
     ((_ test . msg)
      #f)))
@@ -671,7 +674,8 @@ USA.
         (error . msg)))))
 
 ;; Use this definition to avoid frequently checking %trace?.
-#;(define-syntax %trace
+#;
+(define-syntax %trace
   (syntax-rules ()
     ((_ . msg)
      #f)))

diff --git a/src/runtime/thread-low.scm b/src/runtime/thread-low.scm
index a96b752b551ba6fb8ea9195fe3b9987f7173ba8a..b0433a0a8c67b0e303e22e2a11d871b03d1559e5 100644 (file)
--- a/src/runtime/thread-low.scm
+++ b/src/runtime/thread-low.scm
@@ -47,7 +47,8 @@ USA.
 \f
 ;;;; Circular Rings
 
-#;(define-structure (link (conc-name link/))
+#;
+(define-structure (link (conc-name link/))
   prev
   next
   item)

diff --git a/src/runtime/thread-queue.scm b/src/runtime/thread-queue.scm
index a59d27225be4db2653e43550d0fb525eb34efee5..0373b0987431804fc2c970f44208f8e01d34e6c6 100644 (file)
--- a/src/runtime/thread-queue.scm
+++ b/src/runtime/thread-queue.scm
@@ -64,7 +64,8 @@ USA.
     ((_ condition)
      #f)))
 
-#;(define-syntax %assert
+#;
+(define-syntax %assert
   (syntax-rules ()
     ((_ condition)
      (if (not condition)

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 954d00d4283d9ca14ea7363808c168a0f1b1ea25..e514075104fa1651edfd0a7be011a536bc93fc97 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -1178,7 +1178,8 @@ USA.
 ;;; populations, queues, etc.  The following define-structure is
 ;;; hand-expanded as a tagged vector (not record) in thread-low.scm.
 
-#;(define-structure (thread-mutex
+#;
+(define-structure (thread-mutex
                   (constructor make-thread-mutex ())
                   (conc-name thread-mutex/))
   (waiting-threads (make-ring) read-only #t)