rebirth: relibprebirth: (and) => #t

* build-aux/bootstrap/rebirth/relibprebirth.scm (and): Initialize to #t so that (and) yields #t.
2018-09-10 20:46:01 -04:00 · 2018-09-10 20:46:01 -04:00 · a841f68d4f
parent ce68c8ca05
commit a841f68d4f
1 changed files with 1 additions and 0 deletions
--- a/build-aux/bootstrap/rebirth/es.scm
+++ b/build-aux/bootstrap/rebirth/es.scm
@ -144,6 +144,7 @@

   (define-es-macro (and . args)
     "(function(__and){\n"
+     "__and = true; "
     (join "" (map (lambda (expr)
                     (string-append
                      "__and = " (sexp->es expr) "; "