grammar fix

diff --git a/src/edu/berkeley/fleet/assembler/fleet.g b/src/edu/berkeley/fleet/assembler/fleet.g
index dc36134..cb8f76d 100644 (file)
--- a/src/edu/berkeley/fleet/assembler/fleet.g
+++ b/src/edu/berkeley/fleet/assembler/fleet.g
@@ -13,9 +13,10 @@ s               = ws! Program ws!
 Program         = Program:: Directive+/ws
                 | Program:: (Directive+/ws) ws! CodeBagBody
 
-Statement       = Fiber::        Source ":" (Instruction +/ ws)     /ws
-                | Literal::      int    ":" "sendto" Port       ";" /ws
-                | NamedCodeBag:: name   ":" "{" CodeBagBody "}"     /ws
+Statement       = Fiber::                  Source  ":" (Instruction +/ ws)     /ws
+                | Literal::                int     ":" "sendto" Port       ";" /ws
+                | CodeBagDescriptor::      CodeBag ":" "sendto" Port       ";" /ws
+                | NamedCodeBag::           name    ":" "{" CodeBagBody "}"     /ws
 
 Instruction     = Instruction::
                         (Brack:: "[" (int|(Star::"*"))? ("r")? "]" ws!)?
@@ -30,7 +31,6 @@ Command         = Nop::     "nop"
                 | Ack::     "ack"    ws! Port
 
 Source         = Port
-               | CodeBag
                | ShipSpecific
 
 Port           = Port::     shipname "." portname