(minor) style + str:starts-with-p

This commit is contained in:
vindarel 2020-11-03 13:34:29 +01:00
parent 79a8953114
commit 451854cb7e

View file

@ -235,7 +235,8 @@
(when parsed (evaluate-lisp text parsed))))
(defun handle-input (before text)
(if (and (> (length text) 1) (string= (subseq text 0 1) ":"))
(if (and (> (length text) 1)
(str:starts-with-p ":" text))
(handle-special-input text)
(handle-lisp before text)))