From daa6c92c14d9b85bf3ade2b6684e3c97dcda851e Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 14 Jun 2017 17:57:04 -0400 Subject: - Added Hash and as-is macro.. --- stdlib/source/lux.lux | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'stdlib/source/lux.lux') 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])) -- cgit v1.2.3