Add dir-local variables for pagination and tweak one instance.

diff --git a/src/.dir-locals.el b/src/.dir-locals.el
new file mode 100644 (file)
index 0000000..c432ef6
--- /dev/null
+++ b/src/.dir-locals.el
@@ -0,0 +1,5 @@
+((scheme-mode (cph-page-minimum . 50)
+              (cph-page-maximum . 80)
+              (cph-line-length . 80)
+              (whitespace-line-column . 80)
+              (fill-column . 80)))

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index 83f8b0940a094f26cfe7ce4496a4324b3d34b1c0..7d2bd3d0418c1ae046f4a3cd81f3ba9586d29190 100644 (file)
--- a/src/runtime/genio.scm
+++ b/src/runtime/genio.scm
@@ -920,7 +920,7 @@ USA.
                        (else (error "Unknown result:" r)))))))))
        (else
         (error:not-string string 'INPUT-PORT/READ-SUBSTRING!))))
-\f
+
 (define (input-buffer-in-8-bit-mode? ib)
   (and (eq? (input-buffer-decode ib) binary-decoder)
        (eq? (input-buffer-normalize ib) binary-normalizer)))