From 772ff99830d133b2e36ad1b09c66223ef1085c71 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Nov 2017 23:57:15 -0400
Subject: - Modified the syntax for module definitions. - Fixed some bugs.

---
 new-luxc/source/luxc/lang/syntax.lux | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'new-luxc/source/luxc/lang/syntax.lux')

diff --git a/new-luxc/source/luxc/lang/syntax.lux b/new-luxc/source/luxc/lang/syntax.lux
index 2d8cb364a..9fe4939a2 100644
--- a/new-luxc/source/luxc/lang/syntax.lux
+++ b/new-luxc/source/luxc/lang/syntax.lux
@@ -27,7 +27,8 @@
 (;module:
   lux
   (lux (control monad
-                ["p" parser "p/" Monad<Parser>])
+                ["p" parser "p/" Monad<Parser>]
+                ["ex" exception #+ exception:])
        (data [bool]
              [text]
              ["e" error]
@@ -584,6 +585,9 @@
   [tag    #;Tag    (p;after (l;this "#") (ident^ current-module)) +1]
   )
 
+(exception: #export End-Of-File)
+(exception: #export Unrecognized-Input)
+
 (def: (ast current-module)
   (-> Text Cursor (l;Lexer [Cursor Code]))
   (: (-> Cursor (l;Lexer [Cursor Code]))
@@ -602,6 +606,11 @@
              (symbol current-module where)
              (tag current-module where)
              (text where)
+             (do @
+               [end? l;end?]
+               (if end?
+                 (p;fail (End-Of-File current-module))
+                 (p;fail (Unrecognized-Input current-module))))
              )))))
 
 (def: #export (parse current-module [where offset source])
-- 
cgit v1.2.3