X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fparser.scm;h=5da6bc9f8c6c8c0ee8dd0f38a68891abfa2eca67;hp=e9c4096c1b3a298cb1ce1683e366d4eda8b1d2f9;hb=b8279be0a2ca8f5e235166acd5cc1bde3854dd5b;hpb=dc6370a830b0f027db2e75e22b65a1a978e13f18 diff --git a/mudsync/parser.scm b/mudsync/parser.scm index e9c4096..5da6bc9 100644 --- a/mudsync/parser.scm +++ b/mudsync/parser.scm @@ -100,7 +100,7 @@ (#f #f))) (define (cmatch-greedy phrase) - `((line . ,phrase))) + `(#:phrase ,phrase)) ;; (define say-example "say I really need to get going.") ;; (define attack-sword-example "hit goblin with sword")