ref: 61a403c4f8a351762021bd34d4e041670e688f9f
parent: f1fc5b03170740ae6eeb30a4d87276fb501fc296
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Apr 6 22:53:32 EDT 2025
nil → NIL, t → T
--- a/test/color.sl
+++ b/test/color.sl
@@ -48,7 +48,7 @@
(graph-neighbors g node-to-color)))))
(def (try-each f lst)
- (if (not lst) nil
+ (if (not lst) NIL
(let ((ret (f (car lst))))
(if ret ret (try-each f (cdr lst))))))
@@ -64,7 +64,7 @@
(def (color-graph g colors)
(if (not colors)
- (and (not (graph-nodes g)) nil)
+ (and (not (graph-nodes g)) NIL)
(color-node g NIL colors (graph-nodes g) (car colors))))
(def (color-pairs pairs colors)
--- a/test/unittest.sl
+++ b/test/unittest.sl
@@ -1,7 +1,8 @@
(defmacro (assert-fail expr . what)
`(assert (trycatch (begin ,expr NIL)
- (λ (e) ,(if (not what) t
- `(eq? (car e) ',(car what)))))))
+ (λ (e) ,(if what
+ `(eq? (car e) ',(car what))
+ T)))))
(def (every-int n)
(list (fixnum n) (s8 n) (u8 n) (s16 n) (u16 n) (s32 n) (u32 n)
--
⑨