🚀 go-pugleaf

Here are two bug fixes for edebug.el.

The first fixes (it didn't execute):

(defun foo () (cond (t t)))

The second fixes (it didn't parse):

(defun foo () ())


*** old-edebug  Nov 22 17:19:51 1988
--- edebug.el	Tue Nov 22 17:09:20 1988
***************
*** 365,371
  		 (error "Bad condition in cond")
  	       (forward-char 1) ; \(
  	       (prog1
! 		   (list
  		    (edebug-sexp)
  		    (if (eq 'rparen (edebug-next-token-class))
  			nil

--- 347,353 -----
  		 (error "Bad condition in cond")
  	       (forward-char 1) ; \(
  	       (prog1
! 		   (cons		; Eric Raible - was list
  		    (edebug-sexp)
  		    (if (eq 'rparen (edebug-next-token-class))
  			nil
***************
*** 444,450
  parens, dot, quote, and (anything else) atom."
    (edebug-next-token)
    (cond
!    ((= (following-char) ?\() 'lparen)
     ((= (following-char) ?\)) 'rparen)
     ((= (following-char) ?\.) 'dot)
     ((= (following-char) ?\') 'quote)

--- 426,438 -----
  parens, dot, quote, and (anything else) atom."
    (edebug-next-token)
    (cond
!    ;;((= (following-char) ?\() 'lparen)	; Eric Raible -
!    ((= (following-char) ?\()		; () is an atom
!     (save-excursion
!       (forward-char 1)
!       (if (= (following-char) ?\))
! 	  'atom
! 	'lparen)))
     ((= (following-char) ?\)) 'rparen)
     ((= (following-char) ?\.) 'dot)
     ((= (following-char) ?\') 'quote)