1TeXmacs/examples/plugins/handler/progs/init-handler.scm:15: (display* (tree->verbatim t) "\n")) 2TeXmacs/examples/plugins/secure/progs/secure-secure.scm:21: (plugin-eval "secure" "default" (tree->string s))) 3TeXmacs/examples/plugins/substitute/progs/init-substitute.scm:23: (let* ((t (tree->stree (selection-tree))) 4TeXmacs/examples/plugins/substitute/progs/init-substitute.scm:26: (insert (stree->tree u))))) 5TeXmacs/plugins/coq/progs/coq-edit.scm:23: (when (tree-compound? t) 6TeXmacs/plugins/coq/progs/coq-edit.scm:24: (when (tree-in? t '(coq-command coq-enunciation)) 7TeXmacs/plugins/coq/progs/coq-edit.scm:25: (with s (tree->stree (tree-ref t 0)) 8TeXmacs/plugins/coq/progs/coq-edit.scm:29: (tree-set t 0 new-s)) 9TeXmacs/plugins/coq/progs/coq-edit.scm:31: (for (c (tree-children t)) 10TeXmacs/plugins/coq/progs/coq-edit.scm:43: (and (tree-is? t 'coq-command) 11TeXmacs/plugins/coq/progs/coq-edit.scm:44: (== (tree-down-index t) 2))) 12TeXmacs/plugins/coq/progs/coq-edit.scm:56: (with i (+ (tree-down-index doc) 1) 13TeXmacs/plugins/coq/progs/coq-edit.scm:57: (tree-insert! doc i (list cmd)) 14TeXmacs/plugins/coq/progs/coq-edit.scm:58: (tree-go-to doc i 2 0))) 15TeXmacs/plugins/coq/progs/coq-edit.scm:60: (if (tree-is? t :up 'concat) 16TeXmacs/plugins/coq/progs/coq-edit.scm:61: (set! t (tree-up t)) 17TeXmacs/plugins/coq/progs/coq-edit.scm:62: (tree-set! t `(concat ,t))) 18TeXmacs/plugins/coq/progs/coq-edit.scm:63: (with i (+ (tree-down-index t) 1) 19TeXmacs/plugins/coq/progs/coq-edit.scm:64: (tree-insert! t i (list cmd)) 20TeXmacs/plugins/coq/progs/coq-edit.scm:65: (tree-go-to t i 2 0)))))) 21TeXmacs/plugins/coq/progs/coq-edit.scm:96: ((tree-atomic? t) #f) 22TeXmacs/plugins/coq/progs/coq-edit.scm:97: ((and (tree-in? t '(coq-command coq-enunciation)) 23TeXmacs/plugins/coq/progs/coq-edit.scm:98: (tree-atomic? (tree-ref t 0)) 24TeXmacs/plugins/coq/progs/coq-edit.scm:99: (ahash-ref tab (tree->string (tree-ref t 0)))) 25TeXmacs/plugins/coq/progs/coq-edit.scm:100: (let* ((id (tree->string (tree-ref t 0))) 26TeXmacs/plugins/coq/progs/coq-edit.scm:102: (tree-assign! t `(,(tree-label t) ,id ,col 27TeXmacs/plugins/coq/progs/coq-edit.scm:103: ,@(cddr (tree-children t)))) 28TeXmacs/plugins/coq/progs/coq-edit.scm:105: (else (coq-update-status (tree-children t) tab)))) 29TeXmacs/plugins/coq/progs/coq-edit.scm:113: (let* ((cmd (object->string `(check ,(tree->stree (buffer-tree))))) 30TeXmacs/plugins/coq/progs/coq-edit.scm:132: (cond ((and (tree-is? t 'coq-comment) (tree-is? t :up 'document)) 31TeXmacs/plugins/coq/progs/coq-edit.scm:133: (tree-remove (tree-up t) (tree-index t) 1)) 32TeXmacs/plugins/coq/progs/coq-edit.scm:134: ((tree-compound? t) 33TeXmacs/plugins/coq/progs/coq-edit.scm:135: (for-each coq-remove-comments (reverse (tree-children t)))))) 34TeXmacs/plugins/python/progs/init-python.scm:29: (with s (texmacs->code (stree->tree u)) 35TeXmacs/plugins/python/progs/python-widgets.scm:51: (stree->tree (tmpy-help-content)) 36TeXmacs/plugins/r/progs/r-edit.scm:90: ;; (insert (stree->tree `(new-line))) 37TeXmacs/plugins/scilab/progs/init-scilab.scm:39: (let* ((t (tree->stree t)) 38TeXmacs/plugins/scilab/progs/init-scilab.scm:46: (stree->tree (string->object s)))) 39TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:31: (tree-in? t '(texgraph-plot-curve texgraph-plot-curve* 40TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:89: (in (texgraph-script-plot-command lan (tree->stree t)))) 41TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:90: (tree-set! t `(plot-output ,t "")) 42TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:91: (script-eval-at (tree-ref t 1) lan session in :math-correct :math-input) 43TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:92: (tree-go-to t 1 :end))) 44TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:96: (if (= (tree-down-index t) (- (tree-arity t) 1)) 45TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:98: (tree-go-to t (1+ (tree-down-index t)) :end))) 46TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:105: (:require (tree-is? t 'texgraph-plot-output)) 47TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:106: (tree-remove-node! t 0) 48TeXmacs/plugins/texgraph/progs/texgraph-scripts-edit.scm:107: (tree-go-to t 0 :end)) 49TeXmacs/progs/bibtex/bib-complete.scm:36: (tree->stree (parse-bib (string-load u)))))))) 50TeXmacs/progs/bibtex/bib-complete.scm:47: (url-append (url-head u) (tm->string (tree-ref (car l) 2)))) 51TeXmacs/progs/bibtex/bib-complete.scm:56: (ahash-set! bib-styles-cache u (tm->string (tree-ref (car l) 1))) 52TeXmacs/progs/bibtex/bib-complete.scm:67: ,@(map string->tmstring (citekey-list u (tree->string t))))) 53TeXmacs/progs/bibtex/bib-utils.scm:108: (tree->stree (tree-simplify (stree->tree x)))) 54TeXmacs/progs/bibtex/bib-utils.scm:169: (if (tree-compound? t) t 55TeXmacs/progs/bibtex/bib-utils.scm:170: (let* ((s (tree->string t)) 56TeXmacs/progs/bibtex/bib-widgets.scm:38: (if (tree-is? t 'string) 57TeXmacs/progs/bibtex/bib-widgets.scm:43: (paragraph-box "480px" ,(bib-process "bib" style (tree->stree t)))))) 58TeXmacs/progs/bibtex/bib-widgets.scm:56: (stree->tree (bibwid-output-content t style)))))) 59TeXmacs/progs/bibtex/bib-widgets.scm:71: (tree-set! t 1 bibwid-style) 60TeXmacs/progs/bibtex/bib-widgets.scm:72: (tree-set! t 2 (url->string bibwid-url)) 61TeXmacs/progs/client/client-tmfs.scm:33: (t (tree-import-loaded s u "stm"))) 62TeXmacs/progs/convert/bibtex/bibtextm.scm:21: (tree->stree (parse-bib s))) 63TeXmacs/progs/convert/coq/coqmltest.scm:75: (letrec ((test (lambda (st) (== st (coqml->stree (stree->coqml st))))) 64TeXmacs/progs/convert/coq/coqmltest.scm:82: (strong "Idempotence testing: stree->coqml->stree") 65TeXmacs/progs/convert/coq/coqmltest.scm:87: (with xml (stree->coqml st) 66TeXmacs/progs/convert/coq/coqmltest.scm:88: (== xml (stree->coqml (coqml->stree xml)))))) 67TeXmacs/progs/convert/coq/coqmltest.scm:95: (strong "Idempotence testing: coqml->stree->coqml") 68TeXmacs/progs/convert/coq/coqmltest.scm:103: (stree->tree 69TeXmacs/progs/convert/coq/gallinatm.scm:139: (m (tree->stree (generic->texmacs ltxd "latex-snippet")))) 70TeXmacs/progs/convert/coq/gallinatm.scm:305: (doc (tree->stree (tree-simplify (stree->tree aux)))) 71TeXmacs/progs/convert/coq/init-coqml.scm:80: (lazy-define (convert coqml scmcoqtopml) stree->coqtopml) 72TeXmacs/progs/convert/coq/scmcoqml.scm:59: `(pair ,@(map stree->coqml-stree (cdr p)))) 73TeXmacs/progs/convert/coq/scmcoqml.scm:63: (with child (stree->coqml-stree (cadr t)) 74TeXmacs/progs/convert/coq/scmcoqml.scm:75: `(option_value (@ (val ,val)) ,(stree->coqml-stree o))))) 75TeXmacs/progs/convert/coq/scmcoqml.scm:79: (child (stree->coqml-stree (caddr u)))) 76TeXmacs/progs/convert/coq/scmcoqml.scm:84: (child (stree->coqml-stree (caddr u)))) 77TeXmacs/progs/convert/coq/scmcoqml.scm:97: (define (stree->coqml-stree t) 78TeXmacs/progs/convert/coq/scmcoqml.scm:109: ((list? t) (list 'list stree->coqml-stree #t)) 79TeXmacs/progs/convert/coq/scmcoqml.scm:116: `(error ,(string-append "stree->coqml: cannot translate " 80TeXmacs/progs/convert/coq/scmcoqml.scm:123: (tm-define (stree->coqml t) 81TeXmacs/progs/convert/coq/scmcoqml.scm:125: `(*TOP* ,(stree->coqml-stree t)))) 82TeXmacs/progs/convert/coq/tmvernac.scm:133: (texmacs->generic (stree->tree (car l)) "latex-snippet")) 83TeXmacs/progs/convert/coq/tmvernac.scm:140: (texmacs->generic (stree->tree (car l)) "html-snippet")) 84TeXmacs/progs/convert/coq/tmvernac.scm:151: (stree->tree (car l)) 85TeXmacs/progs/convert/coq/tmvernac.scm:244: (if (tree? x) (set! x (tree->stree x))) 86TeXmacs/progs/convert/coq/tmvernac.scm:249: (if (tree? x) (set! x (tree->stree x))) 87TeXmacs/progs/convert/html/htmltm.scm:563: (define (replace-stree-in-stree st from to) 88TeXmacs/progs/convert/html/htmltm.scm:565: ((list? st) (map (lambda (x) (replace-stree-in-stree x from to)) st)) 89TeXmacs/progs/convert/html/htmltm.scm:587: ((list? from) (replace-stree-in-stree st from to)) 90TeXmacs/progs/convert/html/htmltm.scm:619: (doc (tree->stree (tree-simplify (stree->tree aux)))) 91TeXmacs/progs/convert/images/tmimage.scm:137: (tree-remove! (tree-ref node :up) (tree-index node) 1)) 92TeXmacs/progs/convert/images/tmimage.scm:143: (tree-insert! parent-dest pos `(,node)) 93TeXmacs/progs/convert/images/tmimage.scm:149: (tree-assign! leaf (string->tree newtext))) 94TeXmacs/progs/convert/images/tmimage.scm:170: (oldlabel (tree->string labelnode))) 95TeXmacs/progs/convert/images/tmimage.scm:180: (let ((newtarget (assoc-ref alist (tree->string leaf)))) 96TeXmacs/progs/convert/images/tmimage.scm:221: (void (buffer-set-body mybuf (tree-assign-node! (stree->tree s-svg-in) 97TeXmacs/progs/convert/images/tmimage.scm:259: (tree-insert! maingroup-attrib 1 extra-latex-attrib) 98TeXmacs/progs/convert/images/tmimage.scm:261: (tree-insert! maingroup-attrib 2 extra-tm-attrib) 99TeXmacs/progs/convert/images/tmimage.scm:269: ;; (instead of *PI* "xml" given by tree->stree - 100TeXmacs/progs/convert/images/tmimage.scm:274: (cddr (tree->stree buftree)))) 101TeXmacs/progs/convert/images/tmimage.scm:318: (if (tree-multi-paragraph? (selection-tree)) 102TeXmacs/progs/convert/images/tmimage.scm:321: (stree->tree `(equation* (document ,(selection-tree)))) 103TeXmacs/progs/convert/images/tmimage.scm:327: (stree->tree 104TeXmacs/progs/convert/latex/test-tmtex.scm:23: (define (stree->tm-snippet st) 105TeXmacs/progs/convert/latex/test-tmtex.scm:24: (texmacs->generic (stree->tree st) "texmacs-snippet")) 106TeXmacs/progs/convert/latex/test-tmtex.scm:243: (let* ((s (stree->tm-snippet st)) 107TeXmacs/progs/convert/latex/test-tmtex.scm:264: (let* ((s (stree->tm-snippet st)) 108TeXmacs/progs/convert/latex/test-tmtex.scm:284: (stree->tree 109TeXmacs/progs/convert/latex/texout.scm:39: (define (latex-stree-contains? t u) 110TeXmacs/progs/convert/latex/texout.scm:44: (else (or (latex-stree-contains? (car t) u) 111TeXmacs/progs/convert/latex/texout.scm:46: (latex-stree-contains? x u)) (cdr t))))))) 112TeXmacs/progs/convert/latex/texout.scm:58: (has-preamble? (latex-stree-contains? doc-body "\\begin{document}")) 113TeXmacs/progs/convert/latex/texout.scm:59: (has-end? (latex-stree-contains? doc-body "\\end{document}")) 114TeXmacs/progs/convert/latex/tmtex-ams.scm:28: (define (stree-contains? t u) 115TeXmacs/progs/convert/latex/tmtex-ams.scm:32: (else (or (stree-contains? (car t) u) 116TeXmacs/progs/convert/latex/tmtex-ams.scm:33: (in? #t (map (lambda (x) (stree-contains? x u)) (cdr t))))))) 117TeXmacs/progs/convert/latex/tmtex-ams.scm:43: (cond ((stree-contains? doc 'abstract-data) 118TeXmacs/progs/convert/latex/tmtex-ams.scm:45: ((stree-contains? doc 'doc-data) 119TeXmacs/progs/convert/latex/tmtex-beamer.scm:29: (define (stree-transform l what by) 120TeXmacs/progs/convert/latex/tmtex-beamer.scm:33: (map (lambda (x) (stree-transform x what by)) l)))) 121TeXmacs/progs/convert/latex/tmtex-beamer.scm:36: (set! doc (stree-transform doc 'hidden 'slide)) 122TeXmacs/progs/convert/latex/tmtex-beamer.scm:37: (stree-transform doc 'shown 'slide)) 123TeXmacs/progs/convert/latex/tmtex-revtex.scm:39: (define (stree-contains? t u) 124TeXmacs/progs/convert/latex/tmtex-revtex.scm:43: (else (in? #t (map (lambda (x) (stree-contains? x u)) t))))) 125TeXmacs/progs/convert/latex/tmtex-revtex.scm:51: (cond ((stree-contains? doc 'abstract-data) 126TeXmacs/progs/convert/latex/tmtex-revtex.scm:53: ((stree-contains? doc 'doc-data) 127TeXmacs/progs/convert/latex/tmtex-revtex.scm:64: (if (stree-contains? doc 'abstract-keywords) 128TeXmacs/progs/convert/latex/tmtex-revtex.scm:66: (if (stree-contains? doc 'abstract-msc) 129TeXmacs/progs/convert/latex/tmtex-revtex.scm:125: (stree-contains? l '(doc-title-options "cluster-all")) 130TeXmacs/progs/convert/latex/tmtex-revtex.scm:126: (stree-contains? l '(doc-title-options 131TeXmacs/progs/convert/latex/tmtex.scm:1055: (define (tmtex-tree-eps l) 132TeXmacs/progs/convert/latex/tmtex.scm:1474: (define (stree-replace l what by) 133TeXmacs/progs/convert/latex/tmtex.scm:1478: (map (lambda (x) (stree-replace x what by)) l)))) 134TeXmacs/progs/convert/latex/tmtex.scm:1480: (define (next-stree-occurence l tag) 135TeXmacs/progs/convert/latex/tmtex.scm:1488: (set! found? (next-stree-occurence x tag)))) l) 136TeXmacs/progs/convert/latex/tmtex.scm:1492: (with streetag (next-stree-occurence (car l) tag) 137TeXmacs/progs/convert/latex/tmtex.scm:1499: (authors (stree-replace (car l) streetag tagref)) 138TeXmacs/progs/convert/latex/tmtex.scm:2324: (tree tmtex-tree-eps) 139TeXmacs/progs/convert/latex/tmtex.scm:2678: (when (tree-label-extension? (tm-label t)) 140TeXmacs/progs/convert/latex/tmtex.scm:2691: (let* ((st (tree->stree t)) 141TeXmacs/progs/convert/latex/tmtex.scm:2741: (let* ((x2 (tree->stree (tmtm-eqnumber->nonumber (stree->tree x)))) 142TeXmacs/progs/convert/mathml/mathtm.scm:47: (r (tree->stree (upgrade-mathml m)))) 143TeXmacs/progs/convert/rewrite/init-rewrite.scm:33: (:function tree->stree)) 144TeXmacs/progs/convert/rewrite/init-rewrite.scm:36: (:function stree->tree)) 145TeXmacs/progs/convert/rewrite/tmtm-brackets.scm:38: (tree-downgrade-brackets t #f #f) 146TeXmacs/progs/convert/rewrite/tmtm-brackets.scm:39: (tree->stree (tree-downgrade-brackets t #f #f)))) 147TeXmacs/progs/convert/tmml/tmmltm.scm:182: (tree->stree (upgrade-tmml (cadr doc))) 148TeXmacs/progs/convert/tmml/tmtmml.scm:91: (with simplified (tree->stree (tree-simplify (stree->tree x))) 149TeXmacs/progs/convert/tools/stm.scm:135: (not (tree-label-extension? label))) 150TeXmacs/progs/convert/tools/stm.scm:140: (tree-multi-paragraph? (stree->tree x))) 151TeXmacs/progs/database/bib-db.scm:262: (tree-assign! t r) 152TeXmacs/progs/database/db-convert.scm:106: (tree-accessible-children t))))) 153TeXmacs/progs/database/db-edit.scm:36: (and-with t (tree-search-upwards (cursor-tree) db-field-any?) 154TeXmacs/progs/database/db-edit.scm:145: (and-with t (tree-search-upwards t* db-entry?) 155TeXmacs/progs/database/db-edit.scm:153: (tree-set (tree-ref t 3) `(document ,@m))))))) 156TeXmacs/progs/database/db-edit.scm:158: (not (tree-empty? (tm->tree (tm-ref t 1))))))) 157TeXmacs/progs/database/db-edit.scm:161: (and-with t (tree-search-upwards t* db-entry?) 158TeXmacs/progs/database/db-edit.scm:166: (not (tree-empty? (tm->tree (tm-ref u 2)))) 159TeXmacs/progs/database/db-edit.scm:180: (and u (or (and (db-field-any? u) (tree-empty? (tree-ref u 1)) u) 160TeXmacs/progs/database/db-edit.scm:190: (and u (or (and (db-field-any? u) (tree-empty? (tree-ref u 1)) u) 161TeXmacs/progs/database/db-edit.scm:194: (and-with res (tree-search-upwards t db-entry?) 162TeXmacs/progs/database/db-edit.scm:196: (tree-ref t 2) 163TeXmacs/progs/database/db-edit.scm:197: (and (> (tree-arity (tree-ref res 3)) 0) 164TeXmacs/progs/database/db-edit.scm:198: (with e (tree-ref res 3 0) 165TeXmacs/progs/database/db-edit.scm:200: (and f (tree-ref f 1)))))))) 166TeXmacs/progs/database/db-edit.scm:203: (and-with res (tree-search-upwards t db-entry?) 167TeXmacs/progs/database/db-edit.scm:204: (cond ((and all? (tree-empty? (tree-ref res 2))) 168TeXmacs/progs/database/db-edit.scm:205: (tree-ref res 2)) 169TeXmacs/progs/database/db-edit.scm:206: ((> (tree-arity (tree-ref res 3)) 0) 170TeXmacs/progs/database/db-edit.scm:207: (with e (tree-ref res 3 0) 171TeXmacs/progs/database/db-edit.scm:209: (tree-empty? (tree-ref e 1))) 172TeXmacs/progs/database/db-edit.scm:211: (and f (tree-ref f 1))))) 173TeXmacs/progs/database/db-edit.scm:233: (and-with res (tree-search-upwards t db-entry?) 174TeXmacs/progs/database/db-edit.scm:234: (and-with l (db-format-alternatives (tree-ref res 1) (tree-ref t 0)) 175TeXmacs/progs/database/db-edit.scm:236: (and (list-and r) (map tree-up r))))))) 176TeXmacs/progs/database/db-edit.scm:243: (or (and (tree-up t) (outer-document (tree-up t))) 177TeXmacs/progs/database/db-edit.scm:244: (and (tree-up t) (tm-func? t 'document) t))) 178TeXmacs/progs/database/db-edit.scm:249: (with i (tree-index (tree-down doc)) 179TeXmacs/progs/database/db-edit.scm:251: (tree-insert! doc (+ i 1) (list res)) 180TeXmacs/progs/database/db-edit.scm:252: (tree-go-to doc (+ i 1) 2 :start) 181TeXmacs/progs/database/db-edit.scm:253: (db-complete-fields (tree-ref doc (+ i 1)))))))) 182TeXmacs/progs/database/db-edit.scm:261: (tree-go-to (db-first-empty-field t #t) :end)) 183TeXmacs/progs/database/db-edit.scm:263: (and-with res (tree-search-upwards t db-entry?) 184TeXmacs/progs/database/db-edit.scm:266: (tree-go-to f :end)))) 185TeXmacs/progs/database/db-edit.scm:271: (with u (tree-ref t :down) 186TeXmacs/progs/database/db-edit.scm:272: (cond ((tree-search-upwards t 'inactive) 187TeXmacs/progs/database/db-edit.scm:274: ((and u (= (tree-index u) 2)) 188TeXmacs/progs/database/db-edit.scm:275: (if (tree-empty? u) 189TeXmacs/progs/database/db-edit.scm:278: (with d (tree-ref u :up 3) 190TeXmacs/progs/database/db-edit.scm:279: (when (and (> (tm-arity d) 0) (db-field-any? (tree-ref d 0))) 191TeXmacs/progs/database/db-edit.scm:280: (tree-go-to d 0 1 :end))))) 192TeXmacs/progs/database/db-edit.scm:285: (cond ((tree-empty? (tree-ref t 1)) 193TeXmacs/progs/database/db-edit.scm:288: (tree-go-to (db-next-field t) 1 :end)) 194TeXmacs/progs/database/db-edit.scm:293: (if (tree-empty? (tree-ref t 1)) 195TeXmacs/progs/database/db-edit.scm:298: (tree-go-to (or next prev) 1 :end) 196TeXmacs/progs/database/db-edit.scm:299: (tree-remove (tree-ref u :up) (tree-index u) 1))) 197TeXmacs/progs/database/db-edit.scm:301: (tree-assign-node t 'db-field) 198TeXmacs/progs/database/db-edit.scm:302: (if next (tree-go-to next 1 :end))))) 199TeXmacs/progs/database/db-edit.scm:307: (pred? (lambda (f) (not (tree-empty? (tree-ref f 1))))) 200TeXmacs/progs/database/db-edit.scm:317: (tree-go-to a 1 :end) 201TeXmacs/progs/database/db-edit.scm:318: (tree-assign-node! a 'db-field) 202TeXmacs/progs/database/db-edit.scm:321: (tree-remove (tree-ref f :up) (tree-index f) 1))) 203TeXmacs/progs/database/db-edit.scm:323: (if next (tree-go-to next 1 :end)))))))) 204TeXmacs/progs/database/db-edit.scm:331: (cond ((and (cursor-inside? (tree-ref t 2)) 205TeXmacs/progs/database/db-edit.scm:332: (tree-empty? (tree-ref t 2)) 206TeXmacs/progs/database/db-edit.scm:333: (tree-empty? (tree-ref t 3))) 207TeXmacs/progs/database/db-edit.scm:334: (tree-cut t)) 208TeXmacs/progs/database/db-edit.scm:335: ((and (tree-at-start? (tree-ref t 2)) (not forwards?)) 209TeXmacs/progs/database/db-edit.scm:336: (tree-go-to t :start)) 210TeXmacs/progs/database/db-edit.scm:337: ((and (tree-at-end? (tree-ref t 2)) forwards?) 211TeXmacs/progs/database/db-edit.scm:339: (if f (tree-go-to f :start) (tree-go-to t :end)))) 212TeXmacs/progs/database/db-edit.scm:340: ((cursor-inside? (tree-ref t 2)) 213TeXmacs/progs/database/db-edit.scm:350: (cond ((and (cursor-inside? (tree-ref t 1)) (tree-empty? (tree-ref t 1))) 214TeXmacs/progs/database/db-edit.scm:352: (res (tree-search-upwards t 'db-entry))) 215TeXmacs/progs/database/db-edit.scm:354: (tree-go-to next 1 (if forwards? :start :end))) 216TeXmacs/progs/database/db-edit.scm:356: (tree-go-to res 2 :end)) 217TeXmacs/progs/database/db-edit.scm:358: (tree-go-to res 1))) 218TeXmacs/progs/database/db-edit.scm:359: (tree-remove (tree-up t) (tree-index t) 1))) 219TeXmacs/progs/database/db-edit.scm:360: ((and (tree-at-start? (tree-ref t 1)) (not forwards?)) 220TeXmacs/progs/database/db-edit.scm:361: (tree-go-to t :start)) 221TeXmacs/progs/database/db-edit.scm:362: ((and (tree-at-end? (tree-ref t 1)) forwards?) 222TeXmacs/progs/database/db-edit.scm:363: (tree-go-to t :end)) 223TeXmacs/progs/database/title-markup.scm:154: (with opts (map tree->stree (select t '(doc-title-options :%1))) 224TeXmacs/progs/debug/debug-widgets.scm:50: (let* ((l (tree-children (get-debug-messages kind 100))) 225TeXmacs/progs/debug/debug-widgets.scm:53: (ahash-set! t (message-type (tree->string (tree-ref m 0))) #t)) 226TeXmacs/progs/debug/debug-widgets.scm:59: (and (tree-atomic? k) 227TeXmacs/progs/debug/debug-widgets.scm:60: (tree-atomic? s) 228TeXmacs/progs/debug/debug-widgets.scm:61: (in? (message-type (tree->string k)) selected)))) 229TeXmacs/progs/debug/debug-widgets.scm:84: (all-ms (tree-children (get-debug-messages kind n))) 230TeXmacs/progs/doc/apidoc-collect.scm:64: (define (doctree-lan t) 231TeXmacs/progs/doc/apidoc-collect.scm:68: (s2 (list-filter (map tree->stree s) flt))) 232TeXmacs/progs/doc/apidoc-collect.scm:145: (t (tree-import furl "texmacs")) 233TeXmacs/progs/doc/apidoc-collect.scm:146: (lan (doctree-lan t)) 234TeXmacs/progs/doc/apidoc-collect.scm:147: (ex (map tree->stree (select t '(:* explain)))) 235TeXmacs/progs/doc/apidoc-collect.scm:148: (br (map tree->stree (select t '(:* traverse :* branch))))) 236TeXmacs/progs/doc/apidoc-kbd.scm:21: (with t (tree-up (cursor-tree)) 237TeXmacs/progs/doc/apidoc-kbd.scm:22: (help-window "macros" (symbol->string (tree-label t))))) 238TeXmacs/progs/doc/apidoc-markup.scm:27: `(concat ,(string-append "synopsis for " (tree->string tname)))) 239TeXmacs/progs/doc/apidoc-markup.scm:31: `(concat ,(module->string (cDr (string->module (tree->string tname)))))) 240TeXmacs/progs/doc/apidoc-markup.scm:35: ($module-dependencies (string->module (tree->string tname)))) 241TeXmacs/progs/doc/apidoc-markup.scm:39: ($module-source-link (string->module (tree->string tname)))) 242TeXmacs/progs/doc/apidoc-markup.scm:43: ($module-doc-link (string->module (tree->string tname)))) 243TeXmacs/progs/doc/apidoc-markup.scm:48: (module-count-exported (string->module (tree->string tname))))) 244TeXmacs/progs/doc/apidoc-markup.scm:53: (module-count-undocumented (string->module (tree->string tname))))) 245TeXmacs/progs/doc/apidoc-markup.scm:57: ($doc-module-traverse (string->module (tree->string troot)))) 246TeXmacs/progs/doc/apidoc-markup.scm:61: (tree->string tsym)) 247TeXmacs/progs/doc/apidoc-markup.scm:65: (doc-symbol-synopsis* (tree->symbol tsym))) 248TeXmacs/progs/doc/apidoc-markup.scm:69: (doc-symbol-code* (tree->symbol tsym))) 249TeXmacs/progs/doc/apidoc-markup.scm:73: ($doc-symbol-template (tree->symbol tsym) #t "")) 250TeXmacs/progs/doc/apidoc-widgets.scm:42: (tree-is? t 'document)) 251TeXmacs/progs/doc/apidoc-widgets.scm:48: (with t (tree-search-upwards (car ids) document?) 252TeXmacs/progs/doc/apidoc-widgets.scm:52: (and (> help-win-handle 0) (not (tree-empty? (help-win-tree))))) 253TeXmacs/progs/doc/apidoc-widgets.scm:57: (cond ((== where "scheme") (tree-set! t ($doc-explain-scm key))) 254TeXmacs/progs/doc/apidoc-widgets.scm:58: ((== where "macros") (tree-set! t ($doc-explain-macro key))) 255TeXmacs/progs/doc/apidoc-widgets.scm:60: (tree-set! t ($para (replace "Error: %1" "help-win-display"))))))) 256TeXmacs/progs/doc/help-funcs.scm:27: (with t (tree-import u "texmacs") 257TeXmacs/progs/doc/tmdoc-edit.scm:27: (tree-is? buf 'document) 258TeXmacs/progs/doc/tmdoc-edit.scm:29: (not (tree-is? buf 0 'tmdoc-title))))) 259TeXmacs/progs/doc/tmdoc-edit.scm:34: (tree-is? buf 'document) 260TeXmacs/progs/doc/tmdoc-edit.scm:36: (tree-is? buf 0 'tmdoc-title) 261TeXmacs/progs/doc/tmdoc-edit.scm:37: (not (tree-is? buf :last 'tmdoc-license))))) 262TeXmacs/progs/doc/tmdoc-edit.scm:41: (when (tree-is? buf 'document) 263TeXmacs/progs/doc/tmdoc-edit.scm:42: (tree-insert! buf 0 '((tmdoc-title ""))) 264TeXmacs/progs/doc/tmdoc-edit.scm:43: (tree-go-to buf 0 0 0)))) 265TeXmacs/progs/doc/tmdoc-edit.scm:47: (when (tree-is? buf 'document) 266TeXmacs/progs/doc/tmdoc-edit.scm:48: (with n (- (tree-arity buf) 267TeXmacs/progs/doc/tmdoc-edit.scm:49: (if (tree-in? buf :last '(tmdoc-license 268TeXmacs/progs/doc/tmdoc-edit.scm:51: (tree-insert! buf n '((tmdoc-copyright "" ""))) 269TeXmacs/progs/doc/tmdoc-edit.scm:52: (tree-go-to buf n 0 0))))) 270TeXmacs/progs/doc/tmdoc-edit.scm:56: (when (tree-is? buf 'document) 271TeXmacs/progs/doc/tmdoc-edit.scm:57: (with n (tree-arity buf) 272TeXmacs/progs/doc/tmdoc-edit.scm:58: (tree-insert! buf n '((tmdoc-license ""))) 273TeXmacs/progs/doc/tmdoc-edit.scm:59: (tree-go-to buf n 0 0))))) 274TeXmacs/progs/doc/tmdoc-edit.scm:63: (when (tree-is? buf 'document) 275TeXmacs/progs/doc/tmdoc-edit.scm:64: (with n (tree-arity buf) 276TeXmacs/progs/doc/tmdoc-edit.scm:65: (tree-insert! buf n '((tmdoc-license ""))) 277TeXmacs/progs/doc/tmdoc-edit.scm:66: (tree-go-to buf n 0 0) 278TeXmacs/progs/doc/tmdoc-edit.scm:84: (tree-is? buf 'document) 279TeXmacs/progs/doc/tmdoc-edit.scm:86: (not (tree-is? buf 0 'tmweb-title))))) 280TeXmacs/progs/doc/tmdoc-edit.scm:91: (tree-is? buf 'document) 281TeXmacs/progs/doc/tmdoc-edit.scm:93: (tree-is? buf 0 'tmweb-title) 282TeXmacs/progs/doc/tmdoc-edit.scm:94: (not (tree-is? buf :last 'tmweb-license))))) 283TeXmacs/progs/doc/tmdoc-edit.scm:98: (when (tree-is? buf 'document) 284TeXmacs/progs/doc/tmdoc-edit.scm:99: (tree-insert! buf 0 '((tmweb-title "" ""))) 285TeXmacs/progs/doc/tmdoc-edit.scm:100: (tree-go-to buf 0 0 0)))) 286TeXmacs/progs/doc/tmdoc-edit.scm:104: (when (tree-is? buf 'document) 287TeXmacs/progs/doc/tmdoc-edit.scm:105: (with n (tree-arity buf) 288TeXmacs/progs/doc/tmdoc-edit.scm:106: (tree-insert! buf n '((tmweb-license))))))) 289TeXmacs/progs/doc/tmdoc-edit.scm:118: (and-with tit (tree-ref (buffer-tree) 0) 290TeXmacs/progs/doc/tmdoc-edit.scm:119: (when (tree-is? tit 'tmweb-title) 291TeXmacs/progs/doc/tmdoc-edit.scm:120: (and-with links (tree-ref tit 1) 292TeXmacs/progs/doc/tmdoc-edit.scm:123: (tree-set links `(,(string->symbol s)))))))) 293TeXmacs/progs/doc/tmdoc-edit.scm:131: (with doc (tree-ref t 0) 294TeXmacs/progs/doc/tmdoc-edit.scm:132: (when (and doc (tree-is? doc 'document)) 295TeXmacs/progs/doc/tmdoc-edit.scm:133: (with i (tree-down-index doc) 296TeXmacs/progs/doc/tmdoc-edit.scm:134: (when (!= (tree-ref doc i) (string->tree "")) 297TeXmacs/progs/doc/tmdoc-edit.scm:135: (tree-insert! doc (+ i 1) '("")) 298TeXmacs/progs/doc/tmdoc-edit.scm:136: (tree-go-to doc (+ i 1) 0)) 299TeXmacs/progs/doc/tmdoc-edit.scm:145: (when (and t (== (tree-arity t) 2)) 300TeXmacs/progs/doc/tmdoc-edit.scm:146: (tree-go-to t 0 :end) 301TeXmacs/progs/doc/tmdoc-markup.scm:24: ((tree? s) (tmdoc-render-keys (tree->stree s))) 302TeXmacs/progs/doc/tmdoc-markup.scm:34: ((tree? s) (tmdoc-key (tree->stree s))) 303TeXmacs/progs/doc/tmdoc-markup.scm:41: ((tree? s) (tmdoc-key* (tree->stree s))) 304TeXmacs/progs/doc/tmdoc-markup.scm:50: ((tree? s) (tmdoc-shortcut (tree->stree s))) 305TeXmacs/progs/doc/tmdoc-menu.scm:112: (:require (tree-in? t '(tmdoc-title tmweb-title tmdoc-copyright 306TeXmacs/progs/doc/tmdoc-search.scm:50: (tm-find (tree-ref t 0) pred?))) 307TeXmacs/progs/doc/tmdoc-search.scm:54: (tm-search (tree-load-inclusion u) pred?))) 308TeXmacs/progs/doc/tmdoc-search.scm:77: (tm-search (tree-load-inclusion u) pred?))) 309TeXmacs/progs/doc/tmdoc-search.scm:97: (tm-search (tree-load-inclusion u) pred?))) 310TeXmacs/progs/doc/tmdoc-search.scm:124: (tm-search (tree-load-inclusion u) pred?))) 311TeXmacs/progs/doc/tmdoc.scm:89: (with t (tree->stree (tree-import cur "texmacs")) 312TeXmacs/progs/doc/tmdoc.scm:103: (with t (tree-import file-name "texmacs") 313TeXmacs/progs/doc/tmdoc.scm:141: (with doc (tm->stree (tree-import root "html")) 314TeXmacs/progs/doc/tmdoc.scm:148: (tm->stree (tree-import root "texmacs"))) 315TeXmacs/progs/doc/tmdoc.scm:237: (let* ((root (tree->string incl)) 316TeXmacs/progs/doc/tmdoc.scm:240: (stree->tree (tmdoc-remove-hyper-links filt)))) 317TeXmacs/progs/dynamic/calc-drd.scm:36: (or (and (tree-is? t 'calc-table) t) 318TeXmacs/progs/dynamic/calc-drd.scm:37: (and (tree-ref t :up) 319TeXmacs/progs/dynamic/calc-drd.scm:38: (not (tree-is? t :up 'table)) 320TeXmacs/progs/dynamic/calc-drd.scm:39: (calc-table-search (tree-up t))))) 321TeXmacs/progs/dynamic/calc-drd.scm:43: (and (tree-is? t 'table) 322TeXmacs/progs/dynamic/calc-drd.scm:44: (nnot (calc-table-search (tree-up t))))) 323TeXmacs/progs/dynamic/calc-drd.scm:47: (tree-in? t '(calc-inert calc-input calc-output 324TeXmacs/progs/dynamic/calc-drd.scm:51: (tree-in? t '(calc-inert cell-inert))) 325TeXmacs/progs/dynamic/calc-drd.scm:54: (tree-in? t '(calc-input calc-output cell-input cell-output))) 326TeXmacs/progs/dynamic/calc-drd.scm:57: (tree-in? t '(calc-ref cell-ref))) 327TeXmacs/progs/dynamic/calc-drd.scm:60: (and (tree-is? t 'cell-range) 328TeXmacs/progs/dynamic/calc-drd.scm:61: (tree-is? t 0 'cell-ref) 329TeXmacs/progs/dynamic/calc-drd.scm:62: (tree-is? t 1 'cell-ref))) 330TeXmacs/progs/dynamic/calc-drd.scm:65: (tree-in? t '(cell-inert cell-input cell-output cell-ref cell-range))) 331TeXmacs/progs/dynamic/calc-edit.scm:31: (cond ((tree-atomic? t) #t) 332TeXmacs/progs/dynamic/calc-edit.scm:32: ((tree-is? t 'calc-ref) 333TeXmacs/progs/dynamic/calc-edit.scm:33: (with var (texmacs->string (tree-ref t 0)) 334TeXmacs/progs/dynamic/calc-edit.scm:35: (else (list-and (map calc-updated? (tree-children t)))))) 335TeXmacs/progs/dynamic/calc-edit.scm:38: (tree-ref t 1)) 336TeXmacs/progs/dynamic/calc-edit.scm:41: (cond ((tree-atomic? t) t) 337TeXmacs/progs/dynamic/calc-edit.scm:42: ((tree-is? t 'cell-ref) 338TeXmacs/progs/dynamic/calc-edit.scm:43: (with name (texmacs->string (tree-ref t 0)) 339TeXmacs/progs/dynamic/calc-edit.scm:45: (else (tree-map-children (cut calc-prefix-input prefix <>) t)))) 340TeXmacs/progs/dynamic/calc-edit.scm:48: (cond ((tree-atomic? t) (noop)) 341TeXmacs/progs/dynamic/calc-edit.scm:50: (let* ((raw-var (texmacs->string (tree-ref t 0))) 342TeXmacs/progs/dynamic/calc-edit.scm:54: (new-val (tree->stree (tree-ref t 1)))) 343TeXmacs/progs/dynamic/calc-edit.scm:59: (let* ((raw-var (texmacs->string (tree-ref t 0))) 344TeXmacs/progs/dynamic/calc-edit.scm:63: (in (tree->stree in-tree)) 345TeXmacs/progs/dynamic/calc-edit.scm:64: (out-tree (tree-ref t 2)) 346TeXmacs/progs/dynamic/calc-edit.scm:65: (out (tree->stree out-tree)) 347TeXmacs/progs/dynamic/calc-edit.scm:73: ((tree-is? t 'calc-table) 348TeXmacs/progs/dynamic/calc-edit.scm:74: (with x (texmacs->string (tree-ref t 0)) 349TeXmacs/progs/dynamic/calc-edit.scm:76: (tree-ref t 1)))) 350TeXmacs/progs/dynamic/calc-edit.scm:77: ((tree-is? t 'with) 351TeXmacs/progs/dynamic/calc-edit.scm:82: (let* ((lan2 (tree-child-env t i "prog-scripts" lan)) 352TeXmacs/progs/dynamic/calc-edit.scm:83: (ses2 (tree-child-env t i "prog-session" ses)) 353TeXmacs/progs/dynamic/calc-edit.scm:86: (calc-update-inputs lan3 ses3 prefix (tree-ref t i)))) 354TeXmacs/progs/dynamic/calc-edit.scm:87: (for-each update (.. 0 (tree-arity t))))) 355TeXmacs/progs/dynamic/calc-edit.scm:90: (tree-children t))))) 356TeXmacs/progs/dynamic/calc-edit.scm:100: (cond ((tree-atomic? t) #t) 357TeXmacs/progs/dynamic/calc-edit.scm:101: ((tree-is? t 'calc-ref) 358TeXmacs/progs/dynamic/calc-edit.scm:102: (with var (texmacs->string (tree-ref t 0)) 359TeXmacs/progs/dynamic/calc-edit.scm:104: (else (list-and (map calc-available? (tree-children t)))))) 360TeXmacs/progs/dynamic/calc-edit.scm:107: (cond ((tree-atomic? t) t) 361TeXmacs/progs/dynamic/calc-edit.scm:108: ((tree-is? t 'calc-ref) 362TeXmacs/progs/dynamic/calc-edit.scm:109: (let* ((var (texmacs->string (tree-ref t 0))) 363TeXmacs/progs/dynamic/calc-edit.scm:114: (else (tree-map-children calc-substitute t)))) 364TeXmacs/progs/dynamic/calc-edit.scm:127: (tree-set t 2 dest)))) 365TeXmacs/progs/dynamic/calc-edit.scm:158: (tree-set! out '(script-busy)) 366TeXmacs/progs/dynamic/calc-edit.scm:162: (with ptr (tree->tree-pointer out) 367TeXmacs/progs/dynamic/calc-edit.scm:165: (with check (tree-pointer->tree ptr) 368TeXmacs/progs/dynamic/calc-edit.scm:166: (tree-pointer-detach ptr) 369TeXmacs/progs/dynamic/calc-edit.scm:168: (tree-set! out r) 370TeXmacs/progs/dynamic/calc-edit.scm:219: (:require (tree-is? t 'calc-output)) 371TeXmacs/progs/dynamic/calc-edit.scm:220: (tree-assign-node t 'calc-input) 372TeXmacs/progs/dynamic/calc-edit.scm:221: (tree-go-to t 1 :end)) 373TeXmacs/progs/dynamic/calc-edit.scm:224: (:require (tree-is? t 'calc-input)) 374TeXmacs/progs/dynamic/calc-edit.scm:225: (tree-assign-node t 'calc-output) 375TeXmacs/progs/dynamic/calc-edit.scm:226: (tree-go-to t 2 :end) 376TeXmacs/progs/dynamic/calc-edit.scm:230: (:require (and (calc-inert-context? t) (not (tree-is? t :up 'inactive)))) 377TeXmacs/progs/dynamic/calc-edit.scm:234: (:require (and (calc-toggle-context? t) (not (tree-is? t :up 'inactive)))) 378TeXmacs/progs/dynamic/calc-table.scm:35: (and (tree-is? cell 'cell) 379TeXmacs/progs/dynamic/calc-table.scm:36: (tree-is? cell :up 'row) 380TeXmacs/progs/dynamic/calc-table.scm:37: (+ (tree-index (tree-up cell)) 1))) 381TeXmacs/progs/dynamic/calc-table.scm:40: (and (tree-is? cell 'cell) 382TeXmacs/progs/dynamic/calc-table.scm:41: (+ (tree-index cell) 1))) 383TeXmacs/progs/dynamic/calc-table.scm:60: (and (tree-is? s 'cell-ref) 384TeXmacs/progs/dynamic/calc-table.scm:61: (cell-ref-decode (texmacs->string (tree-ref s 0)))))) 385TeXmacs/progs/dynamic/calc-table.scm:79: (cond ((tree-atomic? t) t) 386TeXmacs/progs/dynamic/calc-table.scm:80: ((tree-is? t 'table) 387TeXmacs/progs/dynamic/calc-table.scm:83: (calc-table-collect (tree-ref t i) (+ r i) c dic)) 388TeXmacs/progs/dynamic/calc-table.scm:84: (tm->tree `(table ,@(map fun (.. 0 (tree-arity t))))))) 389TeXmacs/progs/dynamic/calc-table.scm:85: ((tree-is? t 'row) 390TeXmacs/progs/dynamic/calc-table.scm:88: (calc-table-collect (tree-ref t i) r (+ c i) dic)) 391TeXmacs/progs/dynamic/calc-table.scm:89: (tm->tree `(row ,@(map fun (.. 0 (tree-arity t))))))) 392TeXmacs/progs/dynamic/calc-table.scm:90: ((tree-is? t 'cell) 393TeXmacs/progs/dynamic/calc-table.scm:91: (let* ((body (tree-ref t 0)) 394TeXmacs/progs/dynamic/calc-table.scm:92: (block? (tree-func? (tree-ref t 0) 'document 1)) 395TeXmacs/progs/dynamic/calc-table.scm:94: (if block? (set! body (tree-ref t 0))) 396TeXmacs/progs/dynamic/calc-table.scm:96: (if (tree-in? body '(cell-inert cell-input cell-output)) 397TeXmacs/progs/dynamic/calc-table.scm:97: (let* ((old (tree->string (tree-ref body 0))) 398TeXmacs/progs/dynamic/calc-table.scm:98: (l (tree-children body))) 399TeXmacs/progs/dynamic/calc-table.scm:100: `(,(tree-label body) ,new ,@(cdr l))) 400TeXmacs/progs/dynamic/calc-table.scm:106: (tree-map-children fun t))))) 401TeXmacs/progs/dynamic/calc-table.scm:110: (cond ((tree-atomic? t) t) 402TeXmacs/progs/dynamic/calc-table.scm:111: ((tree-is? t 'calc-table) t) 403TeXmacs/progs/dynamic/calc-table.scm:112: ((tree-is? t 'cell-ref) 404TeXmacs/progs/dynamic/calc-table.scm:113: (let* ((old (texmacs->string (tree-ref t 0))) 405TeXmacs/progs/dynamic/calc-table.scm:116: ((tree-in? t '(cell-input cell-output)) 406TeXmacs/progs/dynamic/calc-table.scm:117: (let* ((enc (cell-input-encode (tree-ref t 1))) 407TeXmacs/progs/dynamic/calc-table.scm:120: (tm->tree `(,(tree-label t) ,(tree-ref t 0) ,dec ,(tree-ref t 2))))) 408TeXmacs/progs/dynamic/calc-table.scm:123: (tree-map-children fun t))))) 409TeXmacs/progs/dynamic/calc-table.scm:128: (if (tree-is? u 'calc-table) 410TeXmacs/progs/dynamic/calc-table.scm:129: (tree-map-children (cut calc-table-renumber-sub <> dic) u) 411TeXmacs/progs/dynamic/calc-table.scm:136: (define (tree-replace-cells t r) 412TeXmacs/progs/dynamic/calc-table.scm:138: ((or (tree-atomic? t) (tree-atomic? r) 413TeXmacs/progs/dynamic/calc-table.scm:139: (!= (tree-label t) (tree-label r)) 414TeXmacs/progs/dynamic/calc-table.scm:140: (!= (tree-arity t) (tree-arity r))) 415TeXmacs/progs/dynamic/calc-table.scm:143: (tree-set t r)) 416TeXmacs/progs/dynamic/calc-table.scm:144: (else (for-each tree-replace-cells 417TeXmacs/progs/dynamic/calc-table.scm:145: (tree-children t) 418TeXmacs/progs/dynamic/calc-table.scm:146: (tree-children r))))) 419TeXmacs/progs/dynamic/calc-table.scm:150: (tree-replace-cells t r))) 420TeXmacs/progs/dynamic/calc-table.scm:170: (cond ((tree-atomic? t) (string-starts? (tree->string t) "=")) 421TeXmacs/progs/dynamic/calc-table.scm:171: ((tree-in? t '(math concat document)) 422TeXmacs/progs/dynamic/calc-table.scm:172: (starts-with-equal? (tree-ref t 0))) 423TeXmacs/progs/dynamic/calc-table.scm:173: ((tree-in? t '(with)) 424TeXmacs/progs/dynamic/calc-table.scm:174: (starts-with-equal? (tree-ref t :last))) 425TeXmacs/progs/dynamic/calc-table.scm:175: ((tree-in? t '(cell-inert cell-input cell-output)) 426TeXmacs/progs/dynamic/calc-table.scm:176: (starts-with-equal? (tree-ref t 1))) 427TeXmacs/progs/dynamic/calc-table.scm:180: (if (tree-atomic? t) 428TeXmacs/progs/dynamic/calc-table.scm:181: (if (not (string-starts? (tree->string t) "=")) t 429TeXmacs/progs/dynamic/calc-table.scm:182: (string->tree (string-drop (tree->string t) 1))) 430TeXmacs/progs/dynamic/calc-table.scm:183: (let* ((lab (tree-label t)) 431TeXmacs/progs/dynamic/calc-table.scm:184: (l (tree-children t))) 432TeXmacs/progs/dynamic/calc-table.scm:185: (cond ((tree-in? t '(math concat document)) 433TeXmacs/progs/dynamic/calc-table.scm:187: ((tree-in? t '(with)) 434TeXmacs/progs/dynamic/calc-table.scm:189: ((tree-in? t '(cell-inert cell-input cell-output)) 435TeXmacs/progs/dynamic/calc-table.scm:221: (cond ((tree-atomic? t) 436TeXmacs/progs/dynamic/calc-table.scm:222: (with l (calc-input-encode-sub (string->list (tree->string t))) 437TeXmacs/progs/dynamic/calc-table.scm:224: ((tree-is? t 'concat) 438TeXmacs/progs/dynamic/calc-table.scm:225: (with l (map cell-input-encode (tree-children t)) 439TeXmacs/progs/dynamic/calc-table.scm:227: ((tree-is? t 'cell-ref) t) 440TeXmacs/progs/dynamic/calc-table.scm:228: (else (tree-map-accessible-children cell-input-encode t)))) 441TeXmacs/progs/dynamic/calc-table.scm:231: (cond ((tree-atomic? t) t) 442TeXmacs/progs/dynamic/calc-table.scm:232: ((tree-is? t 'concat) 443TeXmacs/progs/dynamic/calc-table.scm:233: (with l (map cell-input-decode (tree-children t)) 444TeXmacs/progs/dynamic/calc-table.scm:235: ((tree-is? t 'cell-ref) (tree-ref t 0)) 445TeXmacs/progs/dynamic/calc-table.scm:236: (else (tree-map-accessible-children cell-input-decode t)))) 446TeXmacs/progs/dynamic/calc-table.scm:240: ((and (tree-is? (car l) 'cell-ref) 447TeXmacs/progs/dynamic/calc-table.scm:241: (tree-in? (cadr l) '(cell-commas cell-plusses)) 448TeXmacs/progs/dynamic/calc-table.scm:242: (tree-is? (caddr l) 'cell-ref)) 449TeXmacs/progs/dynamic/calc-table.scm:243: (with lab (if (tree-is? (cadr l) 'cell-command) 450TeXmacs/progs/dynamic/calc-table.scm:247: ((and (tree-is? (car l) 'cell-ref) 451TeXmacs/progs/dynamic/calc-table.scm:249: (tree-is? (caddr l) 'cell-ref)) 452TeXmacs/progs/dynamic/calc-table.scm:255: (cond ((tree-atomic? t) t) 453TeXmacs/progs/dynamic/calc-table.scm:256: ((tree-is? t 'concat) 454TeXmacs/progs/dynamic/calc-table.scm:257: (let* ((x (cell-input-expand-ranges (tree-children t))) 455TeXmacs/progs/dynamic/calc-table.scm:260: ((tree-in? t '(cell-range cell-sum)) 456TeXmacs/progs/dynamic/calc-table.scm:261: (let* ((c1 (tree-ref t 0)) 457TeXmacs/progs/dynamic/calc-table.scm:262: (c2 (tree-ref t 1)) 458TeXmacs/progs/dynamic/calc-table.scm:264: (sym (if (tree-is? t 'cell-range) "," "+")) 459TeXmacs/progs/dynamic/calc-table.scm:267: (else (tree-map-accessible-children cell-input-expand t)))) 460TeXmacs/progs/dynamic/calc-table.scm:270: (:require (tree-in? t '(cell-input cell-output))) 461TeXmacs/progs/dynamic/calc-table.scm:271: (cell-input-expand (cell-input-encode (remove-equal (tree-ref t 1))))) 462TeXmacs/progs/dynamic/calc-table.scm:278: (:require (tree-is? t 'cell-output)) 463TeXmacs/progs/dynamic/calc-table.scm:279: (tree-assign-node t 'cell-input) 464TeXmacs/progs/dynamic/calc-table.scm:280: (tree-go-to t 1 :end)) 465TeXmacs/progs/dynamic/calc-table.scm:283: (:require (tree-is? t 'cell-input)) 466TeXmacs/progs/dynamic/calc-table.scm:286: (tree-assign-node t 'cell-output) 467TeXmacs/progs/dynamic/calc-table.scm:287: (tree-go-to t 2 :end) 468TeXmacs/progs/dynamic/calc-table.scm:290: (tree-assign-node! t 'cell-inert) 469TeXmacs/progs/dynamic/calc-table.scm:291: (tree-remove! t 2 1) 470TeXmacs/progs/dynamic/calc-table.scm:295: (:require (tree-is? t 'cell-inert)) 471TeXmacs/progs/dynamic/calc-table.scm:298: (tree-assign-node t 'cell-output) 472TeXmacs/progs/dynamic/calc-table.scm:299: (tree-insert! t 2 '("")) 473TeXmacs/progs/dynamic/calc-table.scm:300: (tree-go-to t 2 :end) 474TeXmacs/progs/dynamic/fold-edit.scm:63: (or (toggle-tag? (tree-label t)) 475TeXmacs/progs/dynamic/fold-edit.scm:64: (switch-tag? (tree-label t)) 476TeXmacs/progs/dynamic/fold-edit.scm:65: (overlays-tag? (tree-label t)))) 477TeXmacs/progs/dynamic/fold-edit.scm:68: (and-with p (tree-outer t) 478TeXmacs/progs/dynamic/fold-edit.scm:72: (and-with p (tree-outer t) 479TeXmacs/progs/dynamic/fold-edit.scm:109: (toggle-tag? (tree-label t))) 480TeXmacs/progs/dynamic/fold-edit.scm:112: (toggle-first-tag? (tree-label t))) 481TeXmacs/progs/dynamic/fold-edit.scm:115: (toggle-second-tag? (tree-label t))) 482TeXmacs/progs/dynamic/fold-edit.scm:118: (or (folded-tag? (tree-label t)) (unfolded-tag? (tree-label t)))) 483TeXmacs/progs/dynamic/fold-edit.scm:128: (variant-set t (ahash-ref alternate-table (tree-label t))) 484TeXmacs/progs/dynamic/fold-edit.scm:129: (tree-go-to t i :start))) 485TeXmacs/progs/dynamic/fold-edit.scm:141: (tm-define (tree-show-hidden t) 486TeXmacs/progs/dynamic/fold-edit.scm:157: (and t (>= i 0) (< i (tree-arity t)) 487TeXmacs/progs/dynamic/fold-edit.scm:158: (not (hidden-context? (tree-ref t i))))) 488TeXmacs/progs/dynamic/fold-edit.scm:161: (if (== i :last) (set! i (- (tree-arity t) 1))) 489TeXmacs/progs/dynamic/fold-edit.scm:162: (when (and (>= i 0) (< i (tree-arity t))) 490TeXmacs/progs/dynamic/fold-edit.scm:163: (cond ((and on? (hidden-context? (tree-ref t i))) 491TeXmacs/progs/dynamic/fold-edit.scm:164: (tree-assign-node (tree-ref t i) 'shown)) 492TeXmacs/progs/dynamic/fold-edit.scm:165: ((and (not on?) (tree-is? t i 'shown)) 493TeXmacs/progs/dynamic/fold-edit.scm:166: (tree-assign-node (tree-ref t i) (get-hidden-tag t))) 494TeXmacs/progs/dynamic/fold-edit.scm:167: ((and on? (not (tree-is? t i 'shown))) 495TeXmacs/progs/dynamic/fold-edit.scm:168: (tree-insert-node (tree-ref t i) 0 '(shown))) 496TeXmacs/progs/dynamic/fold-edit.scm:169: ((and (not on?) (not (hidden-context? (tree-ref t i)))) 497TeXmacs/progs/dynamic/fold-edit.scm:170: (tree-insert-node (tree-ref t i) 0 (list (get-hidden-tag t))))))) 498TeXmacs/progs/dynamic/fold-edit.scm:173: (if (== last :last) (set! last (tree-arity t))) 499TeXmacs/progs/dynamic/fold-edit.scm:177: (with v (- (tree-arity t) 1) 500TeXmacs/progs/dynamic/fold-edit.scm:187: (switch-tag? (tree-label t))) 501TeXmacs/progs/dynamic/fold-edit.scm:190: (and t i (>= i 0) (< i (tree-arity t)))) 502TeXmacs/progs/dynamic/fold-edit.scm:195: (c (tree-down-index t)) 503TeXmacs/progs/dynamic/fold-edit.scm:196: (l (- (tree-arity t) 1)) 504TeXmacs/progs/dynamic/fold-edit.scm:216: (apply tree-go-to (cons* t i 0 args)))) 505TeXmacs/progs/dynamic/fold-edit.scm:219: (set! i (if (== i :end) (tree-arity t) (switch-index t i))) 506TeXmacs/progs/dynamic/fold-edit.scm:220: (when (and (>= i 0) (<= i (tree-arity t))) 507TeXmacs/progs/dynamic/fold-edit.scm:221: (let* ((empty (if (tree-in? t (big-switch-tag-list)) '(document "") "")) 508TeXmacs/progs/dynamic/fold-edit.scm:223: (tree-insert! t i `((shown ,empty))) 509TeXmacs/progs/dynamic/fold-edit.scm:224: (if (tree-in? t (alternative-tag-list)) 510TeXmacs/progs/dynamic/fold-edit.scm:227: (tree-go-to t i :start)))) 511TeXmacs/progs/dynamic/fold-edit.scm:231: (when (and (>= i 0) (< i (tree-arity t)) (> (tree-arity t) 1)) 512TeXmacs/progs/dynamic/fold-edit.scm:233: (l (- (tree-arity t) 2))) 513TeXmacs/progs/dynamic/fold-edit.scm:235: (tree-remove! t i 1) 514TeXmacs/progs/dynamic/fold-edit.scm:236: (if (tree-in? t (alternative-tag-list)) 515TeXmacs/progs/dynamic/fold-edit.scm:239: (tree-go-to t (min i l) :start)))) 516TeXmacs/progs/dynamic/fold-edit.scm:246: (alternative-tag? (tree-label t))) 517TeXmacs/progs/dynamic/fold-edit.scm:257: (unroll-tag? (tree-label t))) 518TeXmacs/progs/dynamic/fold-edit.scm:265: (expanded-tag? (tree-label t))) 519TeXmacs/progs/dynamic/fold-edit.scm:304: (cond ((< i 0) (tree-go-to t :start)) 520TeXmacs/progs/dynamic/fold-edit.scm:305: ((>= i (tree-arity t)) (tree-go-to t :end)) 521TeXmacs/progs/dynamic/fold-edit.scm:318: (for (i (.. 0 (tree-arity t))) 522TeXmacs/progs/dynamic/fold-edit.scm:319: (when (and (hidden-context? (tree-ref t i)) (not (tree-is? t i l))) 523TeXmacs/progs/dynamic/fold-edit.scm:320: (tree-assign-node (tree-ref t i) l))))) 524TeXmacs/progs/dynamic/fold-edit.scm:329: (tm-define (tree-show-hidden t) 525TeXmacs/progs/dynamic/fold-edit.scm:331: (with i (tree-down-index t) 526TeXmacs/progs/dynamic/fold-edit.scm:332: (if (hidden-context? (tree-ref t i)) 527TeXmacs/progs/dynamic/fold-edit.scm:340: (and (overlays-tag? (tree-label t)) 528TeXmacs/progs/dynamic/fold-edit.scm:341: (== (tree-arity t) 3))) 529TeXmacs/progs/dynamic/fold-edit.scm:344: (overlay-tag? (tree-label t))) 530TeXmacs/progs/dynamic/fold-edit.scm:353: (if (unary-overlay-tag? (tree-label t)) 531TeXmacs/progs/dynamic/fold-edit.scm:354: (insert-go-to `(,l ,(tree-copy (tree-ref t 0)) "") '(1 0)) 532TeXmacs/progs/dynamic/fold-edit.scm:355: (insert-go-to `(,l ,(tree-copy (tree-ref t 0)) "" "") '(1 0))))) 533TeXmacs/progs/dynamic/fold-edit.scm:362: (tree-atomic? (tree-ref t 0)) 534TeXmacs/progs/dynamic/fold-edit.scm:363: (tree->number (tree-ref t 0)))) 535TeXmacs/progs/dynamic/fold-edit.scm:367: (tree-atomic? (tree-ref t 1)) 536TeXmacs/progs/dynamic/fold-edit.scm:368: (tree->number (tree-ref t 1)))) 537TeXmacs/progs/dynamic/fold-edit.scm:372: (let* ((tot (tree->number (tree-ref t 1))) 538TeXmacs/progs/dynamic/fold-edit.scm:374: (tree-set t 0 (number->string nxt))))) 539TeXmacs/progs/dynamic/fold-edit.scm:377: (and-with p (tree-search-upwards t overlays-context?) 540TeXmacs/progs/dynamic/fold-edit.scm:381: (and-with p (tree-search-upwards t overlays-context?) 541TeXmacs/progs/dynamic/fold-edit.scm:386: (with ref (tree->number (tree-ref t 0)) 542TeXmacs/progs/dynamic/fold-edit.scm:388: ((tree-is? t 'overlay-from) (>= i ref)) 543TeXmacs/progs/dynamic/fold-edit.scm:389: ((tree-is? t 'overlay-until) (<= i ref)) 544TeXmacs/progs/dynamic/fold-edit.scm:390: ((tree-is? t 'overlay-this) (== i ref)) 545TeXmacs/progs/dynamic/fold-edit.scm:391: ((tree-is? t 'overlay-other) (!= i ref)) 546TeXmacs/progs/dynamic/fold-edit.scm:392: ((tree-is? t 'alternate-from) (>= i ref)) 547TeXmacs/progs/dynamic/fold-edit.scm:393: ((tree-is? t 'alternate-until) (<= i ref)) 548TeXmacs/progs/dynamic/fold-edit.scm:394: ((tree-is? t 'alternate-this) (== i ref)) 549TeXmacs/progs/dynamic/fold-edit.scm:395: ((tree-is? t 'alternate-other) (!= i ref)) 550TeXmacs/progs/dynamic/fold-edit.scm:400: (let* ((tot (tree->number (tree-ref t 1))) 551TeXmacs/progs/dynamic/fold-edit.scm:402: (tree-set t 0 (number->string nxt)) 552TeXmacs/progs/dynamic/fold-edit.scm:403: (when (not (tree-innermost overlay-context?)) 553TeXmacs/progs/dynamic/fold-edit.scm:404: (tree-go-to t 2 :start)))) 554TeXmacs/progs/dynamic/fold-edit.scm:408: (let* ((cur (tree->number (tree-ref t 0))) 555TeXmacs/progs/dynamic/fold-edit.scm:409: (tot (tree->number (tree-ref t 1))) 556TeXmacs/progs/dynamic/fold-edit.scm:412: (tree-set t 0 (number->string nxt)) 557TeXmacs/progs/dynamic/fold-edit.scm:413: (when (not (tree-innermost overlay-context?)) 558TeXmacs/progs/dynamic/fold-edit.scm:414: (tree-go-to t 2 :start)))) 559TeXmacs/progs/dynamic/fold-edit.scm:421: (let* ((old (tree->number t)) 560TeXmacs/progs/dynamic/fold-edit.scm:425: (tree-set t (number->string new))) 561TeXmacs/progs/dynamic/fold-edit.scm:426: ((tree-in? p '(overlay-from alternate-from)) 562TeXmacs/progs/dynamic/fold-edit.scm:427: (tree-set t (number->string cur))) 563TeXmacs/progs/dynamic/fold-edit.scm:428: ((tree-in? p '(overlay-until alternate-until)) 564TeXmacs/progs/dynamic/fold-edit.scm:429: (tree-set t (number->string new))) 565TeXmacs/progs/dynamic/fold-edit.scm:430: ((tree-in? p '(overlay-this alternate-this)) 566TeXmacs/progs/dynamic/fold-edit.scm:431: (tree-set t "0")) 567TeXmacs/progs/dynamic/fold-edit.scm:432: ((tree-in? p '(overlay-other alternate-other)) 568TeXmacs/progs/dynamic/fold-edit.scm:433: (tree-set t "0")) 569TeXmacs/progs/dynamic/fold-edit.scm:435: (tree-set t (number->string (min (max cur 1) ari))))))) 570TeXmacs/progs/dynamic/fold-edit.scm:438: (cond ((tree-atomic? t) (noop)) 571TeXmacs/progs/dynamic/fold-edit.scm:441: (for (c (cdr (tree-children t))) 572TeXmacs/progs/dynamic/fold-edit.scm:443: (overlay-renumber-sub (tree-ref t 0) t cur tot delta)) 573TeXmacs/progs/dynamic/fold-edit.scm:446: (tree-children t))))) 574TeXmacs/progs/dynamic/fold-edit.scm:454: (let* ((cur (tree->number (tree-ref t 0))) 575TeXmacs/progs/dynamic/fold-edit.scm:455: (tot (tree->number (tree-ref t 1))) 576TeXmacs/progs/dynamic/fold-edit.scm:457: (overlay-renumber (tree-ref t 2) ins tot 1) 577TeXmacs/progs/dynamic/fold-edit.scm:458: (if forwards? (tree-set t 0 (number->string ins))) 578TeXmacs/progs/dynamic/fold-edit.scm:459: (tree-set t 1 (number->string (+ tot 1))))) 579TeXmacs/progs/dynamic/fold-edit.scm:463: (let* ((cur (tree->number (tree-ref t 0))) 580TeXmacs/progs/dynamic/fold-edit.scm:464: (tot (tree->number (tree-ref t 1))) 581TeXmacs/progs/dynamic/fold-edit.scm:467: (overlay-renumber (tree-ref t 2) del tot -1) 582TeXmacs/progs/dynamic/fold-edit.scm:468: (if (not forwards?) (tree-set t 0 (number->string del))) 583TeXmacs/progs/dynamic/fold-edit.scm:469: (tree-set t 1 (number->string (- tot 1)))))) 584TeXmacs/progs/dynamic/fold-edit.scm:481: (not (tree-is? t 'summarized-algorithm))) 585TeXmacs/progs/dynamic/fold-edit.scm:482: (fold-add-environment (tree-ref t 1) #t)) 586TeXmacs/progs/dynamic/fold-edit.scm:484: (not (tree-is? t 'detailed-algorithm))) 587TeXmacs/progs/dynamic/fold-edit.scm:485: (fold-add-environment (tree-ref t 1) #f)) 588TeXmacs/progs/dynamic/fold-edit.scm:487: (fold-add-environment (tree-ref t 0) first?)) 589TeXmacs/progs/dynamic/fold-edit.scm:490: (if (tree-compound? t) (set! tag (tree-label t))) 590TeXmacs/progs/dynamic/fold-edit.scm:503: (if (tree-compound? t) 591TeXmacs/progs/dynamic/fold-edit.scm:504: (for-each fold-get-environments-sub (tree-children t))) 592TeXmacs/progs/dynamic/fold-edit.scm:520: (cond ((tree-in? t '(summarized-algorithm detailed-algorithm)) 593TeXmacs/progs/dynamic/fold-edit.scm:523: (fold-matching-env? (tree-ref t 1) tag)) 594TeXmacs/progs/dynamic/fold-edit.scm:525: (fold-matching-env? (tree-ref t 1) tag)) 595TeXmacs/progs/dynamic/fold-edit.scm:527: (fold-matching-env? (tree-ref t 0) tag)) 596TeXmacs/progs/dynamic/fold-edit.scm:528: ((or (tree-atomic? t) (tree-in? t '(document concat))) 597TeXmacs/progs/dynamic/fold-edit.scm:531: (tree-in? t '(proof render-proof))) 598TeXmacs/progs/dynamic/fold-edit.scm:532: (else (tree-is? t tag)))) 599TeXmacs/progs/dynamic/fold-edit.scm:539: (if (tree-compound? t) 600TeXmacs/progs/dynamic/fold-edit.scm:540: (for-each (lambda (x) (dynamic-operate x mode)) (tree-children t))) 601TeXmacs/progs/dynamic/fold-edit.scm:543: (tree-insert-node! t 0 '(traversed))) 602TeXmacs/progs/dynamic/fold-edit.scm:552: (tree-insert-node! t 0 '(traversed))) 603TeXmacs/progs/dynamic/fold-edit.scm:571: (tree-assign-node! t 'expanded) 604TeXmacs/progs/dynamic/fold-edit.scm:577: (tree-insert-node t 0 '(traversed))) 605TeXmacs/progs/dynamic/fold-edit.scm:590: (tree-assign-node! t 'switch) 606TeXmacs/progs/dynamic/fold-edit.scm:600: (when (tree-compound? t) 607TeXmacs/progs/dynamic/fold-edit.scm:601: (cond ((tree-is? t 'traversed) 608TeXmacs/progs/dynamic/fold-edit.scm:603: (dynamic-operate (tree-ref t 0) mode) 609TeXmacs/progs/dynamic/fold-edit.scm:605: (tree-remove-node! t 0)))) 610TeXmacs/progs/dynamic/fold-edit.scm:606: ((tree-is? t 'fold-back) 611TeXmacs/progs/dynamic/fold-edit.scm:608: (dynamic-operate (tree-ref t 0) mode)) 612TeXmacs/progs/dynamic/fold-edit.scm:609: ((tree-is? t 'keep-folded) 613TeXmacs/progs/dynamic/fold-edit.scm:611: (dynamic-operate (tree-ref t 0) mode)) 614TeXmacs/progs/dynamic/fold-edit.scm:616: (if (in? mode '(:first :var-first)) (tree-go-to (buffer-tree) :start)) 615TeXmacs/progs/dynamic/fold-edit.scm:617: (if (in? mode '(:last :var-last)) (tree-go-to (buffer-tree) :end))) 616TeXmacs/progs/dynamic/fold-edit.scm:631: (tree-set! t 0 "1") 617TeXmacs/progs/dynamic/fold-edit.scm:632: (tree-assign-node! t 'overlays-range) 618TeXmacs/progs/dynamic/fold-edit.scm:634: ((and (tree-is? t 'overlays-range) 619TeXmacs/progs/dynamic/fold-edit.scm:635: (< (tree->number (tree-ref t 0)) 620TeXmacs/progs/dynamic/fold-edit.scm:636: (tree->number (tree-ref t 1)))) t) 621TeXmacs/progs/dynamic/fold-edit.scm:643: (tree-remove t 1 (- (tree-arity t) 1))) 622TeXmacs/progs/dynamic/fold-edit.scm:644: ((tree-is? t 'overlays-range) 623TeXmacs/progs/dynamic/fold-edit.scm:645: (tree-set t 1 (tree-copy (tree-ref t 0))))) 624TeXmacs/progs/dynamic/fold-edit.scm:651: (tree-remove t 0 1)) 625TeXmacs/progs/dynamic/fold-edit.scm:652: ((tree-is? t 'overlays-range) 626TeXmacs/progs/dynamic/fold-edit.scm:653: (with nr (tree->number (tree-ref t 0)) 627TeXmacs/progs/dynamic/fold-edit.scm:654: (tree-set t 0 (number->string (+ nr 1)))))))) 628TeXmacs/progs/dynamic/fold-edit.scm:658: (tree-assign-node! t 'slide)) 629TeXmacs/progs/dynamic/fold-edit.scm:660: (let* ((p (tree-up t)) 630TeXmacs/progs/dynamic/fold-edit.scm:661: (i (tree-index t))) 631TeXmacs/progs/dynamic/fold-edit.scm:662: (tree-insert p (+ i 1) (list (tree-copy t))) 632TeXmacs/progs/dynamic/fold-edit.scm:663: (let* ((v (tree-ref p i)) 633TeXmacs/progs/dynamic/fold-edit.scm:664: (w (tree-ref p (+ i 1)))) 634TeXmacs/progs/dynamic/fold-edit.scm:669: (dynamic-operate (tree-ref t 0) :var-expand))) 635TeXmacs/progs/dynamic/fold-edit.scm:679: (c (tree-children t))) 636TeXmacs/progs/dynamic/fold-edit.scm:681: (tree-assign-node (cAr c) 'document) 637TeXmacs/progs/dynamic/fold-edit.scm:682: (tree-set! t `(document ,@(cDr c) ,@(tree-children (cAr c)))) 638TeXmacs/progs/dynamic/fold-edit.scm:683: (for-each dynamic-make-slide (tree-children t))))) 639TeXmacs/progs/dynamic/fold-edit.scm:690: (and (tree-is? t :up 'document) 640TeXmacs/progs/dynamic/fold-edit.scm:719: (with p (tree-up t) 641TeXmacs/progs/dynamic/fold-edit.scm:720: (if (== (tree-arity p) 1) 642TeXmacs/progs/dynamic/fold-edit.scm:721: (tree-assign! t "") 643TeXmacs/progs/dynamic/fold-edit.scm:722: (tree-remove! p (tree-index t) 1))) 644TeXmacs/progs/dynamic/fold-edit.scm:723: (if (and (tree-compound? t) 645TeXmacs/progs/dynamic/fold-edit.scm:724: (or (not (tree-is? t :up 'document)) 646TeXmacs/progs/dynamic/fold-edit.scm:726: (for-each (lambda (x) (dynamic-filter x mode)) (tree-children t))))) 647TeXmacs/progs/dynamic/fold-edit.scm:738: (dynamic-operate (tree-ref t 1) :first) 648TeXmacs/progs/dynamic/fold-edit.scm:739: (tree-go-to t 1 :end) 649TeXmacs/progs/dynamic/fold-edit.scm:746: (tree-insert-node! t 0 '(traversed)) 650TeXmacs/progs/dynamic/fold-edit.scm:751: (dynamic-operate (tree-ref t 0) last-mode) 651TeXmacs/progs/dynamic/fold-edit.scm:752: (tree-go-to t 0 :end) 652TeXmacs/progs/dynamic/fold-edit.scm:759: (tree-insert-node! t 0 '(traversed)) 653TeXmacs/progs/dynamic/fold-edit.scm:762: (dynamic-operate (tree-ref t (1+ i)) :first) 654TeXmacs/progs/dynamic/fold-edit.scm:763: (tree-go-to t i :end) 655TeXmacs/progs/dynamic/fold-edit.scm:768: (dynamic-operate (tree-ref t (- i 1)) last-mode) 656TeXmacs/progs/dynamic/fold-edit.scm:769: (tree-go-to t i :start) 657TeXmacs/progs/dynamic/fold-edit.scm:775: (let* ((cur (tree->number (tree-ref t 0))) 658TeXmacs/progs/dynamic/fold-edit.scm:776: (tot (tree->number (tree-ref t 1))) 659TeXmacs/progs/dynamic/fold-edit.scm:781: (tree-set t 0 (number->string nxt)) 660TeXmacs/progs/dynamic/fold-edit.scm:782: (when (not (tree-innermost overlay-context?)) 661TeXmacs/progs/dynamic/fold-edit.scm:783: (tree-go-to t 2 :start)) 662TeXmacs/progs/dynamic/fold-edit.scm:789: (tree-remove-node! t 0) 663TeXmacs/progs/dynamic/fold-edit.scm:791: (if (and (== mode :var-previous) (tree-compound? t)) 664TeXmacs/progs/dynamic/fold-edit.scm:793: (tree-accessible-children t))) 665TeXmacs/progs/dynamic/fold-edit.scm:802: (cond ((tree-atomic? t) #f) 666TeXmacs/progs/dynamic/fold-edit.scm:803: ((tree-is? t 'traversed) 667TeXmacs/progs/dynamic/fold-edit.scm:805: ((tree-is? t 'fold-back) 668TeXmacs/progs/dynamic/fold-edit.scm:808: (dynamic-traverse (tree-ref t 0) mode)) 669TeXmacs/progs/dynamic/fold-edit.scm:809: ((tree-is? t 'keep-folded) 670TeXmacs/progs/dynamic/fold-edit.scm:812: (dynamic-traverse (tree-ref t 0) mode)) 671TeXmacs/progs/dynamic/fold-edit.scm:814: (or (dynamic-traverse (tree-ref t 0) mode) 672TeXmacs/progs/dynamic/fold-edit.scm:817: (or (dynamic-traverse (tree-ref t 1) mode) 673TeXmacs/progs/dynamic/fold-edit.scm:821: (l (- (tree-arity t) 1))) 674TeXmacs/progs/dynamic/fold-edit.scm:822: (or (dynamic-traverse (tree-ref t i) mode) 675TeXmacs/progs/dynamic/fold-edit.scm:827: (let* ((c (tree-accessible-children t)) 676TeXmacs/progs/dynamic/fold-edit.scm:841: (and-with t (tree-innermost 'screens) 677TeXmacs/progs/dynamic/fold-edit.scm:849: (:require (tree-is? t 'tit)) 678TeXmacs/progs/dynamic/fold-edit.scm:850: (tree-go-to t :end) 679TeXmacs/progs/dynamic/fold-edit.scm:859: (tree-ref t :up :up) 680TeXmacs/progs/dynamic/fold-edit.scm:860: (tree-is? (tree-ref t :up) 'document) 681TeXmacs/progs/dynamic/fold-edit.scm:861: (list-context? (tree-ref t :up :up)))) 682TeXmacs/progs/dynamic/fold-markup.scm:20: (tree-is? (tree-up t) 'screens)) 683TeXmacs/progs/dynamic/fold-markup.scm:24: (with t (tree-search-upwards body screens-parent?) 684TeXmacs/progs/dynamic/fold-markup.scm:25: (if t (number->string (tree-index t)) "-1"))) 685TeXmacs/progs/dynamic/fold-markup.scm:29: (with t (tree-search-upwards body screens-parent?) 686TeXmacs/progs/dynamic/fold-markup.scm:30: (if t (number->string (tree-arity (tree-up t))) "-1"))) 687TeXmacs/progs/dynamic/fold-markup.scm:41: (with t (tree-search-upwards body screens-parent?) 688TeXmacs/progs/dynamic/fold-markup.scm:43: (let ((n (tree-arity (tree-up t))) 689TeXmacs/progs/dynamic/fold-markup.scm:44: (c (tree-index t))) 690TeXmacs/progs/dynamic/fold-menu.scm:23: (when (with t (tree-innermost dynamic-context?) 691TeXmacs/progs/dynamic/fold-menu.scm:26: (when (with t (tree-innermost dynamic-context?) 692TeXmacs/progs/dynamic/fold-menu.scm:31: (when (with t (tree-innermost dynamic-context?) 693TeXmacs/progs/dynamic/fold-menu.scm:107: (if (not (tree-innermost overlays-context?)) 694TeXmacs/progs/dynamic/fold-menu.scm:113: (if (tree-innermost overlays-context?) 695TeXmacs/progs/dynamic/fold-menu.scm:245: (and (tree-is? t 'document) 696TeXmacs/progs/dynamic/fold-menu.scm:246: (tree-is? t :last 'screens)))) 697TeXmacs/progs/dynamic/fold-menu.scm:250: (l (tree-children t)) 698TeXmacs/progs/dynamic/fold-menu.scm:252: (if (and (tree-is? t 'document) 699TeXmacs/progs/dynamic/fold-menu.scm:253: (tree-in? t 0 '(hide-preamble show-preamble))) 700TeXmacs/progs/dynamic/fold-menu.scm:255: (tree-assign! t `(document ,(tree-ref t 0) 701TeXmacs/progs/dynamic/fold-menu.scm:258: (apply tree-go-to `(,t 1 0 0 ,(- (car p) 1) ,@(cdr p))))) 702TeXmacs/progs/dynamic/fold-menu.scm:260: (tree-assign! t `(document (screens (shown (document ,@l))))) 703TeXmacs/progs/dynamic/fold-menu.scm:261: (apply tree-go-to `(,t 0 0 0 ,@p)))))) 704TeXmacs/progs/dynamic/fold-menu.scm:290: (and-with u (tree-ref t :down :down) 705TeXmacs/progs/dynamic/fold-menu.scm:291: (and (tree-is? u 'document) 706TeXmacs/progs/dynamic/fold-menu.scm:292: (not (tree-is? u 0 'tit))))) 707TeXmacs/progs/dynamic/fold-menu.scm:295: (with u (tree-ref t :down :down) 708TeXmacs/progs/dynamic/fold-menu.scm:296: (tree-insert u 0 '((tit ""))) 709TeXmacs/progs/dynamic/fold-menu.scm:297: (tree-go-to u 0 0 0))) 710TeXmacs/progs/dynamic/fold-menu.scm:300: (cond ((tree-in? t '(shown hidden document)) 711TeXmacs/progs/dynamic/fold-menu.scm:301: (search-slide-name (tree-ref t 0))) 712TeXmacs/progs/dynamic/fold-menu.scm:302: ((tree-is? t 'tit) 713TeXmacs/progs/dynamic/fold-menu.scm:312: (for (i (.. 0 (tree-arity t))) 714TeXmacs/progs/dynamic/fold-menu.scm:313: ((eval (get-slide-name (tree-ref t i) i)) 715TeXmacs/progs/dynamic/fold-menu.scm:321: (:require (tree-is? t 'screens)) 716TeXmacs/progs/dynamic/fold-menu.scm:325: (:require (tree-is? t 'screens)) 717TeXmacs/progs/dynamic/fold-menu.scm:338: (:require (tree-is? t 'screens)) 718TeXmacs/progs/dynamic/fold-menu.scm:345: (with i (tree-index (tree-down t)) 719TeXmacs/progs/dynamic/fold-menu.scm:347: (=> (eval (get-slide-name (tree-ref t i) i)) 720TeXmacs/progs/dynamic/fold-menu.scm:405: (tree-set t 0 (number->string i)))) 721TeXmacs/progs/dynamic/program-doc.scm:24: ($with lab (tree-label t) 722TeXmacs/progs/dynamic/program-edit.scm:95: (logic-ref session-program% (tree-label u))) 723TeXmacs/progs/dynamic/program-edit.scm:98: (with r (query `(session-program% 'x ,(tree-label u))) 724TeXmacs/progs/dynamic/program-edit.scm:103: (tree-replace 725TeXmacs/progs/dynamic/program-edit.scm:106: (if (and (tree-compound? u) (not (tree-is? u 'session))) 726TeXmacs/progs/dynamic/program-edit.scm:107: (tree-insert! u (tree-arity u) '(""))) 727TeXmacs/progs/dynamic/program-edit.scm:108: (if (tree-compound? t) 728TeXmacs/progs/dynamic/program-edit.scm:109: (for-each (lambda (t) (session->program t)) (tree-children u))) 729TeXmacs/progs/dynamic/program-edit.scm:110: (tree-assign-node! u (session-node->program-node u))))) 730TeXmacs/progs/dynamic/program-edit.scm:114: (tree-replace 731TeXmacs/progs/dynamic/program-edit.scm:117: (if (and (tree-compound? u) (not (tree-is? u 'program))) 732TeXmacs/progs/dynamic/program-edit.scm:118: (tree-remove! u (- (tree-arity u) 1) 1)) 733TeXmacs/progs/dynamic/program-edit.scm:119: (if (tree-compound? t) 734TeXmacs/progs/dynamic/program-edit.scm:120: (for-each (lambda (t) (program->session t)) (tree-children u))) 735TeXmacs/progs/dynamic/program-edit.scm:121: (tree-assign-node! u (program-node->session-node u))))) 736TeXmacs/progs/dynamic/program-edit.scm:129: (with t (tree-innermost '(program session)) 737TeXmacs/progs/dynamic/program-edit.scm:180: (stree->tree `(errput ,err-msg)))))) 738TeXmacs/progs/dynamic/program-edit.scm:183: (and (tree? t) (tree-is? t 'errput))) 739TeXmacs/progs/dynamic/program-edit.scm:189: (tree-copy r)) 740TeXmacs/progs/dynamic/program-edit.scm:191: (tree 'text (tree-copy r))) 741TeXmacs/progs/dynamic/program-edit.scm:204: (tree->tree-pointer out) 742TeXmacs/progs/dynamic/program-edit.scm:205: (tree->tree-pointer next) 743TeXmacs/progs/dynamic/program-edit.scm:210: (tree-pointer->tree (third l)) 744TeXmacs/progs/dynamic/program-edit.scm:211: (tree-pointer->tree (fourth l)) 745TeXmacs/progs/dynamic/program-edit.scm:215: (tree-pointer-detach (third l)) 746TeXmacs/progs/dynamic/program-edit.scm:216: (tree-pointer-detach (fourth l))) 747TeXmacs/progs/dynamic/program-edit.scm:219: (and (prog-field-or-output-context? (tree-ref out :up)) 748TeXmacs/progs/dynamic/program-edit.scm:226: (if (or (and (tree-empty? in) (!= lan "r")) 749TeXmacs/progs/dynamic/program-edit.scm:231: (tree-set out :up 0 (plugin-prompt lan ses))))))) 750TeXmacs/progs/dynamic/program-edit.scm:239: (tm-func? (tree-ref out :last) 'script-busy)) 751TeXmacs/progs/dynamic/program-edit.scm:245: (tree-set (tree-ref out :last) `(timing ,ts)) 752TeXmacs/progs/dynamic/program-edit.scm:246: (tree-remove! out (- (tree-arity out) 1) 1)))) 753TeXmacs/progs/dynamic/program-edit.scm:248: (tree-empty? out)) 754TeXmacs/progs/dynamic/program-edit.scm:249: (prog-field-remove-output (tree-ref out :up))) 755TeXmacs/progs/dynamic/program-edit.scm:252: (define (var-tree-children t) 756TeXmacs/progs/dynamic/program-edit.scm:253: (with r (tree-children t) 757TeXmacs/progs/dynamic/program-edit.scm:254: (if (and (nnull? r) (tree-empty? (cAr r))) (cDr r) r))) 758TeXmacs/progs/dynamic/program-edit.scm:258: (with i (tree-arity t) 759TeXmacs/progs/dynamic/program-edit.scm:259: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'script-busy)) 760TeXmacs/progs/dynamic/program-edit.scm:261: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'errput)) 761TeXmacs/progs/dynamic/program-edit.scm:264: (tree-insert! t i (var-tree-children u)))))) 762TeXmacs/progs/dynamic/program-edit.scm:268: (with i (tree-arity t) 763TeXmacs/progs/dynamic/program-edit.scm:269: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'script-busy)) 764TeXmacs/progs/dynamic/program-edit.scm:271: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'errput)) 765TeXmacs/progs/dynamic/program-edit.scm:273: (tree-insert! t i '((errput (document))))) 766TeXmacs/progs/dynamic/program-edit.scm:274: (program-output (tree-ref t i 0) u)))) 767TeXmacs/progs/dynamic/program-edit.scm:286: (if (and (== (length l) 1) (tree-empty? (tree-ref next 1))) 768TeXmacs/progs/dynamic/program-edit.scm:287: (tree-set! next 0 (tree-copy t)))) 769TeXmacs/progs/dynamic/program-edit.scm:289: (tree-set! next 1 t))))))) 770TeXmacs/progs/dynamic/program-edit.scm:297: (tm-func? (tree-ref out :last) 'script-busy)) 771TeXmacs/progs/dynamic/program-edit.scm:298: (tree-assign (tree-ref out :last) 772TeXmacs/progs/dynamic/program-edit.scm:304: (tree-assign! out '(document (script-busy))) 773TeXmacs/progs/dynamic/program-edit.scm:314: (tm-func? (tree-ref t :up) 'program))) 774TeXmacs/progs/dynamic/program-edit.scm:318: (tm-func? (tree-ref t :up) 'program)) 775TeXmacs/progs/dynamic/program-edit.scm:320: (tm-func? (tree-ref t :up) 'unfolded-subprogram) 776TeXmacs/progs/dynamic/program-edit.scm:321: (== (tree-index t) 1)))) 777TeXmacs/progs/dynamic/program-edit.scm:329: (tree-in? t prog-field-tags) 778TeXmacs/progs/dynamic/program-edit.scm:330: (tm-func? (tree-ref t :up) 'document) 779TeXmacs/progs/dynamic/program-edit.scm:331: (tree-in? (tree-ref t :up :up) '(program)))) 780TeXmacs/progs/dynamic/program-edit.scm:335: (tree-in? t (cons 'output prog-field-tags)) 781TeXmacs/progs/dynamic/program-edit.scm:336: (tm-func? (tree-ref t :up) 'document) 782TeXmacs/progs/dynamic/program-edit.scm:337: (tree-in? (tree-ref t :up :up) '(program)))) 783TeXmacs/progs/dynamic/program-edit.scm:340: (and (tree-in? t '(folded-prog-io folded-prog-io-math)) 784TeXmacs/progs/dynamic/program-edit.scm:341: (tm-func? (tree-ref t :up) 'document))) 785TeXmacs/progs/dynamic/program-edit.scm:344: (and (tree-in? t '(unfolded-prog-io unfolded-prog-io-math)) 786TeXmacs/progs/dynamic/program-edit.scm:345: (tm-func? (tree-ref t :up) 'document))) 787TeXmacs/progs/dynamic/program-edit.scm:348: (and (tree-in? t '(input folded-prog-io unfolded-prog-io)) 788TeXmacs/progs/dynamic/program-edit.scm:349: (tm-func? (tree-ref t :up) 'document))) 789TeXmacs/progs/dynamic/program-edit.scm:352: (and (tree-in? t '(input-math folded-prog-io-math unfolded-prog-io-math)) 790TeXmacs/progs/dynamic/program-edit.scm:353: (tm-func? (tree-ref t :up) 'document))) 791TeXmacs/progs/dynamic/program-edit.scm:357: (== (tree-down-index t) 1))) 792TeXmacs/progs/dynamic/program-edit.scm:416: (tm-func? (tree-ref out :last) 'script-busy)) 793TeXmacs/progs/dynamic/program-edit.scm:417: (tree-assign (tree-ref out :last) `(script-busy ,msg))))) 794TeXmacs/progs/dynamic/program-edit.scm:432: (and-with u (tree-ref t (if forward? :next :previous)) 795TeXmacs/progs/dynamic/program-edit.scm:434: ((tree-in? u '(folded-subprogram unfolded-subprogram)) #f) 796TeXmacs/progs/dynamic/program-edit.scm:438: (and-with u (tree-ref t (if forward? :next :previous)) 797TeXmacs/progs/dynamic/program-edit.scm:442: (with u (tree-ref t :up (if last? :last :first)) 798TeXmacs/progs/dynamic/program-edit.scm:448: (tree-insert! t 2 (list '(document) "")) 799TeXmacs/progs/dynamic/program-edit.scm:449: (tree-assign-node! t 'unfolded-prog-io)) 800TeXmacs/progs/dynamic/program-edit.scm:451: (tree-insert! t 2 (list '(document) "")) 801TeXmacs/progs/dynamic/program-edit.scm:452: (tree-assign-node! t 'unfolded-prog-io-math)))) 802TeXmacs/progs/dynamic/program-edit.scm:456: (tree-assign-node! t 'input) 803TeXmacs/progs/dynamic/program-edit.scm:457: (tree-remove! t 2 2)) 804TeXmacs/progs/dynamic/program-edit.scm:459: (tree-assign-node! t 'input-math) 805TeXmacs/progs/dynamic/program-edit.scm:460: (tree-remove! t 2 2)) 806TeXmacs/progs/dynamic/program-edit.scm:462: (with p (tree-ref t :up) 807TeXmacs/progs/dynamic/program-edit.scm:463: (when (tree-is? p 'document) 808TeXmacs/progs/dynamic/program-edit.scm:464: (tree-remove! p (tree-index t) 1)))))) 809TeXmacs/progs/dynamic/program-edit.scm:470: (tree-assign-node! t 'input-math) 810TeXmacs/progs/dynamic/program-edit.scm:472: (tree-assign-node! t 'folded-prog-io-math) 811TeXmacs/progs/dynamic/program-edit.scm:473: (tree-assign (tree-ref t 1) '(document ""))))) 812TeXmacs/progs/dynamic/program-edit.scm:476: (tree-assign-node! t 'input) 813TeXmacs/progs/dynamic/program-edit.scm:478: (tree-assign-node! t 'folded-prog-io) 814TeXmacs/progs/dynamic/program-edit.scm:479: (tree-assign (tree-ref t 1) '(document ""))))))) 815TeXmacs/progs/dynamic/program-edit.scm:482: (let* ((d (tree-ref t :up)) 816TeXmacs/progs/dynamic/program-edit.scm:483: (i (+ (tree-index t) (if forward? 1 0))) 817TeXmacs/progs/dynamic/program-edit.scm:486: (tree-insert d i (list b)) 818TeXmacs/progs/dynamic/program-edit.scm:487: (tree-ref d i))) 819TeXmacs/progs/dynamic/program-edit.scm:490: (for (u (tree-children t)) 820TeXmacs/progs/dynamic/program-edit.scm:494: (tm-func? (tree-ref u 1) 'document)) 821TeXmacs/progs/dynamic/program-edit.scm:495: (program-forall-sub fun (tree-ref u 1))))) 822TeXmacs/progs/dynamic/program-edit.scm:514: (with u (tree-ref t :previous 0) 823TeXmacs/progs/dynamic/program-edit.scm:530: (tree-assign-node! t 'unfolded-prog-io)) 824TeXmacs/progs/dynamic/program-edit.scm:532: (tree-assign-node! t 'unfolded-prog-io-math))) 825TeXmacs/progs/dynamic/program-edit.scm:536: (in (tree->stree (tree-ref t 1))) 826TeXmacs/progs/dynamic/program-edit.scm:537: (out (tree-ref t 2)) 827TeXmacs/progs/dynamic/program-edit.scm:541: (tree-go-to u 1 :end))))) 828TeXmacs/progs/dynamic/program-edit.scm:558: (st (tree->stree (tree-ref t 1))) 829TeXmacs/progs/dynamic/program-edit.scm:574: (when (not (tree-empty? (tree-ref t 1))) 830TeXmacs/progs/dynamic/program-edit.scm:581: (when (not (tree-empty? (tree-ref t 1))) 831TeXmacs/progs/dynamic/program-edit.scm:582: (when (path-inf? (tree->path t) (tree->path me)) 832TeXmacs/progs/dynamic/program-edit.scm:589: (when (not (tree-empty? (tree-ref t 1))) 833TeXmacs/progs/dynamic/program-edit.scm:590: (when (path-inf-eq? (tree->path me) (tree->path t)) 834TeXmacs/progs/dynamic/program-edit.scm:609: (with u (tree-ref t :previous) 835TeXmacs/progs/dynamic/program-edit.scm:611: (tree-go-to u 1 :end) 836TeXmacs/progs/dynamic/program-edit.scm:616: (with u (tree-ref t :next) 837TeXmacs/progs/dynamic/program-edit.scm:618: (tree-go-to u 1 :start) 838TeXmacs/progs/dynamic/program-edit.scm:645: (cond ((and (tree-cursor-at? t 1 :start) (not forwards?)) (noop)) 839TeXmacs/progs/dynamic/program-edit.scm:646: ((and (tree-cursor-at? t 1 :end) forwards?) (noop)) 840TeXmacs/progs/dynamic/program-edit.scm:668: (:require (and (tree-is? t 'document) 841TeXmacs/progs/dynamic/program-edit.scm:669: (prog-field-input-context? (tree-ref t :up)))) 842TeXmacs/progs/dynamic/program-edit.scm:705: (with i (tree-down-index t) 843TeXmacs/progs/dynamic/program-edit.scm:706: (variant-set t (ahash-ref alternate-table (tree-label t))) 844TeXmacs/progs/dynamic/program-edit.scm:707: (if (== i 2) (tree-go-to t 1 :end)))) 845TeXmacs/progs/dynamic/program-edit.scm:711: (variant-set t (ahash-ref alternate-table (tree-label t)))) 846TeXmacs/progs/dynamic/program-edit.scm:726: (and-with t (tree-search-upwards t* prog-field-input-context?) 847TeXmacs/progs/dynamic/program-edit.scm:731: (tree-go-to t 1 :end)))) 848TeXmacs/progs/dynamic/program-edit.scm:734: (and-with t (tree-search-upwards t* prog-field-input-context?) 849TeXmacs/progs/dynamic/program-edit.scm:735: (let* ((d (tree-ref t :up)) 850TeXmacs/progs/dynamic/program-edit.scm:736: (i (+ (tree-index t) (if forward? 1 0))) 851TeXmacs/progs/dynamic/program-edit.scm:738: (tree-insert d i (list b)) 852TeXmacs/progs/dynamic/program-edit.scm:739: (tree-go-to d i 0 :start)))) 853TeXmacs/progs/dynamic/program-edit.scm:742: (and-with t (tree-search-upwards t* program-document-context?) 854TeXmacs/progs/dynamic/program-edit.scm:743: (when (tm-func? (tree-ref t 0) 'output) 855TeXmacs/progs/dynamic/program-edit.scm:744: (tree-remove! t 0 1)))) 856TeXmacs/progs/dynamic/program-edit.scm:747: (and-with t (tree-search-upwards t* prog-field-input-context?) 857TeXmacs/progs/dynamic/program-edit.scm:751: (tree-go-to v 1 :end)) 858TeXmacs/progs/dynamic/program-edit.scm:753: (tree-remove (tree-ref u :up) (tree-index u) 1)))))) 859TeXmacs/progs/dynamic/program-edit.scm:756: (and-with t (tree-search-upwards t* prog-field-input-context?) 860TeXmacs/progs/dynamic/program-edit.scm:760: (tree-remove (tree-ref t :up) (tree-index t) 1) 861TeXmacs/progs/dynamic/program-edit.scm:761: (tree-go-to u 1 :start)) 862TeXmacs/progs/dynamic/program-edit.scm:764: (if u (tree-remove (tree-ref u :up) (tree-index u) 1) 863TeXmacs/progs/dynamic/program-edit.scm:797: (and-with t (tree-search-upwards t* prog-field-input-context?) 864TeXmacs/progs/dynamic/program-edit.scm:798: (tree-set! t `(unfolded-subprogram (document "") (document ,t))) 865TeXmacs/progs/dynamic/program-edit.scm:799: (tree-go-to t 0 :end))) 866TeXmacs/progs/dynamic/program-edit.scm:803: (let* ((u (tree-ref t :up)) ;; program 867TeXmacs/progs/dynamic/program-edit.scm:804: (v (tree-ref u :up)) ;; document 868TeXmacs/progs/dynamic/program-edit.scm:805: (i (+ (tree-down-index t) 1)) 869TeXmacs/progs/dynamic/program-edit.scm:806: (j (tree-index u)) 870TeXmacs/progs/dynamic/program-edit.scm:807: (lan (tree-ref u 0)) 871TeXmacs/progs/dynamic/program-edit.scm:808: (ses (tree-ref u 1))) 872TeXmacs/progs/dynamic/program-edit.scm:809: (when (< i (tree-arity t)) 873TeXmacs/progs/dynamic/program-edit.scm:810: (tree-remove! u 0 2) 874TeXmacs/progs/dynamic/program-edit.scm:811: (tree-split! u 0 i) 875TeXmacs/progs/dynamic/program-edit.scm:812: (tree-split! v j 1) 876TeXmacs/progs/dynamic/program-edit.scm:813: (tree-insert (tree-ref v j) 0 `(,lan ,ses)) 877TeXmacs/progs/dynamic/program-edit.scm:814: (tree-insert (tree-ref v (+ j 1)) 0 `(,lan ,ses)) 878TeXmacs/progs/dynamic/program-edit.scm:815: (tree-insert v (+ j 1) '((document ""))) 879TeXmacs/progs/dynamic/program-edit.scm:816: (tree-go-to v (+ j 1) :end))))) 880TeXmacs/progs/dynamic/scripts-edit.scm:54: (nnot (tree-innermost formula-context? #t)))) 881TeXmacs/progs/dynamic/scripts-edit.scm:64: (:require (tree-is? t 'script-input)) 882TeXmacs/progs/dynamic/scripts-edit.scm:65: (let* ((ch (tree-ref t 0)) 883TeXmacs/progs/dynamic/scripts-edit.scm:66: (lan (if (tree-atomic? ch) (tree->string ch) "unknown")) 884TeXmacs/progs/dynamic/scripts-edit.scm:83: (tree-set! out '(script-busy)) 885TeXmacs/progs/dynamic/scripts-edit.scm:84: (with ptr (tree->tree-pointer out) 886TeXmacs/progs/dynamic/scripts-edit.scm:86: (with check (tree-pointer->tree ptr) 887TeXmacs/progs/dynamic/scripts-edit.scm:87: (tree-pointer-detach ptr) 888TeXmacs/progs/dynamic/scripts-edit.scm:89: (with-cursor (tree->path check :end) 889TeXmacs/progs/dynamic/scripts-edit.scm:90: (tree-cut check) 890TeXmacs/progs/dynamic/scripts-edit.scm:102: (:require (and (tree-is? t 'script-eval) 891TeXmacs/progs/dynamic/scripts-edit.scm:104: (tree-is? t 1 'document)))) 892TeXmacs/progs/dynamic/scripts-edit.scm:108: (tree-in? t '(script-input script-output))) 893TeXmacs/progs/dynamic/scripts-edit.scm:117: (:require (tree-is? t 'script-input)) 894TeXmacs/progs/dynamic/scripts-edit.scm:118: (let* ((lan (tree->string (tree-ref t 0))) 895TeXmacs/progs/dynamic/scripts-edit.scm:119: (session (tree->string (tree-ref t 1))) 896TeXmacs/progs/dynamic/scripts-edit.scm:120: (in (tree->stree (tree-ref t 2))) 897TeXmacs/progs/dynamic/scripts-edit.scm:121: (out (tree-ref t 3))) 898TeXmacs/progs/dynamic/scripts-edit.scm:123: (tree-assign-node! t 'script-output) 899TeXmacs/progs/dynamic/scripts-edit.scm:124: (tree-go-to t 3 :end))) 900TeXmacs/progs/dynamic/scripts-edit.scm:127: (:require (tree-is? t 'script-output)) 901TeXmacs/progs/dynamic/scripts-edit.scm:128: (tree-assign-node! t 'script-input) 902TeXmacs/progs/dynamic/scripts-edit.scm:129: (tree-go-to t 2 :end)) 903TeXmacs/progs/dynamic/scripts-edit.scm:132: (:require (or (tree-is? t 'script-output) 904TeXmacs/progs/dynamic/scripts-edit.scm:133: (and (tree-is? t 'script-input) 905TeXmacs/progs/dynamic/scripts-edit.scm:134: (not (tree-is? t :up 'inactive))))) 906TeXmacs/progs/dynamic/scripts-edit.scm:135: (cond ((tree-is? t 'script-output) 907TeXmacs/progs/dynamic/scripts-edit.scm:137: ((xor (not forwards?) (tree-is? t 2 'document)) 908TeXmacs/progs/dynamic/scripts-edit.scm:140: (if (not (tree-is? t 2 'document)) 909TeXmacs/progs/dynamic/scripts-edit.scm:141: (tree-set t 2 `(document ,(tree-ref t 2)))) 910TeXmacs/progs/dynamic/scripts-edit.scm:152: (with sel (tree->stree (selection-tree)) 911TeXmacs/progs/dynamic/scripts-edit.scm:155: ((tree-innermost script-src-context?) 912TeXmacs/progs/dynamic/scripts-edit.scm:156: (let* ((t (tree-innermost script-src-context?)) 913TeXmacs/progs/dynamic/scripts-edit.scm:157: (input (tree->stree (tree-ref t 0)))) 914TeXmacs/progs/dynamic/scripts-edit.scm:158: (tree-cut t) 915TeXmacs/progs/dynamic/scripts-edit.scm:160: ((and (tree-innermost formula-context? #t) script-eval-math-flag?) 916TeXmacs/progs/dynamic/scripts-edit.scm:161: (let* ((t (tree-innermost formula-context? #t)) 917TeXmacs/progs/dynamic/scripts-edit.scm:162: (input (tree->stree t))) 918TeXmacs/progs/dynamic/scripts-edit.scm:163: (tree-cut t) 919TeXmacs/progs/dynamic/scripts-edit.scm:177: (let* ((t (tree-innermost 'script-status)) 920TeXmacs/progs/dynamic/scripts-edit.scm:178: (cmd (tree->stree (tree-ref t 0))) 921TeXmacs/progs/dynamic/scripts-edit.scm:185: (tree-set! t `(script-approx ,input (script-busy))) 922TeXmacs/progs/dynamic/scripts-edit.scm:186: (set! t (tree-ref t 1)) 923TeXmacs/progs/dynamic/scripts-edit.scm:187: (tree-go-to t :end)) 924TeXmacs/progs/dynamic/scripts-edit.scm:189: (tree-set! t `(script-result ,cmd (script-busy))) 925TeXmacs/progs/dynamic/scripts-edit.scm:190: (set! t (tree-ref t 1)) 926TeXmacs/progs/dynamic/scripts-edit.scm:191: (tree-go-to t :end))) 927TeXmacs/progs/dynamic/scripts-edit.scm:247: (with cmd `(concat ,cas-var ":" ,(tree->stree (widget-ref id))) 928TeXmacs/progs/dynamic/scripts-edit.scm:269: (tree-in? t '(plot-curve plot-curve* plot-surface plot-surface*))) 929TeXmacs/progs/dynamic/scripts-edit.scm:300: (in (script-plot-command lan (tree->stree t)))) 930TeXmacs/progs/dynamic/scripts-edit.scm:301: (tree-set! t `(plot-output ,t "")) 931TeXmacs/progs/dynamic/scripts-edit.scm:302: (script-eval-at (tree-ref t 1) lan session in :math-correct :math-input) 932TeXmacs/progs/dynamic/scripts-edit.scm:303: (tree-go-to t 1 :end))) 933TeXmacs/progs/dynamic/scripts-edit.scm:310: (:require (tree-is? t 'plot-output)) 934TeXmacs/progs/dynamic/scripts-edit.scm:311: (tree-remove-node! t 0) 935TeXmacs/progs/dynamic/scripts-edit.scm:312: (tree-go-to t 0 :end)) 936TeXmacs/progs/dynamic/scripts-edit.scm:316: (if (= (tree-down-index t) (- (tree-arity t) 1)) 937TeXmacs/progs/dynamic/scripts-edit.scm:318: (tree-go-to t (1+ (tree-down-index t)) :end))) 938TeXmacs/progs/dynamic/scripts-edit.scm:321: (:require (tree-is? t 'plot-output)) 939TeXmacs/progs/dynamic/scripts-edit.scm:348: (tree-in? t '(converter-input converter-output))) 940TeXmacs/progs/dynamic/scripts-edit.scm:351: (:require (and (tree-is? t 'converter-eval) 941TeXmacs/progs/dynamic/scripts-edit.scm:353: (tree-is? t 1 'document)))) 942TeXmacs/progs/dynamic/scripts-edit.scm:354: (let* ((format (string-append (tree->string (tree-ref t 0)) "-snippet")) 943TeXmacs/progs/dynamic/scripts-edit.scm:355: (in (texmacs->code (tree-ref t 1) "iso-8859-1"))) 944TeXmacs/progs/dynamic/scripts-edit.scm:356: (tree-select t) 945TeXmacs/progs/dynamic/scripts-edit.scm:361: (:require (tree-is? t 'converter-input)) 946TeXmacs/progs/dynamic/scripts-edit.scm:362: (let* ((format (string-append (tree->string (tree-ref t 0)) "-snippet")) 947TeXmacs/progs/dynamic/scripts-edit.scm:363: (in (texmacs->code (tree-ref t 1) "iso-8859-1"))) 948TeXmacs/progs/dynamic/scripts-edit.scm:364: (tree-set! t 2 (convert in format "texmacs-tree")) 949TeXmacs/progs/dynamic/scripts-edit.scm:365: (tree-assign-node! t 'converter-output) 950TeXmacs/progs/dynamic/scripts-edit.scm:366: (tree-go-to t 2 :end))) 951TeXmacs/progs/dynamic/scripts-edit.scm:369: (:require (tree-is? t 'converter-output)) 952TeXmacs/progs/dynamic/scripts-edit.scm:370: (tree-assign-node! t 'converter-input) 953TeXmacs/progs/dynamic/scripts-edit.scm:371: (tree-go-to t 1 :end)) 954TeXmacs/progs/dynamic/scripts-edit.scm:374: (:require (or (tree-is? t 'converter-output) 955TeXmacs/progs/dynamic/scripts-edit.scm:375: (and (tree-is? t 'converter-input) 956TeXmacs/progs/dynamic/scripts-edit.scm:376: (not (tree-is? t :up 'inactive))))) 957TeXmacs/progs/dynamic/scripts-edit.scm:377: (cond ((tree-is? t 'converter-output) 958TeXmacs/progs/dynamic/scripts-edit.scm:379: ((xor (not forwards?) (tree-is? t 1 'document)) 959TeXmacs/progs/dynamic/scripts-edit.scm:382: (if (not (tree-is? t 1 'document)) 960TeXmacs/progs/dynamic/scripts-edit.scm:383: (tree-set t 1 `(document ,(tree-ref t 1)))) 961TeXmacs/progs/dynamic/session-doc.scm:24: ($with lab (tree-label t) 962TeXmacs/progs/dynamic/session-edit.scm:125: (stree->tree `(errput ,err-msg)))))) 963TeXmacs/progs/dynamic/session-edit.scm:128: (and (tree? t) (tree-is? t 'errput))) 964TeXmacs/progs/dynamic/session-edit.scm:134: (tree-copy r)) 965TeXmacs/progs/dynamic/session-edit.scm:136: (tree 'text (tree-copy r))) 966TeXmacs/progs/dynamic/session-edit.scm:149: (tree->tree-pointer out) 967TeXmacs/progs/dynamic/session-edit.scm:150: (tree->tree-pointer next) 968TeXmacs/progs/dynamic/session-edit.scm:155: (tree-pointer->tree (third l)) 969TeXmacs/progs/dynamic/session-edit.scm:156: (tree-pointer->tree (fourth l)) 970TeXmacs/progs/dynamic/session-edit.scm:160: (tree-pointer-detach (third l)) 971TeXmacs/progs/dynamic/session-edit.scm:161: (tree-pointer-detach (fourth l))) 972TeXmacs/progs/dynamic/session-edit.scm:164: (and (field-or-output-context? (tree-ref out :up)) 973TeXmacs/progs/dynamic/session-edit.scm:171: (if (or (and (tree-empty? in) (!= lan "r")) 974TeXmacs/progs/dynamic/session-edit.scm:176: (tree-set out :up 0 (plugin-prompt lan ses))))))) 975TeXmacs/progs/dynamic/session-edit.scm:184: (tm-func? (tree-ref out :last) 'script-busy)) 976TeXmacs/progs/dynamic/session-edit.scm:190: (tree-set (tree-ref out :last) `(timing ,ts)) 977TeXmacs/progs/dynamic/session-edit.scm:191: (tree-remove! out (- (tree-arity out) 1) 1)))) 978TeXmacs/progs/dynamic/session-edit.scm:193: (tree-empty? out)) 979TeXmacs/progs/dynamic/session-edit.scm:194: (field-remove-output (tree-ref out :up))) 980TeXmacs/progs/dynamic/session-edit.scm:197: (define (var-tree-children t) 981TeXmacs/progs/dynamic/session-edit.scm:198: (with r (tree-children t) 982TeXmacs/progs/dynamic/session-edit.scm:199: (if (and (nnull? r) (tree-empty? (cAr r))) (cDr r) r))) 983TeXmacs/progs/dynamic/session-edit.scm:203: (with i (tree-arity t) 984TeXmacs/progs/dynamic/session-edit.scm:204: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'script-busy)) 985TeXmacs/progs/dynamic/session-edit.scm:206: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'errput)) 986TeXmacs/progs/dynamic/session-edit.scm:209: (tree-insert! t i (var-tree-children u)))))) 987TeXmacs/progs/dynamic/session-edit.scm:213: (with i (tree-arity t) 988TeXmacs/progs/dynamic/session-edit.scm:214: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'script-busy)) 989TeXmacs/progs/dynamic/session-edit.scm:216: (if (and (> i 0) (tm-func? (tree-ref t (- i 1)) 'errput)) 990TeXmacs/progs/dynamic/session-edit.scm:218: (tree-insert! t i '((errput (document))))) 991TeXmacs/progs/dynamic/session-edit.scm:219: (session-output (tree-ref t i 0) u)))) 992TeXmacs/progs/dynamic/session-edit.scm:231: (if (and (== (length l) 1) (tree-empty? (tree-ref next 1))) 993TeXmacs/progs/dynamic/session-edit.scm:232: (tree-set! next 0 (tree-copy t)))) 994TeXmacs/progs/dynamic/session-edit.scm:234: (tree-set! next 1 t))))))) 995TeXmacs/progs/dynamic/session-edit.scm:242: (tm-func? (tree-ref out :last) 'script-busy)) 996TeXmacs/progs/dynamic/session-edit.scm:243: (tree-assign (tree-ref out :last) 997TeXmacs/progs/dynamic/session-edit.scm:249: (tree-assign! out '(document (script-busy))) 998TeXmacs/progs/dynamic/session-edit.scm:259: (tm-func? (tree-ref t :up) 'session))) 999TeXmacs/progs/dynamic/session-edit.scm:263: (tm-func? (tree-ref t :up) 'session)) 1000TeXmacs/progs/dynamic/session-edit.scm:265: (tm-func? (tree-ref t :up) 'unfolded-subsession) 1001TeXmacs/progs/dynamic/session-edit.scm:266: (== (tree-index t) 1)))) 1002TeXmacs/progs/dynamic/session-edit.scm:273: (tree-in? t field-tags) 1003TeXmacs/progs/dynamic/session-edit.scm:274: (tm-func? (tree-ref t :up) 'document))) 1004TeXmacs/progs/dynamic/session-edit.scm:278: (tree-in? t (cons 'output field-tags)) 1005TeXmacs/progs/dynamic/session-edit.scm:279: (tm-func? (tree-ref t :up) 'document))) 1006TeXmacs/progs/dynamic/session-edit.scm:282: (and (tree-in? t '(folded-io folded-io-math)) 1007TeXmacs/progs/dynamic/session-edit.scm:283: (tm-func? (tree-ref t :up) 'document))) 1008TeXmacs/progs/dynamic/session-edit.scm:286: (and (tree-in? t '(unfolded-io unfolded-io-math)) 1009TeXmacs/progs/dynamic/session-edit.scm:287: (tm-func? (tree-ref t :up) 'document))) 1010TeXmacs/progs/dynamic/session-edit.scm:290: (and (tree-in? t '(input folded-io unfolded-io)) 1011TeXmacs/progs/dynamic/session-edit.scm:291: (tm-func? (tree-ref t :up) 'document))) 1012TeXmacs/progs/dynamic/session-edit.scm:294: (and (tree-in? t '(input-math folded-io-math unfolded-io-math)) 1013TeXmacs/progs/dynamic/session-edit.scm:295: (tm-func? (tree-ref t :up) 'document))) 1014TeXmacs/progs/dynamic/session-edit.scm:299: (== (tree-down-index t) 1))) 1015TeXmacs/progs/dynamic/session-edit.scm:358: (tm-func? (tree-ref out :last) 'script-busy)) 1016TeXmacs/progs/dynamic/session-edit.scm:359: (tree-assign (tree-ref out :last) `(script-busy ,msg))))) 1017TeXmacs/progs/dynamic/session-edit.scm:374: (and-with u (tree-ref t (if forward? :next :previous)) 1018TeXmacs/progs/dynamic/session-edit.scm:376: ((tree-in? u '(folded-subsession unfolded-subsession)) #f) 1019TeXmacs/progs/dynamic/session-edit.scm:380: (and-with u (tree-ref t (if forward? :next :previous)) 1020TeXmacs/progs/dynamic/session-edit.scm:384: (with u (tree-ref t :up (if last? :last :first)) 1021TeXmacs/progs/dynamic/session-edit.scm:390: (tree-insert! t 2 (list '(document))) 1022TeXmacs/progs/dynamic/session-edit.scm:391: (tree-assign-node! t 'unfolded-io)) 1023TeXmacs/progs/dynamic/session-edit.scm:393: (tree-insert! t 2 (list '(document))) 1024TeXmacs/progs/dynamic/session-edit.scm:394: (tree-assign-node! t 'unfolded-io-math)))) 1025TeXmacs/progs/dynamic/session-edit.scm:398: (tree-assign-node! t 'input) 1026TeXmacs/progs/dynamic/session-edit.scm:399: (tree-remove! t 2 1)) 1027TeXmacs/progs/dynamic/session-edit.scm:401: (tree-assign-node! t 'input-math) 1028TeXmacs/progs/dynamic/session-edit.scm:402: (tree-remove! t 2 1)) 1029TeXmacs/progs/dynamic/session-edit.scm:404: (with p (tree-ref t :up) 1030TeXmacs/progs/dynamic/session-edit.scm:405: (when (tree-is? p 'document) 1031TeXmacs/progs/dynamic/session-edit.scm:406: (tree-remove! p (tree-index t) 1)))))) 1032TeXmacs/progs/dynamic/session-edit.scm:412: (tree-assign-node! t 'input-math) 1033TeXmacs/progs/dynamic/session-edit.scm:414: (tree-assign-node! t 'folded-io-math) 1034TeXmacs/progs/dynamic/session-edit.scm:415: (tree-assign (tree-ref t 1) '(document ""))))) 1035TeXmacs/progs/dynamic/session-edit.scm:418: (tree-assign-node! t 'input) 1036TeXmacs/progs/dynamic/session-edit.scm:420: (tree-assign-node! t 'folded-io) 1037TeXmacs/progs/dynamic/session-edit.scm:421: (tree-assign (tree-ref t 1) '(document ""))))))) 1038TeXmacs/progs/dynamic/session-edit.scm:424: (let* ((d (tree-ref t :up)) 1039TeXmacs/progs/dynamic/session-edit.scm:425: (i (+ (tree-index t) (if forward? 1 0))) 1040TeXmacs/progs/dynamic/session-edit.scm:428: (tree-insert d i (list b)) 1041TeXmacs/progs/dynamic/session-edit.scm:429: (tree-ref d i))) 1042TeXmacs/progs/dynamic/session-edit.scm:432: (for (u (tree-children t)) 1043TeXmacs/progs/dynamic/session-edit.scm:436: (tm-func? (tree-ref u 1) 'document)) 1044TeXmacs/progs/dynamic/session-edit.scm:437: (session-forall-sub fun (tree-ref u 1))))) 1045TeXmacs/progs/dynamic/session-edit.scm:455: (with u (tree-ref t :previous 0) 1046TeXmacs/progs/dynamic/session-edit.scm:471: (tree-assign-node! t 'unfolded-io)) 1047TeXmacs/progs/dynamic/session-edit.scm:473: (tree-assign-node! t 'unfolded-io-math))) 1048TeXmacs/progs/dynamic/session-edit.scm:477: (in (tree->stree (tree-ref t 1))) 1049TeXmacs/progs/dynamic/session-edit.scm:478: (out (tree-ref t 2)) 1050TeXmacs/progs/dynamic/session-edit.scm:482: (tree-go-to u 1 :end))))) 1051TeXmacs/progs/dynamic/session-edit.scm:499: (st (tree->stree (tree-ref t 1))) 1052TeXmacs/progs/dynamic/session-edit.scm:515: (when (not (tree-empty? (tree-ref t 1))) 1053TeXmacs/progs/dynamic/session-edit.scm:522: (when (not (tree-empty? (tree-ref t 1))) 1054TeXmacs/progs/dynamic/session-edit.scm:523: (when (path-inf? (tree->path t) (tree->path me)) 1055TeXmacs/progs/dynamic/session-edit.scm:530: (when (not (tree-empty? (tree-ref t 1))) 1056TeXmacs/progs/dynamic/session-edit.scm:531: (when (path-inf-eq? (tree->path me) (tree->path t)) 1057TeXmacs/progs/dynamic/session-edit.scm:550: (with u (tree-ref t :previous) 1058TeXmacs/progs/dynamic/session-edit.scm:552: (tree-go-to u 1 :end) 1059TeXmacs/progs/dynamic/session-edit.scm:557: (with u (tree-ref t :next) 1060TeXmacs/progs/dynamic/session-edit.scm:559: (tree-go-to u 1 :start) 1061TeXmacs/progs/dynamic/session-edit.scm:586: (cond ((and (tree-cursor-at? t 1 :start) (not forwards?)) (noop)) 1062TeXmacs/progs/dynamic/session-edit.scm:587: ((and (tree-cursor-at? t 1 :end) forwards?) (noop)) 1063TeXmacs/progs/dynamic/session-edit.scm:609: (:require (and (tree-is? t 'document) 1064TeXmacs/progs/dynamic/session-edit.scm:610: (field-input-context? (tree-ref t :up)))) 1065TeXmacs/progs/dynamic/session-edit.scm:646: (with i (tree-down-index t) 1066TeXmacs/progs/dynamic/session-edit.scm:647: (variant-set t (ahash-ref alternate-table (tree-label t))) 1067TeXmacs/progs/dynamic/session-edit.scm:648: (if (== i 2) (tree-go-to t 1 :end)))) 1068TeXmacs/progs/dynamic/session-edit.scm:652: (variant-set t (ahash-ref alternate-table (tree-label t)))) 1069TeXmacs/progs/dynamic/session-edit.scm:667: (and-with t (tree-search-upwards t* field-input-context?) 1070TeXmacs/progs/dynamic/session-edit.scm:672: (tree-go-to t 1 :end)))) 1071TeXmacs/progs/dynamic/session-edit.scm:675: (and-with t (tree-search-upwards t* field-input-context?) 1072TeXmacs/progs/dynamic/session-edit.scm:676: (let* ((d (tree-ref t :up)) 1073TeXmacs/progs/dynamic/session-edit.scm:677: (i (+ (tree-index t) (if forward? 1 0))) 1074TeXmacs/progs/dynamic/session-edit.scm:679: (tree-insert d i (list b)) 1075TeXmacs/progs/dynamic/session-edit.scm:680: (tree-go-to d i 0 :start)))) 1076TeXmacs/progs/dynamic/session-edit.scm:683: (and-with t (tree-search-upwards t* session-document-context?) 1077TeXmacs/progs/dynamic/session-edit.scm:684: (when (tm-func? (tree-ref t 0) 'output) 1078TeXmacs/progs/dynamic/session-edit.scm:685: (tree-remove! t 0 1)))) 1079TeXmacs/progs/dynamic/session-edit.scm:688: (and-with t (tree-search-upwards t* field-input-context?) 1080TeXmacs/progs/dynamic/session-edit.scm:692: (tree-go-to v 1 :end)) 1081TeXmacs/progs/dynamic/session-edit.scm:694: (tree-remove (tree-ref u :up) (tree-index u) 1)))))) 1082TeXmacs/progs/dynamic/session-edit.scm:697: (and-with t (tree-search-upwards t* field-input-context?) 1083TeXmacs/progs/dynamic/session-edit.scm:701: (tree-remove (tree-ref t :up) (tree-index t) 1) 1084TeXmacs/progs/dynamic/session-edit.scm:702: (tree-go-to u 1 :start)) 1085TeXmacs/progs/dynamic/session-edit.scm:705: (if u (tree-remove (tree-ref u :up) (tree-index u) 1) 1086TeXmacs/progs/dynamic/session-edit.scm:738: (and-with t (tree-search-upwards t* field-input-context?) 1087TeXmacs/progs/dynamic/session-edit.scm:739: (tree-set! t `(unfolded-subsession (document "") (document ,t))) 1088TeXmacs/progs/dynamic/session-edit.scm:740: (tree-go-to t 0 :end))) 1089TeXmacs/progs/dynamic/session-edit.scm:744: (let* ((u (tree-ref t :up)) ;; session 1090TeXmacs/progs/dynamic/session-edit.scm:745: (v (tree-ref u :up)) ;; document 1091TeXmacs/progs/dynamic/session-edit.scm:746: (i (+ (tree-down-index t) 1)) 1092TeXmacs/progs/dynamic/session-edit.scm:747: (j (tree-index u)) 1093TeXmacs/progs/dynamic/session-edit.scm:748: (lan (tree-ref u 0)) 1094TeXmacs/progs/dynamic/session-edit.scm:749: (ses (tree-ref u 1))) 1095TeXmacs/progs/dynamic/session-edit.scm:750: (when (< i (tree-arity t)) 1096TeXmacs/progs/dynamic/session-edit.scm:751: (tree-remove! u 0 2) 1097TeXmacs/progs/dynamic/session-edit.scm:752: (tree-split! u 0 i) 1098TeXmacs/progs/dynamic/session-edit.scm:753: (tree-split! v j 1) 1099TeXmacs/progs/dynamic/session-edit.scm:754: (tree-insert (tree-ref v j) 0 `(,lan ,ses)) 1100TeXmacs/progs/dynamic/session-edit.scm:755: (tree-insert (tree-ref v (+ j 1)) 0 `(,lan ,ses)) 1101TeXmacs/progs/dynamic/session-edit.scm:756: (tree-insert v (+ j 1) '((document ""))) 1102TeXmacs/progs/dynamic/session-edit.scm:757: (tree-go-to v (+ j 1) :end))))) 1103TeXmacs/progs/fonts/font-new-widgets.scm:89: (set! sample-text (tree->stree (selection-tree)))) 1104TeXmacs/progs/generic/document-doc.scm:63: (:require (tree-is-buffer? t)) 1105TeXmacs/progs/generic/document-edit.scm:57: (cond ((tree-atomic? t) (tree->string t)) 1106TeXmacs/progs/generic/document-edit.scm:58: ((and (tree-func? t 'macro 1) (tree-atomic? (tree-ref t 0))) 1107TeXmacs/progs/generic/document-edit.scm:59: (tree->string (tree-ref t 0))) 1108TeXmacs/progs/generic/document-edit.scm:70: (if (and (tree-func? old 'macro 1) (not (tm-is? val 'macro))) 1109TeXmacs/progs/generic/document-menu.scm:24: (cond ((tree-is? t 'document) 1110TeXmacs/progs/generic/document-menu.scm:25: (apply append (map (cut include-list base <>) (tree-children t)))) 1111TeXmacs/progs/generic/document-menu.scm:26: ((and (tree-is? t 'include) (tree-atomic? (tree-ref t 0))) 1112TeXmacs/progs/generic/document-menu.scm:27: (list (url-relative base (tree->string (tree-ref t 0))))) 1113TeXmacs/progs/generic/document-menu.scm:770: ("Preferences" (open-source-tree-preferences))) 1114TeXmacs/progs/generic/document-menu.scm:849: (:require (tree-is-buffer? t)) 1115TeXmacs/progs/generic/document-menu.scm:878: (assuming (tree-is-buffer? t) 1116TeXmacs/progs/generic/document-menu.scm:918: (:require (tree-is-buffer? t)) 1117TeXmacs/progs/generic/document-part.scm:22: (cond ((tree-is? t 'with) (inclusion-children (cAr (tree-children t)))) 1118TeXmacs/progs/generic/document-part.scm:23: ((tree-is? t 'document) (tree-children t)) 1119TeXmacs/progs/generic/document-part.scm:27: (if (tree-is? t 'include) 1120TeXmacs/progs/generic/document-part.scm:28: (with u (url-relative r (unix->url (tree->string (tree-ref t 0)))) 1121TeXmacs/progs/generic/document-part.scm:29: (inclusion-children (tree-load-inclusion u))) 1122TeXmacs/progs/generic/document-part.scm:33: (cond ((tree-atomic? t) t) 1123TeXmacs/progs/generic/document-part.scm:34: ((tree-is? t 'document) 1124TeXmacs/progs/generic/document-part.scm:35: (with l (map (lambda (x) (expand-includes-one x r)) (tree-children t)) 1125TeXmacs/progs/generic/document-part.scm:38: (with l (map (lambda (x) (expand-includes x r)) (tree-children t)) 1126TeXmacs/progs/generic/document-part.scm:39: (cons (tree-label t) l))))) 1127TeXmacs/progs/generic/document-part.scm:43: (tree-assign! t (expand-includes (buffer-tree) (buffer-master))))) 1128TeXmacs/progs/generic/document-part.scm:61: (if (tree-in? (tree-ref t 0) '(show-preamble hide-preamble)) 1129TeXmacs/progs/generic/document-part.scm:62: (cdr (tree-children t)) 1130TeXmacs/progs/generic/document-part.scm:63: (tree-children t)))) 1131TeXmacs/progs/generic/document-part.scm:67: (when (tree-is? (tree-ref t 0) 'hide-preamble) 1132TeXmacs/progs/generic/document-part.scm:70: (preamble `(show-preamble ,(tree-ref t 0 0))) 1133TeXmacs/progs/generic/document-part.scm:71: (body `(ignore (document ,@(cdr (tree-children t)))))) 1134TeXmacs/progs/generic/document-part.scm:72: (tree-assign! t `(document ,preamble ,body)))))) 1135TeXmacs/progs/generic/document-part.scm:77: (tree-assign! t `(document (hide-preamble ,(tree-ref t 0 0)) 1136TeXmacs/progs/generic/document-part.scm:78: ,@(tree-children (tree-ref t 1 0))))))) 1137TeXmacs/progs/generic/document-part.scm:81: (:require (and (tree-is? t 'show-preamble) (tree-empty? (tree-ref t 0)))) 1138TeXmacs/progs/generic/document-part.scm:84: (tree-remove (buffer-tree) 0 1))) 1139TeXmacs/progs/generic/document-part.scm:87: (if (tree-in? t '(show-part hide-part)) 1140TeXmacs/progs/generic/document-part.scm:88: (tree-children (tree-ref t 1)) 1141TeXmacs/progs/generic/document-part.scm:92: (if (tree-in? t '(show-part hide-part)) 1142TeXmacs/progs/generic/document-part.scm:93: (append-map buffer-flatten-subpart (tree-children (tree-ref t 1))) 1143TeXmacs/progs/generic/document-part.scm:97: (when (tree-in? (car (buffer-body-paragraphs)) '(hide-part show-part)) 1144TeXmacs/progs/generic/document-part.scm:101: (preamble? (tree-in? (tree-ref t 0) '(show-preamble hide-preamble))) 1145TeXmacs/progs/generic/document-part.scm:102: (r (if preamble? (cons (tree-ref t 0) parts) parts))) 1146TeXmacs/progs/generic/document-part.scm:103: (tree-assign! t `(document ,@r))))) 1147TeXmacs/progs/generic/document-part.scm:106: (when (not (tree-in? (car (buffer-body-paragraphs)) '(hide-part show-part))) 1148TeXmacs/progs/generic/document-part.scm:110: (preamble? (tree-in? (tree-ref t 0) '(show-preamble hide-preamble))) 1149TeXmacs/progs/generic/document-part.scm:111: (r (if preamble? (cons (tree-ref t 0) parts) parts))) 1150TeXmacs/progs/generic/document-part.scm:112: (tree-assign! t `(document ,@r))))) 1151TeXmacs/progs/generic/document-part.scm:116: (cond ((tree-is? (tree-ref (buffer-tree) 0) 'show-preamble) :preamble) 1152TeXmacs/progs/generic/document-part.scm:117: ((tree-in? (car (buffer-body-paragraphs)) '(show-part hide-part)) 1153TeXmacs/progs/generic/document-part.scm:130: (when (tree-is? (tree-ref (buffer-tree) 0) 'hide-preamble) 1154TeXmacs/progs/generic/document-part.scm:132: (tree-go-to (buffer-tree) 0 0 :start))) 1155TeXmacs/progs/generic/document-part.scm:136: (tree-go-to (car (buffer-body-paragraphs)) :start) 1156TeXmacs/progs/generic/document-part.scm:153: (if (== (tree-ref t 1) (string->tree "")) 1157TeXmacs/progs/generic/document-part.scm:155: (principal-section-title (tree-ref t 1)))) 1158TeXmacs/progs/generic/document-part.scm:158: (cond ((tree-atomic? t) '()) 1159TeXmacs/progs/generic/document-part.scm:159: ((or (tree-is? t 'show-part) (and all? (tree-is? t 'hide-part))) 1160TeXmacs/progs/generic/document-part.scm:163: ((not (tree-in? t '(document ignore))) '()) 1161TeXmacs/progs/generic/document-part.scm:165: (tree-children t)) 1162TeXmacs/progs/generic/document-part.scm:171: (tree-in? (tree-ref t 0) '(show-preamble hide-preamble)))) 1163TeXmacs/progs/generic/document-part.scm:177: (set! l (tree-children (tree-ref (car l) 0)))) 1164TeXmacs/progs/generic/document-part.scm:179: (if (and (not (tree-in? (car l) '(show-part hide-part))) 1165TeXmacs/progs/generic/document-part.scm:190: (cond ((tree-atomic? t) #f) 1166TeXmacs/progs/generic/document-part.scm:191: ((tree-in? t '(show-part hide-part)) 1167TeXmacs/progs/generic/document-part.scm:193: ((not (tree-in? t '(document ignore))) #f) 1168TeXmacs/progs/generic/document-part.scm:194: (else (list-find (tree-children t) 1169TeXmacs/progs/generic/document-part.scm:198: (cond ((tree-atomic? t) (noop)) 1170TeXmacs/progs/generic/document-part.scm:199: ((tree-in? t '(show-part hide-part)) 1171TeXmacs/progs/generic/document-part.scm:201: (if (and show? (tree-is? t 'hide-part)) 1172TeXmacs/progs/generic/document-part.scm:202: (tree-assign-node! t 'show-part)) 1173TeXmacs/progs/generic/document-part.scm:203: (if (and (not show?) (tree-is? t 'show-part)) 1174TeXmacs/progs/generic/document-part.scm:204: (tree-assign-node! t 'hide-part)))) 1175TeXmacs/progs/generic/document-part.scm:205: ((not (tree-is? t 'document)) (noop)) 1176TeXmacs/progs/generic/document-part.scm:207: (tree-children t))))) 1177TeXmacs/progs/generic/document-part.scm:212: (and t (tree-go-to t 1 :start)))) 1178TeXmacs/progs/generic/document-part.scm:226: ((tree-is? t 'show-part) 1179TeXmacs/progs/generic/document-part.scm:227: (tree-assign-node! t 'hide-part) 1180TeXmacs/progs/generic/document-part.scm:229: ((tree-is? t 'hide-part) 1181TeXmacs/progs/generic/document-part.scm:230: (tree-assign-node! t 'show-part) 1182TeXmacs/progs/generic/document-part.scm:237: (tree-insert! t 0 '((hide-preamble (document "")))) 1183TeXmacs/progs/generic/document-part.scm:244: (tm-define (tree-show-hidden t) 1184TeXmacs/progs/generic/document-part.scm:245: (:require (and (tree-is? t 'hide-part) (== (tree-up t) (buffer-tree)))) 1185TeXmacs/progs/generic/document-part.scm:248: (document-select-part (tree-up t) id)) 1186TeXmacs/progs/generic/document-part.scm:249: (tree-assign-node! t 'show-part))) 1187TeXmacs/progs/generic/document-part.scm:254: (and-with t (list-find (tree-children (buffer-tree)) search?) 1188TeXmacs/progs/generic/document-part.scm:255: (tree-show-hidden t) 1189TeXmacs/progs/generic/document-style.scm:53: (with t (tree->stree (get-style-tree)) 1190TeXmacs/progs/generic/document-widgets.scm:63: (tm-widget ((source-tree-preferences-editor u) quit) 1191TeXmacs/progs/generic/document-widgets.scm:65: (refreshable "source-tree-preferences" 1192TeXmacs/progs/generic/document-widgets.scm:90: (refresh-now "source-tree-preferences")) 1193TeXmacs/progs/generic/document-widgets.scm:94: (tm-define (open-source-tree-preferences) 1194TeXmacs/progs/generic/document-widgets.scm:97: (dialogue-window (source-tree-preferences-editor u) noop 1195TeXmacs/progs/generic/format-edit.scm:25: (cond ((tree-is-buffer? t) (noop)) 1196TeXmacs/progs/generic/format-edit.scm:26: ((tree-func? t 'document 1) 1197TeXmacs/progs/generic/format-edit.scm:27: (with-simplify-sub (tree-up t) var)) 1198TeXmacs/progs/generic/format-edit.scm:28: ((tree-func? t 'with) 1199TeXmacs/progs/generic/format-edit.scm:29: (with-simplify-sub (tree-up t) var) 1200TeXmacs/progs/generic/format-edit.scm:30: (for (i (reverse (.. 0 (quotient (tree-arity t) 2)))) 1201TeXmacs/progs/generic/format-edit.scm:31: (when (== (tree-ref t (* 2 i)) var) 1202TeXmacs/progs/generic/format-edit.scm:32: (tree-remove! t (* 2 i) 2))) 1203TeXmacs/progs/generic/format-edit.scm:33: (when (tree-func? t 'with 1) 1204TeXmacs/progs/generic/format-edit.scm:34: (tree-remove-node! t 0))))) 1205TeXmacs/progs/generic/format-edit.scm:37: (when (and (not (tree-is-buffer? t)) (tree->path t)) 1206TeXmacs/progs/generic/format-edit.scm:38: (with-simplify (tree-up t)) 1207TeXmacs/progs/generic/format-edit.scm:39: (when (tree-is? t 'with) 1208TeXmacs/progs/generic/format-edit.scm:40: (for (var (map car (list->assoc (cDr (tree-children t))))) 1209TeXmacs/progs/generic/format-edit.scm:41: (with-simplify-sub (tree-up t) var))))) 1210TeXmacs/progs/generic/format-edit.scm:44: (when (and (tree-is? t 'with) (tree-is? t :up 'with)) 1211TeXmacs/progs/generic/format-edit.scm:45: (let* ((p (tree-up t)) 1212TeXmacs/progs/generic/format-edit.scm:46: (c (map tree-copy (cDr (tree-children t))))) 1213TeXmacs/progs/generic/format-edit.scm:47: (tree-remove-node t (- (tree-arity t) 1)) 1214TeXmacs/progs/generic/format-edit.scm:48: (tree-insert p (- (tree-arity p) 1) c)))) 1215TeXmacs/progs/generic/format-edit.scm:115: (and (or (tree-atomic? t) (tree-in? t '(concat document))) 1216TeXmacs/progs/generic/format-edit.scm:116: (and-with p (tree-ref t :up) 1217TeXmacs/progs/generic/format-edit.scm:123: (tree-go-to u :last (if (== (cAr (cursor-path)) 0) :start :end)) 1218TeXmacs/progs/generic/format-edit.scm:128: (tree-go-to u :last :start) 1219TeXmacs/progs/generic/format-edit.scm:131: (with sym (symbol->string (tree-label t)) 1220TeXmacs/progs/generic/format-edit.scm:155: (with-like-search (tree-ref (cursor-tree) :up))) 1221TeXmacs/progs/generic/format-edit.scm:159: ((or (not back) (tree-empty? (tm-ref t :last))) 1222TeXmacs/progs/generic/format-edit.scm:160: (tree-remove-node! t (- (tree-arity t) 1)) 1223TeXmacs/progs/generic/format-edit.scm:161: (tree-correct-node (tree-ref t :up))) 1224TeXmacs/progs/generic/format-edit.scm:162: ((tree-at-start? (tm-ref t :last)) 1225TeXmacs/progs/generic/format-edit.scm:163: (tree-go-to t 0)) 1226TeXmacs/progs/generic/format-edit.scm:164: ((tree-at-end? (tm-ref t :last)) 1227TeXmacs/progs/generic/format-edit.scm:165: (tree-go-to t 1)) 1228TeXmacs/progs/generic/format-edit.scm:198: (tm-define (tree-with-set t var val) 1229TeXmacs/progs/generic/format-edit.scm:199: (tree-set! t `(with ,var ,val ,t)) 1230TeXmacs/progs/generic/format-geometry-edit.scm:122: (cond ((tree-in? t '(plus minimum maximum)) 1231TeXmacs/progs/generic/format-geometry-edit.scm:123: (length-increase (tree-ref t :last) by)) 1232TeXmacs/progs/generic/format-geometry-edit.scm:124: ((tree-in? t '(minus)) 1233TeXmacs/progs/generic/format-geometry-edit.scm:125: (length-increase (tree-ref t :last) (- by))) 1234TeXmacs/progs/generic/format-geometry-edit.scm:127: (let* ((l (tree->string t)) 1235TeXmacs/progs/generic/format-geometry-edit.scm:133: (tree-set t new-l))))) 1236TeXmacs/progs/generic/format-geometry-edit.scm:136: (cond ((tree-in? t '(plus minus minimum maximum)) 1237TeXmacs/progs/generic/format-geometry-edit.scm:137: (length-rightmost (tree-ref t :last))) 1238TeXmacs/progs/generic/format-geometry-edit.scm:148: (when (tree-empty? (tree-ref t i)) 1239TeXmacs/progs/generic/format-geometry-edit.scm:149: (tree-assign (tree-ref t i) by))) 1240TeXmacs/progs/generic/format-geometry-edit.scm:156: (tree-is? t 'space)) 1241TeXmacs/progs/generic/format-geometry-edit.scm:159: (or (tree-is? t 'space) (tree-func? t 'separating-space 1))) 1242TeXmacs/progs/generic/format-geometry-edit.scm:162: (cond ((== (tm-arity t) 1) (tree-insert t 1 '("0ex" "1ex"))) 1243TeXmacs/progs/generic/format-geometry-edit.scm:163: ((== (tm-arity t) 2) (tree-insert t 1 '("1ex"))))) 1244TeXmacs/progs/generic/format-geometry-edit.scm:167: (lengths-consistent? (tree-ref t 1) (tree-ref t 2)))) 1245TeXmacs/progs/generic/format-geometry-edit.scm:173: (length-increase-step (tree-ref t 0) inc)))) 1246TeXmacs/progs/generic/format-geometry-edit.scm:179: (length-increase (tree-ref t 0) inc)))) 1247TeXmacs/progs/generic/format-geometry-edit.scm:186: (length-increase (tree-ref t 2) inc)))) 1248TeXmacs/progs/generic/format-geometry-edit.scm:194: (length-increase (tree-ref t 1) inc) 1249TeXmacs/progs/generic/format-geometry-edit.scm:195: (length-increase (tree-ref t 2) inc))))) 1250TeXmacs/progs/generic/format-geometry-edit.scm:202: (tree-is? t 'hspace)) 1251TeXmacs/progs/generic/format-geometry-edit.scm:207: (lengths-consistent? (tree-ref t 0) (tree-ref t 1)) 1252TeXmacs/progs/generic/format-geometry-edit.scm:208: (lengths-consistent? (tree-ref t 1) (tree-ref t 2))))) 1253TeXmacs/progs/generic/format-geometry-edit.scm:212: (length-increase (tree-ref t 0) by) 1254TeXmacs/progs/generic/format-geometry-edit.scm:214: (length-increase (tree-ref t 1) by) 1255TeXmacs/progs/generic/format-geometry-edit.scm:215: (length-increase (tree-ref t 2) by)))) 1256TeXmacs/progs/generic/format-geometry-edit.scm:221: (length-increase-step (tree-ref t 0) inc)))) 1257TeXmacs/progs/generic/format-geometry-edit.scm:234: (tree-in? t '(vspace vspace*))) 1258TeXmacs/progs/generic/format-geometry-edit.scm:240: (length-increase-step (tree-ref t 0) inc)))) 1259TeXmacs/progs/generic/format-geometry-edit.scm:253: (tree-in? t (move-tag-list))) 1260TeXmacs/progs/generic/format-geometry-edit.scm:282: (length-increase-step (tree-ref t 1) inc) 1261TeXmacs/progs/generic/format-geometry-edit.scm:283: (when (not (lengths-consistent? (tree-ref t 1) (tree-ref t 2))) 1262TeXmacs/progs/generic/format-geometry-edit.scm:284: (length-increase-step (tree-ref t 2) inc))))) 1263TeXmacs/progs/generic/format-geometry-edit.scm:295: (length-increase (tree-ref t 1) inc)))) 1264TeXmacs/progs/generic/format-geometry-edit.scm:302: (length-increase (tree-ref t 2) inc)))) 1265TeXmacs/progs/generic/format-geometry-edit.scm:309: (tree-in? t (resize-tag-list))) 1266TeXmacs/progs/generic/format-geometry-edit.scm:348: (lengths-consistent? (tree-ref t 1) (tree-ref t 3))) 1267TeXmacs/progs/generic/format-geometry-edit.scm:352: (lengths-consistent? (tree-ref t 2) (tree-ref t 4))) 1268TeXmacs/progs/generic/format-geometry-edit.scm:358: (length-increase-step (tree-ref t 3) inc) 1269TeXmacs/progs/generic/format-geometry-edit.scm:359: (when (not (lengths-consistent? (tree-ref t 3) (tree-ref t 4))) 1270TeXmacs/progs/generic/format-geometry-edit.scm:360: (length-increase-step (tree-ref t 3) inc))))) 1271TeXmacs/progs/generic/format-geometry-edit.scm:371: (length-increase (tree-ref t 3) inc)))) 1272TeXmacs/progs/generic/format-geometry-edit.scm:378: (length-increase (tree-ref t 4) inc)))) 1273TeXmacs/progs/generic/format-geometry-edit.scm:385: (length-increase (tree-ref t 1) inc) 1274TeXmacs/progs/generic/format-geometry-edit.scm:386: (length-increase (tree-ref t 3) inc))))) 1275TeXmacs/progs/generic/format-geometry-edit.scm:393: (length-increase (tree-ref t 2) inc) 1276TeXmacs/progs/generic/format-geometry-edit.scm:394: (length-increase (tree-ref t 4) inc))))) 1277TeXmacs/progs/generic/format-geometry-edit.scm:407: (length-increase-step (tree-ref t 0) inc)))) 1278TeXmacs/progs/generic/format-geometry-edit.scm:414: (length-increase (tree-ref t 1) inc)))) 1279TeXmacs/progs/generic/format-geometry-edit.scm:421: (length-increase (tree-ref t 2) inc)))) 1280TeXmacs/progs/generic/format-geometry-edit.scm:428: (length-increase (tree-ref t 4) inc)))) 1281TeXmacs/progs/generic/format-geometry-edit.scm:435: (tree-in? t '(anim-constant anim-translate anum-progressive))) 1282TeXmacs/progs/generic/format-geometry-edit.scm:487: (length-increase-step (tree-ref t 1) inc)))) 1283TeXmacs/progs/generic/format-geometry-edit.scm:494: (length-increase (tree-ref t 1) inc)))) 1284TeXmacs/progs/generic/format-menu.scm:210: (tree-in? t '(set-this-page-header set-this-page-footer 1285TeXmacs/progs/generic/generic-doc.scm:27: (with s (tree-child-name t i) 1286TeXmacs/progs/generic/generic-doc.scm:30: ((== (tree-child-type t i) "regular") "body") 1287TeXmacs/progs/generic/generic-doc.scm:31: (else (tree-child-type t i))) 1288TeXmacs/progs/generic/generic-doc.scm:35: (if (>= i (tree-arity t)) '() 1289TeXmacs/progs/generic/generic-doc.scm:42: ($for (i (.. 0 (tree-arity t))) 1290TeXmacs/progs/generic/generic-doc.scm:48: "An argument of type ``" (tree-child-type t i) "''.")))))))) 1291TeXmacs/progs/generic/generic-doc.scm:51: ($let* ((lab (tree-label t)) 1292TeXmacs/progs/generic/generic-doc.scm:61: ($with s (symbol->string (tree-label t)) 1293TeXmacs/progs/generic/generic-doc.scm:70: (define (tree->markup t) 1294TeXmacs/progs/generic/generic-doc.scm:71: ($markup (symbol->string (tree-label t)))) 1295TeXmacs/progs/generic/generic-doc.scm:74: ($let* ((lab (tree-label t)) 1296TeXmacs/progs/generic/generic-doc.scm:90: ($let* ((lab (tree-label t)) 1297TeXmacs/progs/generic/generic-doc.scm:107: ($let* ((lab (tree-label t)) 1298TeXmacs/progs/generic/generic-doc.scm:163: "A parameter of type " (tree-label-type (string->symbol par)) ".")))) 1299TeXmacs/progs/generic/generic-doc.scm:166: ($let* ((lab (tree-label t)) 1300TeXmacs/progs/generic/generic-doc.scm:211: ($with lab (tree-label t) 1301TeXmacs/progs/generic/generic-doc.scm:217: ($with lab (tree-label t) 1302TeXmacs/progs/generic/generic-doc.scm:258: ($with lab (tree-label t) 1303TeXmacs/progs/generic/generic-doc.scm:315: ($let* ((lab (tree-label t)) 1304TeXmacs/progs/generic/generic-doc.scm:318: (lambda (i) (not (tree-accessible-child? t i))))) 1305TeXmacs/progs/generic/generic-doc.scm:350: (symbol->string (tree-label t)) "'' tag") 1306TeXmacs/progs/generic/generic-doc.scm:354: ($with tagdoc (tmdoc-search-tag (tree-label t)) 1307TeXmacs/progs/generic/generic-doc.scm:358: ($when (tree-label-extension? (tree-label t)) 1308TeXmacs/progs/generic/generic-doc.scm:373: ($when (< (length (tree-accessible-children t)) 1309TeXmacs/progs/generic/generic-doc.scm:374: (length (tree-children t))) 1310TeXmacs/progs/generic/generic-doc.scm:386: (lazy-initialize (generic document-doc) (tree-is-buffer? (focus-tree))) 1311TeXmacs/progs/generic/generic-edit.scm:28: (and-with p (tree-outer t) 1312TeXmacs/progs/generic/generic-edit.scm:32: (and-with p (tree-outer t) 1313TeXmacs/progs/generic/generic-edit.scm:36: (and-with p (tree-outer t) 1314TeXmacs/progs/generic/generic-edit.scm:40: (and-with p (tree-outer t) 1315TeXmacs/progs/generic/generic-edit.scm:44: (:require (tree-is-buffer? t)) 1316TeXmacs/progs/generic/generic-edit.scm:49: (:require (tree-is-buffer? t)) 1317TeXmacs/progs/generic/generic-edit.scm:54: (:require (tree-is-buffer? t)) 1318TeXmacs/progs/generic/generic-edit.scm:59: (:require (tree-is-buffer? t)) 1319TeXmacs/progs/generic/generic-edit.scm:92: (and-with p (tree-outer t) 1320TeXmacs/progs/generic/generic-edit.scm:96: (and-with p (tree-outer t) 1321TeXmacs/progs/generic/generic-edit.scm:100: (and-with p (tree-outer t) 1322TeXmacs/progs/generic/generic-edit.scm:104: (:require (tree-is-buffer? t)) 1323TeXmacs/progs/generic/generic-edit.scm:108: (:require (tree-is-buffer? t)) 1324TeXmacs/progs/generic/generic-edit.scm:112: (:require (and (tree-is-buffer? t) (with-any-selection?))) 1325TeXmacs/progs/generic/generic-edit.scm:117: (:require (tree-is-buffer? t)) 1326TeXmacs/progs/generic/generic-edit.scm:124: (:require (and (tree-in? t '(label reference pageref)) (cursor-inside? t))) 1327TeXmacs/progs/generic/generic-edit.scm:128: (:require (and (tree-in? t '(cite nocite cite-detail)) (cursor-inside? t))) 1328TeXmacs/progs/generic/generic-edit.scm:130: (with ttxt (tree-ref t (cADr (cursor-path))) 1329TeXmacs/progs/generic/generic-edit.scm:160: (nin? (tree-label t) (simple-tags)))) 1330TeXmacs/progs/generic/generic-edit.scm:164: (and (tree-in? t (simple-tags)) 1331TeXmacs/progs/generic/generic-edit.scm:165: (simple-context? (tree-down t))))) 1332TeXmacs/progs/generic/generic-edit.scm:168: (tree-is? t 'document)) 1333TeXmacs/progs/generic/generic-edit.scm:171: (or (tree-in? t '(table tformat)) 1334TeXmacs/progs/generic/generic-edit.scm:172: (and (== (tree-arity t) 1) 1335TeXmacs/progs/generic/generic-edit.scm:173: (or (tree-in? (tree-ref t 0) '(table tformat)) 1336TeXmacs/progs/generic/generic-edit.scm:174: (and (tm-func? (tree-ref t 0) 'document 1) 1337TeXmacs/progs/generic/generic-edit.scm:175: (tree-in? (tree-ref t 0 0) '(table tformat))))))) 1338TeXmacs/progs/generic/generic-edit.scm:178: (or (tree-is-dynamic? t) 1339TeXmacs/progs/generic/generic-edit.scm:182: (or (tree-in? t '(tree)) 1340TeXmacs/progs/generic/generic-edit.scm:193: (and-with p (tree-outer t) 1341TeXmacs/progs/generic/generic-edit.scm:202: (cond ((in? (tree-label t) l) t) 1342TeXmacs/progs/generic/generic-edit.scm:203: ((and (not (tree-is-buffer? t)) (tree-up t)) 1343TeXmacs/progs/generic/generic-edit.scm:204: (find-similar-upwards (tree-up t) l)) 1344TeXmacs/progs/generic/generic-edit.scm:212: (tree-focus t)))) 1345TeXmacs/progs/generic/generic-edit.scm:215: (let* ((l (similar-to (tree-label t))) 1346TeXmacs/progs/generic/generic-edit.scm:220: (let* ((l (similar-to (tree-label t))) 1347TeXmacs/progs/generic/generic-edit.scm:251: (and-with p (tree-outer t) 1348TeXmacs/progs/generic/generic-edit.scm:255: (and-with p (tree-outer t) 1349TeXmacs/progs/generic/generic-edit.scm:259: (and-with p (tree-outer t) 1350TeXmacs/progs/generic/generic-edit.scm:263: (and-with p (tree-outer t) 1351TeXmacs/progs/generic/generic-edit.scm:268: (when (tree->path t :down) 1352TeXmacs/progs/generic/generic-edit.scm:269: (insert-argument-at (tree->path t :down) forwards?))) 1353TeXmacs/progs/generic/generic-edit.scm:273: (when (tree->path t :down) 1354TeXmacs/progs/generic/generic-edit.scm:274: (remove-argument-at (tree->path t :down) forwards?))) 1355TeXmacs/progs/generic/generic-edit.scm:314: (and-with p (tree-outer t) 1356TeXmacs/progs/generic/generic-edit.scm:321: (with p (move (root-tree) (tree->path (tree-down t))) 1357TeXmacs/progs/generic/generic-edit.scm:325: (and-with p (tree-outer t) 1358TeXmacs/progs/generic/generic-edit.scm:329: (and-with p (tree-outer t) 1359TeXmacs/progs/generic/generic-edit.scm:335: (tree-go-to t :down (if forwards? :end :start)))) 1360TeXmacs/progs/generic/generic-edit.scm:347: (tree-go-to t (if forwards? :end :start)))) 1361TeXmacs/progs/generic/generic-edit.scm:375: (and-with p (tree-outer t) 1362TeXmacs/progs/generic/generic-edit.scm:379: (and-with p (tree-outer t) 1363TeXmacs/progs/generic/generic-edit.scm:383: (and-with p (tree-outer t) 1364TeXmacs/progs/generic/generic-edit.scm:387: (and-with p (tree-outer t) 1365TeXmacs/progs/generic/generic-edit.scm:391: (and-with p (tree-outer t) 1366TeXmacs/progs/generic/generic-edit.scm:395: (and-with p (tree-outer t) 1367TeXmacs/progs/generic/generic-edit.scm:399: (and-with p (tree-outer t) 1368TeXmacs/progs/generic/generic-edit.scm:432: (:require (tree-is? t 'tree)) 1369TeXmacs/progs/generic/generic-edit.scm:433: (if (== (tree-down-index t) 0) (set! t (tree-up t))) 1370TeXmacs/progs/generic/generic-edit.scm:435: (with pos (tree-down-index t) 1371TeXmacs/progs/generic/generic-edit.scm:437: (tree-insert! t pos '("")) 1372TeXmacs/progs/generic/generic-edit.scm:438: (tree-go-to t pos 0)))) 1373TeXmacs/progs/generic/generic-edit.scm:441: (:require (tree-is? t 'tree)) 1374TeXmacs/progs/generic/generic-edit.scm:442: (if (== (tree-down-index t) 0) (set! t (tree-up t))) 1375TeXmacs/progs/generic/generic-edit.scm:444: (with pos (tree-down-index t) 1376TeXmacs/progs/generic/generic-edit.scm:446: (tree-remove! t pos 1) 1377TeXmacs/progs/generic/generic-edit.scm:447: (if (== pos (tree-arity t)) 1378TeXmacs/progs/generic/generic-edit.scm:448: (tree-go-to t :end) 1379TeXmacs/progs/generic/generic-edit.scm:449: (tree-go-to t pos :start))) 1380TeXmacs/progs/generic/generic-edit.scm:450: ((== pos 1) (tree-go-to t 0 :end)) 1381TeXmacs/progs/generic/generic-edit.scm:451: (else (tree-remove! t (- pos 1) 1)))))) 1382TeXmacs/progs/generic/generic-edit.scm:454: (:require (tree-is? t 'tree)) 1383TeXmacs/progs/generic/generic-edit.scm:456: (if (== (tree-down-index t) 0) 1384TeXmacs/progs/generic/generic-edit.scm:457: (with pos (tree-arity t) 1385TeXmacs/progs/generic/generic-edit.scm:458: (tree-insert! t pos '("")) 1386TeXmacs/progs/generic/generic-edit.scm:459: (tree-go-to t pos 0)) 1387TeXmacs/progs/generic/generic-edit.scm:461: (set! t (tree-down t)) 1388TeXmacs/progs/generic/generic-edit.scm:462: (tree-set! t `(tree ,t "")) 1389TeXmacs/progs/generic/generic-edit.scm:463: (tree-go-to t 1 0))) 1390TeXmacs/progs/generic/generic-edit.scm:465: (if (!= (tree-down-index t) 0) (set! t (tree-down t))) 1391TeXmacs/progs/generic/generic-edit.scm:466: (tree-set! t `(tree "" ,t)) 1392TeXmacs/progs/generic/generic-edit.scm:467: (tree-go-to t 0 0)))) 1393TeXmacs/progs/generic/generic-edit.scm:470: (with i (tree-down-index t) 1394TeXmacs/progs/generic/generic-edit.scm:471: (if (and (= i 0) (tree-is? t :up 'tree)) 1395TeXmacs/progs/generic/generic-edit.scm:472: (tree-up t) 1396TeXmacs/progs/generic/generic-edit.scm:476: (apply tree-go-to l) 1397TeXmacs/progs/generic/generic-edit.scm:477: (if (tree-is? (cursor-tree) 'tree) 1398TeXmacs/progs/generic/generic-edit.scm:480: (tree-go-to (cursor-tree) 0 last)))) 1399TeXmacs/progs/generic/generic-edit.scm:483: (:require (tree-is? t* 'tree)) 1400TeXmacs/progs/generic/generic-edit.scm:485: (i (tree-down-index t))) 1401TeXmacs/progs/generic/generic-edit.scm:488: ((and forwards? (!= i 0) (< i (- (tree-arity t) 1))) 1402TeXmacs/progs/generic/generic-edit.scm:492: (:require (tree-is? t* 'tree)) 1403TeXmacs/progs/generic/generic-edit.scm:494: (i (tree-down-index t))) 1404TeXmacs/progs/generic/generic-edit.scm:496: (tree-go-to t 0 :end)) 1405TeXmacs/progs/generic/generic-edit.scm:497: ((and downwards? (== (tree-down-index t*) 0)) 1406TeXmacs/progs/generic/generic-edit.scm:498: (branch-go-to t* (quotient (tree-arity t*) 2) :start))))) 1407TeXmacs/progs/generic/generic-edit.scm:501: (:require (tree-is? t* 'tree)) 1408TeXmacs/progs/generic/generic-edit.scm:503: (i (tree-down-index t))) 1409TeXmacs/progs/generic/generic-edit.scm:510: (:require (tree-is? t 'tree)) 1410TeXmacs/progs/generic/generic-edit.scm:530: (tree-select (buffer-tree))) 1411TeXmacs/progs/generic/generic-edit.scm:535: (tree-go-to t n 0))) 1412TeXmacs/progs/generic/generic-edit.scm:540: (with p (tree-cursor-path t) 1413TeXmacs/progs/generic/generic-edit.scm:541: (tree-go-to t (cADr p) c)))) 1414TeXmacs/progs/generic/generic-edit.scm:545: (let* ((st (tree->string t)) 1415TeXmacs/progs/generic/generic-edit.scm:549: (with p (tree->path t) 1416TeXmacs/progs/generic/generic-edit.scm:601: (and-with p (tree-outer t) 1417TeXmacs/progs/generic/generic-edit.scm:605: (:require (tree-is-buffer? t)) 1418TeXmacs/progs/generic/generic-edit.scm:684: (and-with t (tree-innermost 'marginal-note #t) 1419TeXmacs/progs/generic/generic-edit.scm:685: (tm-equal? (tree-ref t 0) hp))) 1420TeXmacs/progs/generic/generic-edit.scm:689: (and-with t (tree-innermost 'marginal-note #t) 1421TeXmacs/progs/generic/generic-edit.scm:690: (tree-set t 0 hp))) 1422TeXmacs/progs/generic/generic-edit.scm:693: (and-with t (tree-innermost 'marginal-note #t) 1423TeXmacs/progs/generic/generic-edit.scm:694: (tm-equal? (tree-ref t 1) va))) 1424TeXmacs/progs/generic/generic-edit.scm:698: (and-with t (tree-innermost 'marginal-note #t) 1425TeXmacs/progs/generic/generic-edit.scm:699: (tree-set t 1 va))) 1426TeXmacs/progs/generic/generic-edit.scm:711: (st (tree-ref t 1))) 1427TeXmacs/progs/generic/generic-edit.scm:712: (tree-set! st (op (tree->string st) what))))) 1428TeXmacs/progs/generic/generic-edit.scm:717: (char-in-string? c (tree->string (tree-ref t 1)))))) 1429TeXmacs/progs/generic/generic-edit.scm:735: (tree-in? t (balloon-tag-list))) 1430TeXmacs/progs/generic/generic-edit.scm:742: (with (x1 y1 x2 y2) (tree-bounding-rectangle body) 1431TeXmacs/progs/generic/generic-edit.scm:747: (ww (integer-floor (/ (tree->number (tree-ref extents 0)) sf))) 1432TeXmacs/progs/generic/generic-edit.scm:748: (wh (integer-floor (/ (tree->number (tree-ref extents 1)) sf))) 1433TeXmacs/progs/generic/generic-edit.scm:749: (ha (tree->stree halign)) 1434TeXmacs/progs/generic/generic-edit.scm:750: (va (tree->stree valign)) 1435TeXmacs/progs/generic/generic-edit.scm:773: (ww (integer-floor (/ (tree->number (tree-ref extents 0)) sf))) 1436TeXmacs/progs/generic/generic-edit.scm:774: (wh (integer-floor (/ (tree->number (tree-ref extents 1)) sf))) 1437TeXmacs/progs/generic/generic-edit.scm:775: (ha (tree->stree halign)) 1438TeXmacs/progs/generic/generic-edit.scm:776: (va (tree->stree valign)) 1439TeXmacs/progs/generic/generic-edit.scm:794: (and-with t (tree-innermost balloon-context? #t) 1440TeXmacs/progs/generic/generic-edit.scm:795: (tm-equal? (tree-ref t 2) ha))) 1441TeXmacs/progs/generic/generic-edit.scm:799: (and-with t (tree-innermost balloon-context? #t) 1442TeXmacs/progs/generic/generic-edit.scm:800: (tree-set t 2 ha))) 1443TeXmacs/progs/generic/generic-edit.scm:803: (and-with t (tree-innermost balloon-context? #t) 1444TeXmacs/progs/generic/generic-edit.scm:804: (tm-equal? (tree-ref t 3) va))) 1445TeXmacs/progs/generic/generic-edit.scm:808: (and-with t (tree-innermost balloon-context? #t) 1446TeXmacs/progs/generic/generic-edit.scm:809: (tree-set t 3 va))) 1447TeXmacs/progs/generic/generic-menu.scm:41: (< (tree-arity t) (tree-maximal-arity t))) 1448TeXmacs/progs/generic/generic-menu.scm:44: (> (tree-arity t) (tree-minimal-arity t))) 1449TeXmacs/progs/generic/generic-menu.scm:50: (and (tree-compound? t) (tree-label-extension? (tree-label t)))) 1450TeXmacs/progs/generic/generic-menu.scm:53: (:require (tree-in? t '(reference pageref hlink locus ornament))) 1451TeXmacs/progs/generic/generic-menu.scm:61: (variants-of (tree-label t))) 1452TeXmacs/progs/generic/generic-menu.scm:66: (with r (upcase-first (tree-name (tree l))) 1453TeXmacs/progs/generic/generic-menu.scm:79: (and (== (tree-child-type t i) "variable") 1454TeXmacs/progs/generic/generic-menu.scm:80: (tree-in? t '(with attr style-with style-with*)) 1455TeXmacs/progs/generic/generic-menu.scm:81: (tree-atomic? (tree-ref t i)) 1456TeXmacs/progs/generic/generic-menu.scm:82: (!= (tree->stree (tree-ref t i)) ""))) 1457TeXmacs/progs/generic/generic-menu.scm:85: (and (not (tree-accessible-child? t i)) 1458TeXmacs/progs/generic/generic-menu.scm:87: (!= (type->format (tree-child-type t i)) "n.a."))) 1459TeXmacs/progs/generic/generic-menu.scm:90: (with fun (lambda (i) (if (hidden-child? t i) (list (tree-ref t i)) (list))) 1460TeXmacs/progs/generic/generic-menu.scm:91: (append-map fun (.. 0 (tree-arity t))))) 1461TeXmacs/progs/generic/generic-menu.scm:93: (define (tree-child-name* t i) 1462TeXmacs/progs/generic/generic-menu.scm:94: (with s (tree-child-name t i) 1463TeXmacs/progs/generic/generic-menu.scm:97: (with r (tree->string (tree-ref t (- i 1))) 1464TeXmacs/progs/generic/generic-menu.scm:100: ((== (tree-child-type t i) "regular") "") 1465TeXmacs/progs/generic/generic-menu.scm:101: (else (tree-child-type t i))))) 1466TeXmacs/progs/generic/generic-menu.scm:103: (define (tree-child-long-name* t i) 1467TeXmacs/progs/generic/generic-menu.scm:104: (with s (tree-child-long-name t i) 1468TeXmacs/progs/generic/generic-menu.scm:107: (with r (tree->string (tree-ref t (- i 1))) 1469TeXmacs/progs/generic/generic-menu.scm:110: ((== (tree-child-type t i) "regular") "") 1470TeXmacs/progs/generic/generic-menu.scm:111: (else (tree-child-type t i))))) 1471TeXmacs/progs/generic/generic-menu.scm:135: (else (tree-atomic? t)))) 1472TeXmacs/progs/generic/generic-menu.scm:139: (else (tree->string t)))) 1473TeXmacs/progs/generic/generic-menu.scm:146: (let* ((name (tree-child-name* t i)) 1474TeXmacs/progs/generic/generic-menu.scm:147: (type (tree-child-type t i)) 1475TeXmacs/progs/generic/generic-menu.scm:149: (active? (inputter-active? (tree-ref t i) type)) 1476TeXmacs/progs/generic/generic-menu.scm:150: (in (if active? (inputter-decode (tree-ref t i) type) "n.a.")) 1477TeXmacs/progs/generic/generic-menu.scm:156: (tree-set (focus-tree) i (inputter-encode x type)))))) 1478TeXmacs/progs/generic/generic-menu.scm:167: (=> (color (tree->stree (tree-ref t i)) #f #f 24 16) 1479TeXmacs/progs/generic/generic-menu.scm:175: (let* ((name (tree-child-long-name* t i)) 1480TeXmacs/progs/generic/generic-menu.scm:178: (type (tree-child-type t i)) 1481TeXmacs/progs/generic/generic-menu.scm:182: (tree-set (focus-tree) i (inputter-encode x type)))))) 1482TeXmacs/progs/generic/generic-menu.scm:184: (when (inputter-active? (tree-ref t i) type) 1483TeXmacs/progs/generic/generic-menu.scm:187: (list prompt fm (inputter-decode (tree-ref t i) type)))))))) 1484TeXmacs/progs/generic/generic-menu.scm:191: (with c (tree-ref t i) 1485TeXmacs/progs/generic/generic-menu.scm:192: (with s (if (tree-atomic? c) (tree->string c) "n.a.") 1486TeXmacs/progs/generic/generic-menu.scm:201: (focus-tag-name (string->symbol (tree-name (list (string->symbol l)))))) 1487TeXmacs/progs/generic/generic-menu.scm:222: (:require (and (tree-label-parameter? (string->symbol l)) 1488TeXmacs/progs/generic/generic-menu.scm:224: (nin? (tree-label-type (string->symbol l)) 1489TeXmacs/progs/generic/generic-menu.scm:230: (:require (and (tree-label-parameter? (string->symbol l)) 1490TeXmacs/progs/generic/generic-menu.scm:232: (== (tree-label-type (string->symbol l)) "boolean"))) 1491TeXmacs/progs/generic/generic-menu.scm:238: (:require (and (tree-label-parameter? (string->symbol l)) 1492TeXmacs/progs/generic/generic-menu.scm:239: (== (tree-label-type (string->symbol l)) "color"))) 1493TeXmacs/progs/generic/generic-menu.scm:265: (if (tree-label-extension? (tree-label t)) 1494TeXmacs/progs/generic/generic-menu.scm:292: (assuming (!= (tree-children t) (tree-accessible-children t)) 1495TeXmacs/progs/generic/generic-menu.scm:293: ((check "Show hidden" "v" (tree-is? t :up 'inactive)) 1496TeXmacs/progs/generic/generic-menu.scm:307: (if (tree-label-extension? (tree-label t)) 1497TeXmacs/progs/generic/generic-menu.scm:311: (if (tree-label-extension? l) 1498TeXmacs/progs/generic/generic-menu.scm:320: (dynamic (focus-tag-edit-menu (tree-label t)))) 1499TeXmacs/progs/generic/generic-menu.scm:325: (inert ((eval (focus-tag-name (tree-label t))) (noop) (noop)))) 1500TeXmacs/progs/generic/generic-menu.scm:327: (-> (eval (focus-tag-name (tree-label t))) 1501TeXmacs/progs/generic/generic-menu.scm:368: (if (and-with i (tree-index c) 1502TeXmacs/progs/generic/generic-menu.scm:369: (with type (tree-child-type t i) 1503TeXmacs/progs/generic/generic-menu.scm:378: (for (i (.. 0 (tree-arity t))) 1504TeXmacs/progs/generic/generic-menu.scm:419: (assuming (!= (tree-children t) (tree-accessible-children t)) 1505TeXmacs/progs/generic/generic-menu.scm:421: (tree-is? t :up 'inactive)) 1506TeXmacs/progs/generic/generic-menu.scm:434: (inert ((eval (focus-tag-name (tree-label t))) (noop)))) 1507TeXmacs/progs/generic/generic-menu.scm:436: (=> (balloon (eval (focus-tag-name (tree-label t))) 1508TeXmacs/progs/generic/generic-menu.scm:496: (for (i (.. 0 (tree-arity t))) 1509TeXmacs/progs/generic/generic-menu.scm:536: (:require (== (tree-label-type (string->symbol var)) "color")) 1510TeXmacs/progs/generic/generic-menu.scm:548: (with l (tree-label t) 1511TeXmacs/progs/generic/generic-menu.scm:550: (when (tree-is? (focus-tree) l) 1512TeXmacs/progs/generic/generic-menu.scm:551: (tree-with-set (focus-tree) var val))) 1513TeXmacs/progs/generic/generic-menu.scm:565: (:require (== (tree-label-type (string->symbol var)) "color")) 1514TeXmacs/progs/generic/generic-menu.scm:566: (=> (color (tree->stree (get-env-tree var)) #f #f 24 16) 1515TeXmacs/progs/generic/generic-menu.scm:576: (with l (tree-label t) 1516TeXmacs/progs/generic/generic-menu.scm:578: (when (tree-is? (focus-tree) l) 1517TeXmacs/progs/generic/generic-menu.scm:579: (tree-with-set (focus-tree) var val))) 1518TeXmacs/progs/generic/generic-widgets.scm:97: (rel (path-strip (cDr p) (tree->path buf))) 1519TeXmacs/progs/generic/generic-widgets.scm:100: (new-env (tree-descendant-env buf rel initial))) 1520TeXmacs/progs/generic/generic-widgets.scm:130: (if (tree-empty? what) 1521TeXmacs/progs/generic/generic-widgets.scm:136: (sels* (tree-search-tree t what (tree->path t) limit)) 1522TeXmacs/progs/generic/generic-widgets.scm:268: (insert-go-to (tree-copy by) (path-end by '())) 1523TeXmacs/progs/generic/generic-widgets.scm:608: (with t (if (tree-is? u 'hide-para) (tree-ref u 0) u) 1524TeXmacs/progs/generic/generic-widgets.scm:609: (let* ((sels* (tree-search-tree t what (tree->path t) 100)) 1525TeXmacs/progs/generic/generic-widgets.scm:612: (when (not (tree-is? u 'hide-para)) 1526TeXmacs/progs/generic/generic-widgets.scm:613: (tree-insert-node u 0 '(hide-para))) 1527TeXmacs/progs/generic/generic-widgets.scm:615: (when (tree-is? u 'hide-para) 1528TeXmacs/progs/generic/generic-widgets.scm:616: (tree-remove-node! u 0)) 1529TeXmacs/progs/generic/generic-widgets.scm:620: (if (tree-is? t 'document) (show-only t what))) 1530TeXmacs/progs/generic/generic-widgets.scm:625: ((tree-is? t 'document) 1531TeXmacs/progs/generic/generic-widgets.scm:626: (for-each (cut show-only-sub <> what) (tree-children t))) 1532TeXmacs/progs/generic/generic-widgets.scm:627: ((tree-is? t 'hide-para) 1533TeXmacs/progs/generic/generic-widgets.scm:629: ((tree-compound? t) 1534TeXmacs/progs/generic/generic-widgets.scm:631: (tree-accessible-children t))) 1535TeXmacs/progs/generic/generic-widgets.scm:635: (if (tree-is? t 'document) (show-all t))) 1536TeXmacs/progs/generic/generic-widgets.scm:638: (cond ((tree-is? t 'document) 1537TeXmacs/progs/generic/generic-widgets.scm:639: (for-each show-all (tree-children t))) 1538TeXmacs/progs/generic/generic-widgets.scm:640: ((tree-is? t 'hide-para) 1539TeXmacs/progs/generic/generic-widgets.scm:641: (tree-remove-node t 0)) 1540TeXmacs/progs/generic/generic-widgets.scm:642: ((tree-compound? t) 1541TeXmacs/progs/generic/generic-widgets.scm:643: (for-each show-all-document (tree-accessible-children t))) 1542TeXmacs/progs/generic/generic-widgets.scm:651: (when (tree-func? what 'document 1) 1543TeXmacs/progs/generic/generic-widgets.scm:652: (set! what (tree-ref what 0))) 1544TeXmacs/progs/generic/generic-widgets.scm:653: (when (and (tree-func? doc 'document) 1545TeXmacs/progs/generic/generic-widgets.scm:654: (tree-func? (tree-ref doc :last) 'blank-line)) 1546TeXmacs/progs/generic/generic-widgets.scm:655: (tree-remove! doc (- (tree-arity doc) 1) 1)) 1547TeXmacs/progs/generic/generic-widgets.scm:657: (when (and (tree-func? doc 'document) 1548TeXmacs/progs/generic/generic-widgets.scm:658: (list-and (map (lambda (x) (tree-is? x 'hide-para)) 1549TeXmacs/progs/generic/generic-widgets.scm:659: (tree-children doc))) 1550TeXmacs/progs/generic/generic-widgets.scm:660: (not (tree-func? (tree-ref doc :last) 'blank-line))) 1551TeXmacs/progs/generic/generic-widgets.scm:661: (tree-insert! doc (tree-arity doc) '((blank-line)))))))) 1552TeXmacs/progs/generic/generic-widgets.scm:668: (when (and (tree-func? doc 'document) 1553TeXmacs/progs/generic/generic-widgets.scm:669: (tree-func? (tree-ref doc :last) 'blank-line)) 1554TeXmacs/progs/generic/generic-widgets.scm:670: (tree-remove! doc (- (tree-arity doc) 1) 1)))))) 1555TeXmacs/progs/graphics/graphics-drd.scm:54: (tree-innermost graphical-text-context?)) 1556TeXmacs/progs/graphics/graphics-edit.scm:36: ;; -> Remove all the (stree-at), (tree->stree), etc. 1557TeXmacs/progs/graphics/graphics-edit.scm:38: ;; -> Replace the remaining (tree->stree) by (tm->stree) or (t2o) 1558TeXmacs/progs/graphics/graphics-edit.scm:40: ;; -> Except in simple cases, remove all the (tree->stree) which 1559TeXmacs/progs/graphics/graphics-edit.scm:54: ;; des differentes fonctions (par exemple (stree->tree #f) == #f, 1560TeXmacs/progs/graphics/graphics-edit.scm:55: ;; mais (stree->tree 1) == <tree 1>. 1561TeXmacs/progs/graphics/graphics-edit.scm:66: (or (tree-in? t gr-tags-all) 1562TeXmacs/progs/graphics/graphics-edit.scm:67: (and (tree-is? t 'with) 1563TeXmacs/progs/graphics/graphics-edit.scm:68: (graphics-graphical? (tree-ref t :last)))))) 1564TeXmacs/progs/graphics/graphics-edit.scm:71: (or (and (tree? t) (tree-compound? t) 1565TeXmacs/progs/graphics/graphics-edit.scm:72: (list-find-index (tree-children t) graphics-graphical?)) 0)) 1566TeXmacs/progs/graphics/graphics-edit.scm:90: (foreach-number (i (+ 1 ofs) < (tree-arity t0)) 1567TeXmacs/progs/graphics/graphics-edit.scm:107: (tree-remove t0 (cAr p) 1) 1568TeXmacs/progs/graphics/graphics-edit.scm:108: (tree-insert (tree-up t-1) (cAr p-1) `(,(tree->stree t))) 1569TeXmacs/progs/graphics/graphics-edit.scm:113: (if (< (+ (cAr p) 1) (tree-arity t0)) 1570TeXmacs/progs/graphics/graphics-edit.scm:114: (let* ((p+1 (rcons (cDr p) (- (tree-arity t0) 1))) 1571TeXmacs/progs/graphics/graphics-edit.scm:117: (tree-remove t0 (cAr p) 1) 1572TeXmacs/progs/graphics/graphics-edit.scm:118: (tree-insert (tree-up t+1) (cAr p+1) `(,(tree->stree t))) 1573TeXmacs/progs/graphics/graphics-edit.scm:130: (tree-remove t0 (cAr p) 1) 1574TeXmacs/progs/graphics/graphics-edit.scm:131: (tree-insert (tree-up t-1) (cAr p-1) `(,(tree->stree t))) 1575TeXmacs/progs/graphics/graphics-edit.scm:136: (if (< (+ (cAr p) 1) (tree-arity t0)) 1576TeXmacs/progs/graphics/graphics-edit.scm:143: (tree-remove t0 (cAr p) 1) 1577TeXmacs/progs/graphics/graphics-edit.scm:144: (tree-insert (tree-up t+1) (cAr p+1) `(,(tree->stree t))) 1578TeXmacs/progs/graphics/graphics-edit.scm:215: (if (and p (list-starts? p (tree->path t))) 1579TeXmacs/progs/graphics/graphics-edit.scm:217: (tree-go-to t :start)))) 1580TeXmacs/progs/graphics/graphics-env.scm:116: (if (pair? (tree->stree o)) 1581TeXmacs/progs/graphics/graphics-env.scm:261: (eq? (tree-label o) 'with) 1582TeXmacs/progs/graphics/graphics-env.scm:262: (eq? (tree-label (tree-ref o (- (tree-arity o) 1))) 1583TeXmacs/progs/graphics/graphics-env.scm:267: (if (and o (not (in? (tree-label o) gr-tags-all))) 1584TeXmacs/progs/graphics/graphics-env.scm:270: (tree->stree o) (f2s x) (f2s y)) 1585TeXmacs/progs/graphics/graphics-env.scm:292: (with res (tree->stree (graphical-select x y)) 1586TeXmacs/progs/graphics/graphics-env.scm:298: (with res (tree->stree (graphical-select-area x1 y1 x2 y2)) 1587TeXmacs/progs/graphics/graphics-group.scm:44: (with so (map tree->stree (sketch-get)) 1588TeXmacs/progs/graphics/graphics-group.scm:149: (== (tree-label (car (sketch-get))) 'gr-group)) 1589TeXmacs/progs/graphics/graphics-group.scm:155: (foreach-number (i 0 < (tree-arity obj)) 1590TeXmacs/progs/graphics/graphics-group.scm:156: (sketch-toggle (tree-ref obj i))) 1591TeXmacs/progs/graphics/graphics-group.scm:173: (graphics-group-enrich-insert-table (stree-radical obj) tab #f))) 1592TeXmacs/progs/graphics/graphics-group.scm:218: (== (tree-label (path->tree p)) 'gr-group)) 1593TeXmacs/progs/graphics/graphics-group.scm:222: (== (tree-label (car (sketch-get))) 'gr-group)) 1594TeXmacs/progs/graphics/graphics-group.scm:229: (set! obj (stree-at p)) 1595TeXmacs/progs/graphics/graphics-group.scm:236: (tree->path o) 1596TeXmacs/progs/graphics/graphics-group.scm:237: (tree->stree o)) 1597TeXmacs/progs/graphics/graphics-group.scm:249: (sketch-transform tree->stree) 1598TeXmacs/progs/graphics/graphics-group.scm:427: (stree->tree "") 1599TeXmacs/progs/graphics/graphics-group.scm:428: (stree->tree (cons 'graphics copied-objects)))) 1600TeXmacs/progs/graphics/graphics-group.scm:429: (stree->tree ""))) 1601TeXmacs/progs/graphics/graphics-group.scm:441: (stree->tree ""))) 1602TeXmacs/progs/graphics/graphics-group.scm:447: (tree-compound? sel) 1603TeXmacs/progs/graphics/graphics-group.scm:448: (== (tree-label sel) 'graphics) 1604TeXmacs/progs/graphics/graphics-group.scm:449: (> (tree-arity sel) 0)) 1605TeXmacs/progs/graphics/graphics-group.scm:453: (foreach-number (i 0 < (tree-arity sel)) 1606TeXmacs/progs/graphics/graphics-group.scm:454: (sketch-toggle (tree-ref sel i))) 1607TeXmacs/progs/graphics/graphics-kbd.scm:29: (tree-is? t 'graphics)) 1608TeXmacs/progs/graphics/graphics-kbd.scm:32: (tree-search-upwards t graphics-context?)) 1609TeXmacs/progs/graphics/graphics-kbd.scm:35: (and-with p (tree-ref t :up) 1610TeXmacs/progs/graphics/graphics-kbd.scm:36: (and-with u (tree-search-upwards p graphical-text-context?) 1611TeXmacs/progs/graphics/graphics-kbd.scm:231: (with-innermost t (lambda (x) (tree-in? x '(draw-over draw-under))) 1612TeXmacs/progs/graphics/graphics-kbd.scm:232: (if (tree-is? t 'draw-over) 1613TeXmacs/progs/graphics/graphics-kbd.scm:234: (tree-assign-node! t 'draw-under) 1614TeXmacs/progs/graphics/graphics-kbd.scm:235: (tree-go-to t 0 :end)) 1615TeXmacs/progs/graphics/graphics-kbd.scm:237: (tree-assign-node! t 'draw-over) 1616TeXmacs/progs/graphics/graphics-kbd.scm:238: (if (tree-is? (tree-ref t 1) 'with) 1617TeXmacs/progs/graphics/graphics-kbd.scm:239: (tree-go-to t 1 (- (tree-arity (tree-ref t 1)) 1) :end) 1618TeXmacs/progs/graphics/graphics-kbd.scm:240: (tree-go-to t 1 :end)))))) 1619TeXmacs/progs/graphics/graphics-main.scm:30: (with geo (tree->stree (get-env-tree "gr-geometry")) 1620TeXmacs/progs/graphics/graphics-main.scm:72: (with frame (tree->stree (get-env-tree "gr-frame")) 1621TeXmacs/progs/graphics/graphics-main.scm:209: (define (stree->number x) 1622TeXmacs/progs/graphics/graphics-main.scm:212: (define (stree->vector v) 1623TeXmacs/progs/graphics/graphics-main.scm:213: (map stree->number (cdr v))) 1624TeXmacs/progs/graphics/graphics-main.scm:215: (define (stree->matrix m) 1625TeXmacs/progs/graphics/graphics-main.scm:216: (map stree->vector (cdr m))) 1626TeXmacs/progs/graphics/graphics-main.scm:228: (stree->matrix (tree->stree (get-env-tree "gr-transformation")))) 1627TeXmacs/progs/graphics/graphics-main.scm:298: (with grid (tree->stree (get-env-tree (if visual? "gr-grid" "gr-edit-grid"))) 1628TeXmacs/progs/graphics/graphics-main.scm:344: (with grid (tree->stree (get-env-tree (if visual? "gr-grid" "gr-edit-grid"))) 1629TeXmacs/progs/graphics/graphics-main.scm:365: (with grid-old (tree->stree (get-env-tree prop-old)) 1630TeXmacs/progs/graphics/graphics-main.scm:541: ;;(tree->stree (get-env-tree "gr-grid-aspect-props")) 1631TeXmacs/progs/graphics/graphics-main.scm:561: (with aspect (tree->stree (get-env-tree gr)) 1632TeXmacs/progs/graphics/graphics-main.scm:665: (!= (tree->stree (get-env-tree "gr-as-visual-grid")) "off")) 1633TeXmacs/progs/graphics/graphics-main.scm:677: (with aspect (tree->stree (get-env-tree "gr-grid-aspect")) 1634TeXmacs/progs/graphics/graphics-main.scm:681: (let* ((grid (tree->stree (get-env-tree "gr-grid"))) 1635TeXmacs/progs/graphics/graphics-main.scm:682: (aspect (tree->stree (get-env-tree "gr-grid-aspect")))) 1636TeXmacs/progs/graphics/graphics-main.scm:713: (with m (tree->stree (get-env-tree "gr-mode")) 1637TeXmacs/progs/graphics/graphics-object.scm:86: ; FIXME: Remove this (tree->stree) should give more speed, but I'm not sure 1638TeXmacs/progs/graphics/graphics-object.scm:89: (with o (tree->stree (get-graphical-object)) 1639TeXmacs/progs/graphics/graphics-object.scm:98: (set-graphical-object (stree->tree obj))) 1640TeXmacs/progs/graphics/graphics-object.scm:323: (with path (reverse (tree-ip o)) 1641TeXmacs/progs/graphics/graphics-object.scm:330: (if (not (and (tree? o) (< (cAr (tree-ip o)) 0))) 1642TeXmacs/progs/graphics/graphics-object.scm:337: (with path (reverse (tree-ip o)) 1643TeXmacs/progs/graphics/graphics-object.scm:347: (set! o (tree->stree o))) ;; FIXME: Remove this (tree->stree) 1644TeXmacs/progs/graphics/graphics-object.scm:447: (enhanced-tree->radical x) 1645TeXmacs/progs/graphics/graphics-object.scm:485: (set! current-obj (tree->stree current-obj))) 1646TeXmacs/progs/graphics/graphics-object.scm:492: (set! current-obj (stree-radical current-obj)))) 1647TeXmacs/progs/graphics/graphics-object.scm:515: (with o (tree->stree (get-graphical-object)) 1648TeXmacs/progs/graphics/graphics-object.scm:526: (if (and (tree? x) (tree->path x)) 1649TeXmacs/progs/graphics/graphics-object.scm:572: (graphics-remove (tree->path o) 'memoize-layer) 1650TeXmacs/progs/graphics/graphics-object.scm:573: (if (or (tree->path o) (tree->path (enhanced-tree->radical o))) 1651TeXmacs/progs/graphics/graphics-object.scm:574: (set-car! c (tree-copy o))))))) 1652TeXmacs/progs/graphics/graphics-object.scm:595: (stree-radical (tm->stree (car (sketch-get)))) 1653TeXmacs/progs/graphics/graphics-object.scm:600: (tree->path (car (sketch-get))) 1654TeXmacs/progs/graphics/graphics-single.scm:90: (define obj (stree-radical (car (sketch-get1)))) 1655TeXmacs/progs/graphics/graphics-single.scm:95: (define obj (stree-radical (car (sketch-get1)))) 1656TeXmacs/progs/graphics/graphics-single.scm:134: (sketch-set! (map tree->stree (sketch-get)))) 1657TeXmacs/progs/graphics/graphics-single.scm:137: (define obj (stree-radical (car (sketch-get1)))) 1658TeXmacs/progs/graphics/graphics-single.scm:153: (set! current-obj (stree-radical obj)) 1659TeXmacs/progs/graphics/graphics-single.scm:166: (define (tree-update-constraints t) 1660TeXmacs/progs/graphics/graphics-single.scm:168: ((tree-atomic? t) (noop)) 1661TeXmacs/progs/graphics/graphics-single.scm:170: (graphics-has? (tree-ref t 1))) 1662TeXmacs/progs/graphics/graphics-single.scm:171: (let* ((old (tree-ref t :last)) 1663TeXmacs/progs/graphics/graphics-single.scm:172: (new (graphics-ref (tree-ref t 1)))) 1664TeXmacs/progs/graphics/graphics-single.scm:173: (when (!= new old) (tree-set t :last new)) 1665TeXmacs/progs/graphics/graphics-single.scm:174: (graphics-notify-update (tree-ref t 1)))) 1666TeXmacs/progs/graphics/graphics-single.scm:175: (else (for-each tree-update-constraints (tree-children t))))) 1667TeXmacs/progs/graphics/graphics-single.scm:181: (tree-update-constraints t) 1668TeXmacs/progs/graphics/graphics-single.scm:217: (for (i (reverse (.. 0 (tree-arity t)))) 1669TeXmacs/progs/graphics/graphics-single.scm:218: (with c (tree-ref t i) 1670TeXmacs/progs/graphics/graphics-single.scm:219: (if (tm-func? c 'with) (set! c (tree-ref c :last))) 1671TeXmacs/progs/graphics/graphics-single.scm:221: (== (tree->stree (tree-ref c 0)) "")) 1672TeXmacs/progs/graphics/graphics-single.scm:222: (tree-remove! t i 1)))))) 1673TeXmacs/progs/graphics/graphics-utils.scm:38: (tm-define (tree->object t) 1674TeXmacs/progs/graphics/graphics-utils.scm:64: (tm-define t2o tree->object) 1675TeXmacs/progs/graphics/graphics-utils.scm:83: (tree-eq? x y) 1676TeXmacs/progs/graphics/graphics-utils.scm:180: (tree-copy x) 1677TeXmacs/progs/graphics/graphics-utils.scm:190: (if (in? (tree-label (path->tree p)) tags) 1678TeXmacs/progs/graphics/graphics-utils.scm:192: (if (in? (tree-label (path->tree p)) nottags) 1679TeXmacs/progs/graphics/graphics-utils.scm:229: ;;(tm-find-prop (tree->path '<tree <with|a|1|...>>) "a") -> <tree 1> 1680TeXmacs/progs/graphics/graphics-utils.scm:233: (n (tree-arity t)) 1681TeXmacs/progs/graphics/graphics-utils.scm:238: (if (== (tree->stree (tree-ref t (* 2 i))) var) 1682TeXmacs/progs/graphics/graphics-utils.scm:239: (set! res (tree-ref t (+ (* 2 i) 1)))) 1683TeXmacs/progs/graphics/graphics-utils.scm:253: (if (tree? val) (tree->stree val) val)))) 1684TeXmacs/progs/graphics/graphics-utils.scm:256: (tm-define (get-upwards-tree-property p var) 1685TeXmacs/progs/graphics/graphics-utils.scm:268: (t2o (get-upwards-tree-property p var))) 1686TeXmacs/progs/graphics/graphics-utils.scm:283: (tm-define (stree-at p) 1687TeXmacs/progs/graphics/graphics-utils.scm:284: (tree->stree (path->tree p))) 1688TeXmacs/progs/graphics/graphics-utils.scm:291: (if (eq? (tree-label t) 'graphics) p 1689TeXmacs/progs/graphics/graphics-utils.scm:292: (with u (tree-innermost 'graphics) 1690TeXmacs/progs/graphics/graphics-utils.scm:293: (and u (tree->path u)))))) 1691TeXmacs/progs/graphics/graphics-utils.scm:300: (if (and (tree? o) ;; (in? (tree-label o) gr-tags-all) 1692TeXmacs/progs/graphics/graphics-utils.scm:301: (not (eq? (tree-label o) 'string)) 1693TeXmacs/progs/graphics/graphics-utils.scm:306: (if (eq? (tree-label o) 'graphics) #f p)) 1694TeXmacs/progs/graphics/graphics-utils.scm:332: (with val (get-upwards-tree-property (graphics-graphics-path) var) 1695TeXmacs/progs/graphics/graphics-utils.scm:334: (get-default-tree-val var) 1696TeXmacs/progs/graphics/graphics-utils.scm:336: (tree-ref val 0) 1697TeXmacs/progs/graphics/graphics-utils.scm:341: (tree->stree val))) 1698TeXmacs/progs/graphics/graphics-utils.scm:345: (cond ((tree? val) (graphics-set-property var (tree->stree val))) 1699TeXmacs/progs/graphics/graphics-utils.scm:428: (tree-arity (path->tree p))) 1700TeXmacs/progs/graphics/graphics-utils.scm:429: (tree-insert (path->tree p) n (list t)) 1701TeXmacs/progs/graphics/graphics-utils.scm:467: (if p (tree->stree (path->tree p)) #f))) 1702TeXmacs/progs/graphics/graphics-utils.scm:471: (if p (tree->stree (path->tree p)) #f))) 1703TeXmacs/progs/graphics/graphics-utils.scm:473: (tm-define (get-default-tree-val var) 1704TeXmacs/progs/graphics/graphics-utils.scm:477: (tree->stree (get-init-tree var))) 1705TeXmacs/progs/graphics/graphics-utils.scm:509: (tree-go-to t 0 :start))) 1706TeXmacs/progs/graphics/graphics-utils.scm:510: (tree-remove (path->tree (cDr p0)) (cAr p0) 1)))) 1707TeXmacs/progs/graphics/graphics-utils.scm:514: (tree-assign (path->tree p) t) 1708TeXmacs/progs/graphics/graphics-utils.scm:522: (tree->stree (texmacs-exec `(box-info ,t ,cmd)))) 1709TeXmacs/progs/graphics/graphics-utils.scm:525: (tree->stree (texmacs-exec `(frame-direct ,p)))) 1710TeXmacs/progs/graphics/graphics-utils.scm:528: (tree->stree (texmacs-exec `(frame-inverse ,p)))) 1711TeXmacs/progs/graphics/graphics-utils.scm:562: (eq? (tree-label t) 'with)) 1712TeXmacs/progs/graphics/graphics-utils.scm:564: (tm-define (enhanced-tree->radical t) 1713TeXmacs/progs/graphics/graphics-utils.scm:566: (tree-ref t (- (tree-arity t) 1)) 1714TeXmacs/progs/graphics/graphics-utils.scm:570: (with t (tree-up r) 1715TeXmacs/progs/graphics/graphics-utils.scm:573: (tm-define (stree-radical t) 1716TeXmacs/progs/graphics/graphics-utils.scm:587: (let* ((a1 (cDr (tree-children t))) 1717TeXmacs/progs/graphics/graphics-utils.scm:588: (a2 (map tree->stree a1)) 1718TeXmacs/progs/graphics/graphics-utils.scm:602: (tree-remove! t 0 (- (tree-arity t) 1)) 1719TeXmacs/progs/graphics/graphics-utils.scm:603: (tree-insert! t 0 a3) 1720TeXmacs/progs/graphics/graphics-utils.scm:609: ((not (tree-is? t 'with)) 1721TeXmacs/progs/graphics/graphics-utils.scm:610: (if (tree-is? t :up 'with) 1722TeXmacs/progs/graphics/graphics-utils.scm:611: (graphical-get-attributes (tree-ref t :up)) 1723TeXmacs/progs/graphics/graphics-utils.scm:617: (tree->stree (graphical-set-attributes (tm->tree t) tab))) 1724TeXmacs/progs/graphics/graphics-utils.scm:618: ((not (tree-is? t 'with)) 1725TeXmacs/progs/graphics/graphics-utils.scm:619: (if (tree-is? t :up 'with) 1726TeXmacs/progs/graphics/graphics-utils.scm:620: (graphical-set-attributes (tree-ref t :up) tab) 1727TeXmacs/progs/graphics/graphics-utils.scm:622: (tree-insert-node! t 0 '(with)) 1728TeXmacs/progs/graphics/graphics-utils.scm:626: (if (and (tree-is? t 'with) (== (tree-arity t) 1)) 1729TeXmacs/progs/graphics/graphics-utils.scm:627: (tree-remove-node! t 0)) 1730TeXmacs/progs/init-texmacs.scm:169: (lazy-define (generic document-widgets) open-source-tree-preferences 1731TeXmacs/progs/init-texmacs.scm:176: (tm-property (open-source-tree-preferences) (:interactive #t)) 1732TeXmacs/progs/kernel/boot/abbrevs.scm:50: (define-public (root? t) (== (reverse (tree-ip t)) (buffer-path))) 1733TeXmacs/progs/kernel/boot/abbrevs.scm:51: (define-public (nroot? t) (!= (reverse (tree-ip t)) (buffer-path))) 1734TeXmacs/progs/kernel/boot/abbrevs.scm:52: (define-public (leaf? t) (== (tree-ip t) (cdr (reverse (cursor-path))))) 1735TeXmacs/progs/kernel/boot/abbrevs.scm:53: (define-public (nleaf? t) (!= (tree-ip t) (cdr (reverse (cursor-path))))) 1736TeXmacs/progs/kernel/gui/gui-markup.scm:329: (tm-define-macro ($tree-view cmd data roles) 1737TeXmacs/progs/kernel/gui/gui-markup.scm:331: `(list 'tree-view (lambda x (apply ,cmd (reverse x))) 1738TeXmacs/progs/kernel/gui/gui-markup.scm:541: `(tree-translate ($inline ,@l))) 1739TeXmacs/progs/kernel/gui/kbd-define.scm:160: (kbd-find-rev-binding (tree->stree cmd))) 1740TeXmacs/progs/kernel/gui/menu-define.scm:118: (define (gui-make-tree-view x) 1741TeXmacs/progs/kernel/gui/menu-define.scm:119: (require-format x '(tree-view :%3)) 1742TeXmacs/progs/kernel/gui/menu-define.scm:120: `($tree-view ,@(cdr x))) 1743TeXmacs/progs/kernel/gui/menu-define.scm:357: (tree-view ,gui-make-tree-view) 1744TeXmacs/progs/kernel/gui/menu-test.scm:164: (bold (text "Testing tree-view")) 1745TeXmacs/progs/kernel/gui/menu-test.scm:166: (tree-view noop (buffer-tree) (stree->tree '(dummy)))))) 1746TeXmacs/progs/kernel/gui/menu-widget.scm:57: (tree-view :%3) 1747TeXmacs/progs/kernel/gui/menu-widget.scm:252: (define (make-tree-view p style) 1748TeXmacs/progs/kernel/gui/menu-widget.scm:253: "Make @(tree-view :%3) item." 1749TeXmacs/progs/kernel/gui/menu-widget.scm:255: (widget-tree-view (object->command (menu-protect cmd)) (data) (roles)))) 1750TeXmacs/progs/kernel/gui/menu-widget.scm:666: (tree-view (:%3) 1751TeXmacs/progs/kernel/gui/menu-widget.scm:667: ,(lambda (p style bar?) (list (make-tree-view p style)))) 1752TeXmacs/progs/kernel/gui/menu-widget.scm:799: (define (menu-expand-tree-view p) 1753TeXmacs/progs/kernel/gui/menu-widget.scm:800: "Expand tree-view item @p." 1754TeXmacs/progs/kernel/gui/menu-widget.scm:801: (display* "menu-expand-tree-view\n") 1755TeXmacs/progs/kernel/gui/menu-widget.scm:855: (tree-view ,menu-expand-tree-view) 1756TeXmacs/progs/kernel/library/base.scm:245: ((tree? obj) (object->string (tree->stree obj))) 1757TeXmacs/progs/kernel/library/base.scm:304: (and (tree-active? t) t))) 1758TeXmacs/progs/kernel/library/base.scm:306: (define-public (tree->buffer t) 1759TeXmacs/progs/kernel/library/base.scm:307: (and-with p (tree->path t) 1760TeXmacs/progs/kernel/library/base.scm:312: (and t (tree->path t)))) 1761TeXmacs/progs/kernel/library/content.scm:22: (and (tree? x) (tree-atomic? x)))) 1762TeXmacs/progs/kernel/library/content.scm:26: (and (tree? x) (tree-compound? x)))) 1763TeXmacs/progs/kernel/library/content.scm:32: (tm-equal? (tree-explode x) y))) 1764TeXmacs/progs/kernel/library/content.scm:33: ((tree? y) (tm-equal? x (tree-explode y))) 1765TeXmacs/progs/kernel/library/content.scm:42: ((tree-atomic? x) (string-length (tree->string x))) 1766TeXmacs/progs/kernel/library/content.scm:43: (else (tree-arity x)))) 1767TeXmacs/progs/kernel/library/content.scm:48: (else (tree-arity x)))) 1768TeXmacs/progs/kernel/library/content.scm:51: (if (string? x) x (tree->string x))) 1769TeXmacs/progs/kernel/library/content.scm:54: (if (list? x) x (tree->list x))) 1770TeXmacs/progs/kernel/library/content.scm:57: (tree->stree (tm->tree t))) 1771TeXmacs/progs/kernel/library/content.scm:60: (if (pair? x) (car x) (tree-label x))) 1772TeXmacs/progs/kernel/library/content.scm:63: (if (pair? x) (car x) (tree-label x))) 1773TeXmacs/progs/kernel/library/content.scm:66: (cdr (if (pair? x) x (tree->list x)))) 1774TeXmacs/progs/kernel/library/content.scm:69: (if (pair? x) (cdr x) (tree-children x))) 1775TeXmacs/progs/kernel/library/content.scm:74: ((tree-atomic? x) (substring (tm->string x) from to)) 1776TeXmacs/progs/kernel/library/content.scm:79: (and (compound-tree? x) (apply func? (cons (tree->list x) args))))) 1777TeXmacs/progs/kernel/library/content.scm:83: (and (compound-tree? x) (== (tree-label x) lab)))) 1778TeXmacs/progs/kernel/library/content.scm:87: (and (compound-tree? x) (in? (tree-label x) l)))) 1779TeXmacs/progs/kernel/library/content.scm:140: (and (tree-atomic? s) (tm-length? (tree->string s))) 1780TeXmacs/progs/kernel/library/content.scm:149: (and (tree-atomic? s) (tm-length-value (tree->string s))) 1781TeXmacs/progs/kernel/library/content.scm:155: (and (tree-atomic? s) (tm-length-unit (tree->string s))) 1782TeXmacs/progs/kernel/library/tree.scm:27: (and (tree? t) (tree-atomic? t))) 1783TeXmacs/progs/kernel/library/tree.scm:30: (and (tree? t) (tree-compound? t))) 1784TeXmacs/progs/kernel/library/tree.scm:32: (define-public (tree->list t) 1785TeXmacs/progs/kernel/library/tree.scm:33: (cons (tree-label t) (tree-children t))) 1786TeXmacs/progs/kernel/library/tree.scm:35: (define-public (tree->symbol t) 1787TeXmacs/progs/kernel/library/tree.scm:36: (string->symbol (tree->string t))) 1788TeXmacs/progs/kernel/library/tree.scm:38: (define-public (tree->number t) 1789TeXmacs/progs/kernel/library/tree.scm:39: (if (tree-atomic? t) (string->number (tree->string t)) 0)) 1790TeXmacs/progs/kernel/library/tree.scm:41: (define-public (tree-explode t) 1791TeXmacs/progs/kernel/library/tree.scm:43: (tree->string t) 1792TeXmacs/progs/kernel/library/tree.scm:44: (cons (tree-label t) (tree-children t)))) 1793TeXmacs/progs/kernel/library/tree.scm:46: (define-public (tree-get-path t) 1794TeXmacs/progs/kernel/library/tree.scm:48: (let ((ip (tree-ip t))) 1795TeXmacs/progs/kernel/library/tree.scm:52: (define-public (tree-func? t . args) 1796TeXmacs/progs/kernel/library/tree.scm:54: (apply func? (cons (tree->list t) args)))) 1797TeXmacs/progs/kernel/library/tree.scm:56: (define-public (tree-map-children fun t) 1798TeXmacs/progs/kernel/library/tree.scm:57: (tm->tree `(,(tree-label t) 1799TeXmacs/progs/kernel/library/tree.scm:58: ,@(map fun (tree-children t))))) 1800TeXmacs/progs/kernel/library/tree.scm:60: (define-public (tree-map-accessible-children fun t) 1801TeXmacs/progs/kernel/library/tree.scm:62: (if (tree-accessible-child? t i) 1802TeXmacs/progs/kernel/library/tree.scm:63: (fun (tree-ref t i)) 1803TeXmacs/progs/kernel/library/tree.scm:64: (tree-ref t i))) 1804TeXmacs/progs/kernel/library/tree.scm:65: (tm->tree `(,(tree-label t) 1805TeXmacs/progs/kernel/library/tree.scm:66: ,@(map rew (.. 0 (tree-arity t))))))) 1806TeXmacs/progs/kernel/library/tree.scm:72: (define-public (tree-up t . opt) 1807TeXmacs/progs/kernel/library/tree.scm:74: (let* ((p (tree->path t)) 1808TeXmacs/progs/kernel/library/tree.scm:79: (define-public (tree-outer t) 1809TeXmacs/progs/kernel/library/tree.scm:81: (and (not (tree-is-buffer? t)) 1810TeXmacs/progs/kernel/library/tree.scm:82: (tree-up t))) 1811TeXmacs/progs/kernel/library/tree.scm:84: (define-public (tree-down t . opt) 1812TeXmacs/progs/kernel/library/tree.scm:86: (let* ((p (tree->path t)) 1813TeXmacs/progs/kernel/library/tree.scm:93: (define-public (tree-index t) 1814TeXmacs/progs/kernel/library/tree.scm:95: (with p (tree->path t) 1815TeXmacs/progs/kernel/library/tree.scm:98: (define-public (tree-down-index t) 1816TeXmacs/progs/kernel/library/tree.scm:100: (let ((p (tree->path t)) 1817TeXmacs/progs/kernel/library/tree.scm:105: (define-public (tree-inside? t ref) 1818TeXmacs/progs/kernel/library/tree.scm:107: (let ((p (tree->path ref)) 1819TeXmacs/progs/kernel/library/tree.scm:108: (q (tree->path t))) 1820TeXmacs/progs/kernel/library/tree.scm:124: (cond ((and (tree-atomic? t) (> i 0)) 1821TeXmacs/progs/kernel/library/tree.scm:125: (with s (tree->string t) 1822TeXmacs/progs/kernel/library/tree.scm:128: ((tree-atomic? t) #f) 1823TeXmacs/progs/kernel/library/tree.scm:135: (cond ((and (tree-atomic? t) (< i (string-length (tree->string t)))) 1824TeXmacs/progs/kernel/library/tree.scm:136: (with s (tree->string t) 1825TeXmacs/progs/kernel/library/tree.scm:139: ((tree-atomic? t) #f) 1826TeXmacs/progs/kernel/library/tree.scm:149: (and (== (cDr p) (tree->path t)) 1827TeXmacs/progs/kernel/library/tree.scm:151: (if (tree-atomic? t) 1828TeXmacs/progs/kernel/library/tree.scm:152: (== i (string-length (tree->string t))) 1829TeXmacs/progs/kernel/library/tree.scm:158: (q (tree->path t))) 1830TeXmacs/progs/kernel/library/tree.scm:160: (if (tree-atomic? (cursor-tree)) 1831TeXmacs/progs/kernel/old-gui/old-gui-form.scm:31: (cond ((in? type '("string" "password" "file")) (tree->string val)) 1832TeXmacs/progs/kernel/old-gui/old-gui-form.scm:32: ((== type "boolean") (== (tree->string val) "true")) 1833TeXmacs/progs/kernel/old-gui/old-gui-form.scm:33: ((== type "integer") (string->number (tree->string val))) 1834TeXmacs/progs/kernel/old-gui/old-gui-form.scm:34: ((== type "floating") (string->number (tree->string val))) 1835TeXmacs/progs/kernel/old-gui/old-gui-form.scm:35: ((== type "content") (tree->stree val)) 1836TeXmacs/progs/kernel/old-gui/old-gui-form.scm:44: ((== type "content") (stree->tree val)) 1837TeXmacs/progs/kernel/old-gui/old-gui-form.scm:66: (lambda (x) (tree->stree (type->form x type)))) 1838TeXmacs/progs/kernel/old-gui/old-gui-form.scm:67: (else (tree->stree (type->form (default-value-of-type type) type))))) 1839TeXmacs/progs/kernel/old-gui/old-gui-test.scm:165: (with name (tree->string (widget-ref "printer")) 1840TeXmacs/progs/kernel/old-gui/old-gui-test.scm:171: (with type (tree->string (widget-ref "printer")) 1841TeXmacs/progs/kernel/old-gui/old-gui-widget.scm:89: ((tree? (car opt-prefix)) (tree->string (car opt-prefix))) 1842TeXmacs/progs/kernel/old-gui/old-gui-widget.scm:113: (if (tree? handle) (set! handle (tree->string handle))) 1843TeXmacs/progs/kernel/old-gui/old-gui-widget.scm:120: (if (tree? handle) (set! handle (tree->string handle))) 1844TeXmacs/progs/kernel/old-gui/old-gui-widget.scm:122: (tree-set! old-tree (tree-copy (tm->tree new-tree))))) 1845TeXmacs/progs/kernel/old-gui/old-gui-widget.scm:173: (geom (tree-extents doc))) 1846TeXmacs/progs/kernel/regexp/regexp-match.scm:130: (match (tree->list (car l)) fpat bl))) 1847TeXmacs/progs/kernel/regexp/regexp-select.scm:141: (a (tree-arity t))) 1848TeXmacs/progs/kernel/regexp/regexp-select.scm:143: (select-list (tree-ref t 0) pat bl) 1849TeXmacs/progs/kernel/regexp/regexp-select.scm:150: (a (tree-arity t))) 1850TeXmacs/progs/kernel/regexp/regexp-select.scm:152: (select-list (tree-ref t (- a 1)) pat bl) 1851TeXmacs/progs/kernel/regexp/regexp-select.scm:160: (if (< l (- (tree-arity t) 1)) 1852TeXmacs/progs/kernel/regexp/regexp-select.scm:161: (select-list (tree-ref t (+ l 1)) pat bl) 1853TeXmacs/progs/kernel/regexp/regexp-select.scm:170: (select-list (tree-ref t (- l 1)) pat bl) 1854TeXmacs/progs/kernel/regexp/regexp-select.scm:240: (with p (and (tree? x) (tree-get-path x)) 1855TeXmacs/progs/kernel/texmacs/tm-convert.scm:248: (if r r (stree->tree '(error "bad format or data"))))) 1856TeXmacs/progs/kernel/texmacs/tm-convert.scm:281: (if (tree? doc) (set! doc (tree->stree doc))) 1857TeXmacs/progs/kernel/texmacs/tm-convert.scm:285: (if (tree? val) (set! val (tree->stree val))) 1858TeXmacs/progs/kernel/texmacs/tm-dialogue.scm:166: (cond ((tree? x) (tree->stree x)) 1859TeXmacs/progs/kernel/texmacs/tm-file-system.scm:325: (tmfs-document (tree-import u fm))) 1860TeXmacs/progs/kernel/texmacs/tm-modes.scm:139: (tree-in? (tree-up (cursor-tree)) '(hlink reference pageref label)))) 1861TeXmacs/progs/language/natural.scm:29: ((tree? val) (tree->stree val)) 1862TeXmacs/progs/language/natural.scm:38: (translate (stree->tree `(replace ,origstr ,@(map reformat-arg vals)))))) 1863TeXmacs/progs/link/link-edit.scm:41: (cons* 'script (tree->stree (tree-ref t 0)) 1864TeXmacs/progs/link/link-edit.scm:42: (cdr (tree-children t)))) 1865TeXmacs/progs/link/link-edit.scm:44: (list->assoc-list (cdr (tree->stree t)))) 1866TeXmacs/progs/link/link-edit.scm:45: (else (tree->stree t)))) 1867TeXmacs/progs/link/link-edit.scm:88: ((== t (tree-pointer->tree tp)) "v") 1868TeXmacs/progs/link/link-edit.scm:95: (ahash-set! link-participants nr (tree->tree-pointer t)))) 1869TeXmacs/progs/link/link-edit.scm:142: (with t (tree-pointer->tree p) 1870TeXmacs/progs/link/link-edit.scm:150: (with t (tree-pointer->tree p) 1871TeXmacs/progs/link/link-edit.scm:158: (tree-pointer-detach p)))) 1872TeXmacs/progs/link/link-edit.scm:163: (if (observer? tp) (tree-pointer-detach tp)) 1873TeXmacs/progs/link/link-edit.scm:174: (t (tree-pointer->tree tp))) 1874TeXmacs/progs/link/link-edit.scm:198: (and-let* ((id1 (locus-id (tree-up ln))) 1875TeXmacs/progs/link/link-edit.scm:210: (let* ((l1 (cDr (tree-children t))) 1876TeXmacs/progs/link/link-edit.scm:223: (fun (lambda (t) (not (tree-eq? t (tree-up ln))))) 1877TeXmacs/progs/link/link-edit.scm:234: (reverse (cDr (tree-children t)))))) 1878TeXmacs/progs/link/link-extern.scm:74: (l2 (map tree->buffer l1)) 1879TeXmacs/progs/link/link-extern.scm:169: (with l (cdr (tree->stree t)) 1880TeXmacs/progs/link/link-extract.scm:21: (define (tree-search t pred?) 1881TeXmacs/progs/link/link-extract.scm:23: (if (tree-atomic? t) me 1882TeXmacs/progs/link/link-extract.scm:24: (append me (append-map (cut tree-search <> pred?) 1883TeXmacs/progs/link/link-extract.scm:25: (tree-children t)))))) 1884TeXmacs/progs/link/link-extract.scm:29: ((tree? x) (or (tm-func? x 'locus) (tm-func? (tree-up x) 'locus))) 1885TeXmacs/progs/link/link-extract.scm:35: (else (tree-insert-node! x 1 `(locus (id ,(create-unique-id))))))) 1886TeXmacs/progs/link/link-extract.scm:39: (and (tm-func? (tree-up t) 'locus) (tree-up t)))) 1887TeXmacs/progs/link/link-extract.scm:56: (l (tree-search (buffer-tree) (cut tm-func? <> 'locus)))) 1888TeXmacs/progs/link/link-extract.scm:64: (l (append-map (cut tree-search (buffer-tree) <>) pred-l))) 1889TeXmacs/progs/link/link-navigate.scm:129: (ids->link-list (tree->ids t))) 1890TeXmacs/progs/link/link-navigate.scm:134: (lc (list-filter (cdr (tree-children t)) (cut tm-func? <> 'link))) 1891TeXmacs/progs/link/link-navigate.scm:174: (if (or (not t) (null? (tree->path t))) '() 1892TeXmacs/progs/link/link-navigate.scm:177: (append l (upward-link-list (tree-up t) filter?)))))) 1893TeXmacs/progs/link/link-navigate.scm:184: (if (tree-atomic? t) l 1894TeXmacs/progs/link/link-navigate.scm:185: (with ls (map (cut complete-link-list <> filter?) (tree-children t)) 1895TeXmacs/progs/link/link-navigate.scm:197: (if (or (not t) (null? (tree->path t))) '() 1896TeXmacs/progs/link/link-navigate.scm:198: (let* ((ids (tree->ids t)) 1897TeXmacs/progs/link/link-navigate.scm:202: (append r (link-active-upwards-sub (tree-up t) active-ids)))))) 1898TeXmacs/progs/link/link-navigate.scm:307: (and (nnull? ts) (tree->stree (car ts))))) 1899TeXmacs/progs/link/link-navigate.scm:495: (tree-go-to (car l) :end) 1900TeXmacs/progs/link/link-navigate.scm:565: (pl (filter-map tree->path (append ts1 ts2)))) 1901TeXmacs/progs/link/link-navigate.scm:621: (ids (append-map tree->ids ts))) 1902TeXmacs/progs/link/locus-edit.scm:68: (tree-atomic? (tm-ref t 0 0)) 1903TeXmacs/progs/link/locus-edit.scm:69: (tree->string (tm-ref t 0 0)))) 1904TeXmacs/progs/link/locus-edit.scm:73: (for-each (lambda (l) (tree-assign! l t)) (id->trees id))) 1905TeXmacs/progs/link/locus-edit.scm:80: (tree-insert! t (- (tree-arity t) 1) `(,(tree-copy ln)))) 1906TeXmacs/progs/link/locus-edit.scm:83: (tree-remove (tree-up ln) (tree-index ln) 1)) 1907TeXmacs/progs/link/locus-edit.scm:90: (reverse (cDr (tree-children t))))) 1908TeXmacs/progs/link/locus-edit.scm:96: (define (tree->locus t) 1909TeXmacs/progs/link/locus-edit.scm:97: (and-with p (tree-up t) 1910TeXmacs/progs/link/locus-edit.scm:101: (filter-map tree->locus (id->trees id))) 1911TeXmacs/progs/math/math-edit.scm:45: (:require (tree-is? t 'equation)) 1912TeXmacs/progs/math/math-edit.scm:50: (:require (tree-is? t 'equation*)) 1913TeXmacs/progs/math/math-edit.scm:55: (:require (tree-is? t 'eqnarray*)) 1914TeXmacs/progs/math/math-edit.scm:87: (let* ((s (tree->string t)) 1915TeXmacs/progs/math/math-edit.scm:92: (tree-remove! t 0 i) 1916TeXmacs/progs/math/math-edit.scm:93: (tree-correct-old t) 1917TeXmacs/progs/math/math-edit.scm:100: (let* ((s (tree->string t)) 1918TeXmacs/progs/math/math-edit.scm:105: (tree-remove! t i (- n i)) 1919TeXmacs/progs/math/math-edit.scm:106: (tree-correct-old t) 1920TeXmacs/progs/math/math-edit.scm:116: `(cond ((not (tree-is? t :up 'concat)) (noop)) 1921TeXmacs/progs/math/math-edit.scm:117: ((not (tree-is? t :up :up 'document)) (noop)) 1922TeXmacs/progs/math/math-edit.scm:118: ((= (tree-arity (tree-up t)) 1) (tree-set! t :up t)) 1923TeXmacs/progs/math/math-edit.scm:119: ((< (tree-index t) (- (tree-arity (tree-up t)) 1)) 1924TeXmacs/progs/math/math-edit.scm:120: (tree-split (tree-up t 2) 1925TeXmacs/progs/math/math-edit.scm:121: (tree-index (tree-up t)) 1926TeXmacs/progs/math/math-edit.scm:122: (+ (tree-index t) 1)) 1927TeXmacs/progs/math/math-edit.scm:125: (tree-split (tree-up t 2) 1928TeXmacs/progs/math/math-edit.scm:126: (tree-index (tree-up t)) 1929TeXmacs/progs/math/math-edit.scm:127: (tree-index t)) 1930TeXmacs/progs/math/math-edit.scm:131: (let* ((c (and (tree-is? t :up 'concat) (tree-is? t :up :up 'document))) 1931TeXmacs/progs/math/math-edit.scm:132: (r (and c (atomic-cut-left-until (tree-ref t :next) 1932TeXmacs/progs/math/math-edit.scm:134: (l (and c (atomic-cut-right-until (tree-ref t :previous) 1933TeXmacs/progs/math/math-edit.scm:137: (if (tree-is? t :up 'document) 1934TeXmacs/progs/math/math-edit.scm:141: (tree-set! t `(equation* (document ,(tree-ref t 0)))) 1935TeXmacs/progs/math/math-edit.scm:144: (with-cursor (tree->path t 0 0 :end) 1936TeXmacs/progs/math/math-edit.scm:148: (if (or (not (tree-is? t 0 'document)) 1937TeXmacs/progs/math/math-edit.scm:149: (= (tree-arity (tree-ref t 0)) 1)) 1938TeXmacs/progs/math/math-edit.scm:151: (if (tree-is? t 0 'document) 1939TeXmacs/progs/math/math-edit.scm:152: (tree-set! t 0 (tree-ref t 0 0))) 1940TeXmacs/progs/math/math-edit.scm:153: (tree-set! t `(math ,(tree-ref t 0))) 1941TeXmacs/progs/math/math-edit.scm:154: (with r (atomic-cut-right-until (tree-end (tree-ref t 0)) 1942TeXmacs/progs/math/math-edit.scm:156: (with-cursor (tree->path t :start) 1943TeXmacs/progs/math/math-edit.scm:161: (with-cursor (tree->path t :end) 1944TeXmacs/progs/math/math-edit.scm:173: (tree-set! t `(math ,(tree-ref t 2))) 1945TeXmacs/progs/math/math-edit.scm:177: (:require (tree-is? t 'math)) 1946TeXmacs/progs/math/math-edit.scm:181: (:require (tree-in? t '(equation equation*))) 1947TeXmacs/progs/math/math-edit.scm:186: (when (tree-in? t '(equation equation*)) 1948TeXmacs/progs/math/math-edit.scm:191: (when (tree-in? t '(math)) 1949TeXmacs/progs/math/math-edit.scm:199: (when (tree-is? t 'sqrt) 1950TeXmacs/progs/math/math-edit.scm:200: (cond ((== (tree-arity t) 1) 1951TeXmacs/progs/math/math-edit.scm:201: (tree-insert! t 1 '("")) 1952TeXmacs/progs/math/math-edit.scm:202: (tree-go-to t 1 0)) 1953TeXmacs/progs/math/math-edit.scm:203: ((== (tree-arity t) 2) 1954TeXmacs/progs/math/math-edit.scm:204: (tree-remove! t 1 1))))) 1955TeXmacs/progs/math/math-edit.scm:211: (tree-in? t '(lsub lsup rsub rsup))) 1956TeXmacs/progs/math/math-edit.scm:214: (and (tree-is? (tree-up t) 'concat) 1957TeXmacs/progs/math/math-edit.scm:215: (not (or (and (tree-ref t :previous) 1958TeXmacs/progs/math/math-edit.scm:216: (script-context? (tree-ref t :previous))) 1959TeXmacs/progs/math/math-edit.scm:217: (and (tree-ref t :next) 1960TeXmacs/progs/math/math-edit.scm:218: (script-context? (tree-ref t :next))))))) 1961TeXmacs/progs/math/math-edit.scm:223: (cond ((tree-is? t 'lsub) (variant-set t 'lsup)) 1962TeXmacs/progs/math/math-edit.scm:224: ((tree-is? t 'lsup) (variant-set t 'lsub)) 1963TeXmacs/progs/math/math-edit.scm:225: ((tree-is? t 'rsub) (variant-set t 'rsup)) 1964TeXmacs/progs/math/math-edit.scm:226: ((tree-is? t 'rsup) (variant-set t 'rsub))))) 1965TeXmacs/progs/math/math-edit.scm:229: (:require (tree-in? t '(lsub rsub))) 1966TeXmacs/progs/math/math-edit.scm:231: (tree-go-to t :end) 1967TeXmacs/progs/math/math-edit.scm:232: (cond ((tree-is? t 'lsub) (make 'lsup)) 1968TeXmacs/progs/math/math-edit.scm:233: ((tree-is? t 'rsub) (make 'rsup))))) 1969TeXmacs/progs/math/math-edit.scm:236: (:require (tree-in? t '(lsup rsup))) 1970TeXmacs/progs/math/math-edit.scm:238: (tree-go-to t :end) 1971TeXmacs/progs/math/math-edit.scm:239: (cond ((tree-is? t 'lsup) (make 'lsub)) 1972TeXmacs/progs/math/math-edit.scm:240: ((tree-is? t 'rsup) (make 'rsub))))) 1973TeXmacs/progs/math/math-edit.scm:258: (:require (tree-in? t '(wide wide*))) 1974TeXmacs/progs/math/math-edit.scm:259: (when (tree-atomic? (tree-ref t 1)) 1975TeXmacs/progs/math/math-edit.scm:260: (with s (tree->string (tree-ref t 1)) 1976TeXmacs/progs/math/math-edit.scm:263: (tree-set t 1 (list-ref wide-list-1 j)))) 1977TeXmacs/progs/math/math-edit.scm:266: (tree-set t 1 (list-ref wide-list-2 j)))) 1978TeXmacs/progs/math/math-edit.scm:269: (tree-set t 1 (list-ref wide-list-3 j))))))) 1979TeXmacs/progs/math/math-edit.scm:301: (:require (tree-in? t '(around around*))) 1980TeXmacs/progs/math/math-edit.scm:302: (when (and (== (tree-arity t) 3) 1981TeXmacs/progs/math/math-edit.scm:303: (tree-atomic? (tree-ref t 0)) 1982TeXmacs/progs/math/math-edit.scm:304: (tree-atomic? (tree-ref t 2))) 1983TeXmacs/progs/math/math-edit.scm:305: (let* ((l (tree->string (tree-ref t 0))) 1984TeXmacs/progs/math/math-edit.scm:306: (r (tree->string (tree-ref t 2))) 1985TeXmacs/progs/math/math-edit.scm:313: (tree-assign (tree-ref t 0) nl) 1986TeXmacs/progs/math/math-edit.scm:314: (tree-assign (tree-ref t 2) nr)))))) 1987TeXmacs/progs/math/math-edit.scm:326: (:require (tree-is? t 'big-around)) 1988TeXmacs/progs/math/math-edit.scm:327: (when (and (== (tree-arity t) 2) 1989TeXmacs/progs/math/math-edit.scm:328: (tree-atomic? (tree-ref t 0))) 1990TeXmacs/progs/math/math-edit.scm:329: (with s (tree->string (tree-ref t 0)) 1991TeXmacs/progs/math/math-edit.scm:334: (tree-assign (tree-ref t 0) ns)))))) 1992TeXmacs/progs/math/math-edit.scm:341: (cond ((not (tree-up t)) t) 1993TeXmacs/progs/math/math-edit.scm:343: (find-non-bracket (tree-up t))) 1994TeXmacs/progs/math/math-edit.scm:344: ((tm-in? (tree-up t) '(concat around around* big-around temp-slot)) 1995TeXmacs/progs/math/math-edit.scm:345: (find-non-bracket (tree-up t))) 1996TeXmacs/progs/math/math-edit.scm:350: (cond ((tree-atomic? x) #f) 1997TeXmacs/progs/math/math-edit.scm:351: ((tree-is? x 'temp-slot) 1998TeXmacs/progs/math/math-edit.scm:352: (tree-go-to x 0 0) 1999TeXmacs/progs/math/math-edit.scm:355: (list-or (map find-and-remove-temp-slot (tree-children x)))) 2000TeXmacs/progs/math/math-edit.scm:361: (u (tree-downgrade-brackets t #t #f)) 2001TeXmacs/progs/math/math-edit.scm:362: (v (tree-upgrade-brackets u "math")) 2002TeXmacs/progs/math/math-edit.scm:363: (w (tree-downgrade-big v))) 2003TeXmacs/progs/math/math-edit.scm:364: ;;(tree-set! t v) 2004TeXmacs/progs/math/math-edit.scm:365: (tree-set! t w) 2005TeXmacs/progs/math/math-edit.scm:373: (cond ((tree-atomic? t) 0) 2006TeXmacs/progs/math/math-edit.scm:374: ((tree-in? t '(around around*)) 2007TeXmacs/progs/math/math-edit.scm:375: (+ (count-missing (tree-ref t 1) open?) 2008TeXmacs/progs/math/math-edit.scm:377: ((tree-is? t (if open? 'right 'left)) 1) 2009TeXmacs/progs/math/math-edit.scm:378: ((tree-is? t 'concat) 2010TeXmacs/progs/math/math-edit.scm:379: (with l (tree-children t) 2011TeXmacs/progs/math/math-edit.scm:401: (== (tm->stree (tree-ref t i)) "<nobracket>")) 2012TeXmacs/progs/math/math-edit.scm:413: (with t (tree-innermost '(around around*)) 2013TeXmacs/progs/math/math-edit.scm:415: (when (== p (tree->path t 1 :start)) 2014TeXmacs/progs/math/math-edit.scm:418: (when (== p (tree->path t 1 :end)) 2015TeXmacs/progs/math/math-edit.scm:423: (when (tree-in? t '(around around*)) 2016TeXmacs/progs/math/math-edit.scm:432: (when (tree-in? t '(around around*)) 2017TeXmacs/progs/math/math-edit.scm:454: (tree-at-end? t))) 2018TeXmacs/progs/math/math-edit.scm:455: (tree-set t 2 lb) 2019TeXmacs/progs/math/math-edit.scm:456: (tree-go-to t :end)) 2020TeXmacs/progs/math/math-edit.scm:458: (tree-set t 0 lb) 2021TeXmacs/progs/math/math-edit.scm:459: (tree-go-to t 1 :start)) 2022TeXmacs/progs/math/math-edit.scm:461: (== (tree->stree (tree-ref u 2)) rb)) 2023TeXmacs/progs/math/math-edit.scm:462: (tree-go-to u :end)) 2024TeXmacs/progs/math/math-edit.scm:464: (== (tree->stree (tree-ref u 0)) "<langle>")) 2025TeXmacs/progs/math/math-edit.scm:465: (tree-set u 2 rb) 2026TeXmacs/progs/math/math-edit.scm:466: (tree-go-to u :end)) 2027TeXmacs/progs/math/math-edit.scm:495: (not (tree-at-end? t)))) 2028TeXmacs/progs/math/math-edit.scm:496: (tree-set t 0 rb) 2029TeXmacs/progs/math/math-edit.scm:497: (tree-go-to t 1 :start)) 2030TeXmacs/progs/math/math-edit.scm:499: (tree-set t 2 rb) 2031TeXmacs/progs/math/math-edit.scm:500: (tree-go-to t :end)) 2032TeXmacs/progs/math/math-edit.scm:502: (tree-set u 2 rb) 2033TeXmacs/progs/math/math-edit.scm:503: (tree-go-to u :end)) 2034TeXmacs/progs/math/math-edit.scm:523: (with mode (tree->stree (get-env-tree-at "mode" (tree->path t :start))) 2035TeXmacs/progs/math/math-edit.scm:532: (tree-set! t r)))) 2036TeXmacs/progs/math/math-edit.scm:538: (let* ((t1 (tree->stree t)) 2037TeXmacs/progs/math/math-edit.scm:539: (t2 (tree->stree r)) 2038TeXmacs/progs/math/math-edit.scm:541: (rt (stree->tree tb))) 2039TeXmacs/progs/math/math-edit.scm:542: (tree-set! t rt) 2040TeXmacs/progs/math/math-edit.scm:543: (tree-go-to t :start) 2041TeXmacs/progs/math/math-markup.scm:24: (cond ((tree-is? t 'tformat) 2042TeXmacs/progs/math/math-markup.scm:25: (with l (tree-children t) 2043TeXmacs/progs/math/math-markup.scm:27: ((tree-in? t '(document table row cell)) 2044TeXmacs/progs/math/math-markup.scm:28: `(,(tree-label t) ,@(map math-check-table (tree-children t)))) 2045TeXmacs/progs/math/math-menu.scm:1256: (:require (tree-in? t '(math equation equation*))) 2046TeXmacs/progs/math/math-menu.scm:1260: (:require (tree-in? t '(eqnarray eqnarray*))) 2047TeXmacs/progs/math/math-menu.scm:1264: (:require (tree-in? t '(math equation equation*))) 2048TeXmacs/progs/math/math-menu.scm:1277: (:require (tree-in? t '(lsub lsup))) 2049TeXmacs/progs/math/math-menu.scm:1281: (:require (tree-in? t '(rsub rsup))) 2050TeXmacs/progs/math/math-menu.scm:1285: (:require (tree-in? t '(lsub lsup))) 2051TeXmacs/progs/math/math-menu.scm:1291: (:require (tree-in? t '(rsub rsup))) 2052TeXmacs/progs/math/math-menu.scm:1298: (assuming (tree-in? t '(lsub rsub)) 2053TeXmacs/progs/math/math-menu.scm:1301: (assuming (tree-in? t '(lsup rsup)) 2054TeXmacs/progs/math/math-menu.scm:1307: (assuming (tree-in? t '(lsub rsub)) 2055TeXmacs/progs/math/math-menu.scm:1311: (assuming (tree-in? t '(lsup rsup)) 2056TeXmacs/progs/math/math-menu.scm:1321: (:require (tree-is? t 'sqrt)) 2057TeXmacs/progs/math/math-menu.scm:1325: (:require (tree-is? t 'sqrt)) 2058TeXmacs/progs/math/math-menu.scm:1327: (== (tree-arity (focus-tree)) 2)) 2059TeXmacs/progs/math/math-menu.scm:1331: (:require (tree-is? t 'sqrt)) 2060TeXmacs/progs/math/math-menu.scm:1333: (== (tree-arity (focus-tree)) 2)) 2061TeXmacs/progs/math/math-menu.scm:1345: (:require (tree-in? t '(wide wide*))) 2062TeXmacs/progs/math/math-menu.scm:1349: (:require (tree-in? t '(wide wide*))) 2063TeXmacs/progs/math/math-menu.scm:1355: (:require (tree-in? t '(wide wide*))) 2064TeXmacs/progs/math/math-menu.scm:1365: (:require (tree-in? t '(around around*))) 2065TeXmacs/progs/math/math-menu.scm:1377: (:require (tree-in? t '(around around*))) 2066TeXmacs/progs/math/math-menu.scm:1381: (:require (tree-in? t '(around around*))) 2067TeXmacs/progs/math/math-menu.scm:1387: (:require (tree-in? t '(around around*))) 2068TeXmacs/progs/prog/prog-edit.scm:26: (dt (tree-ref ct :up))) 2069TeXmacs/progs/prog/prog-edit.scm:27: (and (tree-atomic? ct) (tree-is? dt 'document)))) 2070TeXmacs/progs/prog/prog-edit.scm:32: (dt (tree-ref ct :up))) 2071TeXmacs/progs/prog/prog-edit.scm:33: (and (tree-atomic? ct) (tree-is? dt 'document) dt))) 2072TeXmacs/progs/prog/prog-edit.scm:38: (and-with par (tree-ref doc row) 2073TeXmacs/progs/prog/prog-edit.scm:39: (and (tree-atomic? par) (tree->string par))))) 2074TeXmacs/progs/prog/prog-edit.scm:52: (tree-go-to doc row col))) 2075TeXmacs/progs/prog/prog-edit.scm:55: (let ((s (tree->string (path->tree (cDr path)))) 2076TeXmacs/progs/prog/prog-edit.scm:225: (tree-set t (string-set-indent (tree->string t) i))))) 2077TeXmacs/progs/prog/prog-edit.scm:234: (t (tree-ref doc row))) 2078TeXmacs/progs/prog/prog-edit.scm:236: (tree-set t (string-set-indent (tree->string t) i)) 2079TeXmacs/progs/prog/prog-edit.scm:243: (iota (tree-arity doc))))) 2080TeXmacs/progs/prog/scheme-edit.scm:66: (< row (tree-arity doc)) 2081TeXmacs/progs/prog/scheme-edit.scm:67: (tree-atomic? (tree-ref doc row)) 2082TeXmacs/progs/prog/scheme-edit.scm:68: (with par (tree->string (tree-ref doc row)) 2083TeXmacs/progs/prog/scheme-edit.scm:127: (with s (tree->string (tree-ref doc (car a))) 2084TeXmacs/progs/prog/scheme-tools.scm:50: ((tree-in? t '(math equation equation*)) 2085TeXmacs/progs/prog/scheme-tools.scm:52: ((> (tree-arity t) 0) (tree-map-children (cut prep-math <> props) t)) 2086TeXmacs/progs/prog/scheme-tools.scm:112: (word-at (tree->string ct) (car (tree-cursor-path ct))))) 2087TeXmacs/progs/prog/scheme-tools.scm:151: (string->module (tree->string (car tt)))))) 2088TeXmacs/progs/source/macro-edit.scm:28: (cond ((and (tree-func? t 'assign 2) 2089TeXmacs/progs/source/macro-edit.scm:29: (tree-atomic? (tree-ref t 0)) 2090TeXmacs/progs/source/macro-edit.scm:30: (== (tree->string (tree-ref t 0)) l)) t) 2091TeXmacs/progs/source/macro-edit.scm:31: ((tree-atomic? t) #f) 2092TeXmacs/progs/source/macro-edit.scm:32: ((tree-in? t '(document concat surround with)) 2093TeXmacs/progs/source/macro-edit.scm:33: (first-match (reverse (tree-children t)) 2094TeXmacs/progs/source/macro-edit.scm:38: (cond ((tm-func? t 'hide-preamble 1) (get-definition** l (tree-ref t 0))) 2095TeXmacs/progs/source/macro-edit.scm:39: ((tm-func? t 'show-preamble 1) (get-definition** l (tree-ref t 0))) 2096TeXmacs/progs/source/macro-edit.scm:40: ((tree-atomic? t) #f) 2097TeXmacs/progs/source/macro-edit.scm:41: ((tree-in? t '(document concat surround with)) 2098TeXmacs/progs/source/macro-edit.scm:42: (first-match (tree-children t) (cut get-definition* l <>))) 2099TeXmacs/progs/source/macro-edit.scm:56: (let* ((c (tree-children a)) 2100TeXmacs/progs/source/macro-edit.scm:80: (when (and (tree? name) (tree-atomic? name)) 2101TeXmacs/progs/source/macro-edit.scm:81: (set! name (tree->string name))) 2102TeXmacs/progs/source/macro-edit.scm:84: (with t (tree-load-style name) 2103TeXmacs/progs/source/macro-edit.scm:92: (cond ((and (tree-func? t 'assign 2) 2104TeXmacs/progs/source/macro-edit.scm:93: (tree-atomic? (tree-ref t 0)) 2105TeXmacs/progs/source/macro-edit.scm:94: (== (tree->string (tree-ref t 0)) l)) 2106TeXmacs/progs/source/macro-edit.scm:96: ((tree-atomic? t) #f) 2107TeXmacs/progs/source/macro-edit.scm:97: ((tree-is? t 'use-package) 2108TeXmacs/progs/source/macro-edit.scm:98: (search-style-definition-in-list done l (tree-children t))) 2109TeXmacs/progs/source/macro-edit.scm:99: ((tree-in? t '(document concat surround with)) 2110TeXmacs/progs/source/macro-edit.scm:100: (first-match (reverse (tree-children t)) 2111TeXmacs/progs/source/macro-edit.scm:113: (and-with m (tree-ref def 1) 2112TeXmacs/progs/source/macro-edit.scm:114: (if (tree-is? m 'macro) 2113TeXmacs/progs/source/macro-edit.scm:115: (tree-go-to m :last :start) 2114TeXmacs/progs/source/macro-edit.scm:116: (tree-go-to m :start)) 2115TeXmacs/progs/source/macro-edit.scm:122: (when (tree-is? (tree-ref b 0) 'hide-preamble) 2116TeXmacs/progs/source/macro-edit.scm:123: (tree-assign-node (tree-ref (buffer-tree) 0) 'show-preamble) 2117TeXmacs/progs/source/macro-edit.scm:124: (with other `(ignore (document ,@(cdr (tree-children b)))) 2118TeXmacs/progs/source/macro-edit.scm:125: (tree-remove! b 1 (- (tree-arity b) 1)) 2119TeXmacs/progs/source/macro-edit.scm:126: (tree-insert! b 1 (list other)))) 2120TeXmacs/progs/source/macro-search.scm:25: (tm-define (tree-parameter? t) 2121TeXmacs/progs/source/macro-search.scm:26: (tree-label-parameter? (tree-label t))) 2122TeXmacs/progs/source/macro-search.scm:36: (cond ((tree-atomic? def) (list)) 2123TeXmacs/progs/source/macro-search.scm:37: ((and (tree-is? def 'compound) (tree-atomic? (tree-ref def 0))) 2124TeXmacs/progs/source/macro-search.scm:38: (let* ((c (tree-children def)) 2125TeXmacs/progs/source/macro-search.scm:39: (l (string->symbol (tree->string (car c)))) 2126TeXmacs/progs/source/macro-search.scm:43: (let* ((head (collect-options (symbol->string (tree-label def)) t)) 2127TeXmacs/progs/source/macro-search.scm:45: (tree-children def)))) 2128TeXmacs/progs/source/macro-search.scm:61: (if (tree-in? def '(macro xmacro)) 2129TeXmacs/progs/source/macro-search.scm:73: (search-options (tree-label t))) 2130TeXmacs/progs/source/macro-search.scm:81: ((tree-atomic? (car l)) 2131TeXmacs/progs/source/macro-search.scm:82: (cons (tree->string (car l)) (get-with-vars (cddr l)))) 2132TeXmacs/progs/source/macro-search.scm:87: (cond ((tree-atomic? def) (noop)) 2133TeXmacs/progs/source/macro-search.scm:88: ((and (tree-in? def '(value quote-value)) 2134TeXmacs/progs/source/macro-search.scm:89: (tree-atomic? (tree-ref def 0))) 2135TeXmacs/progs/source/macro-search.scm:90: (ahash-set! v (tree->string (tree-ref def 0)) #t)) 2136TeXmacs/progs/source/macro-search.scm:91: ((tree-is? def 'with) 2137TeXmacs/progs/source/macro-search.scm:94: (vs (get-with-vars (cDr (tree-children def))))) 2138TeXmacs/progs/source/macro-search.scm:95: (for-each (cut collect-parameters-sub <> v* t) (tree-children def)) 2139TeXmacs/progs/source/macro-search.scm:98: ((and (tree-is? def 'compound) (tree-atomic? (tree-ref def 0))) 2140TeXmacs/progs/source/macro-search.scm:99: (let* ((c (tree-children def)) 2141TeXmacs/progs/source/macro-search.scm:100: (l (string->symbol (tree->string (car c)))) 2142TeXmacs/progs/source/macro-search.scm:104: (when (tree-parameter? def) 2143TeXmacs/progs/source/macro-search.scm:105: (ahash-set! v (symbol->string (tree-label def)) #t)) 2144TeXmacs/progs/source/macro-search.scm:106: (collect-parameters (symbol->string (tree-label def)) v t) 2145TeXmacs/progs/source/macro-search.scm:108: (tree-children def))))) 2146TeXmacs/progs/source/macro-search.scm:122: (cond ((tree-is? def 'uninit) (noop)) 2147TeXmacs/progs/source/macro-search.scm:123: ((tree-in? def '(macro xmacro)) 2148TeXmacs/progs/source/macro-search.scm:135: (search-parameters (tree-label t))) 2149TeXmacs/progs/source/macro-widgets.scm:28: (cond ((tm-is? (tree-ref t :last) 'inactive*) 2150TeXmacs/progs/source/macro-widgets.scm:29: `(,(tm-label t) ,@(cDr (tm-children t)) ,(tree-ref t :last 0))) 2151TeXmacs/progs/source/macro-widgets.scm:36: (tree-set t* :last `(inactive* ,(cAr (tm-children t))))) 2152TeXmacs/progs/source/macro-widgets.scm:38: (tree-set t* :last (cAr (tm-children t)))))))) 2153TeXmacs/progs/source/macro-widgets.scm:41: (tree-in? (tree-ref buf 0) 2154TeXmacs/progs/source/macro-widgets.scm:46: (tree-ref buf 0 0) 2155TeXmacs/progs/source/macro-widgets.scm:50: (with m (list-find (reverse (tree-children pre)) 2156TeXmacs/progs/source/macro-widgets.scm:52: (and (tree-is? x 'assign) 2157TeXmacs/progs/source/macro-widgets.scm:55: (tree-set m ass) 2158TeXmacs/progs/source/macro-widgets.scm:56: (tree-insert pre (tree-arity pre) (list ass))))) 2159TeXmacs/progs/source/macro-widgets.scm:62: (l (tree->string (tm-ref t 0))) 2160TeXmacs/progs/source/macro-widgets.scm:69: ((and old (tree->path old)) (tree-set old 1 mac)) 2161TeXmacs/progs/source/macro-widgets.scm:72: (tree-insert! buf 0 '((hide-preamble (document ""))))) 2162TeXmacs/progs/source/macro-widgets.scm:74: (with pre (tree-ref buf 0 0) 2163TeXmacs/progs/source/macro-widgets.scm:141: (tree-set (buffer-get-body u) 2164TeXmacs/progs/source/macro-widgets.scm:192: (tree->string (tree-ref key-val 0))) 2165TeXmacs/progs/source/source-edit.scm:27: (when (not (tree-is? t :up 'inactive)) 2166TeXmacs/progs/source/source-edit.scm:28: (tree-set! t `(inactive ,t))) 2167TeXmacs/progs/source/source-edit.scm:32: (:require (tree-is? t 'hybrid)) 2168TeXmacs/progs/source/source-edit.scm:36: (:require (tree-is? t 'compound)) 2169TeXmacs/progs/source/source-edit.scm:40: (:require (tree-is? t 'latex)) 2170TeXmacs/progs/source/source-edit.scm:44: (:require (tree-is? t 'symbol)) 2171TeXmacs/progs/source/source-edit.scm:48: (:require (tree-is? t 'inactive)) 2172TeXmacs/progs/source/source-edit.scm:52: (:require (tree-is? t 'hybrid)) 2173TeXmacs/progs/source/source-edit.scm:56: (:require (tree-in? t '(inactive tuple attr))) 2174TeXmacs/progs/source/source-edit.scm:64: (:require (tree-is? t 'hybrid)) 2175TeXmacs/progs/source/source-edit.scm:68: (if (or (tree-is? t 'inactive) (tree-is? t :up 'inactive)) 2176TeXmacs/progs/source/source-edit.scm:71: (tree-set t `(inactive ,t)) 2177TeXmacs/progs/source/source-edit.scm:75: (:require (and (tree-is? t 'hybrid) (tree-is? t :up 'inactive))) 2178TeXmacs/progs/source/source-edit.scm:79: (:require (and (tree-is? t 'compound) (tree-is? t :up 'inactive))) 2179TeXmacs/progs/source/source-edit.scm:83: (:require (and (tree-is? t 'latex) (tree-is? t :up 'inactive))) 2180TeXmacs/progs/source/source-edit.scm:87: (:require (and (tree-is? t 'symbol) (tree-is? t :up 'inactive))) 2181TeXmacs/progs/source/source-edit.scm:144: (if (and (tree-is? body 'document) 2182TeXmacs/progs/source/source-edit.scm:145: (tree-in? body 0 '(show-preamble hide-preamble)) 2183TeXmacs/progs/source/source-edit.scm:146: (tree-is? body 0 0 'document)) 2184TeXmacs/progs/source/source-edit.scm:148: (tree-children (tree-ref body 0 0)))))) 2185TeXmacs/progs/table/table-doc.scm:23: ($with lab (tree-label t) 2186TeXmacs/progs/table/table-edit.scm:87: (if (tree-is? t 'cell) t 2187TeXmacs/progs/table/table-edit.scm:88: (and (tree-down t) 2188TeXmacs/progs/table/table-edit.scm:89: (cell-search-downwards (tree-down t))))) 2189TeXmacs/progs/table/table-edit.scm:94: (and-with i (tree-index (tree-up c)) 2190TeXmacs/progs/table/table-edit.scm:96: (< i (- (tree-arity (tree-up c 2)) 1)) 2191TeXmacs/progs/table/table-edit.scm:100: (let* ((r (tree-up c)) 2192TeXmacs/progs/table/table-edit.scm:101: (t (tree-up r))) 2193TeXmacs/progs/table/table-edit.scm:102: (if (and (>= row 0) (< row (tree-arity t)) 2194TeXmacs/progs/table/table-edit.scm:103: (>= col 0) (< col (tree-arity r))) 2195TeXmacs/progs/table/table-edit.scm:105: (tree-go-to c :start) 2196TeXmacs/progs/table/table-edit.scm:109: (let* ((r (tree-up c)) 2197TeXmacs/progs/table/table-edit.scm:110: (t (tree-up r)) 2198TeXmacs/progs/table/table-edit.scm:111: (row (+ (tree-index r) drow)) 2199TeXmacs/progs/table/table-edit.scm:112: (col (+ (tree-index c) dcol))) 2200TeXmacs/progs/table/table-edit.scm:140: (tree-go-to c (if forwards? :end :start))))) 2201TeXmacs/progs/table/table-edit.scm:609: (define (tree-search-subtree-sub t u i) 2202TeXmacs/progs/table/table-edit.scm:610: (if (>= i (tree-arity t)) #f 2203TeXmacs/progs/table/table-edit.scm:611: (let ((r (tree-search-subtree (tree-ref t i) u))) 2204TeXmacs/progs/table/table-edit.scm:612: (if r r (tree-search-subtree-sub t u (+ i 1)))))) 2205TeXmacs/progs/table/table-edit.scm:614: (define (tree-search-subtree t u) 2206TeXmacs/progs/table/table-edit.scm:616: ((tree-atomic? t) #f) 2207TeXmacs/progs/table/table-edit.scm:617: (else (tree-search-subtree-sub t u 0)))) 2208TeXmacs/progs/table/table-edit.scm:622: (tree-search-subtree st (stree->tree '(eq-number))))) 2209TeXmacs/progs/table/table-edit.scm:625: (:require (tree-in? t '(eqnarray eqnarray*))) 2210TeXmacs/progs/table/table-edit.scm:626: (and (== t (tree-innermost '(eqnarray eqnarray*))) 2211TeXmacs/progs/table/table-edit.scm:632: (tree-go-to st :end) 2212TeXmacs/progs/table/table-edit.scm:637: (tree-cut r))) 2213TeXmacs/progs/table/table-edit.scm:641: (and (tree-in? t2 '(tformat document)) 2214TeXmacs/progs/table/table-edit.scm:642: (table-inside-sub? t1 (tree-up t2))))) 2215TeXmacs/progs/table/table-edit.scm:645: (let* ((t1 (tree-innermost which)) 2216TeXmacs/progs/table/table-edit.scm:646: (t2 (tree-innermost 'table))) 2217TeXmacs/progs/table/table-edit.scm:648: (tree-inside? t2 t1) 2218TeXmacs/progs/table/table-edit.scm:649: (table-inside-sub? t1 (tree-up t2))))) 2219TeXmacs/progs/table/table-edit.scm:652: (:require (tree-in? t '(eqnarray eqnarray*))) 2220TeXmacs/progs/table/table-edit.scm:653: (when (== t (tree-innermost '(eqnarray eqnarray*))) 2221TeXmacs/progs/table/table-menu.scm:446: (or (tree-is? t 'document) 2222TeXmacs/progs/table/table-menu.scm:447: (and (tree-is? t 'with) 2223TeXmacs/progs/table/table-menu.scm:448: (document-like? (tree-up t))))) 2224TeXmacs/progs/table/table-menu.scm:452: (if (document-like? (tree-up t)) 2225TeXmacs/progs/texmacs/menus/main-menu.scm:180: (cond ((tree-is-buffer? t) (list t)) 2226TeXmacs/progs/texmacs/menus/main-menu.scm:181: ((tree-atomic? t) (upward-context-trees (tree-up t))) 2227TeXmacs/progs/texmacs/menus/main-menu.scm:182: (else (cons t (upward-context-trees (tree-up t)))))) 2228TeXmacs/progs/texmacs/menus/main-menu.scm:187: ((eval (symbol->string (tree-label t))) 2229TeXmacs/progs/texmacs/menus/main-menu.scm:188: (tree-select t))) 2230TeXmacs/progs/texmacs/texmacs/tm-files.scm:40: (t (tree-import u "texmacs")) 2231TeXmacs/progs/texmacs/texmacs/tm-files.scm:373: (doc (tree-import autosave-name format))) 2232TeXmacs/progs/texmacs/texmacs/tm-files.scm:422: (with t (tree-import name (url-format name)) 2233TeXmacs/progs/texmacs/texmacs/tm-server.scm:33: (if (and (current-view) (== (buffer-tree) (stree->tree '(document "")))) 2234TeXmacs/progs/text/text-edit.scm:34: (with brothers (map tree-label (tree-children bt)) 2235TeXmacs/progs/text/text-edit.scm:35: (and-with t (tree-ref bt :down) 2236TeXmacs/progs/text/text-edit.scm:36: (and (tree-is? bt 'document) 2237TeXmacs/progs/text/text-edit.scm:43: (with brothers (map tree-label (tree-children bt)) 2238TeXmacs/progs/text/text-edit.scm:44: (and-with t (tree-ref bt :down) 2239TeXmacs/progs/text/text-edit.scm:45: (and (tree-is? bt 'document) 2240TeXmacs/progs/text/text-edit.scm:55: (and (tree-search-upwards t 'doc-data) 2241TeXmacs/progs/text/text-edit.scm:56: (or (tree-in? t (doc-title-tag-list)) 2242TeXmacs/progs/text/text-edit.scm:57: (and (tree-is? t 'date) (tree-is? t :up 'doc-date))))) 2243TeXmacs/progs/text/text-edit.scm:60: (and (tree-search-upwards t 'doc-data) 2244TeXmacs/progs/text/text-edit.scm:61: (tree-in? t (author-data-tag-list)))) 2245TeXmacs/progs/text/text-edit.scm:71: (with pos (1+ (tree-down-index t)) 2246TeXmacs/progs/text/text-edit.scm:73: (tree-insert! t pos `((,l (author-data (author-name ""))))) 2247TeXmacs/progs/text/text-edit.scm:74: (tree-go-to t pos 0 0 0 0)) 2248TeXmacs/progs/text/text-edit.scm:76: (tree-insert! t pos `((,l (document "")))) 2249TeXmacs/progs/text/text-edit.scm:77: (tree-go-to t pos 0 0 0)) 2250TeXmacs/progs/text/text-edit.scm:79: (tree-insert! t pos `((,l)))) 2251TeXmacs/progs/text/text-edit.scm:81: (tree-insert! t pos `((doc-inactive (,l "")))) 2252TeXmacs/progs/text/text-edit.scm:82: (tree-go-to t pos 0 0 0)) 2253TeXmacs/progs/text/text-edit.scm:84: (tree-insert! t pos `((,l ""))) 2254TeXmacs/progs/text/text-edit.scm:85: (tree-go-to t pos 0 0)))))) 2255TeXmacs/progs/text/text-edit.scm:89: (with pos (1+ (tree-down-index t)) 2256TeXmacs/progs/text/text-edit.scm:91: (tree-insert! t pos `((,l (document "")))) 2257TeXmacs/progs/text/text-edit.scm:92: (tree-go-to t pos 0 0 0)) 2258TeXmacs/progs/text/text-edit.scm:94: (tree-insert! t pos `((,l ""))) 2259TeXmacs/progs/text/text-edit.scm:95: (tree-go-to t pos 0 0)))))) 2260TeXmacs/progs/text/text-edit.scm:98: (tree-in? t (abstract-data-tag-list))) 2261TeXmacs/progs/text/text-edit.scm:105: (with pos (1+ (tree-down-index t)) 2262TeXmacs/progs/text/text-edit.scm:106: (tree-insert! t pos `((,l ""))) 2263TeXmacs/progs/text/text-edit.scm:107: (tree-go-to t pos 0 0)))) 2264TeXmacs/progs/text/text-edit.scm:110: (:require (tree-is? t 'title)) 2265TeXmacs/progs/text/text-edit.scm:115: (:require (tree-is? t 'doc-title)) 2266TeXmacs/progs/text/text-edit.scm:119: (:require (tree-is? t 'author-name)) 2267TeXmacs/progs/text/text-edit.scm:124: (tree-is? t 'abstract-arxiv) 2268TeXmacs/progs/text/text-edit.scm:125: (tree-is? t 'abstract-pacs) 2269TeXmacs/progs/text/text-edit.scm:126: (tree-is? t 'abstract-acm) 2270TeXmacs/progs/text/text-edit.scm:127: (tree-is? t 'abstract-msc) 2271TeXmacs/progs/text/text-edit.scm:128: (tree-is? t 'abstract-keywords))) 2272TeXmacs/progs/text/text-edit.scm:129: (with t (tree-search-upwards 2273TeXmacs/progs/text/text-edit.scm:132: (with pos (1+ (tree-down-index t)) 2274TeXmacs/progs/text/text-edit.scm:133: (tree-insert! t pos `((concat ""))) 2275TeXmacs/progs/text/text-edit.scm:134: (tree-go-to t pos 0 0)))) 2276TeXmacs/progs/text/text-edit.scm:137: (:require (tree-is? t 'doc-inactive)) 2277TeXmacs/progs/text/text-edit.scm:146: (tree-remove (tree-up old) (tree-index old) 1))) 2278TeXmacs/progs/text/text-edit.scm:151: (tree-set (car opts-trees) `(doc-title-options ,@opts))))))) 2279TeXmacs/progs/text/text-edit.scm:156: (map tree->stree opts-trees)))) 2280TeXmacs/progs/text/text-edit.scm:174: (cond ((< i 0) (tree-go-to t :end)) 2281TeXmacs/progs/text/text-edit.scm:175: ((tree-in? t i (doc-title-inactive-tag-list)) 2282TeXmacs/progs/text/text-edit.scm:177: ((not (cursor-inside? (tree-ref t i))) 2283TeXmacs/progs/text/text-edit.scm:178: (tree-go-to t i :end)))) 2284TeXmacs/progs/text/text-edit.scm:183: (tree-remove-node! t 0) 2285TeXmacs/progs/text/text-edit.scm:184: (doc-data-go-to-active dd (tree-down-index dd))))) 2286TeXmacs/progs/text/text-edit.scm:188: (with l (cdr (tree->list t)) 2287TeXmacs/progs/text/text-edit.scm:189: (with fun (lambda (t) (or (tree-in? t (doc-title-inactive-tag-list)) 2288TeXmacs/progs/text/text-edit.scm:190: (tree-is? t 'doc-inactive))) 2289TeXmacs/progs/text/text-edit.scm:195: (with l (cdr (tree->list t)) 2290TeXmacs/progs/text/text-edit.scm:199: (when (tree-is? t 'doc-inactive) 2291TeXmacs/progs/text/text-edit.scm:200: (tree-remove-node! t 0))) 2292TeXmacs/progs/text/text-edit.scm:204: (with i (tree-down-index t) 2293TeXmacs/progs/text/text-edit.scm:205: (with l (cdr (tree->list t)) 2294TeXmacs/progs/text/text-edit.scm:211: (tree-insert-node! t 0 '(doc-inactive)))) 2295TeXmacs/progs/text/text-edit.scm:215: (with l (cdr (tree->list t)) 2296TeXmacs/progs/text/text-edit.scm:236: (if (!= (tree->stree (paragraph-tree)) "") (insert-return)) 2297TeXmacs/progs/text/text-edit.scm:244: (tree-in? t (numbered-unnumbered-append (section-tag-list)))) 2298TeXmacs/progs/text/text-edit.scm:249: (with bp (list-drop (cursor-path) (length (tree->path bt))) 2299TeXmacs/progs/text/text-edit.scm:251: (and (!= sp bp) (path->tree (append (tree->path bt) sp)))))))) 2300TeXmacs/progs/text/text-edit.scm:264: (tree-go-to t :end) 2301TeXmacs/progs/text/text-edit.scm:269: (tree-go-to t :end) 2302TeXmacs/progs/text/text-edit.scm:277: (tree-in? t (list-tag-list))) 2303TeXmacs/progs/text/text-edit.scm:280: (tree-in? t (itemize-tag-list))) 2304TeXmacs/progs/text/text-edit.scm:283: (tree-in? t (enumerate-tag-list))) 2305TeXmacs/progs/text/text-edit.scm:286: (or (tree-in? t (itemize-tag-list)) 2306TeXmacs/progs/text/text-edit.scm:287: (tree-in? t (enumerate-tag-list)))) 2307TeXmacs/progs/text/text-edit.scm:305: (:require (tree-is? t 'item*)) 2308TeXmacs/progs/text/text-edit.scm:385: (or (tree-in? t (numbered-unnumbered-append (enunciation-tag-list))) 2309TeXmacs/progs/text/text-edit.scm:386: (tree-in? t (render-enunciation-tag-list)) 2310TeXmacs/progs/text/text-edit.scm:387: (tree-in? t '(proof render-proof)))) 2311TeXmacs/progs/text/text-edit.scm:393: (tree-go-to t :last :start) 2312TeXmacs/progs/text/text-edit.scm:401: (tree-in? t (algorithm-tag-list))) 2313TeXmacs/progs/text/text-edit.scm:413: (let* ((l (tree-label t)) 2314TeXmacs/progs/text/text-edit.scm:418: (with l (tree-label t) 2315TeXmacs/progs/text/text-edit.scm:422: (with l (tree-label t) 2316TeXmacs/progs/text/text-edit.scm:427: (let* ((l (tree-label t)) 2317TeXmacs/progs/text/text-edit.scm:438: (let* ((l (tree-label t)) 2318TeXmacs/progs/text/text-edit.scm:443: (tree-assign-node! t (symbol-append 'specified- r)) 2319TeXmacs/progs/text/text-edit.scm:444: (tree-assign-node! t r)) 2320TeXmacs/progs/text/text-edit.scm:445: (tree-remove! t 0 1)) 2321TeXmacs/progs/text/text-edit.scm:448: (tree-assign-node! t (symbol-append 'named-specified- r)) 2322TeXmacs/progs/text/text-edit.scm:449: (tree-assign-node! t (symbol-append 'named- r))) 2323TeXmacs/progs/text/text-edit.scm:450: (tree-insert! t 0 '("")) 2324TeXmacs/progs/text/text-edit.scm:451: (tree-go-to t 0 :start))))) 2325TeXmacs/progs/text/text-edit.scm:454: (let* ((l (tree-label t)) 2326TeXmacs/progs/text/text-edit.scm:459: (tree-assign-node! t (symbol-append 'named- r))) 2327TeXmacs/progs/text/text-edit.scm:461: (tree-assign-node! t r)) 2328TeXmacs/progs/text/text-edit.scm:463: (tree-assign-node! t (symbol-append r '*)))) 2329TeXmacs/progs/text/text-edit.scm:464: (tree-remove! t (- (tree-arity t) 2) 1)) 2330TeXmacs/progs/text/text-edit.scm:467: (tree-assign-node! t (symbol-append 'named-specified- r))) 2331TeXmacs/progs/text/text-edit.scm:469: (tree-assign-node! t (symbol-append 'specified- r))) 2332TeXmacs/progs/text/text-edit.scm:471: (tree-assign-node! t (symbol-append 'specified- r '*)))) 2333TeXmacs/progs/text/text-edit.scm:472: (tree-insert! t (- (tree-arity t) 1) '((document ""))) 2334TeXmacs/progs/text/text-edit.scm:473: (tree-go-to t (- (tree-arity t) 2) :start))))) 2335TeXmacs/progs/text/text-edit.scm:480: (tree-in? t (numbered-unnumbered-append (titled-tag-list)))) 2336TeXmacs/progs/text/text-edit.scm:483: (tree-in? t (render-titled-tag-list))) 2337TeXmacs/progs/text/text-edit.scm:486: (cond ((tree-in? t (numbered-unnumbered-append (theorem-tag-list))) 2338TeXmacs/progs/text/text-edit.scm:487: (tree-set! t `(render-theorem "" ,(tree-ref t 0)))) 2339TeXmacs/progs/text/text-edit.scm:488: ((tree-in? t (numbered-unnumbered-append (remark-tag-list))) 2340TeXmacs/progs/text/text-edit.scm:489: (tree-set! t `(render-remark "" ,(tree-ref t 0)))) 2341TeXmacs/progs/text/text-edit.scm:490: ((tree-in? t '(question)) 2342TeXmacs/progs/text/text-edit.scm:491: (tree-set! t `(render-theorem "" ,(tree-ref t 0)))) 2343TeXmacs/progs/text/text-edit.scm:492: ((tree-in? t '(answer)) 2344TeXmacs/progs/text/text-edit.scm:493: (tree-set! t `(render-remark "" ,(tree-ref t 0)))) 2345TeXmacs/progs/text/text-edit.scm:494: ((tree-in? t (numbered-unnumbered-append (exercise-tag-list))) 2346TeXmacs/progs/text/text-edit.scm:495: (tree-set! t `(render-exercise "" ,(tree-ref t 0)))) 2347TeXmacs/progs/text/text-edit.scm:496: ((tree-in? t (numbered-unnumbered-append (solution-tag-list))) 2348TeXmacs/progs/text/text-edit.scm:497: (tree-set! t `(render-solution "" ,(tree-ref t 0)))) 2349TeXmacs/progs/text/text-edit.scm:498: ((tree-in? t '(proof)) 2350TeXmacs/progs/text/text-edit.scm:499: (tree-set! t `(render-proof "" ,(tree-ref t 0)))) 2351TeXmacs/progs/text/text-edit.scm:500: ((tree-in? t (numbered-unnumbered-append (small-figure-tag-list))) 2352TeXmacs/progs/text/text-edit.scm:501: (tree-set! t `(render-small-figure "" "" ,(tree-ref t 0) 2353TeXmacs/progs/text/text-edit.scm:502: ,(tree-ref t 1)))) 2354TeXmacs/progs/text/text-edit.scm:503: ((tree-in? t (numbered-unnumbered-append (big-figure-tag-list))) 2355TeXmacs/progs/text/text-edit.scm:504: (tree-set! t `(render-big-figure "" "" ,(tree-ref t 0) 2356TeXmacs/progs/text/text-edit.scm:505: ,(tree-ref t 1)))) 2357TeXmacs/progs/text/text-edit.scm:506: ((tree-is? t 'render-theorem) 2358TeXmacs/progs/text/text-edit.scm:507: (tree-set! t `(theorem ,(tree-ref t 1)))) 2359TeXmacs/progs/text/text-edit.scm:508: ((tree-is? t 'render-remark) 2360TeXmacs/progs/text/text-edit.scm:509: (tree-set! t `(remark ,(tree-ref t 1)))) 2361TeXmacs/progs/text/text-edit.scm:510: ((tree-is? t 'render-exercise) 2362TeXmacs/progs/text/text-edit.scm:511: (tree-set! t `(exercise ,(tree-ref t 1)))) 2363TeXmacs/progs/text/text-edit.scm:512: ((tree-is? t 'render-solution) 2364TeXmacs/progs/text/text-edit.scm:513: (tree-set! t `(solution ,(tree-ref t 1)))) 2365TeXmacs/progs/text/text-edit.scm:514: ((tree-is? t 'render-proof) 2366TeXmacs/progs/text/text-edit.scm:515: (tree-set! t `(proof ,(tree-ref t 1)))) 2367TeXmacs/progs/text/text-edit.scm:516: ((tree-is? t 'render-small-figure) 2368TeXmacs/progs/text/text-edit.scm:517: (tree-set! t `(small-figure ,(tree-ref t 2) ,(tree-ref t 3)))) 2369TeXmacs/progs/text/text-edit.scm:518: ((tree-is? t 'render-big-figure) 2370TeXmacs/progs/text/text-edit.scm:519: (tree-set! t `(big-figure ,(tree-ref t 2) ,(tree-ref t 3)))))) 2371TeXmacs/progs/text/text-edit.scm:526: (tree-in? t (frame-tag-list))) 2372TeXmacs/progs/text/text-edit.scm:529: (tree-in? t (frame-titled-tag-list))) 2373TeXmacs/progs/text/text-edit.scm:532: (tree-in? t (frame-titled-tag-list))) 2374TeXmacs/progs/text/text-edit.scm:535: (cond ((tree-in? t (frame-tag-list)) 2375TeXmacs/progs/text/text-edit.scm:536: (with l (symbol-append (tree-label t) '-titled) 2376TeXmacs/progs/text/text-edit.scm:537: (tree-set! t `(,l ,(tree-ref t 0) "")) 2377TeXmacs/progs/text/text-edit.scm:538: (tree-go-to t 1 :end))) 2378TeXmacs/progs/text/text-edit.scm:539: ((tree-in? t (frame-titled-tag-list)) 2379TeXmacs/progs/text/text-edit.scm:540: (with l (symbol-drop-right (tree-label t) 7) 2380TeXmacs/progs/text/text-edit.scm:541: (tree-set! t `(,l ,(tree-ref t 0))) 2381TeXmacs/progs/text/text-edit.scm:542: (tree-go-to t 0 :end))))) 2382TeXmacs/progs/text/text-edit.scm:545: (:require (tree-in? t '(padded padded-titled))) 2383TeXmacs/progs/text/text-edit.scm:550: (:require (tree-in? t '(overlined overlined-titled))) 2384TeXmacs/progs/text/text-edit.scm:556: (:require (tree-in? t '(underlined underlined-titled))) 2385TeXmacs/progs/text/text-edit.scm:562: (:require (tree-in? t '(bothlined bothlined-titled))) 2386TeXmacs/progs/text/text-edit.scm:569: (:require (tree-in? t '(framed framed-titled))) 2387TeXmacs/progs/text/text-edit.scm:577: (:require (tree-is? t 'ornamented)) 2388TeXmacs/progs/text/text-edit.scm:586: (:require (tree-is? t 'ornamented-titled)) 2389TeXmacs/progs/text/text-edit.scm:597: (:require (tree-is? t 'ornament)) 2390TeXmacs/progs/text/text-edit.scm:600: (if (== (tree-arity t) 1) (list) 2391TeXmacs/progs/text/text-edit.scm:608: (:require (tree-in? t (ornament-tag-list))) 2392TeXmacs/progs/text/text-menu.scm:233: (tree-is? t 'marginal-note)) 2393TeXmacs/progs/text/text-menu.scm:248: (cond ((tree-is? t 'float) #t) 2394TeXmacs/progs/text/text-menu.scm:249: ((tree-in? t '(big-figure big-figure* 2395TeXmacs/progs/text/text-menu.scm:253: (and (tree-up t) (float-context? (tree-up t)))) 2396TeXmacs/progs/text/text-menu.scm:643: (:require (tree-in? t '(doc-note author-note))) 2397TeXmacs/progs/text/text-menu.scm:744: (for (s (tree-search-sections (buffer-tree))) 2398TeXmacs/progs/text/text-menu.scm:746: (when (and (tree->path s) (section-context? s)) 2399TeXmacs/progs/text/text-menu.scm:747: (tree-go-to s 0 :end))))) 2400TeXmacs/progs/text/text-menu.scm:810: (with s (upcase-first (tree-name (tree r))) 2401TeXmacs/progs/text/text-natbib.scm:35: (let* ((s (tree-as-string t)) 2402TeXmacs/progs/text/text-natbib.scm:36: (type (tree-as-string type-t))) 2403TeXmacs/progs/text/text-structure.scm:48: ((tree-is? (tm-car t) 'the-index) "Index") 2404TeXmacs/progs/text/text-structure.scm:49: ((tree-is? (tm-car t) 'the-glossary) "Glossary") 2405TeXmacs/progs/text/text-structure.scm:53: ((tree-is? t 'concat) 2406TeXmacs/progs/text/text-structure.scm:54: (tm/section-get-title-string-sub (tree-children t))) 2407TeXmacs/progs/text/text-structure.scm:60: ((tree-is? t 'concat) 2408TeXmacs/progs/text/text-structure.scm:61: (list-find (tree-children t) 2409TeXmacs/progs/utils/cite/cite-sort.scm:30: (with key (stree->tree `(get-binding ,(cadr k))) 2410TeXmacs/progs/utils/cite/cite-sort.scm:31: (with ret (tree->stree (texmacs-exec key)) 2411TeXmacs/progs/utils/cite/cite-sort.scm:38: (let* ((args (map tree->stree (tree-children args))) 2412TeXmacs/progs/utils/edit/auto-close.scm:40: (t (tree->stree (path->tree (cDr p))))) 2413TeXmacs/progs/utils/edit/selections.scm:48: (tm-define (tree-cut t) 2414TeXmacs/progs/utils/edit/selections.scm:49: (and-with p (tree->path t) 2415TeXmacs/progs/utils/edit/variants.scm:86: (or (tree-in? t (numbered-tag-list)) 2416TeXmacs/progs/utils/edit/variants.scm:87: (tree-in? t (numbered-tag-list*)))) 2417TeXmacs/progs/utils/edit/variants.scm:101: (not (symbol-ends? (tree-label t) '*))) 2418TeXmacs/progs/utils/edit/variants.scm:107: (and-with p (tree-outer t) 2419TeXmacs/progs/utils/edit/variants.scm:112: (let* ((old (tree-label t)) 2420TeXmacs/progs/utils/edit/variants.scm:125: (tree-in? t (alternate-tag-list))) 2421TeXmacs/progs/utils/edit/variants.scm:127: (tree-in? t (alternate-first-tag-list))) 2422TeXmacs/progs/utils/edit/variants.scm:129: (tree-in? t (alternate-second-tag-list))) 2423TeXmacs/progs/utils/edit/variants.scm:162: (and-with p (tree-outer t) 2424TeXmacs/progs/utils/edit/variants.scm:170: (variant-set t (symbol-toggle-alternate (tree-label t)))) 2425TeXmacs/progs/utils/edit/variants.scm:173: (and-with p (tree-outer t) 2426TeXmacs/progs/utils/edit/variants.scm:181: (and-with p (tree-outer t) 2427TeXmacs/progs/utils/edit/variants.scm:202: (when (tree->path t) 2428TeXmacs/progs/utils/edit/variants.scm:203: (tree-go-to t :start) 2429TeXmacs/progs/utils/edit/variants.scm:204: (when (tree-up t) 2430TeXmacs/progs/utils/edit/variants.scm:205: (alternate-fold (tree-up t))))) 2431TeXmacs/progs/utils/edit/variants.scm:211: (when (tree->path t) 2432TeXmacs/progs/utils/edit/variants.scm:212: (tree-go-to t :start) 2433TeXmacs/progs/utils/edit/variants.scm:213: (when (tree-up t) 2434TeXmacs/progs/utils/edit/variants.scm:214: (alternate-unfold (tree-up t))))) 2435TeXmacs/progs/utils/edit/variants.scm:224: (with i (tree-down-index t) 2436TeXmacs/progs/utils/edit/variants.scm:225: (tree-assign-node! t by) 2437TeXmacs/progs/utils/edit/variants.scm:226: (when (and i (not (tree-accessible-child? t i))) 2438TeXmacs/progs/utils/edit/variants.scm:227: (with ac (tree-accessible-children t) 2439TeXmacs/progs/utils/edit/variants.scm:229: (tree-go-to (car ac) :start))))))) 2440TeXmacs/progs/utils/edit/variants.scm:232: (if (and (symbol-numbered? v) (symbol-unnumbered? (tree-label t))) 2441TeXmacs/progs/utils/edit/variants.scm:257: (tree-in? t (numbered-unnumbered-complete (variant-tag-list)))) 2442TeXmacs/progs/utils/edit/variants.scm:267: (and-with p (tree-outer t) 2443TeXmacs/progs/utils/edit/variants.scm:275: (let* ((old (tree-label t)) 2444TeXmacs/progs/utils/edit/variants.scm:282: (variant-circulate-in t (variants-of (tree-label t)) forward?)) 2445TeXmacs/progs/utils/edit/variants.scm:289: (tree-in? t (hidden-tag-list))) 2446TeXmacs/progs/utils/edit/variants.scm:291: (tm-define (tree-show-hidden t) 2447TeXmacs/progs/utils/edit/variants.scm:294: (tm-define (tree-show-hidden t) 2448TeXmacs/progs/utils/edit/variants.scm:296: (tree-assign-node! t 'shown)) 2449TeXmacs/progs/utils/edit/variants.scm:301: (tree-show-hidden t) 2450TeXmacs/progs/utils/edit/variants.scm:302: (set! t (tree-ref t :down))))) 2451TeXmacs/progs/utils/excerpt/excerpt-menu.scm:21: (and (tree-func? t 'mirrored 3) 2452TeXmacs/progs/utils/excerpt/excerpt-menu.scm:22: (tree-atomic? (tree-ref t 0)) 2453TeXmacs/progs/utils/excerpt/excerpt-menu.scm:23: (tree-atomic? (tree-ref t 1)))) 2454TeXmacs/progs/utils/excerpt/excerpt-menu.scm:26: (and (tree->path t) 2455TeXmacs/progs/utils/excerpt/excerpt-menu.scm:27: (mirrored-context? (tree-up t)) 2456TeXmacs/progs/utils/excerpt/excerpt-menu.scm:28: (== (tree-index t) 2))) 2457TeXmacs/progs/utils/excerpt/excerpt-menu.scm:31: (tree->string (tree-ref (tree-up t) 0))) 2458TeXmacs/progs/utils/excerpt/excerpt-menu.scm:34: (tree->string (tree-ref (tree-up t) 1))) 2459TeXmacs/progs/utils/excerpt/excerpt-menu.scm:37: (with other? (lambda (u) (!= (tree->path t) (tree->path u))) 2460TeXmacs/progs/utils/excerpt/excerpt-menu.scm:62: (with p (tree-up t) 2461TeXmacs/progs/utils/excerpt/excerpt-menu.scm:63: (when (and p (tree-func? p 'mirrored 3) 2462TeXmacs/progs/utils/excerpt/excerpt-menu.scm:64: (tree-atomic? (tree-ref p 0)) 2463TeXmacs/progs/utils/excerpt/excerpt-menu.scm:65: (tree-atomic? (tree-ref p 1)) 2464TeXmacs/progs/utils/excerpt/excerpt-menu.scm:67: (let* ((unique-id (tree->string (tree-ref p 0))) 2465TeXmacs/progs/utils/excerpt/excerpt-menu.scm:68: (mirror-id (tree->string (tree-ref p 1)))) 2466TeXmacs/progs/utils/excerpt/excerpt-menu.scm:90: (display* event ", " (tree->path t) ", " (modification->scheme mod) "\n") 2467TeXmacs/progs/utils/library/cursor.scm:54: ((tree-is? (path->tree p) lab) #t) 2468TeXmacs/progs/utils/library/cursor.scm:147: (tm-define (tree-at-start? t) 2469TeXmacs/progs/utils/library/cursor.scm:149: (or (== p (tree->path t 0 :start)) 2470TeXmacs/progs/utils/library/cursor.scm:150: (== p (tree->path t :start))))) 2471TeXmacs/progs/utils/library/cursor.scm:152: (tm-define (tree-at-end? t) 2472TeXmacs/progs/utils/library/cursor.scm:154: (or (== p (tree->path t 1 :end)) 2473TeXmacs/progs/utils/library/cursor.scm:155: (== p (tree->path t :end))))) 2474TeXmacs/progs/utils/library/tree.scm:20: (tm-define-macro (tree-assign! ref t) 2475TeXmacs/progs/utils/library/tree.scm:22: (set! ,ref (tree-assign ,ref ,t)) 2476TeXmacs/progs/utils/library/tree.scm:25: (tm-define (tree-insert t pos x) 2477TeXmacs/progs/utils/library/tree.scm:26: (cond ((string? x) (tree-var-insert t pos x)) 2478TeXmacs/progs/utils/library/tree.scm:27: ((list? x) (tree-var-insert t pos (cons 'tuple x))) 2479TeXmacs/progs/utils/library/tree.scm:28: (else (texmacs-error "tree-insert" "~S is not a string or a list" x)))) 2480TeXmacs/progs/utils/library/tree.scm:30: (tm-define tree-insert! tree-insert) 2481TeXmacs/progs/utils/library/tree.scm:31: (tm-define tree-remove! tree-remove) 2482TeXmacs/progs/utils/library/tree.scm:32: (tm-define tree-split! tree-split) 2483TeXmacs/progs/utils/library/tree.scm:33: (tm-define tree-join! tree-join) 2484TeXmacs/progs/utils/library/tree.scm:34: (tm-define tree-assign-node! tree-assign-node) 2485TeXmacs/progs/utils/library/tree.scm:36: (tm-define-macro (tree-insert-node! ref pos t) 2486TeXmacs/progs/utils/library/tree.scm:38: (set! ,ref (tree-insert-node ,ref ,pos ,t)) 2487TeXmacs/progs/utils/library/tree.scm:41: (tm-define-macro (tree-remove-node! ref pos) 2488TeXmacs/progs/utils/library/tree.scm:43: (set! ,ref (tree-remove-node ,ref ,pos)) 2489TeXmacs/progs/utils/library/tree.scm:51: (define (tree-common-left t1 t2) 2490TeXmacs/progs/utils/library/tree.scm:59: (define (tree-common-right t1 t2) 2491TeXmacs/progs/utils/library/tree.scm:67: (define (tree-focus ref l) 2492TeXmacs/progs/utils/library/tree.scm:69: ((tree-inside? (car l) ref) 0) 2493TeXmacs/progs/utils/library/tree.scm:70: ((and (list? (car l)) (tree-focus ref (car l))) 0) 2494TeXmacs/progs/utils/library/tree.scm:72: (with r (tree-focus ref (cdr l)) 2495TeXmacs/progs/utils/library/tree.scm:75: (define (tree-get-focus ref t l) 2496TeXmacs/progs/utils/library/tree.scm:76: (if (or (== t ref) (not (tree-inside? t ref))) 2497TeXmacs/progs/utils/library/tree.scm:77: (tree-focus ref l) 2498TeXmacs/progs/utils/library/tree.scm:78: (with r (tree-focus t l) 2499TeXmacs/progs/utils/library/tree.scm:79: (if r r (tree-get-focus ref (tree-up t) l))))) 2500TeXmacs/progs/utils/library/tree.scm:81: (tm-define (tree-set-diff ref t) 2501TeXmacs/progs/utils/library/tree.scm:84: (let* ((p (tree->path ref)) 2502TeXmacs/progs/utils/library/tree.scm:85: (l (tree-common-left ref t)) 2503TeXmacs/progs/utils/library/tree.scm:86: (r (tree-common-right (tm-range ref l (tm-length ref)) 2504TeXmacs/progs/utils/library/tree.scm:89: (texmacs-error "tree-set-diff" "~S isn't part of a document" ref)) 2505TeXmacs/progs/utils/library/tree.scm:91: ((tree-inside? t ref) 2506TeXmacs/progs/utils/library/tree.scm:92: (with q (tree->path t) 2507TeXmacs/progs/utils/library/tree.scm:93: (tree-remove-node! ref (list-ref q (length p))) 2508TeXmacs/progs/utils/library/tree.scm:94: (tree-set-diff ref t))) 2509TeXmacs/progs/utils/library/tree.scm:97: (tree-insert! ref l 2510TeXmacs/progs/utils/library/tree.scm:101: (tree-remove! ref l (- (- (tm-length ref) r) l))) 2511TeXmacs/progs/utils/library/tree.scm:102: ((not (tm-compound? t)) (tree-assign! ref t)) 2512TeXmacs/progs/utils/library/tree.scm:104: (tree-assign-node! ref (tm-car t))) 2513TeXmacs/progs/utils/library/tree.scm:107: (tree-insert! ref l (sublist (tm-cdr t) l (- (tm-arity t) r))) 2514TeXmacs/progs/utils/library/tree.scm:109: (tree-assign-node! ref (tm-car t)))) 2515TeXmacs/progs/utils/library/tree.scm:112: (not (tree-is-buffer? ref))) 2516TeXmacs/progs/utils/library/tree.scm:113: (tree-remove! ref l (- (- (tm-arity ref) r) l)) 2517TeXmacs/progs/utils/library/tree.scm:115: (tree-assign-node! ref (tm-car t)))) 2518TeXmacs/progs/utils/library/tree.scm:117: (with pos (tree-focus ref (tm-cdr t)) 2519TeXmacs/progs/utils/library/tree.scm:118: (if (or (not pos) (tree-is-buffer? ref)) 2520TeXmacs/progs/utils/library/tree.scm:119: (tree-assign! ref t) 2521TeXmacs/progs/utils/library/tree.scm:125: (tree-set-diff! ref mid) 2522TeXmacs/progs/utils/library/tree.scm:126: (tree-insert-node! ref pos merged)))))))) 2523TeXmacs/progs/utils/library/tree.scm:128: (tm-define-macro (tree-set-diff! ref t) 2524TeXmacs/progs/utils/library/tree.scm:131: (set! ,ref (tree-set-diff ,ref ,t)) 2525TeXmacs/progs/utils/library/tree.scm:138: (tm-define (tree-ref t . l) 2526TeXmacs/progs/utils/library/tree.scm:145: (and (tree-compound? t) (>= i 0) (< i (tree-arity t)) 2527TeXmacs/progs/utils/library/tree.scm:146: (apply tree-ref (cons (tree-child-ref t i) (cdr l)))))) 2528TeXmacs/progs/utils/library/tree.scm:148: (apply tree-ref (cons t (cons 0 (cdr l))))) 2529TeXmacs/progs/utils/library/tree.scm:150: (and (tree-compound? t) 2530TeXmacs/progs/utils/library/tree.scm:151: (apply tree-ref (cons t (cons (- (tree-arity t) 1) (cdr l)))))) 2531TeXmacs/progs/utils/library/tree.scm:153: (and (tree-compound? t) 2532TeXmacs/progs/utils/library/tree.scm:154: (with i (list-find-index (tree-children t) 2533TeXmacs/progs/utils/library/tree.scm:155: (cut tree-is? <> (car l))) 2534TeXmacs/progs/utils/library/tree.scm:156: (apply tree-ref (cons t (cons i (cdr l))))))) 2535TeXmacs/progs/utils/library/tree.scm:161: (define (tree-set-sub-error t l) 2536TeXmacs/progs/utils/library/tree.scm:162: (texmacs-error "tree-set-sub" "~S does not admit a subtree along ~S" t l)) 2537TeXmacs/progs/utils/library/tree.scm:164: (define (tree-set-sub t l u) 2538TeXmacs/progs/utils/library/tree.scm:165: (cond ((not (tree? t)) (texmacs-error "tree-set-sub" "~S is not a tree" t)) 2539TeXmacs/progs/utils/library/tree.scm:168: (if (tree-active? t) 2540TeXmacs/progs/utils/library/tree.scm:169: (tree-set-diff t u) 2541TeXmacs/progs/utils/library/tree.scm:170: (tree-assign t u))) 2542TeXmacs/progs/utils/library/tree.scm:173: (if (and (tree-compound? t) (>= i 0) (< i (tree-arity t))) 2543TeXmacs/progs/utils/library/tree.scm:174: (if (or (nnull? (cdr l)) (tree-active? t)) 2544TeXmacs/progs/utils/library/tree.scm:175: (tree-set-sub (tree-child-ref t (car l)) (cdr l) u) 2545TeXmacs/progs/utils/library/tree.scm:176: (tree-child-set! t (car l) u)) 2546TeXmacs/progs/utils/library/tree.scm:177: (tree-set-sub-error t l)))) 2547TeXmacs/progs/utils/library/tree.scm:179: (tree-set-sub t (cons 0 (cdr l)) u)) 2548TeXmacs/progs/utils/library/tree.scm:181: (if (tree-compound? t) 2549TeXmacs/progs/utils/library/tree.scm:182: (tree-set-sub t (cons (- (tree-arity t) 1) (cdr l)) u) 2550TeXmacs/progs/utils/library/tree.scm:183: (tree-set-sub-error t l))) 2551TeXmacs/progs/utils/library/tree.scm:185: (with i (and (tree-compound? t) 2552TeXmacs/progs/utils/library/tree.scm:186: (list-find-index (tree-children t) 2553TeXmacs/progs/utils/library/tree.scm:187: (cut tree-is? <> (car l)))) 2554TeXmacs/progs/utils/library/tree.scm:188: (if i (tree-set-sub t (cons i (cdr l)) u) 2555TeXmacs/progs/utils/library/tree.scm:189: (tree-set-sub-error t l)))) 2556TeXmacs/progs/utils/library/tree.scm:191: ((tree-active? t) 2557TeXmacs/progs/utils/library/tree.scm:194: (tree-set-diff (car r) u) 2558TeXmacs/progs/utils/library/tree.scm:195: (tree-set-sub-error t l)))) 2559TeXmacs/progs/utils/library/tree.scm:196: (else (tree-set-sub-error t l)))) 2560TeXmacs/progs/utils/library/tree.scm:198: (tm-define (tree-set t . args) 2561TeXmacs/progs/utils/library/tree.scm:201: (tree-set-sub t (reverse (cdr r)) (car r)))) 2562TeXmacs/progs/utils/library/tree.scm:203: (tm-define-macro (tree-set! t . l) 2563TeXmacs/progs/utils/library/tree.scm:206: `(if (tree-active? ,t) 2564TeXmacs/progs/utils/library/tree.scm:207: (tree-set-diff! ,t ,@l) 2565TeXmacs/progs/utils/library/tree.scm:208: (tree-assign! ,t ,@l)) 2566TeXmacs/progs/utils/library/tree.scm:209: `(tree-set ,t ,@l))) 2567TeXmacs/progs/utils/library/tree.scm:211: (tm-define (tree-start t . l) 2568TeXmacs/progs/utils/library/tree.scm:212: (path->tree (cDr (apply tree->path (rcons (cons t l) :start))))) 2569TeXmacs/progs/utils/library/tree.scm:214: (tm-define (tree-end t . l) 2570TeXmacs/progs/utils/library/tree.scm:215: (path->tree (cDr (apply tree->path (rcons (cons t l) :end))))) 2571TeXmacs/progs/utils/library/tree.scm:221: (tm-define (tree-search-upwards t what) 2572TeXmacs/progs/utils/library/tree.scm:224: (tree-search-upwards t (lambda (x) (in? (tree-label x) what)))) 2573TeXmacs/progs/utils/library/tree.scm:226: (tree-search-upwards t (lambda (x) (== (tree-label x) what)))) 2574TeXmacs/progs/utils/library/tree.scm:228: ((or (tree-is-buffer? t) (not (tree-up t))) #f) 2575TeXmacs/progs/utils/library/tree.scm:229: (else (tree-search-upwards (tree-up t) what)))) 2576TeXmacs/progs/utils/library/tree.scm:231: (tm-define (tree-innermost x . opt-flag) 2577TeXmacs/progs/utils/library/tree.scm:237: (tree-search-upwards (path->tree p) x))) 2578TeXmacs/progs/utils/library/tree.scm:242: (with t (tree-innermost l) 2579TeXmacs/progs/utils/library/tree.scm:243: (and t (tree-label t)))) 2580TeXmacs/progs/utils/library/tree.scm:246: `(let ((,t (tree-innermost ,x))) 2581TeXmacs/progs/utils/library/tree.scm:253: (tm-define (tree-replace t what by) 2582TeXmacs/progs/utils/library/tree.scm:256: (if (tree-compound? t) 2583TeXmacs/progs/utils/library/tree.scm:257: (for-each (lambda (u) (tree-replace u what by)) 2584TeXmacs/progs/utils/library/tree.scm:258: (tree-children t))))) 2585TeXmacs/progs/utils/library/tree.scm:260: (tree-replace t (lambda (u) (tree-is? u what)) by)) 2586TeXmacs/progs/utils/library/tree.scm:262: (tree-replace t what 2587TeXmacs/progs/utils/library/tree.scm:263: (lambda (u) (if (tree-compound? u) (tree-assign-node u by))))) 2588TeXmacs/progs/utils/library/tree.scm:267: (tree-replace t (lambda (u) (== u w)) 2589TeXmacs/progs/utils/library/tree.scm:268: (lambda (u) (tree-assign u (tree-copy b)))))))) 2590TeXmacs/progs/utils/library/tree.scm:274: (tm-define (tree-is? t . l) 2591TeXmacs/progs/utils/library/tree.scm:275: (let* ((st (apply tree-ref (cons t (cDr l)))) 2592TeXmacs/progs/utils/library/tree.scm:277: (and st (== (tree-label st) lab)))) 2593TeXmacs/progs/utils/library/tree.scm:279: (tm-define (tree-in? t . l) 2594TeXmacs/progs/utils/library/tree.scm:280: (let* ((st (apply tree-ref (cons t (cDr l)))) 2595TeXmacs/progs/utils/library/tree.scm:282: (and st (in? (tree-label st) ls)))) 2596TeXmacs/progs/utils/library/tree.scm:284: (tm-define (tree->path t . l) 2597TeXmacs/progs/utils/library/tree.scm:286: (if (null? l) (tree-get-path t) 2598TeXmacs/progs/utils/library/tree.scm:289: (with u (apply tree-ref (cons t (cDr l))) 2599TeXmacs/progs/utils/library/tree.scm:291: ((== i :start) (path-start (root-tree) (tree->path u))) 2600TeXmacs/progs/utils/library/tree.scm:292: ((== i :end) (path-end (root-tree) (tree->path u))) 2601TeXmacs/progs/utils/library/tree.scm:293: ((integer? i) (rcons (tree->path u) i)))) 2602TeXmacs/progs/utils/library/tree.scm:294: (with u (apply tree-ref (cons t l)) 2603TeXmacs/progs/utils/library/tree.scm:295: (and u (tree->path u))))))) 2604TeXmacs/progs/utils/library/tree.scm:297: (tm-define (tree-cursor-path t . l) 2605TeXmacs/progs/utils/library/tree.scm:299: (let* ((p (apply tree->path (cons t l))) 2606TeXmacs/progs/utils/library/tree.scm:303: (tm-define (tree-go-to t . l) 2607TeXmacs/progs/utils/library/tree.scm:305: (with p (apply tree->path (cons t l)) 2608TeXmacs/progs/utils/library/tree.scm:308: (tm-define (tree-cursor-at? t . l) 2609TeXmacs/progs/utils/library/tree.scm:310: (with p (apply tree->path (cons t l)) 2610TeXmacs/progs/utils/library/tree.scm:313: (tm-define (tree-select t . l) 2611TeXmacs/progs/utils/library/tree.scm:314: (:synopsis "Select the tree @(tree-ref t . l)") 2612TeXmacs/progs/utils/library/tree.scm:315: (and-with t (apply tree-ref (cons t l)) 2613TeXmacs/progs/utils/library/tree.scm:316: (and-with p (tree->path t) 2614TeXmacs/progs/utils/library/tree.scm:317: (selection-set (rcons p 0) (rcons p (tree-right-index t)))))) 2615TeXmacs/progs/utils/library/tree.scm:319: (tm-define (tree-focus t . l) 2616TeXmacs/progs/utils/library/tree.scm:320: (:synopsis "Focus on the tree @(tree-ref t . l)") 2617TeXmacs/progs/utils/library/tree.scm:321: (and-with t (apply tree-ref (cons t l)) 2618TeXmacs/progs/utils/library/tree.scm:322: (and-with p (tree->path t) 2619TeXmacs/progs/utils/library/tree.scm:326: `(with tp (tree->tree-pointer ,t) 2620TeXmacs/progs/utils/library/tree.scm:328: (tree-focus (tree-pointer->tree tp)) 2621TeXmacs/progs/utils/library/tree.scm:329: (tree-pointer-detach tp))) 2622TeXmacs/progs/utils/library/tree.scm:335: (tm-define (tree-correct-old t . l) 2623TeXmacs/progs/utils/library/tree.scm:337: (with p (apply tree->path (cons t l)) 2624TeXmacs/progs/utils/library/tree.scm:340: (tm-define (tree-correct-node t . l) 2625TeXmacs/progs/utils/library/tree.scm:341: (:synopsis "Make the node @(tree-ref t . l) correct") 2626TeXmacs/progs/utils/library/tree.scm:342: (cpp-tree-correct-node (apply tree-ref (cons t l)))) 2627TeXmacs/progs/utils/library/tree.scm:344: (tm-define (tree-correct-downwards t . l) 2628TeXmacs/progs/utils/library/tree.scm:345: (:synopsis "Correct the tree @(tree-ref t . l) and its descendants") 2629TeXmacs/progs/utils/library/tree.scm:346: (cpp-tree-correct-downwards (apply tree-ref (cons t l)))) 2630TeXmacs/progs/utils/library/tree.scm:348: (tm-define (tree-correct-upwards t . l) 2631TeXmacs/progs/utils/library/tree.scm:349: (:synopsis "Correct the tree @(tree-ref t . l) and its ancestors") 2632TeXmacs/progs/utils/library/tree.scm:350: (cpp-tree-correct-upwards (apply tree-ref (cons t l)))) 2633TeXmacs/progs/utils/literate/lp-build.scm:210: (tmfile-extract (tree-import file "texmacs") 'body)) 2634TeXmacs/progs/utils/literate/lp-edit.scm:75: (tree-set (tm-ref (car l) 1) "false") 2635TeXmacs/progs/utils/literate/lp-edit.scm:77: (tree-set (tm-ref x 1) "true")) 2636TeXmacs/progs/utils/literate/lp-edit.scm:78: (tree-set (tm-ref (cAr l) 2) "false") 2637TeXmacs/progs/utils/literate/lp-edit.scm:80: (tree-set (tm-ref x 2) "true"))))) 2638TeXmacs/progs/utils/literate/lp-edit.scm:113: (if (null? l) (chunk-tag name) (tree-label (car l))))) 2639TeXmacs/progs/utils/literate/lp-edit.scm:129: (tree-assign-node! t tag)) 2640TeXmacs/progs/utils/literate/lp-edit.scm:130: (tree-go-to t 3 :start) 2641TeXmacs/progs/utils/literate/lp-edit.scm:142: ((and (tree-empty? (tm-ref t 0)) (tree-empty? (tm-ref t 3))) 2642TeXmacs/progs/utils/literate/lp-edit.scm:143: (tree-select t) 2643TeXmacs/progs/utils/literate/lp-edit.scm:146: ((and (tree-cursor-at? t 0 :start) (not forwards?)) 2644TeXmacs/progs/utils/literate/lp-edit.scm:147: (tree-go-to t :start)) 2645TeXmacs/progs/utils/literate/lp-edit.scm:148: ((and (tree-cursor-at? t 0 :end) forwards?) 2646TeXmacs/progs/utils/literate/lp-edit.scm:149: (tree-go-to t 3 :start)) 2647TeXmacs/progs/utils/literate/lp-edit.scm:150: ((and (tree-cursor-at? t 3 :start) (not forwards?)) 2648TeXmacs/progs/utils/literate/lp-edit.scm:151: (tree-go-to t 0 :end)) 2649TeXmacs/progs/utils/literate/lp-edit.scm:152: ((and (tree-cursor-at? t 3 :end) forwards?) 2650TeXmacs/progs/utils/literate/lp-edit.scm:153: (tree-go-to t :end)) 2651TeXmacs/progs/utils/literate/lp-edit.scm:154: ((cursor-inside? (tree-ref t 0)) 2652TeXmacs/progs/utils/literate/lp-edit.scm:164: (and-with c (tree-search-upwards t tm-chunk?) 2653TeXmacs/progs/utils/literate/lp-edit.scm:168: (!= (tree->path (tree-ref c 0)) 2654TeXmacs/progs/utils/literate/lp-edit.scm:169: (tree->path name))) 2655TeXmacs/progs/utils/literate/lp-edit.scm:176: (nr (tree-index (tree-down t))) 2656TeXmacs/progs/utils/literate/lp-edit.scm:183: (when (and t (tree-down t)) 2657TeXmacs/progs/utils/literate/lp-edit.scm:184: (with nr (tree-index (tree-down t)) 2658TeXmacs/progs/utils/literate/lp-edit.scm:185: (tree-go-to t nr :start))))) 2659TeXmacs/progs/utils/misc/doxygen.scm:304: (load-tag-web (tree-as-string l)) 2660TeXmacs/progs/utils/misc/doxygen.scm:305: (load-tag-file (tree-as-string l))) 2661TeXmacs/progs/utils/misc/doxygen.scm:311: (let* ((xs (tree-as-string x)) 2662TeXmacs/progs/utils/misc/doxygen.scm:320: (tree-set! x (first proposal)) 2663TeXmacs/progs/utils/misc/doxygen.scm:325: (tree-set! x y) 2664TeXmacs/progs/utils/misc/markup-funcs.scm:22: (texmacs-version-release (tree->string t))) 2665TeXmacs/progs/utils/misc/markup-funcs.scm:30: (with (op . args) (tree->list to) 2666TeXmacs/progs/utils/misc/markup-funcs.scm:36: (with (op . l) (tree->list tup) 2667TeXmacs/progs/utils/misc/markup-funcs.scm:50: (with s (tree->string pat) 2668TeXmacs/progs/utils/misc/markup-funcs.scm:54: (with (op . r) (tree->list pat) 2669TeXmacs/progs/utils/misc/markup-funcs.scm:65: (with (op body2 . pat) (tree->list args) 2670TeXmacs/progs/utils/plugins/plugin-cmd.scm:72: (or (and (list? which) (tree-in? t which)) 2671TeXmacs/progs/utils/plugins/plugin-cmd.scm:73: (and (nlist? which) (tree-is? t which)) 2672TeXmacs/progs/utils/plugins/plugin-cmd.scm:74: (and (tree-in? t '(table tformat document)) 2673TeXmacs/progs/utils/plugins/plugin-cmd.scm:75: (cell-context-inside-sub? (tree-up t) which)))) 2674TeXmacs/progs/utils/plugins/plugin-cmd.scm:78: (and (tree-is? t 'cell) 2675TeXmacs/progs/utils/plugins/plugin-cmd.scm:79: (tree-is? t :up 'row) 2676TeXmacs/progs/utils/plugins/plugin-cmd.scm:80: (cell-context-inside-sub? (tree-ref t :up :up) which))) 2677TeXmacs/progs/utils/plugins/plugin-cmd.scm:83: (with u (tree-up t) 2678TeXmacs/progs/utils/plugins/plugin-cmd.scm:84: (and u (or (tree-in? u '(math equation equation*)) 2679TeXmacs/progs/utils/plugins/plugin-cmd.scm:89: (let* ((t1 (tree-innermost formula-context? #t)) 2680TeXmacs/progs/utils/plugins/plugin-cmd.scm:90: (t2 (tree-innermost 'text))) 2681TeXmacs/progs/utils/plugins/plugin-cmd.scm:91: (and (nnot t1) (or (not t2) (tree-inside? t1 t2))))) 2682TeXmacs/progs/utils/plugins/plugin-convert.scm:24: (set! current-plugin-input-stree (tree->stree (selection-tree))) 2683TeXmacs/progs/utils/plugins/plugin-convert.scm:36: (plugin-input (tree-upgrade-big current-plugin-input-stree))) 2684TeXmacs/progs/utils/plugins/plugin-convert.scm:42: (plugin-input (tree->stree t))) 2685TeXmacs/progs/utils/plugins/plugin-convert.scm:157: (plugin-input (tree-downgrade-brackets (cons 'around args) #f #t))) 2686TeXmacs/progs/utils/plugins/plugin-convert.scm:160: (plugin-input (tree-downgrade-brackets (cons 'around* args) #f #t))) 2687TeXmacs/progs/utils/plugins/plugin-eval.scm:63: (with r (tree->stree (connection-eval name ses u)) 2688TeXmacs/progs/utils/plugins/plugin-eval.scm:149: (if p (tree-copy p) (string-append (upcase-first lan) "] ")))) 2689TeXmacs/progs/utils/plugins/plugin-eval.scm:194: (ahash-set! plugin-prompts (list lan ses) (tree-copy t))) 2690TeXmacs/progs/utils/plugins/plugin-eval.scm:230: (if (tree-empty? in) 2691TeXmacs/progs/utils/plugins/plugin-eval.scm:241: (define (var-tree-children t) 2692TeXmacs/progs/utils/plugins/plugin-eval.scm:242: (with r (tree-children t) 2693TeXmacs/progs/utils/plugins/plugin-eval.scm:243: (if (and (nnull? r) (tree-empty? (cAr r))) (cDr r) r))) 2694TeXmacs/progs/utils/plugins/plugin-eval.scm:247: (tree-insert! t (tree-arity t) (var-tree-children u)))) 2695TeXmacs/progs/version/version-compare.scm:97: (tree-multi-paragraph? (tm->tree t2))) 2696TeXmacs/progs/version/version-compare.scm:100: (tree-multi-paragraph? (tm->tree t1))) 2697TeXmacs/progs/version/version-compare.scm:215: (not (tree-multi-paragraph? (tm->tree t1))) 2698TeXmacs/progs/version/version-compare.scm:216: (not (tree-multi-paragraph? (tm->tree t2)))) 2699TeXmacs/progs/version/version-compare.scm:217: (diff (if (tree-multi-paragraph? (tm->tree t1)) t1 `(document ,t1)) 2700TeXmacs/progs/version/version-compare.scm:218: (if (tree-multi-paragraph? (tm->tree t2)) t2 `(document ,t2)))) 2701TeXmacs/progs/version/version-compare.scm:243: (and (!= (tree-ref tt1 i) (tree-ref tt2 i)) 2702TeXmacs/progs/version/version-compare.scm:244: (not (tree-accessible-child? tt1 i)) 2703TeXmacs/progs/version/version-compare.scm:245: (not (tree-accessible-child? tt2 i)))) 2704TeXmacs/progs/version/version-compare.scm:246: (if (list-or (map wrong? (.. 0 (tree-arity tt1)))) 2705TeXmacs/progs/version/version-compare.scm:257: (let* ((t1 (tree-load-inclusion old)) 2706TeXmacs/progs/version/version-compare.scm:259: (u1 (tree->stree t1)) 2707TeXmacs/progs/version/version-compare.scm:260: (u2 (tree->stree t2)) 2708TeXmacs/progs/version/version-compare.scm:263: (rt (stree->tree mv))) 2709TeXmacs/progs/version/version-compare.scm:265: (tree-set (buffer-tree) rt) 2710TeXmacs/progs/version/version-compare.scm:269: (let* ((t1 (tree-load-inclusion new)) 2711TeXmacs/progs/version/version-compare.scm:271: (u1 (tree->stree t1)) 2712TeXmacs/progs/version/version-compare.scm:272: (u2 (tree->stree t2)) 2713TeXmacs/progs/version/version-compare.scm:275: (rt (stree->tree mv))) 2714TeXmacs/progs/version/version-compare.scm:277: (tree-set (buffer-tree) rt) 2715TeXmacs/progs/version/version-compare.scm:298: (v1 (version-get (tree->stree t) 0)) 2716TeXmacs/progs/version/version-compare.scm:299: (v2 (version-get (tree->stree t) 1))) 2717TeXmacs/progs/version/version-compare.scm:307: (tree-select (tree-innermost version-context?)) 2718TeXmacs/progs/version/version-edit.scm:22: (version-tag? (tree-label t))) 2719TeXmacs/progs/version/version-edit.scm:25: (not (not (tree-innermost version-context?)))) 2720TeXmacs/progs/version/version-edit.scm:45: ((and (== p1 (list 0)) (== p2 (list (tree-right-index t)))) (list t)) 2721TeXmacs/progs/version/version-edit.scm:46: ((tree-atomic? t) '()) 2722TeXmacs/progs/version/version-edit.scm:47: ((== p1 (list (tree-right-index t))) '()) 2723TeXmacs/progs/version/version-edit.scm:51: ((== p2 (list (tree-right-index t))) 2724TeXmacs/progs/version/version-edit.scm:52: (with n (- (tree-arity t) 1) 2725TeXmacs/progs/version/version-edit.scm:53: (with c (tree-ref t n) 2726TeXmacs/progs/version/version-edit.scm:54: (selection-subtrees t p1 (list n (tree-right-index c)))))) 2727TeXmacs/progs/version/version-edit.scm:56: (selection-subtrees (tree-ref t (car p1)) (cdr p1) (cdr p2))) 2728TeXmacs/progs/version/version-edit.scm:60: (t1 (tree-ref t i1)) 2729TeXmacs/progs/version/version-edit.scm:61: (t2 (tree-ref t i2)) 2730TeXmacs/progs/version/version-edit.scm:62: (l1 (selection-subtrees t p1 (list i1 (tree-right-index t1)))) 2731TeXmacs/progs/version/version-edit.scm:64: (ll (sublist (tree-children t) (+ i1 1) i2))) 2732TeXmacs/progs/version/version-edit.scm:97: (for-each (lambda (u) (tree-replace u version-context? tag)) 2733TeXmacs/progs/version/version-edit.scm:100: (with t (tree-innermost version-context?) 2734TeXmacs/progs/version/version-edit.scm:104: (tree-replace (buffer-tree) version-context? tag)) 2735TeXmacs/progs/version/version-edit.scm:110: (define (tree-normalize t) 2736TeXmacs/progs/version/version-edit.scm:111: (when (tree-compound? t) 2737TeXmacs/progs/version/version-edit.scm:112: (for-each tree-normalize (tree-children t)) 2738TeXmacs/progs/version/version-edit.scm:113: (when (tree-in? t '(concat document)) 2739TeXmacs/progs/version/version-edit.scm:116: (cond ((tree-is? u (tree-label t)) (tree-children u)) 2740TeXmacs/progs/version/version-edit.scm:117: ((and (== u (tree "")) (tree-is? t 'concat)) (list)) 2741TeXmacs/progs/version/version-edit.scm:119: (with c (apply append (map fun (tree-children t))) 2742TeXmacs/progs/version/version-edit.scm:120: (when (!= c (tree-children t)) 2743TeXmacs/progs/version/version-edit.scm:122: (tree-assign t (if (tree-is? t 'concat) "" '(document "")))) 2744TeXmacs/progs/version/version-edit.scm:123: ((and (tree-is? t 'concat) (null? (cdr c))) 2745TeXmacs/progs/version/version-edit.scm:124: (tree-assign t (car c))) 2746TeXmacs/progs/version/version-edit.scm:125: (else (tree-assign t `(,(tree-label t) ,@c)))))))))) 2747TeXmacs/progs/version/version-edit.scm:130: (let* ((p (tree-up t)) 2748TeXmacs/progs/version/version-edit.scm:131: (i (tree-index t))) 2749TeXmacs/progs/version/version-edit.scm:132: (cond ((and p i) (tree-remove p i 1)) 2750TeXmacs/progs/version/version-edit.scm:133: ((== new (tm->tree '(version-suppressed))) (tree-set t "")) 2751TeXmacs/progs/version/version-edit.scm:134: (else (tree-set t '(document))))) 2752TeXmacs/progs/version/version-edit.scm:135: (tree-set t new))) 2753TeXmacs/progs/version/version-edit.scm:138: (with p (if (version-context? where) (tree-up where) where) 2754TeXmacs/progs/version/version-edit.scm:139: (tree-replace where version-context? 2755TeXmacs/progs/version/version-edit.scm:142: (retain-version t (tree-ref t which))) 2756TeXmacs/progs/version/version-edit.scm:143: ((tree-is? t 'version-old) 2757TeXmacs/progs/version/version-edit.scm:144: (retain-version t (tree-ref t 0))) 2758TeXmacs/progs/version/version-edit.scm:146: (retain-version t (tree-ref t 1)))))) 2759TeXmacs/progs/version/version-edit.scm:147: (tree-normalize p))) 2760TeXmacs/progs/version/version-edit.scm:149: (define (tree-go-to-start t p) 2761TeXmacs/progs/version/version-edit.scm:150: (if (and (nnull? p) (< (car p) (tree-arity t))) 2762TeXmacs/progs/version/version-edit.scm:151: (tree-go-to-start (tree-ref t (car p)) (cdr p)) 2763TeXmacs/progs/version/version-edit.scm:152: (tree-go-to t :start))) 2764TeXmacs/progs/version/version-edit.scm:160: (with p (tree->path t) 2765TeXmacs/progs/version/version-edit.scm:161: (tree-go-to t (if (tree-is? t 'version-old) 0 1) :end) 2766TeXmacs/progs/version/version-edit.scm:165: (tree-go-to-start (root-tree) p) 2767plugins/coq/progs/coq-edit.scm:23: (when (tree-compound? t) 2768plugins/coq/progs/coq-edit.scm:24: (when (tree-in? t '(coq-command coq-enunciation)) 2769plugins/coq/progs/coq-edit.scm:25: (with s (tree->stree (tree-ref t 0)) 2770plugins/coq/progs/coq-edit.scm:29: (tree-set t 0 new-s)) 2771plugins/coq/progs/coq-edit.scm:31: (for (c (tree-children t)) 2772plugins/coq/progs/coq-edit.scm:43: (and (tree-is? t 'coq-command) 2773plugins/coq/progs/coq-edit.scm:44: (== (tree-down-index t) 2))) 2774plugins/coq/progs/coq-edit.scm:56: (with i (+ (tree-down-index doc) 1) 2775plugins/coq/progs/coq-edit.scm:57: (tree-insert! doc i (list cmd)) 2776plugins/coq/progs/coq-edit.scm:58: (tree-go-to doc i 2 0))) 2777plugins/coq/progs/coq-edit.scm:60: (if (tree-is? t :up 'concat) 2778plugins/coq/progs/coq-edit.scm:61: (set! t (tree-up t)) 2779plugins/coq/progs/coq-edit.scm:62: (tree-set! t `(concat ,t))) 2780plugins/coq/progs/coq-edit.scm:63: (with i (+ (tree-down-index t) 1) 2781plugins/coq/progs/coq-edit.scm:64: (tree-insert! t i (list cmd)) 2782plugins/coq/progs/coq-edit.scm:65: (tree-go-to t i 2 0)))))) 2783plugins/coq/progs/coq-edit.scm:96: ((tree-atomic? t) #f) 2784plugins/coq/progs/coq-edit.scm:97: ((and (tree-in? t '(coq-command coq-enunciation)) 2785plugins/coq/progs/coq-edit.scm:98: (tree-atomic? (tree-ref t 0)) 2786plugins/coq/progs/coq-edit.scm:99: (ahash-ref tab (tree->string (tree-ref t 0)))) 2787plugins/coq/progs/coq-edit.scm:100: (let* ((id (tree->string (tree-ref t 0))) 2788plugins/coq/progs/coq-edit.scm:102: (tree-assign! t `(,(tree-label t) ,id ,col 2789plugins/coq/progs/coq-edit.scm:103: ,@(cddr (tree-children t)))) 2790plugins/coq/progs/coq-edit.scm:105: (else (coq-update-status (tree-children t) tab)))) 2791plugins/coq/progs/coq-edit.scm:113: (let* ((cmd (object->string `(check ,(tree->stree (buffer-tree))))) 2792plugins/coq/progs/coq-edit.scm:132: (cond ((and (tree-is? t 'coq-comment) (tree-is? t :up 'document)) 2793plugins/coq/progs/coq-edit.scm:133: (tree-remove (tree-up t) (tree-index t) 1)) 2794plugins/coq/progs/coq-edit.scm:134: ((tree-compound? t) 2795plugins/coq/progs/coq-edit.scm:135: (for-each coq-remove-comments (reverse (tree-children t)))))) 2796plugins/python/progs/init-python.scm:29: (with s (texmacs->code (stree->tree u)) 2797plugins/python/progs/python-widgets.scm:51: (stree->tree (tmpy-help-content)) 2798plugins/r/progs/r-edit.scm:90: ;; (insert (stree->tree `(new-line))) 2799plugins/scilab/progs/init-scilab.scm:39: (let* ((t (tree->stree t)) 2800plugins/scilab/progs/init-scilab.scm:46: (stree->tree (string->object s)))) 2801plugins/texgraph/progs/texgraph-scripts-edit.scm:31: (tree-in? t '(texgraph-plot-curve texgraph-plot-curve* 2802plugins/texgraph/progs/texgraph-scripts-edit.scm:89: (in (texgraph-script-plot-command lan (tree->stree t)))) 2803plugins/texgraph/progs/texgraph-scripts-edit.scm:90: (tree-set! t `(plot-output ,t "")) 2804plugins/texgraph/progs/texgraph-scripts-edit.scm:91: (script-eval-at (tree-ref t 1) lan session in :math-correct :math-input) 2805plugins/texgraph/progs/texgraph-scripts-edit.scm:92: (tree-go-to t 1 :end))) 2806plugins/texgraph/progs/texgraph-scripts-edit.scm:96: (if (= (tree-down-index t) (- (tree-arity t) 1)) 2807plugins/texgraph/progs/texgraph-scripts-edit.scm:98: (tree-go-to t (1+ (tree-down-index t)) :end))) 2808plugins/texgraph/progs/texgraph-scripts-edit.scm:105: (:require (tree-is? t 'texgraph-plot-output)) 2809plugins/texgraph/progs/texgraph-scripts-edit.scm:106: (tree-remove-node! t 0) 2810plugins/texgraph/progs/texgraph-scripts-edit.scm:107: (tree-go-to t 0 :end)) 2811src/Scheme/Glue/build-glue-basic.scm:87: (tree-translate tree_translate (tree content)) 2812src/Scheme/Glue/build-glue-basic.scm:88: (tree-translate-from-to tree_translate (tree content string string)) 2813src/Scheme/Glue/build-glue-basic.scm:166: (tree->stree tree_to_scheme_tree (scheme_tree tree)) 2814src/Scheme/Glue/build-glue-basic.scm:167: (stree->tree scheme_tree_to_tree (tree scheme_tree)) 2815src/Scheme/Glue/build-glue-basic.scm:168: (tree->string coerce_tree_string (string tree)) 2816src/Scheme/Glue/build-glue-basic.scm:171: (tree-atomic? is_atomic (bool tree)) 2817src/Scheme/Glue/build-glue-basic.scm:172: (tree-compound? is_compound (bool tree)) 2818src/Scheme/Glue/build-glue-basic.scm:173: (tree-label L (tree_label tree)) 2819src/Scheme/Glue/build-glue-basic.scm:174: (tree-children A (array_tree tree)) 2820src/Scheme/Glue/build-glue-basic.scm:175: (tree-arity N (int tree)) 2821src/Scheme/Glue/build-glue-basic.scm:176: (tree-child-ref tree_ref (tree tree int)) 2822src/Scheme/Glue/build-glue-basic.scm:177: (tree-child-set! tree_set (tree tree int content)) 2823src/Scheme/Glue/build-glue-basic.scm:178: (tree-child-insert tree_child_insert (tree content int content)) 2824src/Scheme/Glue/build-glue-basic.scm:179: (tree-ip obtain_ip (path tree)) 2825src/Scheme/Glue/build-glue-basic.scm:180: (tree-active? tree_active (bool tree)) 2826src/Scheme/Glue/build-glue-basic.scm:181: (tree-eq? strong_equal (bool tree tree)) 2827src/Scheme/Glue/build-glue-basic.scm:183: (tree-range tree_range (tree tree int int)) 2828src/Scheme/Glue/build-glue-basic.scm:184: (tree-copy copy (tree tree)) 2829src/Scheme/Glue/build-glue-basic.scm:185: (tree-append tree_append (tree tree tree)) 2830src/Scheme/Glue/build-glue-basic.scm:186: (tree-right-index right_index (int tree)) 2831src/Scheme/Glue/build-glue-basic.scm:187: (tree-label-extension? is_extension (bool tree_label)) 2832src/Scheme/Glue/build-glue-basic.scm:188: (tree-label-macro? is_macro (bool tree_label)) 2833src/Scheme/Glue/build-glue-basic.scm:189: (tree-label-parameter? is_parameter (bool tree_label)) 2834src/Scheme/Glue/build-glue-basic.scm:190: (tree-label-type get_tag_type (string tree_label)) 2835src/Scheme/Glue/build-glue-basic.scm:191: (tree-multi-paragraph? is_multi_paragraph (bool tree)) 2836src/Scheme/Glue/build-glue-basic.scm:192: (tree-simplify simplify_correct (tree tree)) 2837src/Scheme/Glue/build-glue-basic.scm:193: (tree-minimal-arity minimal_arity (int tree)) 2838src/Scheme/Glue/build-glue-basic.scm:194: (tree-maximal-arity maximal_arity (int tree)) 2839src/Scheme/Glue/build-glue-basic.scm:195: (tree-possible-arity? correct_arity (bool tree int)) 2840src/Scheme/Glue/build-glue-basic.scm:196: (tree-insert_point insert_point (int tree int)) 2841src/Scheme/Glue/build-glue-basic.scm:197: (tree-is-dynamic? is_dynamic (bool tree)) 2842src/Scheme/Glue/build-glue-basic.scm:198: (tree-accessible-child? is_accessible_child (bool tree int)) 2843src/Scheme/Glue/build-glue-basic.scm:199: (tree-accessible-children accessible_children (array_tree tree)) 2844src/Scheme/Glue/build-glue-basic.scm:200: (tree-all-accessible? all_accessible (bool content)) 2845src/Scheme/Glue/build-glue-basic.scm:201: (tree-none-accessible? none_accessible (bool content)) 2846src/Scheme/Glue/build-glue-basic.scm:202: (tree-name get_name (string content)) 2847src/Scheme/Glue/build-glue-basic.scm:203: (tree-long-name get_long_name (string content)) 2848src/Scheme/Glue/build-glue-basic.scm:204: (tree-child-name get_child_name (string content int )) 2849src/Scheme/Glue/build-glue-basic.scm:205: (tree-child-long-name get_child_long_name (string content int)) 2850src/Scheme/Glue/build-glue-basic.scm:206: (tree-child-type get_child_type (string content int)) 2851src/Scheme/Glue/build-glue-basic.scm:207: (tree-child-env get_env_child (tree content int string content)) 2852src/Scheme/Glue/build-glue-basic.scm:208: (tree-descendant-env get_env_descendant (tree content path content)) 2853src/Scheme/Glue/build-glue-basic.scm:209: (tree-load-inclusion load_inclusion (tree url)) 2854src/Scheme/Glue/build-glue-basic.scm:210: (tree-as-string tree_as_string (string content)) 2855src/Scheme/Glue/build-glue-basic.scm:211: (tree-extents tree_extents (tree content)) 2856src/Scheme/Glue/build-glue-basic.scm:212: (tree-empty? is_empty (bool content)) 2857src/Scheme/Glue/build-glue-basic.scm:213: (tree-is-buffer? admits_edit_observer (bool tree)) 2858src/Scheme/Glue/build-glue-basic.scm:214: (tree-search-sections search_sections (array_tree tree)) 2859src/Scheme/Glue/build-glue-basic.scm:215: (tree-search-tree search (array_path content content path int)) 2860src/Scheme/Glue/build-glue-basic.scm:220: (tree-assign tree_assign (tree tree content)) 2861src/Scheme/Glue/build-glue-basic.scm:221: (tree-var-insert tree_insert (tree tree int content)) 2862src/Scheme/Glue/build-glue-basic.scm:222: (tree-remove tree_remove (tree tree int int)) 2863src/Scheme/Glue/build-glue-basic.scm:223: (tree-split tree_split (tree tree int int)) 2864src/Scheme/Glue/build-glue-basic.scm:224: (tree-join tree_join (tree tree int)) 2865src/Scheme/Glue/build-glue-basic.scm:225: (tree-assign-node tree_assign_node (tree tree tree_label)) 2866src/Scheme/Glue/build-glue-basic.scm:226: (tree-insert-node tree_insert_node (tree tree int content)) 2867src/Scheme/Glue/build-glue-basic.scm:227: (tree-remove-node tree_remove_node (tree tree int)) 2868src/Scheme/Glue/build-glue-basic.scm:229: (cpp-tree-correct-node correct_node (void tree)) 2869src/Scheme/Glue/build-glue-basic.scm:230: (cpp-tree-correct-downwards correct_downwards (void tree)) 2870src/Scheme/Glue/build-glue-basic.scm:231: (cpp-tree-correct-upwards correct_upwards (void tree)) 2871src/Scheme/Glue/build-glue-basic.scm:246: (tree-upgrade-brackets upgrade_brackets (tree content string)) 2872src/Scheme/Glue/build-glue-basic.scm:247: (tree-upgrade-big upgrade_big (tree content)) 2873src/Scheme/Glue/build-glue-basic.scm:248: (tree-downgrade-brackets downgrade_brackets (tree content bool bool)) 2874src/Scheme/Glue/build-glue-basic.scm:249: (tree-downgrade-big downgrade_big (tree content)) 2875src/Scheme/Glue/build-glue-basic.scm:331: (tree->ids get_ids (list_string tree)) 2876src/Scheme/Glue/build-glue-basic.scm:334: (tree->tree-pointer tree_pointer_new (observer tree)) 2877src/Scheme/Glue/build-glue-basic.scm:335: (tree-pointer-detach tree_pointer_delete (void observer)) 2878src/Scheme/Glue/build-glue-basic.scm:336: (tree-pointer->tree obtain_tree (tree observer)) 2879src/Scheme/Glue/build-glue-basic.scm:576: (widget-tree-view tree_view_widget (widget command tree tree)) 2880src/Scheme/Glue/build-glue-basic.scm:598: (tree-bounding-rectangle get_bounding_rectangle (array_int tree)) 2881src/Scheme/Glue/build-glue-basic.scm:635: (tree-import-loaded import_loaded_tree (tree string url string)) 2882src/Scheme/Glue/build-glue-basic.scm:636: (tree-import import_tree (tree url string)) 2883src/Scheme/Glue/build-glue-basic.scm:637: (tree-export export_tree (bool tree url string)) 2884src/Scheme/Glue/build-glue-basic.scm:638: (tree-load-style load_style_tree (tree string)) 2885src/Scheme/Glue/build-glue-editor.scm:79: (get-env-tree-at get_env_value (tree string path)) 2886