mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 15:43:01 +00:00
Code Issues 1 Releases Wiki Activity

Merge branch 'master' of github.com:janet-lang/janet

Browse Source
This commit is contained in:
bakpakin
2022-07-09 11:44:20 -05:00
parent c7801ce277 f741a8e3ff
commit 4c7ea9e893
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/boot/boot.janet
View File

@@ -3146,16 +3146,18 @@
(def b (get line i)) (def b (get line i))
(cond (cond
(or (= b (chr "\n")) (= b (chr " "))) (endtoken) (or (= b (chr "\n")) (= b (chr " "))) (endtoken)
(= b (chr "`")) (delim :code)
(not (modes :code)) (cond
(= b (chr `\`)) (do (= b (chr `\`)) (do
(++ token-length) (++ token-length)
(buffer/push token (get line (++ i)))) (buffer/push token (get line (++ i))))
(= b (chr "_")) (delim :underline) (= b (chr "_")) (delim :underline)
(= b (chr "`")) (delim :code)
(= b (chr "*")) (= b (chr "*"))
(if (= (chr "*") (get line (+ i 1))) (if (= (chr "*") (get line (+ i 1)))
(do (++ i) (do (++ i)
(delim :bold)) (delim :bold))
(delim :italics)) (delim :italics))
(do (++ token-length) (buffer/push token b)))
(do (++ token-length) (buffer/push token b)))) (do (++ token-length) (buffer/push token b))))
(endtoken) (endtoken)
(tuple/slice tokens)) (tuple/slice tokens))