Update gendoc and fix issue with run-context.

doc/gendoc.janet

@@ -55,8 +55,9 @@
     (string "<h2>" (html-escape key) "</h2>\n"
             "<p>" (html-escape docstring) "</p>\n")))
 
-(def parts (seq [[k {:doc d :private p}] :in (sort (pairs (table/getproto _env)))
+# Generate parts and print them to stdout
+(def parts (seq [[k {:doc d :private p}]
+                 :in (sort (pairs (table/getproto _env)))
                  :when (and d (not p))]
                 (gen-one k d)))
-
 (print prelude ;parts postlude)

src/core/core.janet

@@ -1297,20 +1297,19 @@ value, one key will be ignored."
     (buffer/clear buf)
     (chunks buf p)
     (var pindex 0)
+    (var pstatus nil)
     (def len (length buf))
     (if (= len 0) (:= going false))
     (while (> len pindex)
       (+= pindex (parser/consume p buf pindex))
-      (case (parser/status p)
+      (while (= (:= pstatus (parser/status p)) :full)
-        :full (eval1 (parser/produce p))
+        (eval1 (parser/produce p)))
-        :error (do
+      (when (= pstatus :error)
-                 (def (line col) (parser/where p))
         (onstatus :parse
                   (string (parser/error p)
-                                " on line " line
+                          " around byte " (parser/where p))
-                                ", column " col)
                   nil
-                        where)))))
+                  where))))
 
   (:= *env* oldenv)
 
@@ -1495,6 +1494,9 @@ value, one key will be ignored."
           newenv)))))
 
 (defn import*
+  "Import a module into a given environment table. This is the
+  functional form of (import ...) that expects and explicit environment
+  table."
   [env path & args]
   (def targs (table ;args))
   (def {:as as