projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
65b18d0
)
Tweak pagination.
author
Chris Hanson
<org/chris-hanson/cph>
Mon, 9 Jan 2017 01:22:13 +0000
(17:22 -0800)
committer
Chris Hanson
<org/chris-hanson/cph>
Mon, 9 Jan 2017 01:22:13 +0000
(17:22 -0800)
src/runtime/string.scm
patch
|
blob
|
history
diff --git
a/src/runtime/string.scm
b/src/runtime/string.scm
index 27ee2875277e6cf61dd42a20f96c123477032bab..7e9e6b03c084e14781d1a40173e29dbc658d3675 100644
(file)
--- 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))))
-
\f
+
(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))
"")))
-
\f
+
;;;; Pad
(define (string-pad-right string n #!optional char)