janet/parser.janet

@@ -163,12 +163,6 @@
  (advance parser)
  {:type :keyword :data (curr :literal) :token curr})
 
-(defn- pkg-kw [parser]
- (expect parser :pkg-kw)
- (def curr (-> parser current))
- (advance parser)
- {:type :pkg-kw :data (curr :literal) :token curr})
-
 (defn- nill [parser]
  (expect parser :nil)
  (def curr (current parser))
@@ -261,7 +255,7 @@
   (panic parser (string "expected separator, got " (-> parser current type))))
  (while (separates? parser) (advance parser)))
 
-(def sequels [:lparen :keyword :pkg-kw])
+(def sequels [:lparen :keyword])
 
 (defn- word-expr [parser]
  (expect parser :word)
@@ -327,7 +321,6 @@
    (case (-> parser current type)
     :lparen (args parser)
     :keyword (kw-only parser)
-    :pkg-kw (pkg-kw parser)
   ))
   (array/push terms term)
  )
@@ -837,9 +830,7 @@
 (defn- pkg-name [parser]
  (expect parser :pkg-name)
  (def origin (current parser))
- (def next-type (-> parser peek type))
+ (if (= :keyword (-> parser peek type)) (break (synthetic parser)))
- (when (or (= :keyword next-type) (= :pkg-kw next-type)) 
-  (break (synthetic parser)))
  (advance parser)
  {:type :pkg-name :data (origin :lexeme) :token origin})
 
@@ -1115,8 +1106,7 @@
 
 # (do
 (comment
-(def source `
+(def source `a :b :c
-Foo :bar :Baz
 `)
 (def scanned (s/scan source))
 (print "\n***NEW PARSE***\n")
@@ -1125,9 +1115,9 @@ Foo :bar :Baz
 
 # (print (pp-ast parsed))
 # (pp scanned)
-(pp parsed)
+# (pp parsed)
-# (def cleaned (get-in parsed [:data 2]))
+(def cleaned (get-in parsed [:data 2]))
-# (pp cleaned)
+(pp cleaned)
 )
 
 

janet/scanner.janet

@@ -169,15 +169,6 @@
         :else (add-error scanner (string "Unexpected " char "after keyword :" key)))))
 	(recur scanner ""))
 
-(defn- add-pkg-kw [scanner]
-  (defn recur [scanner key]
-    (let [char (current-char scanner)]
-      (cond
-        (terminates? char) (add-token scanner :pkg-kw (keyword key))
-        (word-char? char) (recur (advance scanner) (string key char))
-        :else (add-error scanner (string "Unexpected " char " after pkg keyword :" key)))))
-  (recur scanner ""))
-
 (defn- read-literal [lit] (-> lit parse-all first))
 
 ### TODO: consider whether Janet's number rules are right for Ludus
@@ -308,8 +299,7 @@
       # XXX: make sure we want only lower-only keywords
       ":" (cond
            (lower? next) (add-keyword scanner)
-           (upper? next) (add-pkg-kw scanner)
+           :else (add-error scanner (string "Expected keyword. Got " char next)))
-           :else (add-error scanner (string "Expected keyword or pkg keyword. Got " char next)))
 
       ## splats
       "." (let [after_next (current-char (advance scanner))]