From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 3a1 --- sc4opt.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'sc4opt.scm') 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)) -- cgit v1.2.3