reorder hide & splice (fixes #8)

brag/codegen/runtime.rkt

@@ -171,7 +171,7 @@ This would be the place to check a syntax property for hiding.
   (datum->syntax #f d (positions->srcloc start-pos end-pos) stx-with-original?-property))
 
 
-(define (remove-rule-name component-stx [splice #f])
+(define (remove-rule-name component-stx #:splice? [splice #f])
   ;; when removing a rule name, we apply it as a syntax property to the remaining elements
   ;; for possible later usage (aka, why throw away information)   
   (with-syntax ([(name . subcomponents) component-stx])
@@ -191,14 +191,17 @@ This would be the place to check a syntax property for hiding.
    ;; inside `component-stx` is a name followed by subcomponents
    (for*/list ([component-list (in-list component-lists)]
                [component-stx (in-list component-list)]) ; this has the effect of omitting any empty `component-list`
-              (list
+     (list
-               (cond
+      (cond
-                 [(eq? (syntax-property component-stx 'hide-or-splice) 'hide)
+        ;; test splice first in case both hiding and splicing are set, for instance:
-                  (list (remove-rule-name component-stx))] ; hidden version still wrapped in a sublist
+        ;; /rule : thing @rule
-                 [(or (eq? (syntax-property component-stx 'hide-or-splice) 'splice)
+        ;; otherwise the hide prevents the splice from being expressed
-                      (syntax-property component-stx 'splice-rh-id))
+        [(or (eq? (syntax-property component-stx 'hide-or-splice) 'splice)
-                  (remove-rule-name component-stx #t)] ; spliced version is lifted out of the sublist
+             (syntax-property component-stx 'splice-rh-id))
-                 [else (list component-stx)])))))
+         (remove-rule-name component-stx #:splice? #t)] ; spliced version is lifted out of the sublist
+        [(eq? (syntax-property component-stx 'hide-or-splice) 'hide)
+         (list (remove-rule-name component-stx))] ; hidden version still wrapped in a sublist
+        [else (list component-stx)])))))
 
 
 ;; rule-components->syntax: (U symbol false) (listof stx) ... #:srcloc (U #f (list src line column offset span)) -> stx

brag/examples/hide-and-splice.rkt

@@ -0,0 +1,4 @@
+#lang brag
+top : x | y
+/x : Ø | "x" @x
+@y : Ø | "y" y

brag/test/test-all.rkt

@@ -10,6 +10,7 @@
          "test-empty-symbol.rkt"
          "test-errors.rkt"
          "test-flatten.rkt"
+         "test-hide-and-splice.rkt"
          "test-lexer.rkt"
          "test-old-token.rkt"
          "test-parser.rkt"

brag/test/test-hide-and-splice.rkt

@@ -0,0 +1,9 @@
+#lang racket/base
+(require brag/examples/hide-and-splice
+         brag/support
+         rackunit)
+
+;; check that an id with both a splice and hide is handled correctly
+
+(check-equal? (parse-to-datum "xxx") '(top ("x" "x" "x")))
+(check-equal? (parse-to-datum "yyy") '(top "y" "y" "y"))