complete draft of base
This commit is contained in:
parent
a25ece5a68
commit
6cc7f045a2
|
@ -209,10 +209,8 @@
|
||||||
"set!" set!
|
"set!" set!
|
||||||
})
|
})
|
||||||
|
|
||||||
(comment
|
(def base (let [b @{}]
|
||||||
Used in current prelude but not yet in base:
|
(each [k v] (pairs ctx)
|
||||||
|
(set (b (keyword k)) v))
|
||||||
into/2
|
(table/to-struct b)))
|
||||||
to_dict
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
|
@ -633,10 +633,8 @@
|
||||||
|
|
||||||
(do
|
(do
|
||||||
(set source `
|
(set source `
|
||||||
fn foo
|
fn myadd (x, y) -> add (x, y)
|
||||||
fn bar () -> foo ()
|
myadd (1, _) (2)
|
||||||
fn foo () -> :foo
|
|
||||||
bar ()
|
|
||||||
`)
|
`)
|
||||||
(def result (run))
|
(def result (run))
|
||||||
(b/show result)
|
(b/show result)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user