whiteline/kekkonen
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

finally

Browse Source
This commit is contained in:
whiteline 2023-06-29 12:05:32 +02:00
parent 6d0c8c2b6a
commit 58b300c443
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp.scm
View File

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