1 files changed, 13 insertions, 1 deletions
diff --git a/utils.txr b/utils.txr
index ca8e256..a572aeb 100644
--- a/utils.txr
+++ b/utils.txr
@@ -1,8 +1,20 @@
 @(define n (a))@(local n)@{n /\d+/}@(bind a @(int-str n))@(end)
+@(define m (a))@(local m)@{m /\w+/}@(bind a @(month-num m))@(end)
+@#
+@(next :string @(identity *self-path*))
+@(some)
+@*nil/@self.@nil
+@(or)
+@*nil/@self
+@(or)
+@self.@nil
+@(or)
+@self
+@(end)
 @#
 @(do
    (defun debug (arg . args)
-     [apply format '(t ,arg ,*args)])
+     [apply format ^(, *stdlog* ,arg ,*args)])
 
    (defun hrtime (time)
      (cond