reader tests: use a single eval

Sigrid Solveig Haflínudóttir committed 3 months ago

Commit a2b89cd1 parent 03ee42e1 file · +4 −5Browse files

Unified · Split

test/read.sl+4−5

@@ -49,9 +49,8 @@ · 48 unmodified lines
49		49
50	;; dispatch macro rune with read-list-until and a macro rune	50	;; dispatch macro rune with read-list-until and a macro rune
51	#.(begin	51	#.(begin
52	(def (to-list s r)	52	(set-dispatch-macro-rune #\< #\<
53	(map eval (read-list-until ">>" s)))	53	(λ (s r) `(list ,@(read-list-until ">>" s))))
54	(set-dispatch-macro-rune #\< #\< to-list)	54	(def s (buffer "<<€1 €2 €3>>1 2"))
55	(def s (buffer "<<€1 €2 €3>> 1 2"))	55	(assert (equal? (eval (read s)) '((eur . 1) (eur . 2) (eur . 3))))
56	(assert (equal? (read s) '((eur . 1) (eur . 2) (eur . 3))))
57	(assert (equal? (read s) 1)))	56	(assert (equal? (read s) 1)))