programmation

kekkonen.scm

@@ -378,7 +378,7 @@
 	    (create-object tag name description)
 	    (move-object tag (get-container 'you))))))
 
-(define (define-setter-command tag value type? setter)
+(define (do-setter-command tag value type? setter)
   (if (not (and (symbol? tag) (type? value)))
       (show "I didn't quite understand that.")
       (let ((object (match-object tag (visible-objects 'you))))
@@ -388,10 +388,10 @@
 	      (setter tag value))))))
 
 (define (do-command-rename tag name)
-  (define-setter-command tag name string? set-name))
+  (do-setter-command tag name string? set-name))
 
 (define (do-command-describe tag description)
-  (define-setter-command tag description string? set-description))
+  (do-setter-command tag description string? set-description))
 
 (define +cardinal-sets+
   '((north n)