shithub: sl

Download patch

ref: 80c4394f76d3ee37af9fc6a6035cc5554297611c
parent: 08cacb3e4642186cbcee1b5da64d4921a7e8feaf
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Nov 24 21:24:40 EST 2024 

corrections: eq → eq?

This is from Julia, 69d5b4c68a1a000d31e92223dff60d4daa48e15f


--- a/system.lsp
+++ b/system.lsp
@@ -350,7 +350,7 @@
            (not (symbol? x)))
       (and (constant? x)
            (symbol? x)
-           (eq x (top-level-value x)))))
+           (eq? x (top-level-value x)))))
 
 (define-macro (quasiquote x) (bq-process x 0))
 
@@ -541,10 +541,10 @@
   (let ((e (gensym)))
     `(trycatch ,expr
                (λ (,e) (if (and (pair? ,e)
-                                (eq (car  ,e) 'thrown-value)
-                                (eq (cadr ,e) ,tag))
+                                (eq? (car  ,e) 'thrown-value)
+                                (eq? (cadr ,e) ,tag))
                            (caddr ,e)
-                                           (raise ,e))))))
+                           (raise ,e))))))
 
 (define-macro (unwind-protect expr finally)
   (let ((e   (gensym))