Commit e7b0dac1 authored by Mark Oteiza's avatar Mark Oteiza
Browse files

Remove member clone

* lisp/play/dunnet.el (dun-answer): Use member instead.
(dun-members): Remove.
parent 2f605c3f
......@@ -2109,7 +2109,7 @@ for a moment, then straighten yourself up.
(setq args (car args))
(if (not args)
(dun-mprincl "You must give the answer on the same line.")
(if (dun-members args dun-correct-answer)
(if (member args dun-correct-answer)
(progn
(dun-mprincl "Correct.")
(if (= dun-lastdir 0)
......@@ -2330,16 +2330,6 @@ for a moment, then straighten yourself up.
(append startlist
(list (substring dirstring 0 slash)))))))))
;;; Is a string a member of a string list?
(defun dun-members (string string-list)
(let (found)
(setq found nil)
(dolist (x string-list)
(if (string= x string)
(setq found t))) found))
;;; Function to put objects in the treasure room. Also prints current
;;; score to let user know he has scored.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment