diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-09 21:57:50 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-09 21:57:50 -0500 |
| commit | 17ae845ec1dc2c703f99d3cb9f5c01e1b5c52837 (patch) | |
| tree | 878484c58d55c138e9553a1bde0d031772c8bbdb /tests | |
| parent | faee4d12309cec8c90854456fabf4e5e75370518 (diff) | |
| download | mal-17ae845ec1dc2c703f99d3cb9f5c01e1b5c52837.tar.gz mal-17ae845ec1dc2c703f99d3cb9f5c01e1b5c52837.zip | |
C#: add metadata and atoms.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/stepA_more.mal | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal index abca165..456a092 100644 --- a/tests/stepA_more.mal +++ b/tests/stepA_more.mal @@ -249,6 +249,13 @@ (meta f-wm) ;=>{"abc" 1} +(meta (with-meta f-wm "new_meta")) +;=>"new_meta" + +(meta f-wm) +;=>{"abc" 1} + + (def! f-wm2 ^{"abc" 1} (fn* [a] (+ 1 a))) (meta f-wm2) ;=>{"abc" 1} @@ -289,8 +296,11 @@ (swap! a (fn* (a) (* 2 a))) ;=>12 +(swap! a (fn* (a b) (* a b)) 10) +;=>120 + (swap! a + 3) -;=>15 +;=>123 ;; ;; Testing read-str and eval |