projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Can FINALLY interact with objects! Woohoo!
[mudsync.git]
/
mudsync
/
parser.scm
diff --git
a/mudsync/parser.scm
b/mudsync/parser.scm
index 3d84195206cce90e0923c7fb40420691d3574f5a..e9c4096c1b3a298cb1ce1683e366d4eda8b1d2f9 100644
(file)
--- 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))