From 28c7d7984e27560e8934f71aec579358654411fc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 8 Jan 2017 17:22:13 -0800 Subject: [PATCH] Tweak pagination. --- src/runtime/string.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/string.scm b/src/runtime/string.scm index 27ee28752..7e9e6b03c 100644 --- a/src/runtime/string.scm +++ b/src/runtime/string.scm @@ -973,7 +973,7 @@ USA. (fix:= (%substring-match-forward-ci string1 start1 end1 string2 start2 end2) length)))) - + (define (string-suffix? string1 string2) (guarantee-2-strings string1 string2 'STRING-SUFFIX?) (%substring-suffix? string1 0 (string-length string1) @@ -1263,7 +1263,7 @@ USA. (fix:+ (string-find-previous-char-in-set string char-set) 1)) ""))) - + ;;;; Pad (define (string-pad-right string n #!optional char) -- 2.25.1