Mercurial > emacs

comparison lisp/play/blackbox.el @ 662:8a533acedb77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 23:54:21 +0000
parents 999d0b38694e
children 540b047ece4d
comparison
equal deleted inserted replaced
661:36fbc3f71803 662:8a533acedb77
1 ; Blackbox game in Emacs Lisp 1 ;;; blackbox.el --- blackbox game in Emacs Lisp
2
2 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
3 4
4 ;; This file is part of GNU Emacs. 5 ;; This file is part of GNU Emacs.
5 6
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 7 ;; GNU Emacs is free software; you can redistribute it and/or modify
416 (defun bb-delete (item list) 417 (defun bb-delete (item list)
417 "Deletes ITEM from LIST and returns a copy." 418 "Deletes ITEM from LIST and returns a copy."
418 (cond 419 (cond
419 ((equal item (car list)) (cdr list)) 420 ((equal item (car list)) (cdr list))
420 (t (cons (car list) (bb-delete item (cdr list)))))) 421 (t (cons (car list) (bb-delete item (cdr list))))))
422
423 ;;; blackbox.el ends here