projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New backronym for SCRUBL, export stuff, make faster
[mudsync.git]
/
mudsync
/
command.scm
diff --git
a/mudsync/command.scm
b/mudsync/command.scm
index 23e21dac8f85fc75645cc18620e0613dba0818d9..765962ce28dcd88defa2efbfe814f029bb5440c9 100644
(file)
--- a/
mudsync/command.scm
+++ b/
mudsync/command.scm
@@
-18,7
+18,7
@@
(define-module (mudsync command)
#:use-module (mudsync parser)
(define-module (mudsync command)
#:use-module (mudsync parser)
- #:use-module (8sync
systems
actors)
+ #:use-module (8sync actors)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (ice-9 control)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (ice-9 control)
@@
-32,10
+32,10
@@
command-priority
direct-command
command-priority
direct-command
- indir-command
-
indir-as
-direct-command
+
prep-
indir-command
+
prep
-direct-command
loose-direct-command
loose-direct-command
- loose-
indir
-command
+ loose-
prep
-command
empty-command
direct-greedy-command
greedy-command
empty-command
direct-greedy-command
greedy-command
@@
-90,7
+90,7
@@
%default-priority))
%default-priority))
-(define* (indir-command verbs action #:optional prepositions)
+(define* (
prep-
indir-command verbs action #:optional prepositions)
(make-command verbs
cmatch-indir-obj
(lambda* (goes-by #:key direct-obj indir-obj preposition)
(make-command verbs
cmatch-indir-obj
(lambda* (goes-by #:key direct-obj indir-obj preposition)
@@
-102,7
+102,7
@@
action
%high-priority))
action
%high-priority))
-(define* (
indir-as
-direct-command verbs action #:optional prepositions)
+(define* (
prep
-direct-command verbs action #:optional prepositions)
(make-command verbs
cmatch-indir-obj
(lambda* (goes-by #:key direct-obj indir-obj preposition)
(make-command verbs
cmatch-indir-obj
(lambda* (goes-by #:key direct-obj indir-obj preposition)
@@
-114,7
+114,7
@@
action
%high-priority))
action
%high-priority))
-(define* (loose-
indir
-command verbs action #:optional prepositions)
+(define* (loose-
prep
-command verbs action #:optional prepositions)
(make-command verbs
cmatch-indir-obj
(const #t)
(make-command verbs
cmatch-indir-obj
(const #t)