From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 29 May 2019 14:33:29 +0000 (+0000)
Subject: Line break between #; and multiline expression.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d191b029615e10539fbb1504419ee259258db5a;p=mit-scheme.git

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 1c8694270..f8fbd6bd8 100644
--- 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 e19725dff..fa7c26381 100644
--- 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 c54228433..1a89c5be2 100644
--- 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 a96b752b5..b0433a0a8 100644
--- a/src/runtime/thread-low.scm
+++ b/src/runtime/thread-low.scm
@@ -47,7 +47,8 @@ USA.
 
 ;;;; 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 a59d27225..0373b0987 100644
--- 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 954d00d42..e51407510 100644
--- 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)