diff options
author | Eduardo Julian | 2015-01-11 13:37:34 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-01-11 13:37:34 -0400 |
commit | cda3a2d7ddf375dff83132351ff406f5d5cb8db8 (patch) | |
tree | b925f51b3f505923767f1e617253e3a9aacb771e /test2.lux | |
parent | 9e39423ab1eec0486e752bfdd06e34a64b6cfdd8 (diff) |
- Compiler now handles automatic partial applications and calls to statically-known functions (global ones) better.
Diffstat (limited to 'test2.lux')
-rw-r--r-- | test2.lux | 32 |
1 files changed, 28 insertions, 4 deletions
@@ -136,12 +136,12 @@ ## (meme yolo foo)) (def (+ x y) - (do ## (:: (:: System out) (println "x = ")) (:: (:: System out) (println x)) - ## (:: (:: System out) (println "y = ")) (:: (:: System out) (println y)) - (jvm/i+ x y))) + (jvm/i+ x y)) + +(def inc (+ 1)) #( - (def inc (+ 1)) + (def (fold f init values) (case values @@ -185,12 +185,36 @@ (#Form (#Cons (#Text text) #Nil)) (do (:: (:: System out) (println text)) (:: (:: System out) (println (+ 10 20))) + (:: (:: System out) (println (inc 10))) (:: (:: System out) (println (jvm/i- 10 20))) (:: (:: System out) (println (jvm/i* 10 20))) (:: (:: System out) (println (jvm/i/ 10 2)))) )) #( + (def (main args) + (case (' ((~ "Oh yeah..."))) + (#Form (#Cons (#Text text) #Nil)) + (do (jvm/invokevirtual (jvm/getstatic System out) + java.io.PrintStream "println" [String] + [text]) + (jvm/invokevirtual (jvm/getstatic System out) + java.io.PrintStream "println" [Object] + [(+ 10 20)]) + (jvm/invokevirtual (jvm/getstatic System out) + java.io.PrintStream "println" [Object] + [(inc 10)]) + (jvm/invokevirtual (jvm/getstatic System out) + java.io.PrintStream "println" [Object] + [(jvm/i- 10 20)]) + (jvm/invokevirtual (jvm/getstatic System out) + java.io.PrintStream "println" [Object] + [(jvm/i* 10 20)]) + (jvm/invokevirtual (jvm/getstatic System out) + java.io.PrintStream "println" [Object] + [(jvm/i/ 10 2)])) + )) + (defmacro (::+ pieces) (case pieces (#Cons init #Nil) |