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)
(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)