From cd795692e3c3bd737b781d8b028650013760dae1 Mon Sep 17 00:00:00 2001 From: Victor Fors Date: Tue, 6 Oct 2020 20:13:25 +0200 Subject: [PATCH] programmation --- kekkonen.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/kekkonen.scm b/kekkonen.scm index 40d2445..975929c 100644 --- a/kekkonen.scm +++ b/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)