aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-06-14 17:57:04 -0400
committerEduardo Julian2017-06-14 17:57:04 -0400
commitdaa6c92c14d9b85bf3ade2b6684e3c97dcda851e (patch)
treed5937f9dcd59741f872d03e7fe8ad058c9272370 /stdlib/source/lux.lux
parentc7e53036704b1a89b740c023c7b4bcc74b7e956a (diff)
- Added Hash<Bool> and as-is macro..
Diffstat (limited to 'stdlib/source/lux.lux')
-rw-r--r--stdlib/source/lux.lux9
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]))