ability to say things, at last!

[mudsync.git] / mudsync / parser.scm

diff --git a/mudsync/parser.scm b/mudsync/parser.scm
index e9c4096c1b3a298cb1ce1683e366d4eda8b1d2f9..5da6bc9f8c6c8c0ee8dd0f38a68891abfa2eca67 100644 (file)
--- 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")