21 lines
458 B
Plaintext
21 lines
458 B
Plaintext
;; TODO prelude
|
|
(defun string/join (xs &optional separator)
|
|
(when (nil? separator)
|
|
(setq separator " "))
|
|
(let (accumulator "")
|
|
(while (cons? xs)
|
|
(if accumulator
|
|
(setq accumulator (+ accumulator separator (car xs)))
|
|
(setq accumulator (car xs))
|
|
)
|
|
(setq xs (cdr xs))
|
|
)
|
|
accumulator
|
|
)
|
|
)
|
|
|
|
(defmacro ignore (&rest expressions) nil)
|
|
|
|
(defun try-import (path)
|
|
(when (fs/file? path) (import path) #t))
|