1 |
(define-module (lang elisp primitives strings) |
(define-module (lang elisp primitives strings) |
2 |
#:use-module (lang elisp internals fset) |
#:use-module (lang elisp internals fset) |
3 |
|
#:use-module (lang elisp internals null) |
4 |
#:use-module (lang elisp internals signal)) |
#:use-module (lang elisp internals signal)) |
5 |
|
|
6 |
(fset 'substring substring) |
(fset 'substring substring) |
20 |
|
|
21 |
(fset 'number-to-string number->string) |
(fset 'number-to-string number->string) |
22 |
|
|
23 |
(fset 'string-lessp string<?) |
(fset 'string-lessp (lambda->nil string<?)) |
24 |
(fset 'string< 'string-lessp) |
(fset 'string< 'string-lessp) |
25 |
|
|
26 |
(fset 'aref |
(fset 'aref |
29 |
((string? array) (char->integer (string-ref array idx))) |
((string? array) (char->integer (string-ref array idx))) |
30 |
(else (wta 'arrayp array 1))))) |
(else (wta 'arrayp array 1))))) |
31 |
|
|
32 |
(fset 'stringp string?) |
(fset 'stringp (lambda->nil string?)) |
33 |
|
|
34 |
(fset 'vector vector) |
(fset 'vector vector) |