summaryrefslogtreecommitdiffstats
path: root/sc2.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
commit8466d8cfa486fb30d1755c4261b781135083787b (patch)
treec8c12c67246f543c3cc4f64d1c07e003cb1d45ae /sc2.scm
parent87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff)
downloadslib-8466d8cfa486fb30d1755c4261b781135083787b.tar.gz
slib-8466d8cfa486fb30d1755c4261b781135083787b.zip
Import Upstream version 3a1upstream/3a1
Diffstat (limited to 'sc2.scm')
-rw-r--r--sc2.scm15
1 files changed, 8 insertions, 7 deletions
diff --git a/sc2.scm b/sc2.scm
index 8057229..84bc4db 100644
--- a/sc2.scm
+++ b/sc2.scm
@@ -8,7 +8,7 @@
;1. Any copy made of this software must include this copyright notice
;in full.
;
-;2. I have made no warrantee or representation that the operation of
+;2. I have made no warranty or representation that the operation of
;this software will be error-free, and I am under no obligation to
;provide any services, by way of maintenance, update, or otherwise.
;
@@ -17,29 +17,30 @@
;promotional, or sales literature without prior written consent in
;each case.
+;@
(define (substring-move-left! string1 start1 end1 string2 start2)
(do ((i start1 (+ i 1))
(j start2 (+ j 1))
(l (- end1 start1) (- l 1)))
((<= l 0))
(string-set! string2 j (string-ref string1 i))))
-
+;@
(define (substring-move-right! string1 start1 end1 string2 start2)
(do ((i (+ start1 (- end1 start1) -1) (- i 1))
(j (+ start2 (- end1 start1) -1) (- j 1))
(l (- end1 start1) (- l 1)))
((<= l 0))
(string-set! string2 j (string-ref string1 i))))
-
+;@
(define (substring-fill! string start end char)
(do ((i start (+ i 1))
(l (- end start) (- l 1)))
((<= l 0))
(string-set! string i char)))
-
+;@
(define (string-null? str)
(= 0 (string-length str)))
-
+;@
(define append!
(lambda args
(cond ((null? args) '())
@@ -51,14 +52,14 @@
(car args)))))
;;;; need to add code for OBJECT-HASH and OBJECT-UNHASH
-
+;@
(define 1+
(let ((+ +))
(lambda (n) (+ n 1))))
(define -1+
(let ((+ +))
(lambda (n) (+ n -1))))
-
+;@
(define <? <)
(define <=? <=)
(define =? =)