projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UI/Model Parse - Sliders - WIP
[clnl]
/
src
/
main
/
nvm
/
controlflow.lisp
diff --git
a/src/main/nvm/controlflow.lisp
b/src/main/nvm/controlflow.lisp
index a1df63b1194a03f2df7f10f467b3321e632daeea..b4368fdec25e4f6d2373951b68f6faa810686bdb 100644
(file)
--- a/
src/main/nvm/controlflow.lisp
+++ b/
src/main/nvm/controlflow.lisp
@@
-1,14
+1,14
@@
(in-package #:clnl-nvm)
(in-package #:clnl-nvm)
-(def
un
ask (agent-or-agentset fn)
+(def
command
ask (agent-or-agentset fn)
"ASK AGENT-OR-AGENTSET FN => RESULT
AGENT-OR-AGENTSET: AGENT | AGENTSET
"ASK AGENT-OR-AGENTSET FN => RESULT
AGENT-OR-AGENTSET: AGENT | AGENTSET
+ RESULT: :undefined
ARGUMENTS AND VALUES:
FN: a function, run on each agent
ARGUMENTS AND VALUES:
FN: a function, run on each agent
- RESULT: undefined, commands don't return
AGENT: a NetLogo agent
AGENTSET: a NetLogo agentset
AGENT: a NetLogo agent
AGENTSET: a NetLogo agentset
@@
-35,12
+35,10
@@
DESCRIPTION:
(t
(error "Ask requires an agentset or agent but got: ~A" agent-or-agentset))))
(t
(error "Ask requires an agentset or agent but got: ~A" agent-or-agentset))))
-(def
un
stop ()
+(def
command
stop ()
"STOP => RESULT
"STOP => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
DESCRIPTION: