Mark Poliakov
91961bcec5
1. (list ...) 2. string-* functions 3. (native str) to resolve native functions at runtime 4. Memory fuckups in compiler core unit loading 5. Now can call non-identifiers in compiler
12 lines
191 B
Plaintext
12 lines
191 B
Plaintext
(use core)
|
|
|
|
(define (string-chars s)
|
|
(define len (string-length s))
|
|
(define out nil)
|
|
(while (/= len 0)
|
|
(setq len (- len 1))
|
|
(setq out (cons (string-ref s len) out))
|
|
)
|
|
out
|
|
)
|