(declare (block) (standard-bindings) (extended-bindings))
(define std/build-script#build-main
  (lambda (_args621_ _build-spec622_ _keys623_ _that-file624_)
    (letrec* ((_srcdir626_ (path-normalize (path-directory _that-file624_)))
              (_build627_
               (lambda ()
                 (apply std/make#make
                        _build-spec622_
                        'srcdir:
                        _srcdir626_
                        _keys623_))))
      (let* ((_args628645_ _args621_)
             (_E633649_
              (lambda () (error '"No clause matching" _args628645_))))
        (let ((_K641687_ (lambda () (write '("spec" "compile")) (newline)))
              (_K638675_ (lambda () (pretty-print _build-spec622_)))
              (_K635662_ (lambda () (_build627_)))
              (_K634654_ (lambda () (_build627_))))
          (let ((_try-match632657_
                 (lambda ()
                   (if (let () (declare (not safe)) (##null? _args628645_))
                       (_build627_)
                       (_E633649_)))))
            (if (let () (declare (not safe)) (##pair? _args628645_))
                (let ((_tl643692_
                       (let () (declare (not safe)) (##cdr _args628645_)))
                      (_hd642690_
                       (let () (declare (not safe)) (##car _args628645_))))
                  (if (equal? _hd642690_ '"meta")
                      (if (let () (declare (not safe)) (##null? _tl643692_))
                          (_K641687_)
                          (_E633649_))
                      (if (equal? _hd642690_ '"spec")
                          (if (let ()
                                (declare (not safe))
                                (##null? _tl643692_))
                              (_K638675_)
                              (_E633649_))
                          (if (equal? _hd642690_ '"compile")
                              (if (let ()
                                    (declare (not safe))
                                    (##null? _tl643692_))
                                  (_build627_)
                                  (_E633649_))
                              (_E633649_)))))
                (_try-match632657_))))))))
