diff options
author | Eduardo Julian | 2017-06-14 17:57:04 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-06-14 17:57:04 -0400 |
commit | daa6c92c14d9b85bf3ade2b6684e3c97dcda851e (patch) | |
tree | d5937f9dcd59741f872d03e7fe8ad058c9272370 /stdlib/source/lux.lux | |
parent | c7e53036704b1a89b740c023c7b4bcc74b7e956a (diff) |
- Added Hash<Bool> and as-is macro..
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux.lux | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index f801ebebd..a225683e0 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -5573,16 +5573,16 @@ _ (fail "Wrong syntax for $"))) -(def: #export (is left right) +(def: #export (is reference sample) {#;doc (doc "Tests whether the 2 values are identical (not just \"equal\")." "This one should succeed:" (let [value 5] - (is 5 5)) + (is value value)) "This one should fail:" (is 5 (i.+ 2 3)))} (All [a] (-> a a Bool)) - (_lux_proc ["lux" "is"] [left right])) + (_lux_proc ["lux" "is"] [reference sample])) (macro: #export (^@ tokens) {#;doc (doc "Allows you to simultaneously bind and de-structure a value." @@ -5774,3 +5774,6 @@ (def: #export (assume mx) (All [a] (-> (Maybe a) a)) (default (undefined) mx)) + +(macro: #export (as-is tokens state) + (#;Right [state tokens])) |