diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-23 21:59:50 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-23 21:59:50 -0500 |
| commit | 6301e0b6374cecc5599665be14d6ddc6a31ce1e8 (patch) | |
| tree | dbf1dc2ff6c682fd87c72a7907e7f6e59c8d4c03 /tests | |
| parent | 89bd4de1e2704c1bc562788b2c5e4fc08b71a538 (diff) | |
| download | mal-6301e0b6374cecc5599665be14d6ddc6a31ce1e8.tar.gz mal-6301e0b6374cecc5599665be14d6ddc6a31ce1e8.zip | |
All: TCO let* and quasiquote.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/stepA_more.mal | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal index 0378c58..7b7dac5 100644 --- a/tests/stepA_more.mal +++ b/tests/stepA_more.mal @@ -6,8 +6,9 @@ ;=>nil ;;;TODO: fix so long lines don't trigger ANSI escape codes ;;;(try* -(throw {"data" "foo"}) (catch* exc (do (prn "exc is:" exc) 7))) ;;;; -"exc is:" {"data" "foo"} ;;;;=>7 +;;;(try* (throw {"data" "foo"}) (catch* exc (do (prn "exc is:" exc) 7))) ;;;; +;;;; "exc is:" {"data" "foo"} ;;;;=>7 +;;;;=>7 (try* (throw {"data" "foo"}) (catch* exc (do (prn "err:" exc) 7))) ; "err:" {"data" "foo"} @@ -69,8 +70,9 @@ (read-string "7 ;; comment") ;=>7 +;;; Differing output, but make sure no fatal error (read-string ";; comment") -;=>nil + (eval (read-string "(+ 4 5)")) ;=>9 |