mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-22 17:08:42 +00:00
Code Issues 1 Releases Wiki Activity

Working function marhsaling

Browse Source
This commit is contained in:
Calvin Rose
2018-08-21 14:16:55 -04:00
parent 4e65eede1c
commit 600292fad4
2 changed files with 58 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite1.dst
+4
View File
@@ -160,6 +160,10 @@
(testmarsh [tuple 1 2 3 4 5] "marshal tuple")
(testmarsh @{1 2 3 4} "marshal table")
(testmarsh {1 2 3 4} "marshal struct")
(testmarsh (fn [x] x) "marshal function 0")
(testmarsh (fn name [x] x) "marshal function 1")
(testmarsh (fn [x] (+ 10 x 2)) "marshal function 2")
(testmarsh (fn thing [x] (+ 11 x x 30)) "marshal function 3")
# Large functions
(def manydefs (for [i :range [0 300]] (tuple 'def (gensym) (string "value_" i))))