summaryrefslogtreecommitdiffstats
path: root/sc4opt.scm
diff options
context:
space:
mode:
Diffstat (limited to 'sc4opt.scm')
-rw-r--r--sc4opt.scm17
1 files changed, 9 insertions, 8 deletions
diff --git a/sc4opt.scm b/sc4opt.scm
index 8e92237..156ab92 100644
--- a/sc4opt.scm
+++ b/sc4opt.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.
;
@@ -23,30 +23,31 @@
;;; This code conforms to: William Clinger and Jonathan Rees, editors.
;;; Revised^4 Report on the Algorithmic Language Scheme.
+;@
(define (list-tail l p)
(if (< p 1) l (list-tail (cdr l) (- p 1))))
-
+;@
(define (string->list s)
(do ((i (- (string-length s) 1) (- i 1))
(l '() (cons (string-ref s i) l)))
((< i 0) l)))
-
+;@
(define (list->string l) (apply string l))
-
+;@
(define string-copy string-append)
-
+;@
(define (string-fill! s obj)
(do ((i (- (string-length s) 1) (- i 1)))
((< i 0))
(string-set! s i obj)))
-
+;@
(define (list->vector l) (apply vector l))
-
+;@
(define (vector->list s)
(do ((i (- (vector-length s) 1) (- i 1))
(l '() (cons (vector-ref s i) l)))
((< i 0) l)))
-
+;@
(define (vector-fill! s obj)
(do ((i (- (vector-length s) 1) (- i 1)))
((< i 0))