[honu] add [] as a list form

collects/honu/core/main.rkt

@@ -22,6 +22,7 @@
                      [literal:honu-= =]
                      [literal:semicolon |;|]
                      [literal:honu-comma |,|]
+                     [literal:#%brackets #%brackets]
                      [literal:#%braces #%braces]
                      [literal:#%parens #%parens])
          )

collects/honu/core/private/debug.rkt

@@ -4,12 +4,17 @@
 
 (provide debug)
 
+(define-for-syntax (filename path)
+  (define-values (base name dir?)
+                 (split-path (build-path path)))
+  name)
+
 (define-for-syntax verbose? (getenv "HONU_DEBUG"))
 (define-syntax (debug stx)
   (if verbose?
     (syntax-case stx ()
       [(_ str x ...)
-       (with-syntax ([file (syntax-source #'str)]
+       (with-syntax ([file (filename (syntax-source #'str))]
                      [line (syntax-line #'str)]
                      [column (syntax-column #'str)])
          #'(printf (string-append "~a at ~a:~a " str) file line column x ...))])

collects/honu/core/private/parse2.rkt

@@ -96,7 +96,7 @@
        (loop (cons #'name out) #'())]
       [() (reverse out)])))
 
-(define (parse-call-arguments arguments)
+(define (parse-comma-expression arguments)
   (if (null? (syntax->list arguments))
     '()
     (let loop ([used '()]
@@ -224,6 +224,13 @@
                        (if current
                          (values (left current) stream)
                          (do-parse #'(rest ...) precedence left #'x))]
+                     [(#%brackets stuff ...)
+                      (define value (with-syntax ([(data ...)
+                                                   (parse-comma-expression #'(stuff ...))])
+                                      #'(list data ...)))
+                      (if current
+                         (values (left current) stream)
+                         (do-parse #'(rest ...) precedence left value))]
                      [(#%braces stuff ...)
                       (if current
                         (values (left current) stream)
@@ -234,7 +241,7 @@
                       (debug "function call ~a\n" left)
                       (values (left (with-syntax ([current current]
                                                   [(parsed-args ...)
-                                               (parse-call-arguments #'(args ...)) ])
+                                                   (parse-comma-expression #'(args ...)) ])
                                       #'(current parsed-args ...)))
                               #'(rest ...))
                       #;

collects/honu/core/read.rkt

@@ -329,7 +329,7 @@
       (do-parse (cons sub-tree current) unparsed table)))
 
   (define do-left-parens (make-encloser '#%parens ")" right-parens?))
-  (define do-left-bracket (make-encloser '#%bracket "}" right-bracket?))
+  (define do-left-bracket (make-encloser '#%brackets "}" right-bracket?))
   (define do-left-brace (make-encloser '#%braces "]" right-brace?))
   
   (define dispatch-table (list [list atom? do-atom]