mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-10-18 13:32:27 +00:00
Code Issues 1 Releases Wiki Activity

More documentation.

Browse Source
This commit is contained in:
Calvin Rose
2026-01-29 07:50:23 -06:00
parent 0c1585fdfe
commit e1897e1865
2 changed files with 104 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/boot/boot.janet
+4 -7
View File
@@ -2173,10 +2173,7 @@
(defn expand-bindings [x]
(case (type x)
:array (map expand-bindings x)
:tuple (let [ctor (if (= :brackets (tuple/type x))
tuple/brackets
tuple)]
(ctor ;(map expand-bindings x)))
:tuple (keep-syntax! x (map expand-bindings x))
:table (dotable x expand-bindings)
:struct (table/to-struct (dotable x expand-bindings))
(recur x)))
@@ -2184,7 +2181,7 @@
(defn expanddef [t]
(def last (in t (- (length t) 1)))
(def bound (in t 1))
(tuple/slice
(keep-syntax! t
(array/concat
@[(in t 0) (expand-bindings bound)]
(tuple/slice t 2 -2)
@@ -2199,10 +2196,10 @@
(if (symbol? t1)
(do
(def args (map recur (tuple/slice t 3)))
(tuple 'fn t1 (in t 2) ;args))
(keep-syntax t (tuple 'fn t1 (in t 2) ;args)))
(do
(def args (map recur (tuple/slice t 2)))
(tuple 'fn t1 ;args))))
(keep-syntax t (tuple 'fn t1 ;args)))))
(defn expandqq [t]
(defn qq [x]