UI/Model Parse - Sliders - WIP

[clnl] / src / main / nvm / inout.lisp

diff --git a/src/main/nvm/inout.lisp b/src/main/nvm/inout.lisp
index 7a78cf2614033af96e94ccf082627ffeb4b147ac..b8f88d46747fb70dd7983b8173b56f636a010e26 100644 (file)
--- a/src/main/nvm/inout.lisp
+++ b/src/main/nvm/inout.lisp
@@ -80,13 +80,14 @@ DESCRIPTION:
     "\"end1\",\"end2\",\"color\",\"label\",\"label-color\",\"hidden?\",\"breed\",\"thickness\",\"shape\",\"tie-mode\""
     ""))))
 
-(defun show (value)
+(defcommand show (value)
  "SHOW VALUE => RESULT
 
+  RESULT: :undefined
+
 ARGUMENTS AND VALUES:
 
   VALUE: a NetLogo value
-  RESULT: undefined
 
 DESCRIPTION: