diff options
| author | Ludovic Courtès | 2020-08-02 10:08:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2020-08-02 10:08:46 +0200 |
| commit | bb06dbfcf61e38aadd00fd964ab385f51669b8fc (patch) | |
| tree | 03e97ff2e9c4bc6d07cbd9f43c19510c31f995da | |
| parent | 18eee9ec031ccdbb4f7ea1b7fb540b372787fa12 (diff) | |
| download | skribilo-bb06dbfcf61e38aadd00fd964ab385f51669b8fc.tar.gz skribilo-bb06dbfcf61e38aadd00fd964ab385f51669b8fc.tar.lz skribilo-bb06dbfcf61e38aadd00fd964ab385f51669b8fc.zip | |
source: Remove unused procedure.
* src/guile/skribilo/source.scm (split-string-newline): Remove.
| -rw-r--r-- | src/guile/skribilo/source.scm | 33 |
1 files changed, 1 insertions, 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)))))) |