tests: fix example

This commit is contained in:
Wim Taymans 2009-06-29 11:57:13 +02:00
parent 92b0f32d74
commit f5f63434ab

View file

@ -42,7 +42,7 @@ exec guile -s $0 "$@"
(format #t "; running test: ~a\n" n-identities) (format #t "; running test: ~a\n" n-identities)
(let lp ((in (read-lines (let lp ((in (read-lines
(open-input-pipe (open-input-pipe
(format #f "./mass_elements ~A" (format #f "./mass-elements ~A"
(number->string n-identities))))) (number->string n-identities)))))
(out '())) (out '()))
(if (null? in) (if (null? in)