|
|
@@ -88,8 +88,8 @@ |
|
|
|
(_ (lisp-exit "malformed atom expression"))))) |
|
|
|
(eq . ,(lambda function-args |
|
|
|
(match function-args |
|
|
|
((a b) (let ((ea (eval a)) |
|
|
|
(eb (eval b))) |
|
|
|
((a b) (let ((ea (lisp-eval a)) |
|
|
|
(eb (lisp-eval b))) |
|
|
|
(equal? ea eb))) |
|
|
|
(_ (lisp-exit "malformed eq expression"))))) |
|
|
|
(set . ,(lambda function-args |
|
|
|