bs-jest enter describe scope -> Emacs freeze

*Backtrace*

Debugger entered--Lisp error: (quit)
  (let ((len (length str))) (and (> (point) len) (equal str (buffer-substring-no-properties (- (point) len) (point)))))
  reason-looking-back-str("*/")
  (if (reason-looking-back-str "*/") (backward-char))
  (let ((starting (point))) (skip-chars-backward "[:space:]\n") (if (reason-looking-back-str "*/") (backward-char)) (if (reason-in-str-or-cmnt) (reason-rewind-past-str-cmnt)) (if (/= starting (point)) (reason-rewind-irrelevant)))
  reason-rewind-irrelevant()
  (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr))
  (save-excursion (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset))
  (let ((current-level (reason-paren-level))) (save-excursion (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset)))
  (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level (reason-paren-level))) (save-excursion (while (and (= current-level (reason-paren-level)) (not (looking-at reason-binding))) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset)))))
  (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level (reason-paren-level))) (save-excursion (while (and (= current-level ...) (not ...)) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset))))))
  (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level (reason-paren-level))) (save-excursion (while (and ... ...) (reason-rewind-irrelevant) (reason-rewind-to-beginning-of-current-level-expr)) (+ (current-column) reason-indent-offset)))))))
  (save-excursion (reason-rewind-irrelevant) (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let ((current-level ...)) (save-excursion (while ... ... ...) (+ ... reason-indent-offset))))))))
  (if (= 0 level) 0 (save-excursion (reason-rewind-irrelevant) (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") (current-column)) ((looking-at "|") (+ (current-column) (* reason-indent-offset 2))) (t (let (...) (save-excursion ... ...))))))))
  (let* ((level (reason-paren-level)) (baseline (if (= 0 level) 0 (save-excursion (reason-rewind-irrelevant) (if (save-excursion (reason-rewind-to-beginning-of-current-level-expr) (looking-at "<")) (progn (reason-rewind-to-beginning-of-current-level-expr) (current-column)) (progn (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ... ... ...))))))) (cond ((looking-at "=>") (+ baseline reason-indent-offset)) ((reason-in-str-or-cmnt) (cond ((looking-at "*/") (+ baseline 1)) ((looking-at "*") (+ baseline 1)) (t (+ baseline (+ reason-indent-offset 1))))) ((looking-at "</") (- baseline reason-indent-offset)) ((looking-at "}\\|)\\|\\]") (save-excursion (reason-rewind-irrelevant) (let ((jsx\? (reason-looking-back-str ">"))) (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond ((looking-at "switch") baseline) (jsx\? (current-column)) (t (- baseline reason-indent-offset)))))) ((and (nth 4 (syntax-ppss)) (looking-at "*")) (+ 1 baseline)) (t (or (if (> level 0) (progn (save-excursion (reason-rewind-irrelevant) (backward-up-list) (reason-align-to-expr-after-brace)))) (progn (back-to-indentation) (cond ((looking-at ...) baseline) ((save-excursion ... ...) baseline) ((save-excursion ... ...) (+ baseline reason-indent-offset)) ((looking-at "|\\|/[/*]") baseline) ((and ... ...) (+ baseline reason-indent-offset)) ((save-excursion ... ...) baseline) ((and ... ...) (save-excursion ... ... ...)) ((save-excursion ... ...) baseline) (t (save-excursion ... ... ...))))))))
  (save-excursion (back-to-indentation) (let* ((level (reason-paren-level)) (baseline (if (= 0 level) 0 (save-excursion (reason-rewind-irrelevant) (if (save-excursion ... ...) (progn ... ...) (progn ... ... ...)))))) (cond ((looking-at "=>") (+ baseline reason-indent-offset)) ((reason-in-str-or-cmnt) (cond ((looking-at "*/") (+ baseline 1)) ((looking-at "*") (+ baseline 1)) (t (+ baseline (+ reason-indent-offset 1))))) ((looking-at "</") (- baseline reason-indent-offset)) ((looking-at "}\\|)\\|\\]") (save-excursion (reason-rewind-irrelevant) (let ((jsx\? ...)) (backward-up-list) (reason-rewind-to-beginning-of-current-level-expr) (cond (... baseline) (jsx\? ...) (t ...))))) ((and (nth 4 (syntax-ppss)) (looking-at "*")) (+ 1 baseline)) (t (or (if (> level 0) (progn (save-excursion ... ... ...))) (progn (back-to-indentation) (cond (... baseline) (... baseline) (... ...) (... baseline) (... ...) (... baseline) (... ...) (... baseline) (t ...))))))))
  (let ((indent (save-excursion (back-to-indentation) (let* ((level (reason-paren-level)) (baseline (if ... 0 ...))) (cond ((looking-at "=>") (+ baseline reason-indent-offset)) ((reason-in-str-or-cmnt) (cond ... ... ...)) ((looking-at "</") (- baseline reason-indent-offset)) ((looking-at "}\\|)\\|\\]") (save-excursion ... ...)) ((and ... ...) (+ 1 baseline)) (t (or ... ...))))))) (if indent (progn (if (<= (current-column) (current-indentation)) (indent-line-to indent) (save-excursion (indent-line-to indent))))))
  reason-mode-indent-line()
  indent-according-to-mode()
  evil-open-below(1)
  funcall-interactively(evil-open-below 1)
  call-interactively(evil-open-below nil nil)
  command-execute(evil-open-below)