mkregexp and newlinec

dido · Dec 2, 2014 · 0d22a78 · 0d22a78
1 parent b8bfb24
commit 0d22a78
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/arc/bootstrap.arc b/arc/bootstrap.arc
@@ -74,8 +74,15 @@
 	      (= (cdr ctx) (join literals (cons lit nil)))))))
 
 ;; Ought to be built-in.  This is defined in terms of $ functions supported
-;; by Anarki.
+;; by Anarki for bootstrap purposes.
 (def substring (s n (o e))
   (if no.e
       ($ (substring s n))
       ($ (substring s n e))))
+
+(def newlinec (c)
+  (in c #\return #\newline #\u0085 #\page #\u2028 #\u2029))
+
+;; Make a regex.  Used only for parsing.
+(def mkregexp (rx flags)
+  (annotate 'regexp (cons rx flags)))