whiteline/kekkonen
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

programmation

Browse Source
This commit is contained in:
Victor Fors 2020-10-06 20:13:25 +02:00
parent 488af550de
commit cd795692e3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
kekkonen.scm
View File

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