X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=mudsync%2Fparser.scm;h=e9c4096c1b3a298cb1ce1683e366d4eda8b1d2f9;hb=f2f19acbf45886ca9d66a687f98ae9f6d2bd25f6;hp=3d84195206cce90e0923c7fb40420691d3574f5a;hpb=1c65eb772aaa7c3a4278b95bc02660dc79c25438;p=mudsync.git

diff --git a/mudsync/parser.scm b/mudsync/parser.scm
index 3d84195..e9c4096 100644
--- a/mudsync/parser.scm
+++ b/mudsync/parser.scm
@@ -93,7 +93,7 @@
 
 (define (cmatch-direct-obj-greedy phrase)
   ;; Turns out this uses the same semantics as splitting verb/rest
-  (match (split-verb-and-rest string)
+  (match (split-verb-and-rest phrase)
     ((direct-obj . rest)
      (list #:direct-obj direct-obj
            #:rest rest))