Comments

dylan-lang · Mar 9, 2015 · 033a2d6 · 033a2d6
1 parent e106c9e
commit 033a2d6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/command-interface/completion.dylan b/command-interface/completion.dylan
@@ -30,6 +30,7 @@ define method initialize (completion :: <command-completion>,
                           #rest args, #key, #all-keys)
  => ();
   next-method();
+  // initialize reverse links
   for (option in completion.completion-options)
     option-completion(option) := completion;
   end;
@@ -44,6 +45,7 @@ end method;
  * values.
  */
 define class <command-completion-option> (<object>)
+  /* normally initialized by make(<completion>) */
   slot option-completion :: false-or(<command-completion>) = #f;
   /* string for this option */
   constant slot option-string :: <string>,