mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-17 00:37:39 +00:00
Code Issues 1 Releases Wiki Activity

Change format for declaring flexible arity functions.

Browse Source
This commit is contained in:
Calvin Rose
2018-11-25 14:03:00 -05:00
parent 5b3fc3d2cc
commit d4ee760b3e
8 changed files with 142 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
test/suite0.janet
View File

@@ -164,7 +164,7 @@
# yield tests
(def t (fiber.new (fn @[] (yield 1) (yield 2) 3)))
(def t (fiber.new (fn [&] (yield 1) (yield 2) 3)))
(assert (= 1 (resume t)) "initial transfer to new fiber")
(assert (= 2 (resume t)) "second transfer to fiber")

6
test/suite1.janet
View File

@@ -76,9 +76,9 @@
# More fiber semantics
(var myvar 0)
(defn fiberstuff @[]
(defn fiberstuff [&]
(++ myvar)
(def f (fiber.new (fn @[] (++ myvar) (debug) (++ myvar))))
(def f (fiber.new (fn [&] (++ myvar) (debug) (++ myvar))))
(resume f)
(++ myvar))
@@ -169,7 +169,7 @@
(testmarsh (fn thing [x] (+ 11 x x 30)) "marshal function 3")
(testmarsh mapa "marshal function 4")
(testmarsh reduce "marshal function 5")
(testmarsh (fiber.new (fn @[] (yield 1) 2)) "marshal simple fiber")
(testmarsh (fiber.new (fn [&] (yield 1) 2)) "marshal simple fiber")
# Large functions
(def manydefs (fora [i :range [0 300]] (tuple 'def (gensym) (string "value_" i))))