From bb06dbfcf61e38aadd00fd964ab385f51669b8fc Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 2 Aug 2020 10:08:46 +0200
Subject: source: Remove unused procedure.
* src/guile/skribilo/source.scm (split-string-newline): Remove.
---
src/guile/skribilo/source.scm | 33 +--------------------------------
1 file changed, 1 insertion(+), 32 deletions(-)
diff --git a/src/guile/skribilo/source.scm b/src/guile/skribilo/source.scm
index cf4f22c..99642de 100644
--- a/src/guile/skribilo/source.scm
+++ b/src/guile/skribilo/source.scm
@@ -1,7 +1,6 @@
;;; source.scm -- Highlighting source files.
-;;; -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2005, 2008, 2009, 2010, 2018 Ludovic Court�s <ludo@gnu.org>
+;;; Copyright 2005, 2008, 2009, 2010, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>
;;;
;;;
@@ -222,33 +221,3 @@
(if (procedure? f)
(fontify f o)
o)))
-
-;*---------------------------------------------------------------------*/
-;* split-string-newline ... */
-;*---------------------------------------------------------------------*/
-(define (split-string-newline str)
- (let ((l (string-length str)))
- (let loop ((i 0)
- (j 0)
- (r '()))
- (cond
- ((= i l)
- (if (= i j)
- (reverse! r)
- (reverse! (cons (substring str j i) r))))
- ((char=? (string-ref str i) #\newline)
- (loop (+ i 1)
- (+ i 1)
- (if (= i j)
- (cons 'eol r)
- (cons* 'eol (substring str j i) r))))
- ((and (char=? (string-ref str i) #\cr)
- (< (+ i 1) l)
- (char=? (string-ref str (+ i 1)) #\newline))
- (loop (+ i 2)
- (+ i 2)
- (if (= i j)
- (cons 'eol r)
- (cons* 'eol (substring str j i) r))))
- (else
- (loop (+ i 1) j r))))))
--
cgit v1.2.3