elisp: A list of cadr is its cdr
This commit is contained in:
parent
c2b12e5bbd
commit
5f15d34135
2 changed files with 2 additions and 2 deletions
|
@ -123,7 +123,7 @@
|
|||
(mal-string (error-message-string err))))
|
||||
(env* (mal-env env (list identifier) (list err*))))
|
||||
(throw 'return (EVAL form env*)))
|
||||
(signal (car err) (list (cadr err)))))))
|
||||
(signal (car err) (cdr err))))))
|
||||
((eq a0* 'do)
|
||||
(let* ((a0... (cdr a))
|
||||
(butlast (butlast a0...))
|
||||
|
|
|
@ -123,7 +123,7 @@
|
|||
(mal-string (error-message-string err))))
|
||||
(env* (mal-env env (list identifier) (list err*))))
|
||||
(throw 'return (EVAL form env*)))
|
||||
(signal (car err) (list (cadr err)))))))
|
||||
(signal (car err) (cdr err))))))
|
||||
((eq a0* 'do)
|
||||
(let* ((a0... (cdr a))
|
||||
(butlast (butlast a0...))
|
||||
|
|
Loading…
Reference in a new issue