From d389e983ff4f5d5b01219220ee50f52090816d43 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 16 Dec 2014 02:31:44 -0400
Subject: Added some pseudo pattern-matching (only extracting simple data,
 without exploring inner structure or doing any testing).

---
 test2.lang | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'test2.lang')

diff --git a/test2.lang b/test2.lang
index 0308a745f..fba03fd8d 100644
--- a/test2.lang
+++ b/test2.lang
@@ -34,7 +34,9 @@
       (_. (_.. System out) (println 2.3))
       (_. (_.. System out) (println #"Y"))
       (_. (_.. System out) (println "this\tis a\nstring"))
-      )
+      (case (#Box "data")
+        (#Box value)
+        (_. (_.. System out) (println value))))
     (_. (_.. System out) (println "FALSE"))))
 
 ## All of these work :D
-- 
cgit v1.2.3