conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added documentation for substring

This commit is contained in:
Abdulaziz Ghuloum 2006-12-02 11:34:47 -05:00
parent 953031954e
commit bd4553ef3a
1 changed files with 7 additions and 2 deletions

9
lib/libcore.ss
View File

@ -222,7 +222,10 @@
(let ([s ($make-string n)]) (let ([s ($make-string n)])
(fill-strings s s* 0)))))) (fill-strings s s* 0))))))
#|procedure:substring
(substring str i j)
Returns a substring of str starting from index i (inclusive)
and ending with index j (exclusive).|#
(let () (let ()
(define fill (define fill
(lambda (s d si sj di) (lambda (s d si sj di)
@ -851,7 +854,9 @@
(f x v n ($fxadd1 i))))) (f x v n ($fxadd1 i)))))
(error 'vector-memq "~s is not a vector" v)))) (error 'vector-memq "~s is not a vector" v))))
(primitive-set! 'memv memq) ; INCORRECT, SHOULD USE EQV #|BUG: memv should be defined in terms of eqv? now that we have
bignums.|#
(primitive-set! 'memv memq)
(primitive-set! 'vector-memv vector-memq) (primitive-set! 'vector-memv vector-memq)
(primitive-set! 'list->string (primitive-set! 'list->string