elisp: A list of cadr is its cdr

This commit is contained in:
Vasilij Schneidermann 2019-02-25 17:03:22 +01:00
parent c2b12e5bbd
commit 5f15d34135
2 changed files with 2 additions and 2 deletions

View file

@ -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...))

View file

@ -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...))