From e7b0dac11356f4f343f0441ce2078e994e1a7219 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Sun, 19 Feb 2017 22:19:57 -0500 Subject: [PATCH] Remove member clone * lisp/play/dunnet.el (dun-answer): Use member instead. (dun-members): Remove. --- lisp/play/dunnet.el | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index d8e0681b7a8..bffb38a01a2 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -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. -- 2.39.5