I encountered this few days back as well, somewhat unpleasant bug. My reproduction: scheme@(guile-user)> ,use (ice-9 ftw) scheme@(guile-user)> (mkdir "/tmp/xxxx") scheme@(guile-user)> (chmod "/tmp/xxxx" #o0700) scheme@(guile-user)> (ftw "/tmp/xxxx" (lambda (_ __ f) (pk f) #t)) ;;; (directory-not-readable) $1 = #t scheme@(guile-user)> (system "ls -al /tmp/xxxx") total 0 drwx------ 1 wolf wolf 0 Oct 11 22:54 . drwxrwxrwt 1 root root 888 Oct 11 22:54 .. $2 = 0 While this is my first excursion into the ,xx world, I believe the hypothesis that it compiles in the uid and gid used during the guile build is correct: 55 (make-immediate 2 3990) ;; 997 at ice-9/ftw.scm:319:46 56 (make-long-immediate 1 120002) ;; 30000 at ice-9/ftw.scm:320:46 On my system, 997 is guixbuilder03 user, and 30000 is guixbuild group. The analysis of *why* it compiles like this is sadly way over my head. Full disassembly of ftw.go: Disassembly of at #xe8: 0 (instrument-entry 16812) at ice-9/ftw.scm:556:0 2 (assert-nargs-ee/locals 1 15) ;; 16 slots (0 args) 3 (make-non-immediate 15 16347) ;; (ice-9 ftw) at ice-9/ftw.scm:192:0 5 (static-ref 14 16359) ;; #:filename at ice-9/boot-9.scm:3924:24 7 (make-non-immediate 13 16359) ;; "ice-9/ftw.scm" at ice-9/ftw.scm:192:0 9 (static-ref 12 16375) ;; #:imports at ice-9/boot-9.scm:3847:43 11 (make-non-immediate 11 16459) ;; (((ice-9 match)) ((ice-9 vlist)) ((srfi srfi-1))) at ice-9/ftw.scm:192:0 13 (static-ref 10 16471) ;; #:exports at ice-9/boot-9.scm:3848:43 15 (make-non-immediate 9 16527) ;; (ftw nftw file-system-fold file-system-tree scandir) at ice-9/ftw.scm:192:0 17 (static-ref 8 16539) ;; #:autoloads at ice-9/boot-9.scm:3852:43 19 (make-non-immediate 7 16575) ;; ((ice-9 i18n) (string-locale L1 29 (call-scm<-scmn-scmn 4 16593 16597 113);; lookup-bound-private 33 (static-set! 4 16577) ;; #f L1: 35 (scm-ref/immediate 4 4 1) 36 (mov 0 4) 37 (mov 4 8) 38 (mov 8 12) 39 (mov 12 0) 40 (mov 3 7) 41 (mov 7 11) 42 (mov 11 15) 43 (mov 2 6) 44 (mov 6 10) 45 (mov 10 14) 46 (mov 1 5) 47 (mov 5 9) 48 (mov 9 13) 49 (handle-interrupts) 50 (call 3 12) 52 (receive 0 3 16) 54 (static-ref 14 16580) ;; #f at ice-9/boot-9.scm:3925:16 56 (immediate-tag=? 14 7 0) ;; heap-object? 58 (je 7) ;; -> L2 59 (call-scm<-scmn-scmn 14 16563 16577 113);; lookup-bound-private 63 (static-set! 14 16571) ;; #f L2: 65 (scm-ref/immediate 11 14 1) 66 (mov 10 15) 67 (handle-interrupts) 68 (call 4 2) 70 (reset-frame 16) ;; 16 slots 71 (static-ref 14 16581) ;; getuid-or-false 73 (call-scm<-scm-scm 13 15 14 41) ;; define! 75 (static-ref 12 16587) ;; macro 77 (static-ref 11 16587) ;; #f 79 (immediate-tag=? 11 7 0) ;; heap-object? 81 (je 7) ;; -> L3 82 (call-scm<-scmn-scmn 11 16540 16584 113);; lookup-bound-private 86 (static-set! 11 16578) ;; #f L3: 88 (scm-ref/immediate 11 11 1) 89 (make-non-immediate 4 16585) ;; # 91 (mov 7 11) 92 (mov 6 14) 93 (mov 5 12) 94 (handle-interrupts) 95 (call 8 4) 97 (receive 1 8 16) 99 (scm-set!/immediate 13 1 14) 100 (static-ref 14 16586) ;; getgid-or-false 102 (call-scm<-scm-scm 13 15 14 41) ;; define! 104 (make-non-immediate 4 16584) ;; # 106 (mov 7 11) 107 (mov 6 14) 108 (mov 5 12) 109 (handle-interrupts) 110 (call 8 4) 112 (receive 1 8 16) 114 (scm-set!/immediate 13 1 14) 115 (static-ref 14 16585) ;; directory-files at ice-9/ftw.scm:212:0 117 (call-scm<-scm-scm 14 15 14 41) ;; define! 119 (call-scm<-thread 13 62) ;; current-module at ice-9/ftw.scm:556:0 121 (static-set! 13 16581) ;; #f 123 (make-non-immediate 13 16581) ;; # 125 (scm-set!/immediate 14 1 13) at ice-9/ftw.scm:212:0 126 (static-ref 14 16590) ;; pathify at ice-9/ftw.scm:226:0 128 (call-scm<-scm-scm 14 15 14 41) ;; define! 130 (make-non-immediate 13 16588) ;; # 132 (scm-set!/immediate 14 1 13) 133 (static-ref 14 16597) ;; visited?-proc at ice-9/ftw.scm:250:0 135 (call-scm<-scm-scm 14 15 14 41) ;; define! 137 (make-non-immediate 13 16595) ;; # 139 (scm-set!/immediate 14 1 13) 140 (static-ref 14 16604) ;; stat-dir-readable?-proc at ice-9/ftw.scm:268:0 142 (call-scm<-scm-scm 14 15 14 41) ;; define! 144 (make-non-immediate 13 16602) ;; # 146 (scm-set!/immediate 14 1 13) 147 (static-ref 14 16611) ;; stat&flag-proc at ice-9/ftw.scm:280:0 149 (call-scm<-scm-scm 14 15 14 41) ;; define! 151 (make-non-immediate 13 16609) ;; # 153 (scm-set!/immediate 14 1 13) 154 (static-ref 14 16618) ;; clean at ice-9/ftw.scm:309:0 156 (call-scm<-scm-scm 14 15 14 41) ;; define! 158 (make-non-immediate 13 16616) ;; # 160 (scm-set!/immediate 14 1 13) 161 (static-ref 14 16183) ;; ftw at ice-9/ftw.scm:315:0 163 (call-scm<-scm-scm 14 15 14 41) ;; define! 165 (make-non-immediate 13 16613) ;; # 167 (scm-set!/immediate 14 1 13) 168 (static-ref 14 16326) ;; nftw at ice-9/ftw.scm:338:0 170 (call-scm<-scm-scm 14 15 14 41) ;; define! 172 (make-non-immediate 13 16610) ;; # 174 (scm-set!/immediate 14 1 13) 175 (static-ref 14 16619) ;; errno-if-exception 177 (call-scm<-scm-scm 13 15 14 41) ;; define! 179 (make-non-immediate 6 16617) ;; # 181 (mov 9 11) 182 (mov 8 14) 183 (mov 7 12) 184 (handle-interrupts) 185 (call 6 4) 187 (receive 1 6 16) 189 (scm-set!/immediate 13 1 14) 190 (static-ref 14 16314) ;; file-system-fold at ice-9/ftw.scm:413:0 192 (call-scm<-scm-scm 14 15 14 41) ;; define! 194 (make-non-immediate 13 16606) ;; # 196 (scm-set!/immediate 14 1 13) 197 (static-ref 14 16317) ;; file-system-tree at ice-9/ftw.scm:517:0 199 (call-scm<-scm-scm 14 15 14 41) ;; define! 201 (make-non-immediate 13 16603) ;; # 203 (scm-set!/immediate 14 1 13) 204 (static-ref 14 16320) ;; scandir at ice-9/ftw.scm:556:0 206 (call-scm<-scm-scm 15 15 14 41) ;; define! 208 (make-non-immediate 14 16600) ;; # 210 (scm-set!/immediate 15 1 14) 211 (make-immediate 15 2052) ;; # 212 (reset-frame 1) ;; 1 slot 213 (handle-interrupts) 214 (return-values) Disassembly of at #x444: 0 (instrument-entry 16655) at ice-9/ftw.scm:202:0 2 (assert-nargs-ee/locals 2 6) ;; 8 slots (1 arg) 3 (make-non-immediate 7 16620) ;; (_ . any) 5 (static-ref 5 16622) ;; #f 7 (immediate-tag=? 5 7 0) ;; heap-object? 9 (je 7) ;; -> L1 10 (call-scm<-scmn-scmn 5 16397 16619 113);; lookup-bound-private 14 (static-set! 5 16613) ;; #f L1: 16 (scm-ref/immediate 2 5 1) 17 (mov 1 6) 18 (mov 0 7) 19 (handle-interrupts) 20 (call 5 3) 22 (receive 0 5 8) 24 (immediate-tag=? 7 3839 4) ;; false? 26 (je 18) ;; -> L2 27 (allocate-words/immediate 5 3) 28 (load-u64 4 0 65605) 31 (word-set!/immediate 5 0 4) 32 (load-label 4 34) ;; anonymous procedure at #x7fae263f354c 34 (word-set!/immediate 5 1 4) 35 (scm-set!/immediate 5 2 6) 36 (builtin-ref 6 0) ;; apply 37 (mov 4 6) 38 (mov 6 5) 39 (mov 5 7) 40 (mov 7 4) 41 (reset-frame 3) ;; 3 slots 42 (handle-interrupts) 43 (tail-call) L2: 44 (make-immediate 7 4) ;; #f 45 (make-non-immediate 5 16592) ;; "source expression failed to match any pattern" 47 (static-ref 4 16598) ;; #f 49 (immediate-tag=? 4 7 0) ;; heap-object? 51 (je 7) ;; -> L3 52 (call-scm<-scmn-scmn 4 16355 16595 113);; lookup-bound-private 56 (static-set! 4 16589) ;; #f L3: 58 (scm-ref/immediate 4 4 1) 59 (mov 3 4) 60 (mov 4 6) 61 (mov 6 7) 62 (mov 7 3) 63 (reset-frame 4) ;; 4 slots 64 (handle-interrupts) 65 (tail-call) Disassembly of at #x54c: 0 (instrument-entry 16603) at ice-9/ftw.scm:202:0 2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg) 3 (static-ref 2 16592) ;; #f at ice-9/boot-9.scm:755:26 5 (mov 1 5) at ice-9/ftw.scm:202:0 6 (handle-interrupts) 7 (call-label 4 2 24) ;; syntax->datum@@guile at #x7fae263f35c8 10 (receive 6 4 7) 12 (builtin-ref 2 0) ;; apply 13 (make-non-immediate 1 16584) ;; # 15 (handle-interrupts) 16 (call 4 3) 18 (receive 1 4 7) 20 (static-ref 4 16581) ;; #f at ice-9/boot-9.scm:756:19 22 (scm-ref/immediate 6 6 2) 23 (mov 3 4) at ice-9/ftw.scm:202:0 24 (mov 4 5) 25 (mov 5 6) 26 (mov 6 3) 27 (reset-frame 3) ;; 3 slots 28 (handle-interrupts) 29 (tail-call-label 65) ;; datum->syntax@@guile at #x7fae263f36c4 Disassembly of syntax->datum@@guile at #x5c8: 0 (instrument-entry 16586) at ice-9/ftw.scm:202:0 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 16305 16573 113);; lookup-bound-private 9 (static-set! 1 16555) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x600: 0 (instrument-entry 16592) at ice-9/ftw.scm:202:0 2 (assert-nargs-ee/locals 1 4) ;; 5 slots (0 args) 3 (static-ref 0 16583) ;; getuid at ice-9/ftw.scm:203:16 5 (static-ref 1 16583) ;; #f at ice-9/ftw.scm:203:7 7 (handle-interrupts) at ice-9/ftw.scm:203:6 8 (call-label 3 2 27) ;; defined?@guile at #x7fae263f368c 11 (receive 0 3 5) 13 (immediate-tag=? 4 3839 4) ;; false? at ice-9/ftw.scm:203:2 15 (je 16) ;; -> L2 16 (static-ref 4 16574) ;; #f at ice-9/ftw.scm:204:7 18 (immediate-tag=? 4 7 0) ;; heap-object? 20 (je 7) ;; -> L1 21 (call-scm<-scmn-scmn 4 16275 16557 112);; lookup-bound-public 25 (static-set! 4 16565) ;; #f L1: 27 (scm-ref/immediate 4 4 1) 28 (reset-frame 1) ;; 1 slot 29 (handle-interrupts) 30 (tail-call) L2: 31 (make-immediate 4 4) ;; #f at ice-9/ftw.scm:205:6 32 (reset-frame 1) ;; 1 slot 33 (handle-interrupts) 34 (return-values) Disassembly of defined?@guile at #x68c: 0 (instrument-entry 16571) at ice-9/ftw.scm:205:6 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 16256 16558 112);; lookup-bound-public 9 (static-set! 1 16544) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of datum->syntax@@guile at #x6c4: 0 (instrument-entry 16571) at ice-9/ftw.scm:205:6 2 (immediate-tag=? 2 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 2 16242 16558 113);; lookup-bound-private 9 (static-set! 2 16498) ;; #f L1: 11 (scm-ref/immediate 2 2 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x6fc: 0 (instrument-entry 16563) at ice-9/ftw.scm:207:0 2 (assert-nargs-ee/locals 2 6) ;; 8 slots (1 arg) 3 (make-non-immediate 7 16446) ;; (_ . any) 5 (static-ref 5 16448) ;; #f 7 (immediate-tag=? 5 7 0) ;; heap-object? 9 (je 7) ;; -> L1 10 (call-scm<-scmn-scmn 5 16223 16445 113);; lookup-bound-private 14 (static-set! 5 16439) ;; #f L1: 16 (scm-ref/immediate 2 5 1) 17 (mov 1 6) 18 (mov 0 7) 19 (handle-interrupts) 20 (call 5 3) 22 (receive 0 5 8) 24 (immediate-tag=? 7 3839 4) ;; false? 26 (je 18) ;; -> L2 27 (allocate-words/immediate 5 3) 28 (load-u64 4 0 65605) 31 (word-set!/immediate 5 0 4) 32 (load-label 4 34) ;; anonymous procedure at #x7fae263f3804 34 (word-set!/immediate 5 1 4) 35 (scm-set!/immediate 5 2 6) 36 (builtin-ref 6 0) ;; apply 37 (mov 4 6) 38 (mov 6 5) 39 (mov 5 7) 40 (mov 7 4) 41 (reset-frame 3) ;; 3 slots 42 (handle-interrupts) 43 (tail-call) L2: 44 (make-immediate 7 4) ;; #f 45 (make-non-immediate 5 16418) ;; "source expression failed to match any pattern" 47 (static-ref 4 16424) ;; #f 49 (immediate-tag=? 4 7 0) ;; heap-object? 51 (je 7) ;; -> L3 52 (call-scm<-scmn-scmn 4 16181 16421 113);; lookup-bound-private 56 (static-set! 4 16415) ;; #f L3: 58 (scm-ref/immediate 4 4 1) 59 (mov 3 4) 60 (mov 4 6) 61 (mov 6 7) 62 (mov 7 3) 63 (reset-frame 4) ;; 4 slots 64 (handle-interrupts) 65 (tail-call) Disassembly of at #x804: 0 (instrument-entry 16507) at ice-9/ftw.scm:207:0 2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg) 3 (static-ref 2 16418) ;; #f at ice-9/boot-9.scm:755:26 5 (mov 1 5) at ice-9/ftw.scm:207:0 6 (handle-interrupts) 7 (call-label 4 2 -150) ;; syntax->datum@@guile at #x7fae263f35c8 10 (receive 6 4 7) 12 (builtin-ref 2 0) ;; apply 13 (make-non-immediate 1 16490) ;; # 15 (handle-interrupts) 16 (call 4 3) 18 (receive 1 4 7) 20 (static-ref 4 16407) ;; #f at ice-9/boot-9.scm:756:19 22 (scm-ref/immediate 6 6 2) 23 (mov 3 4) at ice-9/ftw.scm:207:0 24 (mov 4 5) 25 (mov 5 6) 26 (mov 6 3) 27 (reset-frame 3) ;; 3 slots 28 (handle-interrupts) 29 (tail-call-label -109) ;; datum->syntax@@guile at #x7fae263f36c4 Disassembly of at #x880: 0 (instrument-entry 16494) at ice-9/ftw.scm:207:0 2 (assert-nargs-ee/locals 1 4) ;; 5 slots (0 args) 3 (static-ref 0 16487) ;; getgid at ice-9/ftw.scm:208:16 5 (static-ref 1 16423) ;; #f at ice-9/ftw.scm:208:7 7 (handle-interrupts) at ice-9/ftw.scm:208:6 8 (call-label 3 2 -133) ;; defined?@guile at #x7fae263f368c 11 (receive 0 3 5) 13 (immediate-tag=? 4 3839 4) ;; false? at ice-9/ftw.scm:208:2 15 (je 16) ;; -> L2 16 (static-ref 4 16476) ;; #f at ice-9/ftw.scm:209:7 18 (immediate-tag=? 4 7 0) ;; heap-object? 20 (je 7) ;; -> L1 21 (call-scm<-scmn-scmn 4 16115 16461 112);; lookup-bound-public 25 (static-set! 4 16467) ;; #f L1: 27 (scm-ref/immediate 4 4 1) 28 (reset-frame 1) ;; 1 slot 29 (handle-interrupts) 30 (tail-call) L2: 31 (make-immediate 4 4) ;; #f at ice-9/ftw.scm:210:6 32 (reset-frame 1) ;; 1 slot 33 (handle-interrupts) 34 (return-values) Disassembly of directory-files at #x90c: 0 (instrument-entry 16465) at ice-9/ftw.scm:212:0 2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg) 3 (mov 1 0) 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (tail-call-label 2) ;; directory-files at #x7fae263f392c Disassembly of directory-files at #x92c: 0 (instrument-entry 16487) at ice-9/ftw.scm:212:0 2 (alloc-frame 12) ;; 12 slots 3 (static-ref 8 16460) ;; #f at ice-9/ftw.scm:213:21 5 (mov 7 11) at ice-9/ftw.scm:213:20 6 (handle-interrupts) 7 (call-label 3 2 128) ;; opendir@guile at #x7fae263f3b48 10 (receive 0 3 12) 12 (static-ref 7 16453) ;; #f at ice-9/ftw.scm:214:21 14 (mov 6 11) at ice-9/ftw.scm:214:20 15 (handle-interrupts) 16 (call-label 4 2 133) ;; readdir@guile at #x7fae263f3b80 19 (receive 1 4 12) 21 (make-immediate 9 772) ;; () at ice-9/ftw.scm:215:20 22 (eq-immediate? 10 2564) ;; # at ice-9/ftw.scm:216:10 23 (je 99) ;; -> L7 24 (static-ref 5 16441) ;; #f at ice-9/ftw.scm:220:17 26 (mov 4 11) at ice-9/ftw.scm:220:16 27 (handle-interrupts) 28 (call-label 6 2 121) ;; readdir@guile at #x7fae263f3b80 31 (receive 3 6 12) 33 (make-non-immediate 7 16434) ;; "." at ice-9/ftw.scm:221:34 35 (static-ref 3 16440) ;; #f at ice-9/ftw.scm:221:25 37 (mov 2 7) at ice-9/ftw.scm:221:24 38 (mov 1 10) 39 (handle-interrupts) 40 (call-label 8 3 123) ;; string=?@guile at #x7fae263f3bb8 43 (receive 5 8 12) 45 (immediate-tag=? 6 3839 4) ;; false? at ice-9/ftw.scm:221:16 47 (jne 19) ;; -> L1 48 (make-non-immediate 2 16429) ;; ".." at ice-9/ftw.scm:222:34 50 (static-ref 3 16425) ;; #f at ice-9/ftw.scm:222:25 52 (mov 1 10) at ice-9/ftw.scm:222:24 53 (handle-interrupts) 54 (call-label 8 3 109) ;; string=?@guile at #x7fae263f3bb8 57 (receive 5 8 12) 59 (immediate-tag=? 6 3839 4) ;; false? at ice-9/ftw.scm:221:16 61 (jne 5) ;; -> L1 62 (allocate-words/immediate 6 2) at ice-9/ftw.scm:224:20 63 (scm-set!/immediate 6 0 10) 64 (scm-set!/immediate 6 1 9) 65 (j 2) ;; -> L2 L1: 66 (mov 6 9) L2: 67 (make-non-immediate 10 16410) ;; ".." at ice-9/ftw.scm:222:34 69 (eq-immediate? 8 2564) ;; # at ice-9/ftw.scm:216:10 70 (je 49) ;; -> L6 L3: 71 (instrument-loop 16416) 73 (handle-interrupts) 74 (static-ref 2 16391) ;; #f at ice-9/ftw.scm:220:17 76 (mov 1 11) at ice-9/ftw.scm:220:16 77 (handle-interrupts) 78 (call-label 9 2 71) ;; readdir@guile at #x7fae263f3b80 81 (receive 2 9 12) 83 (static-ref 2 16392) ;; #f at ice-9/ftw.scm:221:25 85 (mov 1 7) at ice-9/ftw.scm:221:24 86 (mov 0 8) 87 (handle-interrupts) 88 (call-label 9 3 75) ;; string=?@guile at #x7fae263f3bb8 91 (receive 6 9 12) 93 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:221:16 95 (jne 18) ;; -> L4 96 (static-ref 2 16379) ;; #f at ice-9/ftw.scm:222:25 98 (mov 1 10) at ice-9/ftw.scm:222:24 99 (mov 0 8) 100 (handle-interrupts) 101 (call-label 9 3 62) ;; string=?@guile at #x7fae263f3bb8 104 (receive 6 9 12) 106 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:221:16 108 (jne 5) ;; -> L4 109 (allocate-words/immediate 5 2) at ice-9/ftw.scm:224:20 110 (scm-set!/immediate 5 0 8) 111 (scm-set!/immediate 5 1 6) 112 (j 2) ;; -> L5 L4: 113 (mov 5 6) L5: 114 (eq-immediate? 9 2564) ;; # at ice-9/ftw.scm:216:10 115 (je 8) ;; -> L8 116 (mov 8 9) at ice-9/ftw.scm:220:10 117 (mov 6 5) 118 (j -47) ;; -> L3 L6: 119 (mov 9 8) at ice-9/ftw.scm:216:10 120 (mov 5 6) 121 (j 2) ;; -> L8 L7: 122 (mov 5 9) L8: 123 (static-ref 1 16362) ;; #f at ice-9/ftw.scm:218:13 125 (mov 0 11) at ice-9/ftw.scm:218:12 126 (handle-interrupts) 127 (call-label 10 2 50) ;; closedir@guile at #x7fae263f3bf0 130 (reset-frame 12) ;; 12 slots 131 (mov 11 5) 132 (reset-frame 1) ;; 1 slot 133 (handle-interrupts) 134 (return-values) Disassembly of opendir@guile at #xb48: 0 (instrument-entry 16366) at ice-9/ftw.scm:218:12 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15953 16353 112);; lookup-bound-public 9 (static-set! 1 16319) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of readdir@guile at #xb80: 0 (instrument-entry 16366) at ice-9/ftw.scm:218:12 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15939 16353 112);; lookup-bound-public 9 (static-set! 1 16307) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of string=?@guile at #xbb8: 0 (instrument-entry 16366) at ice-9/ftw.scm:218:12 2 (immediate-tag=? 2 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 2 15925 16353 112);; lookup-bound-public 9 (static-set! 2 16303) ;; #f L1: 11 (scm-ref/immediate 2 2 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of closedir@guile at #xbf0: 0 (instrument-entry 16366) at ice-9/ftw.scm:218:12 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15911 16353 112);; lookup-bound-public 9 (static-set! 1 16299) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of pathify at #xc28: 0 (instrument-entry 16362) at ice-9/ftw.scm:226:0 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 4) ;; 4 slots 5 (builtin-ref 3 0) ;; apply 6 (make-non-immediate 1 16352) ;; # 8 (mov 0 1) 9 (mov 1 2) 10 (mov 2 0) 11 (reset-frame 3) ;; 3 slots 12 (handle-interrupts) 13 (tail-call) Disassembly of pathify at #xc60: 0 (instrument-entry 16432) at ice-9/ftw.scm:226:0 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 12) ;; 12 slots 5 (make-non-immediate 11 16349) ;; "" at ice-9/ftw.scm:228:21 7 (immediate-tag=? 10 3583 260) ;; null? at ice-9/ftw.scm:229:8 9 (je 51) ;; -> L4 10 (immediate-tag=? 10 7 0) ;; heap-object? at ice-9/ftw.scm:232:14 12 (jne 46) ;; -> L3 13 (heap-tag=? 10 1 0) ;; pair? 15 (jne 43) ;; -> L3 16 (scm-ref/immediate 9 10 1) 17 (make-non-immediate 8 16345) ;; "/" at ice-9/ftw.scm:232:48 19 (scm-ref/immediate 1 10 0) at ice-9/ftw.scm:232:52 20 (static-ref 4 16350) ;; #f at ice-9/ftw.scm:232:27 22 (mov 3 11) at ice-9/ftw.scm:232:26 23 (mov 2 8) 24 (handle-interrupts) 25 (call-label 7 4 76) ;; string-append@guile at #x7fae263f3df4 28 (receive 1 7 12) L1: 30 (instrument-loop 16402) 32 (handle-interrupts) 33 (immediate-tag=? 9 3583 260) ;; null? at ice-9/ftw.scm:229:8 35 (je 26) ;; -> L5 36 (immediate-tag=? 9 7 0) ;; heap-object? at ice-9/ftw.scm:232:14 38 (jne 18) ;; -> L2 39 (heap-tag=? 9 1 0) ;; pair? 41 (jne 15) ;; -> L2 42 (scm-ref/immediate 7 9 1) 43 (scm-ref/immediate 0 9 0) at ice-9/ftw.scm:232:52 44 (static-ref 3 16326) ;; #f at ice-9/ftw.scm:232:27 46 (mov 2 10) at ice-9/ftw.scm:232:26 47 (mov 1 8) 48 (handle-interrupts) 49 (call-label 8 4 52) ;; string-append@guile at #x7fae263f3df4 52 (receive 1 8 12) 54 (mov 9 7) at ice-9/ftw.scm:232:8 55 (j -25) ;; -> L1 L2: 56 (throw/value+data 9 16342) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:232:14 L3: 58 (throw/value+data 10 16340) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…") L4: 60 (mov 10 11) L5: 61 (static-ref 6 16209) ;; #f at ice-9/ftw.scm:230:18 63 (mov 5 11) at ice-9/ftw.scm:230:17 64 (mov 4 10) 65 (handle-interrupts) 66 (call-label 5 3 -108) ;; string=?@guile at #x7fae263f3bb8 69 (receive 2 5 12) 71 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:230:12 73 (jne 2) ;; -> L6 74 (make-immediate 11 4) ;; #f at ice-9/ftw.scm:230:38 L6: 75 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:230:8 77 (jne 21) ;; -> L8 78 (make-immediate 11 6) ;; 1 at ice-9/ftw.scm:231:30 79 (immediate-tag=? 10 7 0) ;; heap-object? at ice-9/ftw.scm:231:32 81 (jne 15) ;; -> L7 82 (heap-tag=? 10 127 21) ;; string? 84 (jne 12) ;; -> L7 85 (word-ref/immediate 9 10 3) 86 (tag-fixnum 8 9) 87 (static-ref 9 16319) ;; #f at ice-9/ftw.scm:231:13 89 (mov 7 9) at ice-9/ftw.scm:231:12 90 (mov 9 11) 91 (mov 11 7) 92 (reset-frame 4) ;; 4 slots 93 (handle-interrupts) 94 (tail-call-label 21) ;; substring@guile at #x7fae263f3e2c L7: 96 (throw/value+data 10 16328) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:231:32 L8: 98 (reset-frame 1) ;; 1 slot 99 (handle-interrupts) 100 (return-values) Disassembly of string-append@guile at #xdf4: 0 (instrument-entry 16345) at ice-9/ftw.scm:231:32 2 (immediate-tag=? 3 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 3 15782 16332 112);; lookup-bound-public 9 (static-set! 3 16260) ;; #f L1: 11 (scm-ref/immediate 3 3 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of substring@guile at #xe2c: 0 (instrument-entry 16345) at ice-9/ftw.scm:231:32 2 (immediate-tag=? 3 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 3 15768 16332 112);; lookup-bound-public 9 (static-set! 3 16282) ;; #f L1: 11 (scm-ref/immediate 3 3 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of visited?-proc at #xe64: 0 (instrument-entry 16337) at ice-9/ftw.scm:250:0 2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg) 3 (mov 1 0) 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (tail-call-label 2) ;; visited?-proc at #x7fae263f3e84 Disassembly of visited?-proc at #xe84: 0 (instrument-entry 16337) at ice-9/ftw.scm:250:0 2 (alloc-frame 6) ;; 6 slots 3 (make-immediate 0 30) ;; 7 at ice-9/ftw.scm:251:35 4 (static-ref 1 16331) ;; #f at ice-9/ftw.scm:251:19 6 (handle-interrupts) at ice-9/ftw.scm:251:18 7 (call-label 4 2 19) ;; make-hash-table@guile at #x7fae263f3eec 10 (receive 1 4 6) 12 (allocate-words/immediate 3 4) at ice-9/ftw.scm:252:4 13 (load-u64 2 0 131141) 16 (word-set!/immediate 3 0 2) 17 (load-label 2 23) ;; anonymous procedure at #x7fae263f3f24 19 (word-set!/immediate 3 1 2) 20 (scm-set!/immediate 3 2 5) 21 (scm-set!/immediate 3 3 4) 22 (mov 5 3) 23 (reset-frame 1) ;; 1 slot 24 (handle-interrupts) 25 (return-values) Disassembly of make-hash-table@guile at #xeec: 0 (instrument-entry 16325) at ice-9/ftw.scm:252:4 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15720 16312 112);; lookup-bound-public 9 (static-set! 1 16300) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #xf24: 0 (instrument-entry 16327) at ice-9/ftw.scm:252:4 2 (assert-nargs-ee/locals 3 9) ;; 12 slots (2 args) 3 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:253:6 5 (je 113) ;; -> L5 6 (static-ref 5 16311) ;; #f at ice-9/ftw.scm:254:49 8 (mov 4 10) at ice-9/ftw.scm:254:48 9 (handle-interrupts) 10 (call-label 6 2 112) ;; stat:dev@guile at #x7fae263f410c 13 (receive 8 6 12) 15 (static-ref 5 16304) ;; #f at ice-9/ftw.scm:254:29 17 (scm-ref/immediate 4 11 3) 18 (handle-interrupts) at ice-9/ftw.scm:254:28 19 (call-label 6 3 117) ;; hashv-ref@guile at #x7fae263f4144 22 (receive 3 6 12) 24 (allocate-words/immediate 7 2) 25 (load-u64 6 0 7) 28 (word-set!/immediate 7 0 6) 29 (scm-set!/immediate 7 1 8) 30 (static-ref 3 16291) ;; #f at ice-9/ftw.scm:255:29 32 (mov 2 10) at ice-9/ftw.scm:255:28 33 (handle-interrupts) 34 (call-label 8 2 116) ;; stat:ino@guile at #x7fae263f417c 37 (receive 3 8 12) 39 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:256:35 40 (=? 6 8) at ice-9/ftw.scm:256:32 41 (jne 11) ;; -> L1 42 (static-ref 3 16281) ;; #f at ice-9/ftw.scm:257:33 44 (mov 2 9) at ice-9/ftw.scm:257:32 45 (handle-interrupts) 46 (call-label 8 2 118) ;; string-hash@guile at #x7fae263f41b4 49 (receive 2 8 12) 51 (j 2) ;; -> L2 L1: 52 (mov 9 8) L2: 53 (scm-ref/immediate 8 7 1) 54 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:259:13 56 (jne 32) ;; -> L3 57 (static-ref 3 16238) ;; #f at ice-9/ftw.scm:261:35 59 (scm-ref/immediate 2 11 2) 60 (handle-interrupts) at ice-9/ftw.scm:261:34 61 (call-label 8 2 -75) ;; make-hash-table@guile at #x7fae263f3eec 64 (receive 3 8 12) 66 (scm-set!/immediate 7 1 8) at ice-9/ftw.scm:261:19 67 (static-ref 3 16250) ;; #f at ice-9/ftw.scm:262:41 69 (mov 2 10) at ice-9/ftw.scm:262:40 70 (handle-interrupts) 71 (call-label 8 2 51) ;; stat:dev@guile at #x7fae263f410c 74 (receive 1 8 12) 76 (scm-ref/immediate 8 7 1) 77 (static-ref 6 16248) ;; #f at ice-9/ftw.scm:262:20 79 (scm-ref/immediate 2 11 3) 80 (mov 3 6) at ice-9/ftw.scm:262:19 81 (mov 1 10) 82 (mov 0 8) 83 (handle-interrupts) 84 (call-label 8 4 94) ;; hashv-set!@guile at #x7fae263f41ec 87 (reset-frame 12) ;; 12 slots L3: 88 (scm-ref/immediate 2 7 1) 89 (static-ref 3 16230) ;; #f at ice-9/ftw.scm:263:18 91 (mov 1 9) at ice-9/ftw.scm:263:17 92 (handle-interrupts) 93 (call-label 8 3 43) ;; hashv-ref@guile at #x7fae263f4144 96 (receive 0 8 12) 98 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:263:13 100 (jne 15) ;; -> L4 101 (scm-ref/immediate 7 7 1) 102 (make-immediate 5 1028) ;; #t at ice-9/ftw.scm:265:44 103 (static-ref 8 16222) ;; #f at ice-9/ftw.scm:265:20 105 (mov 6 9) at ice-9/ftw.scm:265:19 106 (handle-interrupts) 107 (call-label 3 4 71) ;; hashv-set!@guile at #x7fae263f41ec 110 (reset-frame 12) ;; 12 slots 111 (make-immediate 11 4) ;; #f at ice-9/ftw.scm:266:19 112 (reset-frame 1) ;; 1 slot 113 (handle-interrupts) 114 (return-values) L4: 115 (reset-frame 1) ;; 1 slot 116 (handle-interrupts) 117 (return-values) L5: 118 (make-immediate 11 4) ;; #f at ice-9/boot-9.scm:408:31 119 (reset-frame 1) ;; 1 slot 120 (handle-interrupts) 121 (return-values) Disassembly of stat:dev@guile at #x110c: 0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15584 16206 112);; lookup-bound-public 9 (static-set! 1 16186) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of hashv-ref@guile at #x1144: 0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31 2 (immediate-tag=? 2 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 2 15570 16206 112);; lookup-bound-public 9 (static-set! 2 16174) ;; #f L1: 11 (scm-ref/immediate 2 2 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of stat:ino@guile at #x117c: 0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15556 16206 112);; lookup-bound-public 9 (static-set! 1 16162) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of string-hash@guile at #x11b4: 0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15542 16206 112);; lookup-bound-public 9 (static-set! 1 16150) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of hashv-set!@guile at #x11ec: 0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31 2 (immediate-tag=? 3 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 3 15528 16206 112);; lookup-bound-public 9 (static-set! 3 16138) ;; #f L1: 11 (scm-ref/immediate 3 3 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of stat-dir-readable?-proc at #x1224: 0 (instrument-entry 16211) at ice-9/ftw.scm:268:0 2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args) 3 (mov 2 1) 4 (mov 1 0) 5 (reset-frame 2) ;; 2 slots 6 (handle-interrupts) 7 (tail-call-label 2) ;; stat-dir-readable?-proc at #x7fae263f4248 Disassembly of stat-dir-readable?-proc at #x1248: 0 (instrument-entry 16208) at ice-9/ftw.scm:268:0 2 (alloc-frame 4) ;; 4 slots 3 (allocate-words/immediate 1 4) at ice-9/ftw.scm:269:2 4 (load-u64 0 0 131141) 7 (word-set!/immediate 1 0 0) 8 (load-label 0 9) ;; anonymous procedure at #x7fae263f428c 10 (word-set!/immediate 1 1 0) 11 (scm-set!/immediate 1 2 3) 12 (scm-set!/immediate 1 3 2) 13 (mov 3 1) 14 (reset-frame 1) ;; 1 slot 15 (handle-interrupts) 16 (return-values) Disassembly of at #x128c: 0 (instrument-entry 16237) at ice-9/ftw.scm:269:2 2 (assert-nargs-ee/locals 2 7) ;; 9 slots (1 arg) 3 (static-ref 6 16194) ;; #f at ice-9/ftw.scm:270:19 5 (immediate-tag=? 6 7 0) ;; heap-object? 7 (je 7) ;; -> L1 8 (call-scm<-scmn-scmn 6 15485 16191 112);; lookup-bound-public 12 (static-set! 6 16185) ;; #f L1: 14 (scm-ref/immediate 3 6 1) 15 (mov 2 7) 16 (handle-interrupts) 17 (call 5 2) 19 (receive 2 5 9) 21 (scm-ref/immediate 5 8 2) 22 (eq-immediate? 5 2) ;; 0 at ice-9/ftw.scm:273:10 23 (je 145) ;; -> L17 24 (static-ref 5 16183) ;; #f at ice-9/ftw.scm:274:28 26 (immediate-tag=? 5 7 0) ;; heap-object? 28 (je 7) ;; -> L2 29 (call-scm<-scmn-scmn 5 15464 16180 112);; lookup-bound-public 33 (static-set! 5 16174) ;; #f L2: 35 (scm-ref/immediate 2 5 1) 36 (mov 1 7) 37 (handle-interrupts) 38 (call 6 2) 40 (receive 3 6 9) 42 (scm-ref/immediate 4 8 2) 43 (eq? 4 5) at ice-9/ftw.scm:274:15 44 (je 29) ;; -> L4 45 (immediate-tag=? 4 7 0) ;; heap-object? 47 (jne 35) ;; -> L6 48 (immediate-tag=? 5 7 0) ;; heap-object? 50 (jne 32) ;; -> L6 51 (static-ref 3 16166) ;; #f 53 (immediate-tag=? 3 7 0) ;; heap-object? 55 (je 7) ;; -> L3 56 (call-scm<-scmn-scmn 3 15437 16163 113);; lookup-bound-private 60 (static-set! 3 16157) ;; #f L3: 62 (scm-ref/immediate 2 3 1) 63 (mov 1 4) 64 (mov 0 5) 65 (handle-interrupts) 66 (call 6 3) 68 (receive 3 6 9) 70 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:274:10 72 (je 10) ;; -> L6 L4: 73 (make-immediate 5 1026) ;; 256 at ice-9/ftw.scm:275:31 74 (call-scm<-scm-scm 5 5 6 9) ;; logand at ice-9/ftw.scm:272:29 76 (eq-immediate? 5 2) ;; 0 77 (jne 3) ;; -> L5 78 (make-immediate 5 4) ;; #f 79 (j 4) ;; -> L7 L5: 80 (make-immediate 5 1028) ;; #t 81 (j 2) ;; -> L7 L6: 82 (make-immediate 5 4) ;; #f at ice-9/boot-9.scm:408:31 L7: 83 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:273:6 85 (jne 79) ;; -> L16 86 (static-ref 5 16141) ;; #f at ice-9/ftw.scm:276:28 88 (immediate-tag=? 5 7 0) ;; heap-object? 90 (je 7) ;; -> L8 91 (call-scm<-scmn-scmn 5 15402 16138 112);; lookup-bound-public 95 (static-set! 5 16132) ;; #f L8: 97 (scm-ref/immediate 2 5 1) 98 (mov 1 7) 99 (handle-interrupts) 100 (call 6 2) 102 (receive 1 6 9) 104 (scm-ref/immediate 8 8 3) 105 (eq? 8 7) at ice-9/ftw.scm:276:15 106 (je 29) ;; -> L10 107 (immediate-tag=? 8 7 0) ;; heap-object? 109 (jne 35) ;; -> L12 110 (immediate-tag=? 7 7 0) ;; heap-object? 112 (jne 32) ;; -> L12 113 (static-ref 5 16104) ;; #f 115 (immediate-tag=? 5 7 0) ;; heap-object? 117 (je 7) ;; -> L9 118 (call-scm<-scmn-scmn 5 15375 16101 113);; lookup-bound-private 122 (static-set! 5 16095) ;; #f L9: 124 (scm-ref/immediate 2 5 1) 125 (mov 1 8) 126 (mov 0 7) 127 (handle-interrupts) 128 (call 6 3) 130 (receive 0 6 9) 132 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:276:10 134 (je 10) ;; -> L12 L10: 135 (make-immediate 8 130) ;; 32 at ice-9/ftw.scm:277:31 136 (call-scm<-scm-scm 8 8 6 9) ;; logand at ice-9/ftw.scm:272:29 138 (eq-immediate? 8 2) ;; 0 139 (jne 3) ;; -> L11 140 (make-immediate 8 4) ;; #f 141 (j 4) ;; -> L13 L11: 142 (make-immediate 8 1028) ;; #t 143 (j 2) ;; -> L13 L12: 144 (make-immediate 8 4) ;; #f at ice-9/boot-9.scm:408:31 L13: 145 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:273:6 147 (jne 14) ;; -> L15 148 (make-immediate 8 18) ;; 4 at ice-9/ftw.scm:278:26 149 (call-scm<-scm-scm 8 8 6 9) ;; logand at ice-9/ftw.scm:272:29 151 (eq-immediate? 8 2) ;; 0 152 (jne 5) ;; -> L14 153 (make-immediate 8 4) ;; #f 154 (reset-frame 1) ;; 1 slot 155 (handle-interrupts) 156 (return-values) L14: 157 (make-immediate 8 1028) ;; #t 158 (reset-frame 1) ;; 1 slot 159 (handle-interrupts) 160 (return-values) L15: 161 (reset-frame 1) ;; 1 slot 162 (handle-interrupts) 163 (return-values) L16: 164 (mov 8 5) 165 (reset-frame 1) ;; 1 slot 166 (handle-interrupts) 167 (return-values) L17: 168 (make-immediate 8 1028) ;; #t at ice-9/ftw.scm:273:10 169 (reset-frame 1) ;; 1 slot 170 (handle-interrupts) 171 (return-values) Disassembly of stat&flag-proc at #x153c: 0 (instrument-entry 16151) at ice-9/ftw.scm:280:0 2 (assert-nargs-ge 2) 3 (bind-rest 2) ;; 3 slots 4 (alloc-frame 11) ;; 11 slots 5 (static-ref 10 16074) ;; depth at ice-9/ftw.scm:281:35 7 (static-ref 7 16074) ;; #f at ice-9/ftw.scm:281:29 9 (immediate-tag=? 7 7 0) ;; heap-object? 11 (je 7) ;; -> L1 12 (call-scm<-scmn-scmn 7 15309 16071 113);; lookup-bound-private 16 (static-set! 7 16065) ;; #f L1: 18 (scm-ref/immediate 7 7 1) 19 (mov 3 7) 20 (mov 2 10) 21 (mov 1 8) 22 (handle-interrupts) 23 (call 7 3) 25 (receive 0 7 11) 27 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:281:25 29 (je 4) ;; -> L2 30 (static-ref 10 16069) ;; directory-processed at ice-9/ftw.scm:282:29 32 (j 3) ;; -> L3 L2: 33 (static-ref 10 16076) ;; directory at ice-9/ftw.scm:283:29 L3: 35 (static-ref 2 16084) ;; nftw-style at ice-9/ftw.scm:284:39 37 (mov 3 7) at ice-9/ftw.scm:284:33 38 (mov 1 8) 39 (handle-interrupts) 40 (call 7 3) 42 (receive 4 7 11) 44 (immediate-tag=? 6 3839 4) ;; false? at ice-9/ftw.scm:284:29 46 (je 4) ;; -> L4 47 (static-ref 6 16082) ;; stale-symlink at ice-9/ftw.scm:285:33 49 (j 3) ;; -> L5 L4: 50 (static-ref 6 16089) ;; symlink at ice-9/ftw.scm:286:33 L5: 52 (static-ref 1 16097) ;; physical at ice-9/ftw.scm:287:26 54 (mov 2 7) at ice-9/ftw.scm:287:20 55 (mov 0 8) 56 (handle-interrupts) 57 (call 8 3) 59 (receive 2 8 11) 61 (allocate-words/immediate 7 6) at ice-9/ftw.scm:295:4 62 (load-u64 5 0 262213) 65 (word-set!/immediate 7 0 5) 66 (load-label 5 11) ;; anonymous procedure at #x7fae263f4670 68 (word-set!/immediate 7 1 5) 69 (scm-set!/immediate 7 2 9) 70 (scm-set!/immediate 7 3 10) 71 (scm-set!/immediate 7 4 6) 72 (scm-set!/immediate 7 5 8) 73 (mov 10 7) 74 (reset-frame 1) ;; 1 slot 75 (handle-interrupts) 76 (return-values) Disassembly of at #x1670: 0 (instrument-entry 16122) at ice-9/ftw.scm:295:4 2 (assert-nargs-ee/locals 2 10) ;; 12 slots (1 arg) 3 (make-immediate 9 1028) ;; #t at ice-9/boot-9.scm:2137:12 4 (allocate-words/immediate 8 3) at ice-9/ftw.scm:296:15 5 (load-u64 7 0 65605) 8 (word-set!/immediate 8 0 7) 9 (load-label 6 144) ;; anonymous procedure at #x7fae263f48d4 11 (word-set!/immediate 8 1 6) 12 (scm-set!/immediate 8 2 10) 13 (static-ref 3 16067) ;; #f at ice-9/boot-9.scm:2137:6 15 (make-non-immediate 0 16067) ;; # 17 (mov 2 9) at ice-9/ftw.scm:296:15 18 (mov 1 8) 19 (handle-interrupts) 20 (call-label 8 4 169) ;; catch@@guile at #x7fae263f4964 23 (receive 3 8 12) 25 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:297:8 27 (je 120) ;; -> L10 28 (static-ref 3 16058) ;; #f at ice-9/ftw.scm:299:30 30 (mov 2 8) at ice-9/ftw.scm:299:29 31 (handle-interrupts) 32 (call-label 8 2 171) ;; stat:type@guile at #x7fae263f499c 35 (receive 5 8 12) 37 (static-ref 5 16025) ;; symlink at ice-9/ftw.scm:299:15 39 (eq? 6 5) 40 (jne 73) ;; -> L6 41 (allocate-words/immediate 6 3) at ice-9/ftw.scm:300:31 42 (word-set!/immediate 6 0 7) 43 (load-label 7 174) ;; anonymous procedure at #x7fae263f49d4 45 (word-set!/immediate 6 1 7) 46 (scm-set!/immediate 6 2 10) 47 (static-ref 4 16033) ;; #f at ice-9/boot-9.scm:2137:6 49 (make-non-immediate 1 16039) ;; # 51 (mov 3 9) at ice-9/ftw.scm:300:31 52 (mov 2 6) 53 (handle-interrupts) 54 (call-label 7 4 135) ;; catch@@guile at #x7fae263f4964 57 (receive 1 7 12) 59 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:301:17 61 (je 47) ;; -> L5 62 (scm-ref/immediate 9 11 5) 63 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:303:24 65 (jne 37) ;; -> L4 66 (static-ref 6 16020) ;; #f at ice-9/ftw.scm:289:35 68 (mov 5 10) at ice-9/ftw.scm:289:34 69 (handle-interrupts) 70 (call-label 5 2 133) ;; stat:type@guile at #x7fae263f499c 73 (receive 2 5 12) 75 (static-ref 8 15957) ;; directory at ice-9/ftw.scm:290:28 77 (eq? 9 8) 78 (jne 16) ;; -> L2 79 (scm-ref/immediate 6 11 2) 80 (mov 5 10) at ice-9/ftw.scm:291:32 81 (handle-interrupts) 82 (call 5 2) 84 (receive 2 5 12) 86 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:291:28 88 (je 3) ;; -> L1 89 (scm-ref/immediate 11 11 3) 90 (j 6) ;; -> L3 L1: 91 (static-ref 11 16009) ;; directory-not-readable at ice-9/ftw.scm:293:32 93 (j 3) ;; -> L3 L2: 94 (static-ref 11 16016) ;; regular at ice-9/ftw.scm:294:28 L3: 96 (mov 9 10) at ice-9/ftw.scm:306:24 97 (mov 10 11) 98 (mov 11 9) 99 (reset-frame 2) ;; 2 slots 100 (handle-interrupts) 101 (return-values) L4: 102 (static-ref 10 15960) ;; symlink at ice-9/ftw.scm:304:34 104 (mov 11 8) at ice-9/ftw.scm:304:24 105 (reset-frame 2) ;; 2 slots 106 (handle-interrupts) 107 (return-values) L5: 108 (scm-ref/immediate 10 11 4) 109 (mov 11 8) at ice-9/ftw.scm:302:24 110 (reset-frame 2) ;; 2 slots 111 (handle-interrupts) 112 (return-values) L6: 113 (static-ref 4 15973) ;; #f at ice-9/ftw.scm:289:35 115 (mov 3 8) at ice-9/ftw.scm:289:34 116 (handle-interrupts) 117 (call-label 7 2 86) ;; stat:type@guile at #x7fae263f499c 120 (receive 1 7 12) 122 (static-ref 9 15910) ;; directory at ice-9/ftw.scm:290:28 124 (eq? 10 9) 125 (jne 16) ;; -> L8 126 (scm-ref/immediate 4 11 2) 127 (mov 3 8) at ice-9/ftw.scm:291:32 128 (handle-interrupts) 129 (call 7 2) 131 (receive 1 7 12) 133 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:291:28 135 (je 3) ;; -> L7 136 (scm-ref/immediate 10 11 3) 137 (j 6) ;; -> L9 L7: 138 (static-ref 10 15962) ;; directory-not-readable at ice-9/ftw.scm:293:32 140 (j 3) ;; -> L9 L8: 141 (static-ref 10 15969) ;; regular at ice-9/ftw.scm:294:28 L9: 143 (mov 11 8) at ice-9/ftw.scm:307:20 144 (reset-frame 2) ;; 2 slots 145 (handle-interrupts) 146 (return-values) L10: 147 (static-ref 10 15973) ;; invalid-stat at ice-9/ftw.scm:298:25 149 (mov 11 8) at ice-9/ftw.scm:298:15 150 (reset-frame 2) ;; 2 slots 151 (handle-interrupts) 152 (return-values) Disassembly of at #x18d4: 0 (instrument-entry 15977) at ice-9/ftw.scm:296:15 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (static-ref 1 15972) ;; #f at ice-9/ftw.scm:296:36 5 (scm-ref/immediate 2 2 2) 6 (mov 0 1) at ice-9/ftw.scm:296:35 7 (mov 1 2) 8 (mov 2 0) 9 (reset-frame 2) ;; 2 slots 10 (handle-interrupts) 11 (tail-call-label 2) ;; lstat@guile at #x7fae263f4908 Disassembly of lstat@guile at #x1908: 0 (instrument-entry 15978) at ice-9/ftw.scm:296:35 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15073 15965 112);; lookup-bound-public 9 (static-set! 1 15953) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x1940: 0 (instrument-entry 15970) at ice-9/ftw.scm:296:15 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 2) ;; 2 slots 5 (make-immediate 1 4) ;; #f at ice-9/boot-9.scm:2139:20 6 (reset-frame 1) ;; 1 slot 7 (handle-interrupts) 8 (return-values) Disassembly of catch@@guile at #x1964: 0 (instrument-entry 15975) at ice-9/boot-9.scm:2139:20 2 (immediate-tag=? 3 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 3 15050 15962 113);; lookup-bound-private 9 (static-set! 3 15882) ;; #f L1: 11 (scm-ref/immediate 3 3 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of stat:type@guile at #x199c: 0 (instrument-entry 15975) at ice-9/boot-9.scm:2139:20 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 15036 15962 112);; lookup-bound-public 9 (static-set! 1 15874) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x19d4: 0 (instrument-entry 15977) at ice-9/ftw.scm:300:31 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (static-ref 1 15964) ;; #f at ice-9/ftw.scm:300:52 5 (immediate-tag=? 1 7 0) ;; heap-object? 7 (je 7) ;; -> L1 8 (call-scm<-scmn-scmn 1 15019 15961 112);; lookup-bound-public 12 (static-set! 1 15955) ;; #f L1: 14 (scm-ref/immediate 1 1 1) 15 (scm-ref/immediate 2 2 2) 16 (mov 0 1) 17 (mov 1 2) 18 (mov 2 0) 19 (reset-frame 2) ;; 2 slots 20 (handle-interrupts) 21 (tail-call) Disassembly of at #x1a2c: 0 (instrument-entry 15961) at ice-9/ftw.scm:300:31 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 2) ;; 2 slots 5 (make-immediate 1 4) ;; #f at ice-9/boot-9.scm:2139:20 6 (reset-frame 1) ;; 1 slot 7 (handle-interrupts) 8 (return-values) Disassembly of clean at #x1a50: 0 (instrument-entry 15996) at ice-9/ftw.scm:309:0 2 (assert-nargs-ee/locals 2 9) ;; 11 slots (1 arg) 3 (immediate-tag=? 9 7 0) ;; heap-object? at ice-9/ftw.scm:310:16 5 (jne 59) ;; -> L6 6 (heap-tag=? 9 127 21) ;; string? 8 (jne 56) ;; -> L6 9 (word-ref/immediate 10 9 3) 10 (mov 8 10) 11 (usub/immediate 8 8 1) at ice-9/ftw.scm:310:13 12 (tag-fixnum 7 8) 13 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:311:13 14 (imm-s64 L5 16 (make-immediate 5 12044) ;; #\/ at ice-9/ftw.scm:311:37 17 (u64 L4 19 (word-ref/immediate 10 9 2) 20 (uadd 10 10 8) 21 (scm-ref/immediate 8 9 1) 22 (tail-pointer-ref/immediate 4 8 2) 23 (word-ref/immediate 3 8 0) 24 (load-u64 2 0 1024) 27 (ulogand 3 3 2) 28 (s64-imm=? 3 0) 29 (je 4) ;; -> L1 30 (ulsh/immediate 10 10 2) 31 (u32-ref 10 4 10) 32 (j 2) ;; -> L2 L1: 33 (u8-ref 10 4 10) L2: 34 (tag-char 0 10) 35 (static-ref 2 15923) ;; #f at ice-9/ftw.scm:311:30 37 (mov 1 5) at ice-9/ftw.scm:311:29 38 (handle-interrupts) 39 (call-label 8 3 27) ;; char=?@guile at #x7fae263f4b58 42 (receive 0 8 11) 44 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:311:8 46 (je 8) ;; -> L3 47 (static-ref 10 15467) ;; #f at ice-9/ftw.scm:312:7 49 (mov 8 6) at ice-9/ftw.scm:312:6 50 (reset-frame 4) ;; 4 slots 51 (handle-interrupts) 52 (tail-call-label -829) ;; substring@guile at #x7fae263f3e2c L3: 54 (mov 10 9) 55 (reset-frame 1) ;; 1 slot 56 (handle-interrupts) 57 (return-values) L4: 58 (throw/value+data 7 15930) ;; #(out-of-range string-ref "Argument 2 out of range: ~S") at ice-9/ftw.scm:311:41 L5: 60 (mov 10 9) 61 (reset-frame 1) ;; 1 slot 62 (handle-interrupts) 63 (return-values) L6: 64 (throw/value+data 9 15468) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:310:16 Disassembly of char=?@guile at #x1b58: 0 (instrument-entry 15944) at ice-9/ftw.scm:310:16 2 (immediate-tag=? 2 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 2 14925 15931 112);; lookup-bound-public 9 (static-set! 2 15883) ;; #f L1: 11 (scm-ref/immediate 2 2 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of ftw at #x1b90: 0 (instrument-entry 15978) at ice-9/ftw.scm:315:0 2 (assert-nargs-ge 3) 3 (bind-rest 3) ;; 4 slots 4 (alloc-frame 9) ;; 9 slots 5 (static-ref 8 15939) ;; hash-size at ice-9/ftw.scm:316:47 7 (static-ref 4 15669) ;; #f at ice-9/ftw.scm:316:41 9 (immediate-tag=? 4 7 0) ;; heap-object? 11 (je 7) ;; -> L1 12 (call-scm<-scmn-scmn 4 14904 15666 113);; lookup-bound-private 16 (static-set! 4 15660) ;; #f L1: 18 (scm-ref/immediate 2 4 1) 19 (mov 1 8) 20 (mov 0 5) 21 (handle-interrupts) 22 (call 6 3) 24 (receive 0 6 9) 26 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:316:34 28 (je 20) ;; -> L4 29 (immediate-tag=? 8 7 0) ;; heap-object? 31 (jne 15) ;; -> L3 32 (heap-tag=? 8 1 0) ;; pair? 34 (jne 12) ;; -> L3 35 (scm-ref/immediate 8 8 1) 36 (immediate-tag=? 8 7 0) ;; heap-object? 38 (jne 6) ;; -> L2 39 (heap-tag=? 8 1 0) ;; pair? 41 (jne 3) ;; -> L2 42 (scm-ref/immediate 2 8 0) 43 (j 6) ;; -> L5 L2: 44 (throw/value+data 8 15910) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") L3: 46 (throw/value+data 8 15380) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…") L4: 48 (make-immediate 2 846) ;; 211 at ice-9/ftw.scm:317:46 L5: 49 (handle-interrupts) at ice-9/ftw.scm:316:19 50 (call-label 6 1 -885) ;; visited?-proc at #x7fae263f3e84 53 (reset-frame 9) ;; 9 slots 54 (mov 8 2) 55 (make-immediate 2 3990) ;; 997 at ice-9/ftw.scm:319:46 56 (make-long-immediate 1 120002) ;; 30000 at ice-9/ftw.scm:320:46 58 (handle-interrupts) at ice-9/ftw.scm:319:21 59 (call-label 6 2 -653) ;; stat-dir-readable?-proc at #x7fae263f4248 62 (reset-frame 9) ;; 9 slots 63 (mov 1 2) 64 (make-immediate 2 4) ;; #f 65 (handle-interrupts) at ice-9/ftw.scm:318:20 66 (call-label 6 2 -471) ;; stat&flag-proc at #x7fae263f453c 69 (reset-frame 9) ;; 9 slots 70 (mov 5 2) 71 (allocate-words/immediate 4 4) at ice-9/ftw.scm:321:4 72 (load-u64 3 0 781) 75 (word-set!/immediate 4 0 3) 76 (scm-set!/immediate 4 1 6) 77 (scm-set!/immediate 4 2 8) 78 (scm-set!/immediate 4 3 5) 79 (static-ref 8 15891) ;; ftw-early-exit at ice-9/ftw.scm:334:13 81 (allocate-words/immediate 6 4) at ice-9/ftw.scm:335:13 82 (load-u64 5 0 131141) 85 (word-set!/immediate 6 0 5) 86 (load-label 5 16) ;; anonymous procedure at #x7fae263f4d28 88 (word-set!/immediate 6 1 5) 89 (scm-set!/immediate 6 2 7) 90 (scm-set!/immediate 6 3 4) 91 (static-ref 7 15881) ;; #f at ice-9/ftw.scm:334:7 93 (make-non-immediate 5 15881) ;; # 95 (mov 4 7) at ice-9/ftw.scm:334:6 96 (mov 7 8) 97 (mov 8 4) 98 (reset-frame 4) ;; 4 slots 99 (handle-interrupts) 100 (tail-call-label 189) ;; catch@guile at #x7fae263f5014 Disassembly of at #x1d28: 0 (instrument-entry 15882) at ice-9/ftw.scm:335:13 2 (assert-nargs-ee/locals 1 11) ;; 12 slots (0 args) 3 (scm-ref/immediate 10 11 2) 4 (immediate-tag=? 10 7 0) ;; heap-object? at ice-9/ftw.scm:310:16 6 (jne 65) ;; -> L6 7 (heap-tag=? 10 127 21) ;; string? 9 (jne 62) ;; -> L6 10 (word-ref/immediate 9 10 3) 11 (mov 8 9) 12 (usub/immediate 8 8 1) at ice-9/ftw.scm:310:13 13 (tag-fixnum 7 8) 14 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:311:13 15 (imm-s64 L5 17 (make-immediate 5 12044) ;; #\/ at ice-9/ftw.scm:311:37 18 (u64 L4 20 (word-ref/immediate 9 10 2) 21 (uadd 9 9 8) 22 (scm-ref/immediate 10 10 1) 23 (tail-pointer-ref/immediate 8 10 2) 24 (word-ref/immediate 4 10 0) 25 (load-u64 3 0 1024) 28 (ulogand 4 4 3) 29 (s64-imm=? 4 0) 30 (je 4) ;; -> L1 31 (ulsh/immediate 9 9 2) 32 (u32-ref 10 8 9) 33 (j 2) ;; -> L2 L1: 34 (u8-ref 10 8 9) L2: 35 (tag-char 0 10) 36 (static-ref 2 15740) ;; #f at ice-9/ftw.scm:311:30 38 (mov 1 5) at ice-9/ftw.scm:311:29 39 (handle-interrupts) 40 (call-label 9 3 -156) ;; char=?@guile at #x7fae263f4b58 43 (receive 1 9 12) 45 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:311:8 47 (je 15) ;; -> L3 48 (static-ref 10 15284) ;; #f at ice-9/ftw.scm:312:7 50 (scm-ref/immediate 9 11 2) 51 (mov 4 7) at ice-9/ftw.scm:312:6 52 (mov 7 10) 53 (mov 5 6) 54 (mov 6 9) 55 (handle-interrupts) 56 (call-label 4 4 -1015) ;; substring@guile at #x7fae263f3e2c 59 (receive 1 4 12) 61 (j 5) ;; -> L5 L3: 62 (scm-ref/immediate 10 11 2) 63 (j 3) ;; -> L5 L4: 64 (throw/value+data 7 15742) ;; #(out-of-range string-ref "Argument 2 out of range: ~S") at ice-9/ftw.scm:311:41 L5: 66 (scm-ref/immediate 11 11 3) 67 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:335:24 68 (handle-interrupts) 69 (tail-call-label 4) ;; go at #x7fae263f4e4c L6: 71 (throw/value+data 10 15279) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:310:16 Disassembly of go at #x1e4c: 0 (instrument-entry 15827) at ice-9/ftw.scm:321:17 2 (alloc-frame 14) ;; 14 slots 3 (scm-ref/immediate 8 13 3) 4 (mov 7 12) at ice-9/ftw.scm:322:48 5 (handle-interrupts) 6 (call 5 2) 8 (receive-values 5 #f 2) 10 (reset-frame 14) ;; 14 slots 11 (mov 11 8) 12 (scm-ref/immediate 3 13 2) 13 (mov 2 11) at ice-9/ftw.scm:324:27 14 (mov 1 12) 15 (handle-interrupts) 16 (call 10 3) 18 (receive 3 10 14) 20 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:324:23 22 (jne 64) ;; -> L4 23 (scm-ref/immediate 3 13 1) 24 (mov 2 12) at ice-9/ftw.scm:325:38 25 (mov 1 11) 26 (mov 0 7) 27 (handle-interrupts) 28 (call 10 4) 30 (receive 2 10 14) 32 (eq-immediate? 11 1028) ;; #t at ice-9/ftw.scm:326:33 33 (jne 46) ;; -> L3 34 (static-ref 11 15495) ;; directory at ice-9/ftw.scm:328:34 36 (eq? 7 11) 37 (jne 38) ;; -> L2 38 (static-ref 11 15777) ;; #f at ice-9/ftw.scm:329:35 40 (immediate-tag=? 11 7 0) ;; heap-object? 42 (je 9) ;; -> L1 43 (static-ref 11 14778) ;; #f 45 (static-ref 10 15780) ;; for-each 47 (call-scm<-scm-scm 11 11 10 111);; lookup-bound 49 (static-set! 11 15766) ;; #f L1: 51 (scm-ref/immediate 11 11 1) 52 (allocate-words/immediate 10 4) at ice-9/ftw.scm:330:35 53 (load-u64 9 0 131141) 56 (word-set!/immediate 10 0 9) 57 (load-label 9 33) ;; anonymous procedure at #x7fae263f4fb4 59 (word-set!/immediate 10 1 9) 60 (scm-set!/immediate 10 2 13) 61 (scm-set!/immediate 10 3 12) 62 (mov 6 12) at ice-9/ftw.scm:332:35 63 (handle-interrupts) 64 (call-label 7 1 -1416) ;; directory-files at #x7fae263f392c 67 (reset-frame 14) ;; 14 slots 68 (mov 8 6) 69 (mov 9 10) at ice-9/ftw.scm:329:34 70 (mov 10 11) 71 (handle-interrupts) 72 (call 3 3) 74 (reset-frame 14) ;; 14 slots L2: 75 (make-immediate 13 1028) ;; #t at ice-9/ftw.scm:333:29 76 (reset-frame 1) ;; 1 slot 77 (handle-interrupts) 78 (return-values) L3: 79 (static-ref 13 15716) ;; ftw-early-exit at ice-9/ftw.scm:327:40 81 (make-immediate 12 772) ;; () at ice-9/ftw.scm:327:33 82 (allocate-words/immediate 10 2) 83 (scm-set!/immediate 10 0 11) 84 (scm-set!/immediate 10 1 12) 85 (throw 13 10) L4: 86 (mov 13 10) 87 (reset-frame 1) ;; 1 slot 88 (handle-interrupts) 89 (return-values) Disassembly of at #x1fb4: 0 (instrument-entry 15743) at ice-9/ftw.scm:330:35 2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg) 3 (make-immediate 2 4) ;; #f 4 (scm-ref/immediate 1 6 3) 5 (mov 0 5) at ice-9/ftw.scm:331:41 6 (handle-interrupts) 7 (call-label 4 3 -1244) ;; pathify at #x7fae263f3c60 10 (receive 1 4 7) 12 (scm-ref/immediate 6 6 2) 13 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:331:37 14 (handle-interrupts) 15 (tail-call-label -105) ;; go at #x7fae263f4e4c Disassembly of at #x1ff8: 0 (instrument-entry 15732) at ice-9/ftw.scm:336:13 2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args) 3 (mov 2 0) 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (return-values) Disassembly of catch@guile at #x2014: 0 (instrument-entry 15731) at ice-9/ftw.scm:336:13 2 (immediate-tag=? 3 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 3 14622 15534 112);; lookup-bound-public 9 (static-set! 3 15674) ;; #f L1: 11 (scm-ref/immediate 3 3 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of nftw at #x204c: 0 (instrument-entry 15807) at ice-9/ftw.scm:338:0 2 (assert-nargs-ge 3) 3 (bind-rest 3) ;; 4 slots 4 (alloc-frame 18) ;; 18 slots 5 (static-ref 17 15718) ;; #f at ice-9/ftw.scm:339:14 7 (immediate-tag=? 17 7 0) ;; heap-object? 9 (je 7) ;; -> L1 10 (call-scm<-scmn-scmn 17 14603 15715 112);; lookup-bound-public 14 (static-set! 17 15709) ;; #f L1: 16 (scm-ref/immediate 10 17 1) 17 (handle-interrupts) 18 (call 7 1) 20 (receive 0 7 18) 22 (make-immediate 13 1028) ;; #t at ice-9/boot-9.scm:2137:12 23 (allocate-words/immediate 12 3) at ice-9/ftw.scm:340:24 24 (load-u64 11 0 65605) 27 (word-set!/immediate 12 0 11) 28 (load-label 10 254) ;; anonymous procedure at #x7fae263f54b4 30 (word-set!/immediate 12 1 10) 31 (scm-set!/immediate 12 2 16) 32 (static-ref 7 15417) ;; #f at ice-9/boot-9.scm:2137:6 34 (make-non-immediate 4 15699) ;; # 36 (mov 6 13) at ice-9/ftw.scm:340:24 37 (mov 5 12) 38 (handle-interrupts) 39 (call-label 10 4 -481) ;; catch@@guile at #x7fae263f4964 42 (receive 4 10 18) 44 (immediate-tag=? 13 3839 4) ;; false? at ice-9/ftw.scm:341:17 46 (je 11) ;; -> L2 47 (static-ref 7 15172) ;; #f at ice-9/ftw.scm:341:24 49 (mov 6 13) at ice-9/ftw.scm:341:23 50 (handle-interrupts) 51 (call-label 10 2 -1027) ;; stat:dev@guile at #x7fae263f410c 54 (receive 4 10 18) 56 (j 2) ;; -> L3 L2: 57 (make-immediate 13 65534) ;; -1 at ice-9/ftw.scm:341:36 L3: 58 (static-ref 12 15687) ;; mount at ice-9/ftw.scm:342:30 60 (static-ref 10 15313) ;; #f at ice-9/ftw.scm:342:24 62 (immediate-tag=? 10 7 0) ;; heap-object? 64 (je 7) ;; -> L4 65 (call-scm<-scmn-scmn 10 14548 15310 113);; lookup-bound-private 69 (static-set! 10 15304) ;; #f L4: 71 (scm-ref/immediate 10 10 1) 72 (mov 6 10) 73 (mov 5 12) 74 (mov 4 14) 75 (handle-interrupts) 76 (call 11 3) 78 (receive 5 11 18) 80 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:342:20 82 (je 8) ;; -> L5 83 (allocate-words/immediate 12 3) at ice-9/ftw.scm:343:24 84 (word-set!/immediate 12 0 11) 85 (load-label 9 219) ;; anonymous procedure at #x7fae263f550c 87 (word-set!/immediate 12 1 9) 88 (scm-set!/immediate 12 2 13) 89 (j 3) ;; -> L6 L5: 90 (make-non-immediate 12 15657) ;; # at ice-9/ftw.scm:344:24 L6: 92 (static-ref 13 15667) ;; chdir at ice-9/ftw.scm:346:29 94 (mov 6 10) at ice-9/ftw.scm:346:23 95 (mov 5 13) 96 (mov 4 14) 97 (handle-interrupts) 98 (call 11 3) 100 (receive 8 11 18) 102 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:346:19 104 (je 32) ;; -> L9 105 (static-ref 9 15656) ;; #f at ice-9/ftw.scm:347:28 107 (immediate-tag=? 9 7 0) ;; heap-object? 109 (je 7) ;; -> L7 110 (call-scm<-scmn-scmn 9 14503 15653 112);; lookup-bound-public 114 (static-set! 9 15647) ;; #f L7: 116 (scm-ref/immediate 6 9 1) 117 (mov 5 16) 118 (handle-interrupts) 119 (call 11 2) 121 (receive 8 11 18) 123 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:347:23 125 (jne 8) ;; -> L8 126 (allocate-words/immediate 9 3) at ice-9/ftw.scm:351:27 127 (word-set!/immediate 9 0 11) 128 (load-label 8 206) ;; anonymous procedure at #x7fae263f5584 130 (word-set!/immediate 9 1 8) 131 (scm-set!/immediate 9 2 17) 132 (j 6) ;; -> L10 L8: 133 (make-non-immediate 9 15638) ;; # at ice-9/ftw.scm:348:27 135 (j 3) ;; -> L10 L9: 136 (make-non-immediate 9 15639) ;; # at ice-9/ftw.scm:354:23 L10: 138 (mov 5 10) at ice-9/ftw.scm:355:28 139 (mov 4 13) 140 (mov 3 14) 141 (handle-interrupts) 142 (call 12 3) 144 (receive 4 12 18) 146 (immediate-tag=? 13 3839 4) ;; false? at ice-9/ftw.scm:355:24 148 (je 8) ;; -> L11 149 (allocate-words/immediate 13 3) at ice-9/ftw.scm:356:28 150 (word-set!/immediate 13 0 11) 151 (load-label 11 267) ;; anonymous procedure at #x7fae263f56d4 153 (word-set!/immediate 13 1 11) 154 (scm-set!/immediate 13 2 17) 155 (j 3) ;; -> L12 L11: 156 (make-non-immediate 13 15623) ;; # at ice-9/ftw.scm:357:28 L12: 158 (static-ref 4 15213) ;; depth at ice-9/ftw.scm:358:29 160 (mov 5 10) at ice-9/ftw.scm:358:23 161 (mov 3 14) 162 (handle-interrupts) 163 (call 12 3) 165 (receive 6 12 18) 167 (static-ref 4 15474) ;; hash-size at ice-9/ftw.scm:360:33 169 (mov 5 10) at ice-9/ftw.scm:360:27 170 (mov 3 14) 171 (handle-interrupts) 172 (call 12 3) 174 (receive 7 12 18) 176 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:360:20 178 (je 20) ;; -> L15 179 (immediate-tag=? 10 7 0) ;; heap-object? 181 (jne 15) ;; -> L14 182 (heap-tag=? 10 1 0) ;; pair? 184 (jne 12) ;; -> L14 185 (scm-ref/immediate 10 10 1) 186 (immediate-tag=? 10 7 0) ;; heap-object? 188 (jne 6) ;; -> L13 189 (heap-tag=? 10 1 0) ;; pair? 191 (jne 3) ;; -> L13 192 (scm-ref/immediate 5 10 0) 193 (j 6) ;; -> L16 L13: 194 (throw/value+data 10 15457) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") L14: 196 (throw/value+data 10 14927) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…") L15: 198 (make-immediate 5 846) ;; 211 at ice-9/ftw.scm:361:32 L16: 199 (handle-interrupts) at ice-9/ftw.scm:359:19 200 (call-label 12 1 -1338) ;; visited?-proc at #x7fae263f3e84 203 (reset-frame 18) ;; 18 slots 204 (mov 10 5) 205 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:362:20 207 (je 4) ;; -> L17 208 (make-non-immediate 8 15575) ;; # at ice-9/ftw.scm:363:24 210 (j 3) ;; -> L18 L17: 211 (make-non-immediate 8 15576) ;; # at ice-9/ftw.scm:364:24 L18: 213 (make-immediate 4 3990) ;; 997 at ice-9/ftw.scm:366:52 214 (make-long-immediate 3 120002) ;; 30000 at ice-9/ftw.scm:367:52 216 (handle-interrupts) at ice-9/ftw.scm:366:27 217 (call-label 13 2 -1114) ;; stat-dir-readable?-proc at #x7fae263f4248 220 (reset-frame 18) ;; 18 slots 221 (mov 2 4) 222 (static-ref 1 15189) ;; nftw-style at ice-9/ftw.scm:368:33 224 (builtin-ref 4 0) ;; apply at ice-9/ftw.scm:365:20 225 (make-non-immediate 3 14526) ;; # 227 (mov 0 14) 228 (handle-interrupts) 229 (call 13 5) 231 (receive 3 13 18) 233 (allocate-words/immediate 7 9) at ice-9/ftw.scm:369:4 234 (load-u64 6 0 2061) 237 (word-set!/immediate 7 0 6) 238 (scm-set!/immediate 7 1 15) 239 (scm-set!/immediate 7 2 12) 240 (scm-set!/immediate 7 3 9) 241 (scm-set!/immediate 7 4 13) 242 (scm-set!/immediate 7 5 8) 243 (scm-set!/immediate 7 6 11) 244 (scm-set!/immediate 7 7 10) 245 (scm-set!/immediate 7 8 14) 246 (static-ref 15 15553) ;; nftw-early-exit at ice-9/ftw.scm:395:24 248 (allocate-words/immediate 14 4) at ice-9/ftw.scm:396:24 249 (load-u64 13 0 131141) 252 (word-set!/immediate 14 0 13) 253 (load-label 13 214) ;; anonymous procedure at #x7fae263f5798 255 (word-set!/immediate 14 1 13) 256 (scm-set!/immediate 14 2 16) 257 (scm-set!/immediate 14 3 7) 258 (static-ref 13 15411) ;; #f at ice-9/ftw.scm:395:18 260 (make-non-immediate 10 15541) ;; # 262 (mov 12 15) at ice-9/ftw.scm:395:17 263 (mov 11 14) 264 (handle-interrupts) 265 (call-label 4 4 -279) ;; catch@guile at #x7fae263f5014 268 (receive 1 4 18) 270 (static-ref 12 15535) ;; #f at ice-9/ftw.scm:398:9 272 (mov 11 17) at ice-9/ftw.scm:398:8 273 (handle-interrupts) 274 (call-label 5 2 90) ;; chdir@guile at #x7fae263f55fc 277 (reset-frame 18) ;; 18 slots 278 (mov 17 16) 279 (reset-frame 1) ;; 1 slot 280 (handle-interrupts) 281 (return-values) Disassembly of at #x24b4: 0 (instrument-entry 15531) at ice-9/ftw.scm:340:24 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (static-ref 1 15212) ;; #f at ice-9/ftw.scm:340:45 5 (scm-ref/immediate 2 2 2) 6 (mov 0 1) at ice-9/ftw.scm:340:44 7 (mov 1 2) 8 (mov 2 0) 9 (reset-frame 2) ;; 2 slots 10 (handle-interrupts) 11 (tail-call-label -758) ;; lstat@guile at #x7fae263f4908 Disassembly of at #x24e8: 0 (instrument-entry 15524) at ice-9/ftw.scm:340:24 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 2) ;; 2 slots 5 (make-immediate 1 4) ;; #f at ice-9/boot-9.scm:2139:20 6 (reset-frame 1) ;; 1 slot 7 (handle-interrupts) 8 (return-values) Disassembly of at #x250c: 0 (instrument-entry 15521) at ice-9/ftw.scm:343:24 2 (assert-nargs-ee/locals 2 4) ;; 6 slots (1 arg) 3 (static-ref 1 14912) ;; #f at ice-9/ftw.scm:343:40 5 (mov 0 4) at ice-9/ftw.scm:343:39 6 (handle-interrupts) 7 (call-label 4 2 -1287) ;; stat:dev@guile at #x7fae263f410c 10 (receive 1 4 6) 12 (scm-ref/immediate 5 5 2) 13 (=? 4 5) at ice-9/ftw.scm:343:36 14 (jne 5) ;; -> L1 15 (make-immediate 5 1028) ;; #t 16 (reset-frame 1) ;; 1 slot 17 (handle-interrupts) 18 (return-values) L1: 19 (make-immediate 5 4) ;; #f 20 (reset-frame 1) ;; 1 slot 21 (handle-interrupts) 22 (return-values) Disassembly of at #x2568: 0 (instrument-entry 15504) at ice-9/ftw.scm:344:24 2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg) 3 (make-immediate 1 1028) ;; #t at ice-9/ftw.scm:344:36 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (return-values) Disassembly of at #x2584: 0 (instrument-entry 15503) at ice-9/ftw.scm:351:27 2 (assert-nargs-ee/locals 3 5) ;; 8 slots (2 args) 3 (make-immediate 1 2) ;; 0 at ice-9/ftw.scm:345:55 4 (static-ref 3 14793) ;; #f at ice-9/ftw.scm:345:40 6 (mov 2 6) at ice-9/ftw.scm:345:39 7 (mov 0 5) 8 (handle-interrupts) 9 (call-label 4 4 -1503) ;; substring@guile at #x7fae263f3e2c 12 (receive 1 4 8) 14 (make-immediate 5 4) ;; #f 15 (scm-ref/immediate 3 7 2) 16 (mov 4 5) at ice-9/ftw.scm:353:30 17 (mov 2 6) 18 (handle-interrupts) 19 (call-label 3 3 -1628) ;; pathify at #x7fae263f3c60 22 (receive 1 3 8) 24 (static-ref 7 15447) ;; #f at ice-9/ftw.scm:352:30 26 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:352:29 27 (handle-interrupts) 28 (tail-call-label 2) ;; chdir@guile at #x7fae263f55fc Disassembly of chdir@guile at #x25fc: 0 (instrument-entry 15479) at ice-9/ftw.scm:352:29 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 14244 15382 112);; lookup-bound-public 9 (static-set! 1 15432) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x2634: 0 (instrument-entry 15471) at ice-9/ftw.scm:348:27 2 (assert-nargs-ee/locals 3 4) ;; 7 slots (2 args) 3 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:349:36 4 (=? 6 4) at ice-9/ftw.scm:349:33 5 (jne 3) ;; -> L1 6 (make-immediate 3 1028) ;; #t 7 (j 2) ;; -> L2 L1: 8 (make-immediate 3 4) ;; #f L2: 9 (immediate-tag=? 3 3839 4) ;; false? at ice-9/ftw.scm:349:29 11 (jne 18) ;; -> L3 12 (static-ref 3 14741) ;; #f at ice-9/ftw.scm:345:40 14 (mov 2 5) at ice-9/ftw.scm:345:39 15 (mov 1 6) 16 (mov 0 4) 17 (handle-interrupts) 18 (call-label 3 4 -1556) ;; substring@guile at #x7fae263f3e2c 21 (receive 1 3 7) 23 (static-ref 6 15404) ;; #f at ice-9/ftw.scm:350:34 25 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:350:33 26 (handle-interrupts) 27 (tail-call-label -41) ;; chdir@guile at #x7fae263f55fc L3: 29 (mov 6 3) 30 (reset-frame 1) ;; 1 slot 31 (handle-interrupts) 32 (return-values) Disassembly of at #x26b8: 0 (instrument-entry 15444) at ice-9/ftw.scm:354:23 2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args) 3 (make-immediate 2 1028) ;; #t at ice-9/ftw.scm:354:47 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (return-values) Disassembly of at #x26d4: 0 (instrument-entry 15443) at ice-9/ftw.scm:356:28 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (static-ref 1 15384) ;; #f at ice-9/ftw.scm:356:40 5 (scm-ref/immediate 2 2 2) 6 (mov 0 1) at ice-9/ftw.scm:356:39 7 (mov 1 2) 8 (mov 2 0) 9 (reset-frame 2) ;; 2 slots 10 (handle-interrupts) 11 (tail-call-label -65) ;; chdir@guile at #x7fae263f55fc Disassembly of at #x2708: 0 (instrument-entry 15436) at ice-9/ftw.scm:357:28 2 (assert-nargs-ee/locals 1 0) ;; 1 slot (0 args) 3 (make-immediate 0 1028) ;; #t at ice-9/ftw.scm:357:39 4 (handle-interrupts) 5 (return-values) Disassembly of at #x2720: 0 (instrument-entry 15436) at ice-9/ftw.scm:363:24 2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg) 3 (static-ref 1 14951) ;; directory-processed at ice-9/ftw.scm:363:39 5 (eq? 0 1) 6 (jne 5) ;; -> L1 7 (make-immediate 1 1028) ;; #t 8 (reset-frame 1) ;; 1 slot 9 (handle-interrupts) 10 (return-values) L1: 11 (make-immediate 1 4) ;; #f 12 (reset-frame 1) ;; 1 slot 13 (handle-interrupts) 14 (return-values) Disassembly of at #x275c: 0 (instrument-entry 15427) at ice-9/ftw.scm:364:24 2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg) 3 (static-ref 1 14946) ;; directory at ice-9/ftw.scm:364:39 5 (eq? 0 1) 6 (jne 5) ;; -> L1 7 (make-immediate 1 1028) ;; #t 8 (reset-frame 1) ;; 1 slot 9 (handle-interrupts) 10 (return-values) L1: 11 (make-immediate 1 4) ;; #f 12 (reset-frame 1) ;; 1 slot 13 (handle-interrupts) 14 (return-values) Disassembly of at #x2798: 0 (instrument-entry 15418) at ice-9/ftw.scm:396:24 2 (assert-nargs-ee/locals 1 12) ;; 13 slots (0 args) 3 (scm-ref/immediate 11 12 2) 4 (immediate-tag=? 11 7 0) ;; heap-object? at ice-9/ftw.scm:310:16 6 (jne 65) ;; -> L6 7 (heap-tag=? 11 127 21) ;; string? 9 (jne 62) ;; -> L6 10 (word-ref/immediate 10 11 3) 11 (mov 9 10) 12 (usub/immediate 9 9 1) at ice-9/ftw.scm:310:13 13 (tag-fixnum 8 9) 14 (make-immediate 7 2) ;; 0 at ice-9/ftw.scm:311:13 15 (imm-s64 L5 17 (make-immediate 6 12044) ;; #\/ at ice-9/ftw.scm:311:37 18 (u64 L4 20 (word-ref/immediate 10 11 2) 21 (uadd 10 10 9) 22 (scm-ref/immediate 11 11 1) 23 (tail-pointer-ref/immediate 9 11 2) 24 (word-ref/immediate 5 11 0) 25 (load-u64 4 0 1024) 28 (ulogand 5 5 4) 29 (s64-imm=? 5 0) 30 (je 4) ;; -> L1 31 (ulsh/immediate 10 10 2) 32 (u32-ref 11 9 10) 33 (j 2) ;; -> L2 L1: 34 (u8-ref 11 9 10) L2: 35 (tag-char 1 11) 36 (static-ref 3 15072) ;; #f at ice-9/ftw.scm:311:30 38 (mov 2 6) at ice-9/ftw.scm:311:29 39 (handle-interrupts) 40 (call-label 9 3 -824) ;; char=?@guile at #x7fae263f4b58 43 (receive 1 9 13) 45 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:311:8 47 (je 13) ;; -> L3 48 (static-ref 3 14616) ;; #f at ice-9/ftw.scm:312:7 50 (scm-ref/immediate 2 12 2) 51 (mov 1 7) at ice-9/ftw.scm:312:6 52 (mov 0 8) 53 (handle-interrupts) 54 (call-label 9 4 -1681) ;; substring@guile at #x7fae263f3e2c 57 (receive 1 9 13) 59 (j 5) ;; -> L5 L3: 60 (scm-ref/immediate 11 12 2) 61 (j 3) ;; -> L5 L4: 62 (throw/value+data 8 15076) ;; #(out-of-range string-ref "Argument 2 out of range: ~S") at ice-9/ftw.scm:311:41 L5: 64 (scm-ref/immediate 12 12 3) 65 (mov 10 7) at ice-9/ftw.scm:396:35 66 (mov 9 7) 67 (reset-frame 4) ;; 4 slots 68 (handle-interrupts) 69 (tail-call-label 4) ;; go at #x7fae263f58bc L6: 71 (throw/value+data 11 14611) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:310:16 Disassembly of go at #x28bc: 0 (instrument-entry 15351) at ice-9/ftw.scm:369:17 2 (alloc-frame 18) ;; 18 slots 3 (scm-ref/immediate 10 17 8) 4 (mov 9 16) at ice-9/ftw.scm:370:48 5 (handle-interrupts) 6 (call 7 2) 8 (receive-values 7 #f 2) 10 (reset-frame 18) ;; 18 slots 11 (mov 13 10) 12 (scm-ref/immediate 5 17 7) 13 (mov 4 13) at ice-9/ftw.scm:389:29 14 (mov 3 16) 15 (handle-interrupts) 16 (call 12 3) 18 (receive 5 12 18) 20 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:389:25 22 (jne 175) ;; -> L6 23 (scm-ref/immediate 5 17 2) 24 (mov 4 13) at ice-9/ftw.scm:390:34 25 (handle-interrupts) 26 (call 12 2) 28 (receive 5 12 18) 30 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:390:29 32 (je 165) ;; -> L6 33 (scm-ref/immediate 12 17 6) 34 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:391:29 36 (je 82) ;; -> L3 37 (scm-ref/immediate 5 17 5) 38 (mov 4 9) at ice-9/ftw.scm:381:45 39 (handle-interrupts) 40 (call 12 2) 42 (receive 5 12 18) 44 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:381:40 46 (je 39) ;; -> L2 47 (static-ref 12 15100) ;; #f at ice-9/ftw.scm:382:46 49 (immediate-tag=? 12 7 0) ;; heap-object? 51 (je 9) ;; -> L1 52 (static-ref 12 14101) ;; #f 54 (static-ref 11 15103) ;; for-each 56 (call-scm<-scm-scm 12 12 11 111);; lookup-bound 58 (static-set! 12 15089) ;; #f L1: 60 (scm-ref/immediate 12 12 1) 61 (allocate-words/immediate 11 5) at ice-9/ftw.scm:383:46 62 (load-u64 10 0 196677) 65 (word-set!/immediate 11 0 10) 66 (load-label 10 135) ;; anonymous procedure at #x7fae263f5be0 68 (word-set!/immediate 11 1 10) 69 (scm-set!/immediate 11 2 17) 70 (scm-set!/immediate 11 3 16) 71 (scm-set!/immediate 11 4 14) 72 (mov 5 16) at ice-9/ftw.scm:388:46 73 (handle-interrupts) 74 (call-label 12 1 -2094) ;; directory-files at #x7fae263f392c 77 (reset-frame 18) ;; 18 slots 78 (mov 3 5) 79 (mov 5 12) at ice-9/ftw.scm:382:45 80 (mov 4 11) 81 (handle-interrupts) 82 (call 12 3) 84 (reset-frame 18) ;; 18 slots L2: 85 (scm-ref/immediate 5 17 3) 86 (mov 4 16) at ice-9/ftw.scm:373:40 87 (mov 3 15) 88 (handle-interrupts) 89 (call 12 3) 91 (reset-frame 18) ;; 18 slots 92 (scm-ref/immediate 12 17 1) 93 (mov 11 13) at ice-9/ftw.scm:375:51 94 (mov 13 12) 95 (mov 12 16) 96 (mov 10 9) 97 (mov 9 15) 98 (mov 8 14) 99 (handle-interrupts) 100 (call 4 6) 102 (receive 1 4 18) 104 (scm-ref/immediate 12 17 4) 105 (handle-interrupts) at ice-9/ftw.scm:377:42 106 (call 5 1) 108 (reset-frame 18) ;; 18 slots 109 (eq-immediate? 16 1028) ;; #t at ice-9/ftw.scm:378:46 110 (je 87) ;; -> L6 111 (static-ref 17 15148) ;; nftw-early-exit at ice-9/ftw.scm:379:53 113 (make-immediate 15 772) ;; () at ice-9/ftw.scm:379:46 114 (allocate-words/immediate 14 2) 115 (scm-set!/immediate 14 0 16) 116 (scm-set!/immediate 14 1 15) 117 (throw 17 14) L3: 118 (scm-ref/immediate 5 17 3) 119 (mov 4 16) at ice-9/ftw.scm:373:40 120 (mov 3 15) 121 (handle-interrupts) 122 (call 12 3) 124 (reset-frame 18) ;; 18 slots 125 (scm-ref/immediate 5 17 1) 126 (mov 4 16) at ice-9/ftw.scm:375:51 127 (mov 3 13) 128 (mov 2 9) 129 (mov 1 15) 130 (mov 0 14) 131 (handle-interrupts) 132 (call 12 6) 134 (receive 2 12 18) 136 (scm-ref/immediate 5 17 4) 137 (handle-interrupts) at ice-9/ftw.scm:377:42 138 (call 12 1) 140 (reset-frame 18) ;; 18 slots 141 (eq-immediate? 15 1028) ;; #t at ice-9/ftw.scm:378:46 142 (jne 48) ;; -> L5 143 (scm-ref/immediate 10 17 5) 144 (handle-interrupts) at ice-9/ftw.scm:381:45 145 (call 7 2) 147 (receive 2 7 18) 149 (immediate-tag=? 15 3839 4) ;; false? at ice-9/ftw.scm:381:40 151 (je 46) ;; -> L6 152 (static-ref 15 14995) ;; #f at ice-9/ftw.scm:382:46 154 (immediate-tag=? 15 7 0) ;; heap-object? 156 (je 9) ;; -> L4 157 (static-ref 15 13996) ;; #f 159 (static-ref 13 14998) ;; for-each 161 (call-scm<-scm-scm 15 15 13 111);; lookup-bound 163 (static-set! 15 14984) ;; #f L4: 165 (scm-ref/immediate 15 15 1) 166 (allocate-words/immediate 13 5) at ice-9/ftw.scm:383:46 167 (load-u64 12 0 196677) 170 (word-set!/immediate 13 0 12) 171 (load-label 12 62) ;; anonymous procedure at #x7fae263f5c60 173 (word-set!/immediate 13 1 12) 174 (scm-set!/immediate 13 2 17) 175 (scm-set!/immediate 13 3 16) 176 (scm-set!/immediate 13 4 14) 177 (mov 9 16) at ice-9/ftw.scm:388:46 178 (handle-interrupts) 179 (call-label 8 1 -2199) ;; directory-files at #x7fae263f392c 182 (reset-frame 18) ;; 18 slots 183 (mov 12 9) 184 (mov 14 15) at ice-9/ftw.scm:382:45 185 (handle-interrupts) 186 (call 3 3) 188 (reset-frame 18) ;; 18 slots 189 (j 8) ;; -> L6 L5: 190 (static-ref 17 15069) ;; nftw-early-exit at ice-9/ftw.scm:379:53 192 (make-immediate 16 772) ;; () at ice-9/ftw.scm:379:46 193 (allocate-words/immediate 14 2) 194 (scm-set!/immediate 14 0 15) 195 (scm-set!/immediate 14 1 16) 196 (throw 17 14) L6: 197 (make-immediate 17 1028) ;; #t at ice-9/ftw.scm:394:19 198 (reset-frame 1) ;; 1 slot 199 (handle-interrupts) 200 (return-values) Disassembly of at #x2be0: 0 (instrument-entry 15156) at ice-9/ftw.scm:383:46 2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg) 3 (make-immediate 2 4) ;; #f 4 (scm-ref/immediate 1 6 3) 5 (mov 0 5) at ice-9/ftw.scm:384:52 6 (handle-interrupts) 7 (call-label 4 3 -2023) ;; pathify at #x7fae263f3c60 10 (receive 1 4 7) 12 (scm-ref/immediate 4 6 3) 13 (immediate-tag=? 4 7 0) ;; heap-object? at ice-9/ftw.scm:385:56 15 (jne 15) ;; -> L1 16 (heap-tag=? 4 127 21) ;; string? 18 (jne 12) ;; -> L1 19 (word-ref/immediate 4 4 3) 20 (uadd/immediate 4 4 1) at ice-9/ftw.scm:385:52 21 (tag-fixnum 4 4) 22 (scm-ref/immediate 3 6 4) 23 (call-scm<-scm-uimm 3 3 1 1) ;; add/immediate at ice-9/ftw.scm:387:52 25 (scm-ref/immediate 6 6 2) 26 (reset-frame 4) ;; 4 slots at ice-9/ftw.scm:384:48 27 (handle-interrupts) 28 (tail-call-label -229) ;; go at #x7fae263f58bc L1: 30 (throw/value+data 4 14378) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:385:56 Disassembly of at #x2c60: 0 (instrument-entry 15130) at ice-9/ftw.scm:383:46 2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg) 3 (make-immediate 2 4) ;; #f 4 (scm-ref/immediate 1 6 3) 5 (mov 0 5) at ice-9/ftw.scm:384:52 6 (handle-interrupts) 7 (call-label 4 3 -2055) ;; pathify at #x7fae263f3c60 10 (receive 1 4 7) 12 (scm-ref/immediate 4 6 3) 13 (immediate-tag=? 4 7 0) ;; heap-object? at ice-9/ftw.scm:385:56 15 (jne 15) ;; -> L1 16 (heap-tag=? 4 127 21) ;; string? 18 (jne 12) ;; -> L1 19 (word-ref/immediate 4 4 3) 20 (uadd/immediate 4 4 1) at ice-9/ftw.scm:385:52 21 (tag-fixnum 4 4) 22 (scm-ref/immediate 3 6 4) 23 (call-scm<-scm-uimm 3 3 1 1) ;; add/immediate at ice-9/ftw.scm:387:52 25 (scm-ref/immediate 6 6 2) 26 (reset-frame 4) ;; 4 slots at ice-9/ftw.scm:384:48 27 (handle-interrupts) 28 (tail-call-label -261) ;; go at #x7fae263f58bc L1: 30 (throw/value+data 4 14346) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:385:56 Disassembly of at #x2ce0: 0 (instrument-entry 15104) at ice-9/ftw.scm:397:24 2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args) 3 (mov 2 0) 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (return-values) Disassembly of at #x2cfc: 0 (instrument-entry 15115) at ice-9/ftw.scm:406:0 2 (assert-nargs-ee/locals 2 6) ;; 8 slots (1 arg) 3 (make-non-immediate 7 15104) ;; (any any) 5 (static-ref 5 14016) ;; #f 7 (immediate-tag=? 5 7 0) ;; heap-object? 9 (je 7) ;; -> L1 10 (call-scm<-scmn-scmn 5 13791 14013 113);; lookup-bound-private 14 (static-set! 5 14007) ;; #f L1: 16 (scm-ref/immediate 2 5 1) 17 (mov 1 6) 18 (mov 0 7) 19 (handle-interrupts) 20 (call 5 3) 22 (receive 0 5 8) 24 (immediate-tag=? 7 3839 4) ;; false? 26 (jne 23) ;; -> L3 27 (make-immediate 7 4) ;; #f 28 (make-non-immediate 5 14003) ;; "source expression failed to match any pattern" 30 (static-ref 4 14009) ;; #f 32 (immediate-tag=? 4 7 0) ;; heap-object? 34 (je 7) ;; -> L2 35 (call-scm<-scmn-scmn 4 13766 14006 113);; lookup-bound-private 39 (static-set! 4 14000) ;; #f L2: 41 (scm-ref/immediate 4 4 1) 42 (mov 3 4) 43 (mov 4 6) 44 (mov 6 7) 45 (mov 7 3) 46 (reset-frame 4) ;; 4 slots 47 (handle-interrupts) 48 (tail-call) L3: 49 (builtin-ref 6 0) ;; apply 50 (make-non-immediate 5 15061) ;; # 52 (mov 4 6) 53 (mov 6 5) 54 (mov 5 7) 55 (mov 7 4) 56 (reset-frame 3) ;; 3 slots 57 (handle-interrupts) 58 (tail-call) Disassembly of at #x2de8: 0 (instrument-entry 15472) at ice-9/ftw.scm:406:0 2 (assert-nargs-ee/locals 3 3) ;; 6 slots (2 args) 3 (make-non-immediate 5 15295) ;; # 5 (make-non-immediate 4 15355) ;; (# #) 7 (make-non-immediate 2 15375) ;; # 9 (make-immediate 1 772) ;; () 10 (allocate-words/immediate 0 2) 11 (scm-set!/immediate 0 0 3) 12 (scm-set!/immediate 0 1 1) 13 (allocate-words/immediate 3 2) 14 (scm-set!/immediate 3 0 1) 15 (scm-set!/immediate 3 1 0) 16 (allocate-words/immediate 1 2) 17 (scm-set!/immediate 1 0 2) 18 (scm-set!/immediate 1 1 3) 19 (make-non-immediate 3 15449) ;; ((# # (# …))) 21 (allocate-words/immediate 2 2) 22 (scm-set!/immediate 2 0 1) 23 (scm-set!/immediate 2 1 3) 24 (allocate-words/immediate 3 2) 25 (scm-set!/immediate 3 0 4) 26 (scm-set!/immediate 3 1 2) 27 (allocate-words/immediate 4 2) 28 (scm-set!/immediate 4 0 5) 29 (scm-set!/immediate 4 1 3) 30 (mov 5 4) 31 (reset-frame 1) ;; 1 slot 32 (handle-interrupts) 33 (return-values) Disassembly of file-system-fold at #x2e70: 0 (instrument-entry 15460) at ice-9/ftw.scm:413:0 2 (assert-nargs-ge 9) 3 (assert-nargs-le 10) 4 (bind-optionals 10) ;; 9 argss 5 (alloc-frame 16) ;; 16 slots 6 (immediate-tag=? 6 4095 2308) ;; undefined? at ice-9/ftw.scm:414:44 8 (jne 13) ;; -> L2 9 (static-ref 15 15435) ;; #f 11 (immediate-tag=? 15 7 0) ;; heap-object? 13 (je 7) ;; -> L1 14 (call-scm<-scmn-scmn 15 13694 14586 112);; lookup-bound-public 18 (static-set! 15 15426) ;; #f L1: 20 (scm-ref/immediate 6 15 1) L2: 21 (allocate-words/immediate 15 8) at ice-9/ftw.scm:445:2 22 (load-u64 5 0 1805) 25 (word-set!/immediate 15 0 5) 26 (scm-set!/immediate 15 1 14) 27 (scm-set!/immediate 15 2 13) 28 (scm-set!/immediate 15 3 12) 29 (scm-set!/immediate 15 4 11) 30 (scm-set!/immediate 15 5 10) 31 (scm-set!/immediate 15 6 9) 32 (scm-set!/immediate 15 7 6) 33 (make-non-immediate 14 14141) ;; "" at ice-9/ftw.scm:446:23 35 (static-ref 13 15267) ;; system-error at ice-9/ftw.scm:447:23 37 (allocate-words/immediate 12 4) 38 (load-u64 11 0 131141) 41 (word-set!/immediate 12 0 11) 42 (load-label 11 37) ;; anonymous procedure at #x7fae263f5fac 44 (word-set!/immediate 12 1 11) 45 (scm-set!/immediate 12 2 7) 46 (scm-set!/immediate 12 3 6) 47 (static-ref 3 14717) ;; #f at ice-9/ftw.scm:407:3 49 (make-non-immediate 0 15397) ;; # 51 (mov 2 13) at ice-9/ftw.scm:447:23 52 (mov 1 12) 53 (handle-interrupts) 54 (call-label 12 4 -973) ;; catch@guile at #x7fae263f5014 57 (receive 2 12 16) 59 (static-ref 12 15391) ;; #f at ice-9/ftw.scm:449:23 61 (immediate-tag=? 12 7 0) ;; heap-object? 63 (je 7) ;; -> L3 64 (call-scm<-scmn-scmn 12 13444 15388 112);; lookup-bound-public 68 (static-set! 12 15382) ;; #f L3: 70 (scm-ref/immediate 10 12 1) 71 (mov 12 13) at ice-9/ftw.scm:445:2 72 (mov 13 14) 73 (mov 14 7) 74 (mov 11 8) 75 (reset-frame 6) ;; 6 slots 76 (handle-interrupts) 77 (tail-call-label 37) ;; loop at #x7fae263f6038 Disassembly of at #x2fac: 0 (instrument-entry 15387) at ice-9/ftw.scm:447:23 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (scm-ref/immediate 1 2 3) 4 (scm-ref/immediate 2 2 2) 5 (mov 0 1) at ice-9/ftw.scm:447:43 6 (mov 1 2) 7 (mov 2 0) 8 (reset-frame 2) ;; 2 slots 9 (handle-interrupts) 10 (tail-call) Disassembly of at #x2fd8: 0 (instrument-entry 15384) at ice-9/ftw.scm:447:23 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 2) ;; 2 slots 5 (static-ref 1 15377) ;; #f at ice-9/ftw.scm:411:7 7 (handle-interrupts) at ice-9/ftw.scm:447:23 8 (tail-call-label 2) ;; system-error-errno@guile at #x7fae263f6000 Disassembly of system-error-errno@guile at #x3000: 0 (instrument-entry 15380) at ice-9/ftw.scm:447:23 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 13603 15281 112);; lookup-bound-public 9 (static-set! 1 15363) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of loop at #x3038: 0 (instrument-entry 15422) at ice-9/ftw.scm:445:2 2 (alloc-frame 25) ;; 25 slots 3 (make-non-immediate 13 14057) ;; "" at ice-9/ftw.scm:452:25 5 (static-ref 15 13971) ;; #f at ice-9/ftw.scm:452:11 7 (mov 14 22) at ice-9/ftw.scm:452:10 8 (handle-interrupts) 9 (call-label 9 3 -2345) ;; string=?@guile at #x7fae263f3bb8 12 (receive 6 9 25) 14 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:452:6 16 (jne 13) ;; -> L1 17 (make-non-immediate 13 14051) ;; "/" at ice-9/ftw.scm:454:30 19 (static-ref 15 14057) ;; #f at ice-9/ftw.scm:454:11 21 (mov 14 22) at ice-9/ftw.scm:454:10 22 (mov 12 23) 23 (handle-interrupts) 24 (call-label 9 4 -2217) ;; string-append@guile at #x7fae263f3df4 27 (receive 1 9 25) L1: 29 (static-ref 22 15343) ;; #f at ice-9/ftw.scm:457:6 31 (immediate-tag=? 22 7 0) ;; heap-object? 33 (je 7) ;; -> L2 34 (call-scm<-scmn-scmn 22 13560 15340 113);; lookup-bound-private 38 (static-set! 22 15334) ;; #f L2: 40 (scm-ref/immediate 22 22 1) 41 (mov 15 22) 42 (mov 14 21) 43 (handle-interrupts) 44 (call 9 2) 46 (receive 6 9 25) 48 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:456:4 50 (jne 537) ;; -> L23 51 (static-ref 15 14149) ;; #f at ice-9/ftw.scm:439:24 53 (mov 14 21) at ice-9/ftw.scm:439:23 54 (handle-interrupts) 55 (call-label 9 2 -2050) ;; stat:dev@guile at #x7fae263f410c 58 (receive 6 9 25) 60 (make-immediate 17 2) ;; 0 at ice-9/ftw.scm:440:30 61 (static-ref 13 14143) ;; #f at ice-9/ftw.scm:440:33 63 (mov 12 21) at ice-9/ftw.scm:440:32 64 (handle-interrupts) 65 (call-label 11 2 -2032) ;; stat:ino@guile at #x7fae263f417c 68 (receive 8 11 25) 70 (=? 17 16) at ice-9/ftw.scm:440:27 71 (jne 11) ;; -> L3 72 (static-ref 13 14134) ;; #f at ice-9/ftw.scm:441:28 74 (mov 12 23) at ice-9/ftw.scm:441:27 75 (handle-interrupts) 76 (call-label 11 2 -2029) ;; string-hash@guile at #x7fae263f41b4 79 (receive 8 11 25) 81 (j 10) ;; -> L4 L3: 82 (static-ref 13 14122) ;; #f at ice-9/ftw.scm:442:28 84 (mov 12 21) at ice-9/ftw.scm:442:27 85 (handle-interrupts) 86 (call-label 11 2 -2053) ;; stat:ino@guile at #x7fae263f417c 89 (receive 8 11 25) L4: 91 (allocate-words/immediate 15 2) at ice-9/ftw.scm:439:17 92 (scm-set!/immediate 15 0 18) 93 (scm-set!/immediate 15 1 16) 94 (static-ref 18 15288) ;; #f at ice-9/ftw.scm:439:5 96 (immediate-tag=? 18 7 0) ;; heap-object? 98 (je 7) ;; -> L5 99 (call-scm<-scmn-scmn 18 13295 15285 112);; lookup-bound-public 103 (static-set! 18 15279) ;; #f L5: 105 (scm-ref/immediate 13 18 1) 106 (mov 12 15) 107 (mov 11 19) 108 (handle-interrupts) 109 (call 11 3) 111 (receive 6 11 25) 113 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:456:4 115 (jne 467) ;; -> L22 116 (static-ref 13 14320) ;; #f at ice-9/ftw.scm:462:23 118 (mov 12 21) at ice-9/ftw.scm:462:22 119 (handle-interrupts) 120 (call-label 11 2 -1567) ;; stat:type@guile at #x7fae263f499c 123 (receive 6 11 25) 125 (static-ref 16 14257) ;; directory at ice-9/ftw.scm:462:6 127 (eq? 18 16) 128 (jne 448) ;; -> L21 129 (scm-ref/immediate 13 24 1) 130 (mov 12 23) at ice-9/ftw.scm:463:10 131 (mov 11 21) 132 (mov 10 20) 133 (handle-interrupts) 134 (call 11 4) 136 (receive 6 11 25) 138 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:463:6 140 (je 371) ;; -> L18 141 (static-ref 18 15047) ;; system-error at ice-9/ftw.scm:464:25 143 (allocate-words/immediate 16 3) 144 (load-u64 15 0 65605) 147 (word-set!/immediate 16 0 15) 148 (load-label 15 444) ;; anonymous procedure at #x7fae263f6978 150 (word-set!/immediate 16 1 15) 151 (scm-set!/immediate 16 2 23) 152 (static-ref 13 14498) ;; #f at ice-9/ftw.scm:407:3 154 (make-non-immediate 10 15238) ;; # 156 (mov 12 18) at ice-9/ftw.scm:464:25 157 (mov 11 16) 158 (handle-interrupts) 159 (call-label 11 4 -1192) ;; catch@guile at #x7fae263f5014 162 (receive 8 11 25) 164 (static-ref 12 14036) ;; #f at ice-9/ftw.scm:432:23 166 (mov 11 21) at ice-9/ftw.scm:432:22 167 (handle-interrupts) 168 (call-label 12 2 -2163) ;; stat:dev@guile at #x7fae263f410c 171 (receive 9 12 25) 173 (static-ref 11 14031) ;; #f at ice-9/ftw.scm:433:32 175 (mov 10 21) at ice-9/ftw.scm:433:31 176 (handle-interrupts) 177 (call-label 13 2 -2144) ;; stat:ino@guile at #x7fae263f417c 180 (receive 10 13 25) 182 (=? 17 14) at ice-9/ftw.scm:433:26 183 (jne 11) ;; -> L6 184 (static-ref 11 14022) ;; #f at ice-9/ftw.scm:434:27 186 (mov 10 23) at ice-9/ftw.scm:434:26 187 (handle-interrupts) 188 (call-label 13 2 -2141) ;; string-hash@guile at #x7fae263f41b4 191 (receive 7 13 25) 193 (j 10) ;; -> L7 L6: 194 (static-ref 11 14010) ;; #f at ice-9/ftw.scm:435:27 196 (mov 10 21) at ice-9/ftw.scm:435:26 197 (handle-interrupts) 198 (call-label 13 2 -2165) ;; stat:ino@guile at #x7fae263f417c 201 (receive 7 13 25) L7: 203 (allocate-words/immediate 14 2) at ice-9/ftw.scm:432:16 204 (scm-set!/immediate 14 0 15) 205 (scm-set!/immediate 14 1 17) 206 (make-immediate 10 1028) ;; #t at ice-9/ftw.scm:436:16 207 (static-ref 12 15189) ;; #f at ice-9/ftw.scm:432:5 209 (mov 11 14) at ice-9/ftw.scm:432:4 210 (mov 9 19) 211 (handle-interrupts) 212 (call-label 12 4 403) ;; vhash-cons@ice-9/vlist at #x7fae263f69d4 215 (receive 5 12 25) 217 (static-ref 17 15181) ;; #f at ice-9/ftw.scm:467:15 219 (immediate-tag=? 17 7 0) ;; heap-object? 221 (je 7) ;; -> L8 222 (call-scm<-scmn-scmn 17 13372 15178 112);; lookup-bound-public 226 (static-set! 17 15172) ;; #f L8: 228 (scm-ref/immediate 12 17 1) 229 (mov 11 16) 230 (handle-interrupts) 231 (call 12 2) 233 (receive 7 12 25) 235 (immediate-tag=? 17 3839 4) ;; false? at ice-9/ftw.scm:466:12 237 (je 260) ;; -> L17 238 (static-ref 12 13728) ;; #f at ice-9/ftw.scm:468:35 240 (mov 11 16) at ice-9/ftw.scm:468:34 241 (handle-interrupts) 242 (call-label 12 2 -2592) ;; readdir@guile at #x7fae263f3b80 245 (receive 7 12 25) 247 (scm-ref/immediate 12 24 3) 248 (mov 11 23) at ice-9/ftw.scm:469:34 249 (mov 10 21) 250 (mov 9 20) 251 (handle-interrupts) 252 (call 12 4) 254 (receive 4 12 25) 256 (make-immediate 15 772) ;; () at ice-9/ftw.scm:470:34 257 (make-non-immediate 14 13711) ;; "." at ice-9/ftw.scm:488:43 259 (make-non-immediate 13 13719) ;; ".." at ice-9/ftw.scm:489:43 261 (make-non-immediate 12 13807) ;; "/" at ice-9/ftw.scm:494:62 263 (load-u64 11 0 131141) at ice-9/ftw.scm:495:37 266 (load-label 10 363) ;; anonymous procedure at #x7fae263f6a0c 268 (make-non-immediate 9 15140) ;; # 270 (make-immediate 8 4) ;; #f at ice-9/ftw.scm:498:48 271 (eq-immediate? 17 2564) ;; # at ice-9/ftw.scm:471:23 272 (je 162) ;; -> L13 L9: 273 (instrument-loop 15149) 275 (handle-interrupts) 276 (static-ref 4 13700) ;; #f at ice-9/ftw.scm:488:28 278 (mov 3 17) at ice-9/ftw.scm:488:27 279 (mov 2 14) 280 (handle-interrupts) 281 (call-label 20 3 -2617) ;; string=?@guile at #x7fae263f3bb8 284 (receive 17 20 25) 286 (immediate-tag=? 7 3839 4) ;; false? at ice-9/ftw.scm:471:16 288 (jne 132) ;; -> L12 289 (static-ref 4 13687) ;; #f at ice-9/ftw.scm:489:28 291 (mov 3 17) at ice-9/ftw.scm:489:27 292 (mov 2 13) 293 (handle-interrupts) 294 (call-label 20 3 -2630) ;; string=?@guile at #x7fae263f3bb8 297 (receive 17 20 25) 299 (immediate-tag=? 7 3839 4) ;; false? at ice-9/ftw.scm:471:16 301 (jne 119) ;; -> L12 302 (static-ref 4 13774) ;; #f at ice-9/ftw.scm:494:38 304 (mov 3 23) at ice-9/ftw.scm:494:37 305 (mov 2 12) 306 (mov 1 17) 307 (handle-interrupts) 308 (call-label 20 4 -2501) ;; string-append@guile at #x7fae263f3df4 311 (receive 17 20 25) 313 (allocate-words/immediate 6 4) at ice-9/ftw.scm:495:37 314 (word-set!/immediate 6 0 11) 315 (word-set!/immediate 6 1 10) 316 (scm-ref/immediate 5 24 7) 317 (scm-set!/immediate 6 2 5) 318 (scm-set!/immediate 6 3 7) 319 (static-ref 3 14331) ;; #f at ice-9/ftw.scm:407:3 321 (mov 2 18) at ice-9/ftw.scm:495:37 322 (mov 1 6) 323 (mov 0 9) 324 (handle-interrupts) 325 (call-label 21 4 -1358) ;; catch@guile at #x7fae263f5014 328 (receive 18 21 25) 330 (mov 2 22) at ice-9/ftw.scm:496:29 331 (mov 1 6) 332 (handle-interrupts) 333 (call 22 2) 335 (receive 19 22 25) 337 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:496:25 339 (jne 57) ;; -> L11 340 (static-ref 2 14096) ;; #f at ice-9/ftw.scm:500:39 342 (mov 1 6) at ice-9/ftw.scm:500:38 343 (handle-interrupts) 344 (call-label 22 2 -1791) ;; stat:type@guile at #x7fae263f499c 347 (receive 19 22 25) 349 (static-ref 4 14033) ;; directory at ice-9/ftw.scm:500:33 351 (eq? 5 4) 352 (jne 21) ;; -> L10 353 (static-ref 2 13613) ;; #f at ice-9/ftw.scm:501:40 355 (mov 1 16) at ice-9/ftw.scm:501:39 356 (handle-interrupts) 357 (call-label 22 2 -2707) ;; readdir@guile at #x7fae263f3b80 360 (receive 17 22 25) 362 (allocate-words/immediate 5 2) at ice-9/ftw.scm:503:39 363 (scm-set!/immediate 5 0 17) 364 (scm-set!/immediate 5 1 6) 365 (allocate-words/immediate 17 2) 366 (scm-set!/immediate 17 0 5) 367 (scm-set!/immediate 17 1 15) 368 (eq-immediate? 7 2564) ;; # at ice-9/ftw.scm:471:23 369 (je 67) ;; -> L14 370 (mov 15 17) at ice-9/ftw.scm:501:33 371 (mov 17 7) 372 (j -99) ;; -> L9 L10: 373 (static-ref 2 13593) ;; #f at ice-9/ftw.scm:504:40 375 (mov 1 16) at ice-9/ftw.scm:504:39 376 (handle-interrupts) 377 (call-label 22 2 -2727) ;; readdir@guile at #x7fae263f3b80 380 (receive 7 22 25) 382 (scm-ref/immediate 4 24 2) 383 (mov 3 7) at ice-9/ftw.scm:505:39 384 (mov 2 6) 385 (mov 1 20) 386 (handle-interrupts) 387 (call 20 4) 389 (receive 4 20 25) 391 (eq-immediate? 17 2564) ;; # at ice-9/ftw.scm:471:23 392 (jne -119) ;; -> L9 393 (mov 7 17) at ice-9/ftw.scm:504:33 394 (mov 17 15) 395 (j 41) ;; -> L14 L11: 396 (static-ref 2 13570) ;; #f at ice-9/ftw.scm:497:36 398 (mov 1 16) at ice-9/ftw.scm:497:35 399 (handle-interrupts) 400 (call-label 22 2 -2750) ;; readdir@guile at #x7fae263f3b80 403 (receive 7 22 25) 405 (scm-ref/immediate 4 24 6) 406 (mov 3 7) at ice-9/ftw.scm:498:35 407 (mov 2 8) 408 (mov 1 6) 409 (mov 0 20) 410 (handle-interrupts) 411 (call 20 5) 413 (receive 4 20 25) 415 (eq-immediate? 17 2564) ;; # at ice-9/ftw.scm:471:23 416 (jne -143) ;; -> L9 417 (mov 7 17) at ice-9/ftw.scm:497:29 418 (mov 17 15) 419 (j 17) ;; -> L14 L12: 420 (static-ref 4 13546) ;; #f at ice-9/ftw.scm:490:30 422 (mov 3 16) at ice-9/ftw.scm:490:29 423 (handle-interrupts) 424 (call-label 20 2 -2774) ;; readdir@guile at #x7fae263f3b80 427 (receive 7 20 25) 429 (eq-immediate? 17 2564) ;; # at ice-9/ftw.scm:471:23 430 (jne -157) ;; -> L9 431 (mov 7 17) at ice-9/ftw.scm:490:23 432 (mov 17 15) 433 (j 3) ;; -> L14 L13: 434 (mov 7 17) at ice-9/ftw.scm:471:23 435 (mov 17 15) L14: 436 (static-ref 7 13550) ;; #f at ice-9/ftw.scm:473:26 438 (mov 6 16) at ice-9/ftw.scm:473:25 439 (handle-interrupts) 440 (call-label 17 2 -2762) ;; closedir@guile at #x7fae263f3bf0 443 (reset-frame 25) ;; 25 slots 444 (allocate-words/immediate 22 4) at ice-9/ftw.scm:475:38 445 (word-set!/immediate 22 0 11) 446 (load-label 18 204) ;; anonymous procedure at #x7fae263f6a60 448 (word-set!/immediate 22 1 18) 449 (scm-set!/immediate 22 2 24) 450 (scm-set!/immediate 22 3 23) 451 (allocate-words/immediate 18 2) at ice-9/ftw.scm:484:38 452 (scm-set!/immediate 18 0 20) 453 (scm-set!/immediate 18 1 19) 454 (static-ref 20 14958) ;; #f at ice-9/ftw.scm:475:33 456 (immediate-tag=? 20 7 0) ;; heap-object? 458 (je 7) ;; -> L15 459 (call-scm<-scmn-scmn 20 12967 14955 112);; lookup-bound-public 463 (static-set! 20 14949) ;; #f L15: 465 (scm-ref/immediate 20 20 1) 466 (mov 14 17) 467 (mov 17 20) 468 (mov 16 22) 469 (mov 15 18) 470 (handle-interrupts) 471 (call 7 4) 473 (receive 2 7 25) 475 (immediate-tag=? 22 7 0) ;; heap-object? at ice-9/ftw.scm:486:58 477 (jne 18) ;; -> L16 478 (heap-tag=? 22 1 0) ;; pair? 480 (jne 15) ;; -> L16 481 (scm-ref/immediate 20 22 0) 482 (scm-ref/immediate 18 24 4) 483 (mov 17 23) at ice-9/ftw.scm:486:35 484 (mov 16 21) 485 (mov 15 20) 486 (handle-interrupts) 487 (call 6 4) 489 (receive 0 6 25) 491 (scm-ref/immediate 23 22 1) at ice-9/ftw.scm:487:35 492 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:486:27 493 (handle-interrupts) 494 (return-values) L16: 495 (throw/value+data 22 14137) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:486:58 L17: 497 (scm-ref/immediate 15 24 6) 498 (mov 14 23) at ice-9/ftw.scm:509:22 499 (mov 13 21) 500 (mov 12 16) 501 (mov 11 20) 502 (handle-interrupts) 503 (call 9 5) 505 (receive 0 9 25) 507 (mov 23 19) at ice-9/ftw.scm:509:14 508 (reset-frame 2) ;; 2 slots 509 (handle-interrupts) 510 (return-values) L18: 511 (scm-ref/immediate 13 24 5) 512 (mov 12 23) at ice-9/ftw.scm:511:18 513 (mov 11 21) 514 (mov 10 20) 515 (handle-interrupts) 516 (call 11 4) 518 (receive 0 11 25) 520 (static-ref 13 13680) ;; #f at ice-9/ftw.scm:432:23 522 (mov 12 21) at ice-9/ftw.scm:432:22 523 (handle-interrupts) 524 (call-label 11 2 -2519) ;; stat:dev@guile at #x7fae263f410c 527 (receive 2 11 25) 529 (static-ref 13 13675) ;; #f at ice-9/ftw.scm:433:32 531 (mov 12 21) at ice-9/ftw.scm:433:31 532 (handle-interrupts) 533 (call-label 11 2 -2500) ;; stat:ino@guile at #x7fae263f417c 536 (receive 4 11 25) 538 (=? 17 20) at ice-9/ftw.scm:433:26 539 (jne 11) ;; -> L19 540 (static-ref 15 13666) ;; #f at ice-9/ftw.scm:434:27 542 (mov 14 23) at ice-9/ftw.scm:434:26 543 (handle-interrupts) 544 (call-label 9 2 -2497) ;; string-hash@guile at #x7fae263f41b4 547 (receive 1 9 25) 549 (j 10) ;; -> L20 L19: 550 (static-ref 15 13654) ;; #f at ice-9/ftw.scm:435:27 552 (mov 14 21) at ice-9/ftw.scm:435:26 553 (handle-interrupts) 554 (call-label 9 2 -2521) ;; stat:ino@guile at #x7fae263f417c 557 (receive 1 9 25) L20: 559 (allocate-words/immediate 21 2) at ice-9/ftw.scm:432:16 560 (scm-set!/immediate 21 0 22) 561 (scm-set!/immediate 21 1 23) 562 (make-immediate 18 1028) ;; #t at ice-9/ftw.scm:436:16 563 (static-ref 20 14833) ;; #f at ice-9/ftw.scm:432:5 565 (mov 17 19) at ice-9/ftw.scm:432:4 566 (mov 19 21) 567 (handle-interrupts) 568 (call-label 4 4 47) ;; vhash-cons@ice-9/vlist at #x7fae263f69d4 571 (receive 1 4 25) 573 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:511:10 574 (handle-interrupts) 575 (return-values) L21: 576 (scm-ref/immediate 24 24 2) 577 (mov 22 21) at ice-9/ftw.scm:515:6 578 (mov 21 20) 579 (reset-frame 4) ;; 4 slots 580 (handle-interrupts) 581 (tail-call) L22: 582 (mov 24 20) at ice-9/ftw.scm:461:6 583 (mov 23 19) 584 (reset-frame 2) ;; 2 slots 585 (handle-interrupts) 586 (return-values) L23: 587 (make-immediate 22 4) ;; #f at ice-9/ftw.scm:459:23 588 (scm-ref/immediate 24 24 6) 589 (reset-frame 5) ;; 5 slots at ice-9/ftw.scm:459:6 590 (handle-interrupts) 591 (tail-call) Disassembly of at #x3978: 0 (instrument-entry 14836) at ice-9/ftw.scm:464:25 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (static-ref 1 13369) ;; #f at ice-9/ftw.scm:464:46 5 (scm-ref/immediate 2 2 2) 6 (mov 0 1) at ice-9/ftw.scm:464:45 7 (mov 1 2) 8 (mov 2 0) 9 (reset-frame 2) ;; 2 slots 10 (handle-interrupts) 11 (tail-call-label -2967) ;; opendir@guile at #x7fae263f3b48 Disassembly of at #x39ac: 0 (instrument-entry 14829) at ice-9/ftw.scm:464:25 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 2) ;; 2 slots 5 (static-ref 1 14748) ;; #f at ice-9/ftw.scm:411:7 7 (handle-interrupts) at ice-9/ftw.scm:464:25 8 (tail-call-label -627) ;; system-error-errno@guile at #x7fae263f6000 Disassembly of vhash-cons@ice-9/vlist at #x39d4: 0 (instrument-entry 14833) at ice-9/ftw.scm:464:25 2 (immediate-tag=? 3 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 3 12774 14820 112);; lookup-bound-public 9 (static-set! 3 14772) ;; #f L1: 11 (scm-ref/immediate 3 3 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x3a0c: 0 (instrument-entry 14825) at ice-9/ftw.scm:495:37 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (scm-ref/immediate 1 2 2) 4 (scm-ref/immediate 2 2 3) 5 (mov 0 1) at ice-9/ftw.scm:495:57 6 (mov 1 2) 7 (mov 2 0) 8 (reset-frame 2) ;; 2 slots 9 (handle-interrupts) 10 (tail-call) Disassembly of at #x3a38: 0 (instrument-entry 14820) at ice-9/ftw.scm:495:37 2 (assert-nargs-ge 1) 3 (bind-rest 1) ;; 2 slots 4 (alloc-frame 2) ;; 2 slots 5 (static-ref 1 14713) ;; #f at ice-9/ftw.scm:411:7 7 (handle-interrupts) at ice-9/ftw.scm:495:37 8 (tail-call-label -662) ;; system-error-errno@guile at #x7fae263f6000 Disassembly of at #x3a60: 0 (instrument-entry 14826) at ice-9/ftw.scm:475:38 2 (assert-nargs-ee/locals 3 2) ;; 5 slots (2 args) 3 (allocate-words/immediate 1 6) at ice-9/ftw.scm:477:44 4 (load-u64 0 0 262213) 7 (word-set!/immediate 1 0 0) 8 (load-label 0 26) ;; anonymous procedure at #x7fae263f6ae8 10 (word-set!/immediate 1 1 0) 11 (scm-ref/immediate 0 4 2) 12 (scm-set!/immediate 1 2 0) 13 (scm-ref/immediate 4 4 3) 14 (scm-set!/immediate 1 3 4) 15 (scm-set!/immediate 1 4 3) 16 (scm-set!/immediate 1 5 2) 17 (static-ref 4 14799) ;; #f at ice-9/ftw.scm:483:42 19 (immediate-tag=? 4 7 0) ;; heap-object? 21 (je 7) ;; -> L1 22 (call-scm<-scmn-scmn 4 12922 14796 113);; lookup-bound-private 26 (static-set! 4 14790) ;; #f L1: 28 (scm-ref/immediate 2 4 1) 29 (builtin-ref 4 3) ;; call-with-values at ice-9/ftw.scm:476:40 30 (mov 3 1) 31 (reset-frame 3) ;; 3 slots 32 (handle-interrupts) 33 (tail-call) Disassembly of at #x3ae8: 0 (instrument-entry 14798) at ice-9/ftw.scm:477:44 2 (assert-nargs-ee/locals 1 6) ;; 7 slots (0 args) 3 (scm-ref/immediate 5 6 4) 4 (immediate-tag=? 5 7 0) ;; heap-object? at ice-9/ftw.scm:478:52 6 (jne 29) ;; -> L2 7 (heap-tag=? 5 1 0) ;; pair? 9 (jne 26) ;; -> L2 10 (scm-ref/immediate 4 5 0) 11 (scm-ref/immediate 5 5 1) at ice-9/ftw.scm:480:52 12 (scm-ref/immediate 3 6 5) 13 (immediate-tag=? 3 7 0) ;; heap-object? at ice-9/ftw.scm:481:52 15 (jne 18) ;; -> L1 16 (heap-tag=? 3 1 0) ;; pair? 18 (jne 15) ;; -> L1 19 (scm-ref/immediate 2 3 0) 20 (scm-ref/immediate 3 3 1) at ice-9/ftw.scm:482:52 21 (scm-ref/immediate 1 6 2) 22 (scm-ref/immediate 6 6 3) 23 (mov 0 1) at ice-9/ftw.scm:478:46 24 (mov 1 3) 25 (mov 3 5) 26 (mov 5 4) 27 (mov 4 6) 28 (mov 6 0) 29 (reset-frame 6) ;; 6 slots 30 (handle-interrupts) 31 (tail-call-label -715) ;; loop at #x7fae263f6038 L1: 33 (throw/value+data 3 13915) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:481:52 L2: 35 (throw/value+data 5 13913) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:478:52 Disassembly of file-system-tree at #x3b7c: 0 (instrument-entry 14801) at ice-9/ftw.scm:517:0 2 (assert-nargs-ge 2) 3 (assert-nargs-le 4) 4 (bind-optionals 4) ;; 3 argss 5 (alloc-frame 19) ;; 19 slots 6 (immediate-tag=? 16 4095 2308) ;; undefined? at ice-9/ftw.scm:518:46 8 (jne 3) ;; -> L1 9 (make-non-immediate 16 14758) ;; # L1: 11 (immediate-tag=? 15 4095 2308) ;; undefined? at ice-9/ftw.scm:519:44 13 (jne 13) ;; -> L3 14 (static-ref 18 14595) ;; #f 16 (immediate-tag=? 18 7 0) ;; heap-object? 18 (je 7) ;; -> L2 19 (call-scm<-scmn-scmn 18 12854 13746 112);; lookup-bound-public 23 (static-set! 18 14586) ;; #f L2: 25 (scm-ref/immediate 15 18 1) L3: 26 (allocate-words/immediate 18 3) at ice-9/ftw.scm:529:2 27 (load-u64 14 0 65605) 30 (word-set!/immediate 18 0 14) 31 (load-label 13 106) ;; enter?* at #x7fae263f6da0 33 (word-set!/immediate 18 1 13) 34 (scm-set!/immediate 18 2 16) 35 (allocate-words/immediate 16 3) at ice-9/ftw.scm:546:2 36 (word-set!/immediate 16 0 14) 37 (load-label 14 107) ;; error at #x7fae263f6dbc 39 (word-set!/immediate 16 1 14) 40 (scm-set!/immediate 16 2 17) 41 (make-non-immediate 14 2888) ;; (()) at ice-9/ftw.scm:551:59 43 (make-immediate 13 4) ;; #f 44 (make-non-immediate 7 14727) ;; # 46 (make-non-immediate 6 14729) ;; # 48 (make-non-immediate 5 14731) ;; # 50 (make-non-immediate 4 14721) ;; # 52 (mov 9 13) at ice-9/ftw.scm:551:2 53 (mov 8 18) 54 (mov 3 16) 55 (mov 2 14) 56 (mov 1 17) 57 (mov 0 15) 58 (handle-interrupts) 59 (call-label 9 10 -894) ;; file-system-fold at #x7fae263f5e70 62 (receive 0 9 19) 64 (immediate-tag=? 18 7 0) ;; heap-object? 66 (jne 47) ;; -> L6 67 (heap-tag=? 18 1 0) ;; pair? 69 (jne 44) ;; -> L6 70 (scm-ref/immediate 17 18 1) 71 (immediate-tag=? 17 3583 260) ;; null? 73 (jne 40) ;; -> L6 74 (scm-ref/immediate 17 18 0) 75 (immediate-tag=? 17 7 0) ;; heap-object? 77 (jne 12) ;; -> L4 78 (heap-tag=? 17 1 0) ;; pair? 80 (jne 9) ;; -> L4 81 (scm-ref/immediate 16 17 1) 82 (immediate-tag=? 16 3583 260) ;; null? 84 (jne 5) ;; -> L4 85 (scm-ref/immediate 18 17 0) 86 (reset-frame 1) ;; 1 slot 87 (handle-interrupts) 88 (return-values) L4: 89 (immediate-tag=? 17 3583 260) ;; null? 91 (jne 5) ;; -> L5 92 (mov 18 13) at ice-9/ftw.scm:554:14 93 (reset-frame 1) ;; 1 slot 94 (handle-interrupts) 95 (return-values) L5: 96 (static-ref 17 14695) ;; match-error at ice-9/ftw.scm:551:2 98 (make-non-immediate 16 12539) ;; "match" at ice-9/match.upstream.scm:301:27 100 (make-non-immediate 15 14693) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 102 (make-immediate 14 772) ;; () at ice-9/ftw.scm:551:2 103 (allocate-words/immediate 13 2) 104 (scm-set!/immediate 13 0 18) 105 (scm-set!/immediate 13 1 14) 106 (allocate-words/immediate 18 2) 107 (scm-set!/immediate 18 0 15) 108 (scm-set!/immediate 18 1 13) 109 (allocate-words/immediate 15 2) 110 (scm-set!/immediate 15 0 16) 111 (scm-set!/immediate 15 1 18) 112 (throw 17 15) L6: 113 (static-ref 17 14678) ;; match-error 115 (make-non-immediate 16 12522) ;; "match" at ice-9/match.upstream.scm:301:27 117 (make-non-immediate 15 14676) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 119 (make-immediate 14 772) ;; () at ice-9/ftw.scm:551:2 120 (allocate-words/immediate 13 2) 121 (scm-set!/immediate 13 0 18) 122 (scm-set!/immediate 13 1 14) 123 (allocate-words/immediate 18 2) 124 (scm-set!/immediate 18 0 15) 125 (scm-set!/immediate 18 1 13) 126 (allocate-words/immediate 15 2) 127 (scm-set!/immediate 15 0 16) 128 (scm-set!/immediate 15 1 18) 129 (throw 17 15) Disassembly of at #x3d84: 0 (instrument-entry 14677) at ice-9/ftw.scm:518:46 2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args) 3 (make-immediate 2 1028) ;; #t at ice-9/ftw.scm:518:60 4 (reset-frame 1) ;; 1 slot 5 (handle-interrupts) 6 (return-values) Disassembly of enter?* at #x3da0: 0 (instrument-entry 14676) at ice-9/ftw.scm:529:2 2 (assert-nargs-ee/locals 4 0) ;; 4 slots (3 args) 3 (scm-ref/immediate 3 3 2) 4 (reset-frame 3) ;; 3 slots at ice-9/ftw.scm:530:4 5 (handle-interrupts) 6 (tail-call) Disassembly of error at #x3dbc: 0 (instrument-entry 14675) at ice-9/ftw.scm:546:2 2 (assert-nargs-ee/locals 5 6) ;; 11 slots (4 args) 3 (static-ref 7 13108) ;; #f at ice-9/ftw.scm:547:9 5 (scm-ref/immediate 0 10 2) 6 (mov 2 7) at ice-9/ftw.scm:547:8 7 (mov 1 9) 8 (handle-interrupts) 9 (call-label 8 3 -3210) ;; string=?@guile at #x7fae263f3bb8 12 (receive 0 8 11) 14 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:547:4 16 (jne 7) ;; -> L1 17 (make-immediate 10 4) ;; #f 18 (mov 7 6) at ice-9/ftw.scm:549:8 19 (reset-frame 4) ;; 4 slots 20 (handle-interrupts) 21 (tail-call-label 6) ;; leaf at #x7fae263f6e28 L1: 23 (mov 10 6) 24 (reset-frame 1) ;; 1 slot 25 (handle-interrupts) 26 (return-values) Disassembly of leaf at #x3e28: 0 (instrument-entry 14666) at ice-9/ftw.scm:531:2 2 (alloc-frame 11) ;; 11 slots 3 (immediate-tag=? 7 7 0) ;; heap-object? at ice-9/ftw.scm:532:4 5 (jne 97) ;; -> L4 6 (heap-tag=? 7 1 0) ;; pair? 8 (jne 94) ;; -> L4 9 (scm-ref/immediate 10 7 0) 10 (scm-ref/immediate 6 7 1) 11 (static-ref 5 14643) ;; #f 13 (immediate-tag=? 5 7 0) ;; heap-object? 15 (je 7) ;; -> L1 16 (call-scm<-scmn-scmn 5 12686 14640 113);; lookup-bound-private 20 (static-set! 5 14634) ;; #f L1: 22 (scm-ref/immediate 5 5 1) 23 (mov 1 5) 24 (mov 0 10) 25 (handle-interrupts) 26 (call 9 2) 28 (receive 6 9 11) 30 (immediate-tag=? 4 3839 4) ;; false? 32 (je 53) ;; -> L3 33 (mov 2 5) 34 (mov 1 6) 35 (handle-interrupts) 36 (call 8 2) 38 (receive 5 8 11) 40 (immediate-tag=? 5 3839 4) ;; false? 42 (je 26) ;; -> L2 43 (static-ref 2 14621) ;; #f at ice-9/ftw.scm:534:26 45 (mov 1 9) at ice-9/ftw.scm:534:25 46 (handle-interrupts) 47 (call-label 8 2 72) ;; basename@guile at #x7fae263f7004 50 (receive 1 8 11) 52 (make-immediate 7 772) ;; () at ice-9/ftw.scm:534:13 53 (allocate-words/immediate 5 2) 54 (scm-set!/immediate 5 0 8) 55 (scm-set!/immediate 5 1 7) 56 (allocate-words/immediate 8 2) 57 (scm-set!/immediate 8 0 9) 58 (scm-set!/immediate 8 1 5) 59 (allocate-words/immediate 9 2) 60 (scm-set!/immediate 9 0 8) 61 (scm-set!/immediate 9 1 10) 62 (allocate-words/immediate 10 2) at ice-9/ftw.scm:534:7 63 (scm-set!/immediate 10 0 9) 64 (scm-set!/immediate 10 1 6) 65 (reset-frame 1) ;; 1 slot 66 (handle-interrupts) 67 (return-values) L2: 68 (static-ref 10 14552) ;; match-error at ice-9/ftw.scm:532:4 70 (make-non-immediate 9 12396) ;; "match" at ice-9/match.upstream.scm:301:27 72 (make-non-immediate 8 14550) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 74 (make-immediate 6 772) ;; () at ice-9/ftw.scm:532:4 75 (allocate-words/immediate 5 2) 76 (scm-set!/immediate 5 0 7) 77 (scm-set!/immediate 5 1 6) 78 (allocate-words/immediate 7 2) 79 (scm-set!/immediate 7 0 8) 80 (scm-set!/immediate 7 1 5) 81 (allocate-words/immediate 8 2) 82 (scm-set!/immediate 8 0 9) 83 (scm-set!/immediate 8 1 7) 84 (throw 10 8) L3: 85 (static-ref 10 14535) ;; match-error 87 (make-non-immediate 9 12379) ;; "match" at ice-9/match.upstream.scm:301:27 89 (make-non-immediate 8 14533) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 91 (make-immediate 6 772) ;; () at ice-9/ftw.scm:532:4 92 (allocate-words/immediate 5 2) 93 (scm-set!/immediate 5 0 7) 94 (scm-set!/immediate 5 1 6) 95 (allocate-words/immediate 7 2) 96 (scm-set!/immediate 7 0 8) 97 (scm-set!/immediate 7 1 5) 98 (allocate-words/immediate 8 2) 99 (scm-set!/immediate 8 0 9) 100 (scm-set!/immediate 8 1 7) 101 (throw 10 8) L4: 102 (static-ref 10 14518) ;; match-error 104 (make-non-immediate 9 12362) ;; "match" at ice-9/match.upstream.scm:301:27 106 (make-non-immediate 8 14516) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 108 (make-immediate 6 772) ;; () at ice-9/ftw.scm:532:4 109 (allocate-words/immediate 5 2) 110 (scm-set!/immediate 5 0 7) 111 (scm-set!/immediate 5 1 6) 112 (allocate-words/immediate 7 2) 113 (scm-set!/immediate 7 0 8) 114 (scm-set!/immediate 7 1 5) 115 (allocate-words/immediate 8 2) 116 (scm-set!/immediate 8 0 9) 117 (scm-set!/immediate 8 1 7) 118 (throw 10 8) Disassembly of basename@guile at #x4004: 0 (instrument-entry 14561) at ice-9/ftw.scm:532:4 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 12578 14548 112);; lookup-bound-public 9 (static-set! 1 14536) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of leaf at #x403c: 0 (instrument-entry 14553) at ice-9/ftw.scm:531:2 2 (assert-nargs-ee/locals 4 0) ;; 4 slots (3 args) 3 (handle-interrupts) 4 (tail-call-label -137) ;; leaf at #x7fae263f6e28 Disassembly of down at #x4054: 0 (instrument-entry 14553) at ice-9/ftw.scm:536:2 2 (assert-nargs-ee/locals 4 0) ;; 4 slots (3 args) 3 (make-immediate 3 772) ;; () at ice-9/ftw.scm:537:10 4 (allocate-words/immediate 2 2) at ice-9/ftw.scm:537:4 5 (scm-set!/immediate 2 0 3) 6 (scm-set!/immediate 2 1 0) 7 (mov 3 2) 8 (reset-frame 1) ;; 1 slot 9 (handle-interrupts) 10 (return-values) Disassembly of up at #x4080: 0 (instrument-entry 14548) at ice-9/ftw.scm:538:2 2 (assert-nargs-ee/locals 4 8) ;; 12 slots (3 args) 3 (immediate-tag=? 8 7 0) ;; heap-object? at ice-9/ftw.scm:539:4 5 (jne 148) ;; -> L6 6 (heap-tag=? 8 1 0) ;; pair? 8 (jne 145) ;; -> L6 9 (scm-ref/immediate 11 8 0) 10 (scm-ref/immediate 7 8 1) 11 (static-ref 6 14493) ;; #f 13 (immediate-tag=? 6 7 0) ;; heap-object? 15 (je 7) ;; -> L1 16 (call-scm<-scmn-scmn 6 12536 14490 113);; lookup-bound-private 20 (static-set! 6 14484) ;; #f L1: 22 (scm-ref/immediate 6 6 1) 23 (mov 2 6) 24 (mov 1 11) 25 (handle-interrupts) 26 (call 9 2) 28 (receive 6 9 12) 30 (immediate-tag=? 5 3839 4) ;; false? 32 (je 104) ;; -> L5 33 (immediate-tag=? 7 7 0) ;; heap-object? 35 (jne 84) ;; -> L4 36 (heap-tag=? 7 1 0) ;; pair? 38 (jne 81) ;; -> L4 39 (scm-ref/immediate 5 7 0) 40 (scm-ref/immediate 7 7 1) 41 (mov 1 6) 42 (mov 0 5) 43 (handle-interrupts) 44 (call 10 2) 46 (receive 7 10 12) 48 (immediate-tag=? 4 3839 4) ;; false? 50 (je 52) ;; -> L3 51 (mov 1 6) 52 (mov 0 7) 53 (handle-interrupts) 54 (call 10 2) 56 (receive 5 10 12) 58 (immediate-tag=? 6 3839 4) ;; false? 60 (je 25) ;; -> L2 61 (static-ref 1 14453) ;; #f at ice-9/ftw.scm:541:26 63 (mov 0 10) at ice-9/ftw.scm:541:25 64 (handle-interrupts) 65 (call-label 10 2 -96) ;; basename@guile at #x7fae263f7004 68 (receive 1 10 12) 70 (allocate-words/immediate 8 2) at ice-9/ftw.scm:541:41 71 (scm-set!/immediate 8 0 9) 72 (scm-set!/immediate 8 1 11) 73 (allocate-words/immediate 11 2) at ice-9/ftw.scm:541:13 74 (scm-set!/immediate 11 0 10) 75 (scm-set!/immediate 11 1 8) 76 (allocate-words/immediate 10 2) 77 (scm-set!/immediate 10 0 11) 78 (scm-set!/immediate 10 1 5) 79 (allocate-words/immediate 11 2) at ice-9/ftw.scm:541:7 80 (scm-set!/immediate 11 0 10) 81 (scm-set!/immediate 11 1 7) 82 (reset-frame 1) ;; 1 slot 83 (handle-interrupts) 84 (return-values) L2: 85 (static-ref 11 14385) ;; match-error at ice-9/ftw.scm:539:4 87 (make-non-immediate 10 12229) ;; "match" at ice-9/match.upstream.scm:301:27 89 (make-non-immediate 9 14383) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 91 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4 92 (allocate-words/immediate 6 2) 93 (scm-set!/immediate 6 0 8) 94 (scm-set!/immediate 6 1 7) 95 (allocate-words/immediate 8 2) 96 (scm-set!/immediate 8 0 9) 97 (scm-set!/immediate 8 1 6) 98 (allocate-words/immediate 9 2) 99 (scm-set!/immediate 9 0 10) 100 (scm-set!/immediate 9 1 8) 101 (throw 11 9) L3: 102 (static-ref 11 14368) ;; match-error 104 (make-non-immediate 10 12212) ;; "match" at ice-9/match.upstream.scm:301:27 106 (make-non-immediate 9 14366) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 108 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4 109 (allocate-words/immediate 6 2) 110 (scm-set!/immediate 6 0 8) 111 (scm-set!/immediate 6 1 7) 112 (allocate-words/immediate 8 2) 113 (scm-set!/immediate 8 0 9) 114 (scm-set!/immediate 8 1 6) 115 (allocate-words/immediate 9 2) 116 (scm-set!/immediate 9 0 10) 117 (scm-set!/immediate 9 1 8) 118 (throw 11 9) L4: 119 (static-ref 11 14351) ;; match-error 121 (make-non-immediate 10 12195) ;; "match" at ice-9/match.upstream.scm:301:27 123 (make-non-immediate 9 14349) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 125 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4 126 (allocate-words/immediate 6 2) 127 (scm-set!/immediate 6 0 8) 128 (scm-set!/immediate 6 1 7) 129 (allocate-words/immediate 8 2) 130 (scm-set!/immediate 8 0 9) 131 (scm-set!/immediate 8 1 6) 132 (allocate-words/immediate 9 2) 133 (scm-set!/immediate 9 0 10) 134 (scm-set!/immediate 9 1 8) 135 (throw 11 9) L5: 136 (static-ref 11 14334) ;; match-error 138 (make-non-immediate 10 12178) ;; "match" at ice-9/match.upstream.scm:301:27 140 (make-non-immediate 9 14332) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 142 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4 143 (allocate-words/immediate 6 2) 144 (scm-set!/immediate 6 0 8) 145 (scm-set!/immediate 6 1 7) 146 (allocate-words/immediate 8 2) 147 (scm-set!/immediate 8 0 9) 148 (scm-set!/immediate 8 1 6) 149 (allocate-words/immediate 9 2) 150 (scm-set!/immediate 9 0 10) 151 (scm-set!/immediate 9 1 8) 152 (throw 11 9) L6: 153 (static-ref 11 14317) ;; match-error 155 (make-non-immediate 10 12161) ;; "match" at ice-9/match.upstream.scm:301:27 157 (make-non-immediate 9 14315) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35 159 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4 160 (allocate-words/immediate 6 2) 161 (scm-set!/immediate 6 0 8) 162 (scm-set!/immediate 6 1 7) 163 (allocate-words/immediate 8 2) 164 (scm-set!/immediate 8 0 9) 165 (scm-set!/immediate 8 1 6) 166 (allocate-words/immediate 9 2) 167 (scm-set!/immediate 9 0 10) 168 (scm-set!/immediate 9 1 8) 169 (throw 11 9) Disassembly of scandir at #x4328: 0 (instrument-entry 14398) at ice-9/ftw.scm:556:0 2 (assert-nargs-ge 2) 3 (assert-nargs-le 4) 4 (bind-optionals 4) ;; 3 argss 5 (alloc-frame 11) ;; 11 slots 6 (immediate-tag=? 8 4095 2308) ;; undefined? at ice-9/ftw.scm:556:43 8 (jne 11) ;; -> L1 9 (make-immediate 2 1028) ;; #t at ice-9/ftw.scm:556:50 10 (static-ref 3 14374) ;; #f at ice-9/ftw.scm:556:44 12 (handle-interrupts) at ice-9/ftw.scm:556:43 13 (call-label 7 2 77) ;; const@guile at #x7fae263f7490 16 (receive 0 7 11) 18 (j 2) ;; -> L2 L1: 19 (mov 10 8) L2: 20 (immediate-tag=? 7 4095 2308) ;; undefined? at ice-9/ftw.scm:557:43 22 (jne 13) ;; -> L4 23 (static-ref 8 14363) ;; #f 25 (immediate-tag=? 8 7 0) ;; heap-object? 27 (je 7) ;; -> L3 28 (call-scm<-scmn-scmn 8 12304 12308 112);; lookup-bound-public 32 (static-set! 8 14354) ;; #f L3: 34 (scm-ref/immediate 7 8 1) L4: 35 (static-ref 8 13941) ;; system-error at ice-9/ftw.scm:569:11 37 (allocate-words/immediate 6 3) at ice-9/ftw.scm:570:6 38 (load-u64 5 0 65605) 41 (word-set!/immediate 6 0 5) 42 (load-label 5 62) ;; anonymous procedure at #x7fae263f74c8 44 (word-set!/immediate 6 1 5) 45 (scm-set!/immediate 6 2 9) 46 (make-immediate 1 4) ;; #f at ice-9/ftw.scm:572:13 47 (static-ref 2 14337) ;; #f at ice-9/ftw.scm:572:7 49 (handle-interrupts) at ice-9/ftw.scm:572:6 50 (call-label 8 2 40) ;; const@guile at #x7fae263f7490 53 (receive 10 8 11) 55 (static-ref 3 13383) ;; #f at ice-9/ftw.scm:569:5 57 (mov 2 8) at ice-9/ftw.scm:569:4 58 (mov 1 6) 59 (handle-interrupts) 60 (call-label 7 4 -2305) ;; catch@guile at #x7fae263f5014 63 (receive 1 7 11) 65 (allocate-words/immediate 8 4) at ice-9/ftw.scm:575:9 66 (load-u64 6 0 131141) 69 (word-set!/immediate 8 0 6) 70 (load-label 6 47) ;; anonymous procedure at #x7fae263f74fc 72 (word-set!/immediate 8 1 6) 73 (scm-set!/immediate 8 2 10) 74 (scm-set!/immediate 8 3 7) 75 (static-ref 10 14313) ;; #f at ice-9/ftw.scm:574:3 77 (immediate-tag=? 10 7 0) ;; heap-object? 79 (je 7) ;; -> L5 80 (call-scm<-scmn-scmn 10 12302 14310 112);; lookup-bound-public 84 (static-set! 10 14304) ;; #f L5: 86 (scm-ref/immediate 10 10 1) 87 (reset-frame 3) ;; 3 slots 88 (handle-interrupts) 89 (tail-call) Disassembly of const@guile at #x4490: 0 (instrument-entry 14322) at ice-9/ftw.scm:574:3 2 (immediate-tag=? 1 7 0) ;; heap-object? 4 (je 7) ;; -> L1 5 (call-scm<-scmn-scmn 1 12287 14309 112);; lookup-bound-public 9 (static-set! 1 14285) ;; #f L1: 11 (scm-ref/immediate 1 1 1) 12 (handle-interrupts) 13 (tail-call) Disassembly of at #x44c8: 0 (instrument-entry 14314) at ice-9/ftw.scm:570:6 2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args) 3 (static-ref 1 12645) ;; #f at ice-9/ftw.scm:571:9 5 (scm-ref/immediate 2 2 2) 6 (mov 0 1) at ice-9/ftw.scm:571:8 7 (mov 1 2) 8 (mov 2 0) 9 (reset-frame 2) ;; 2 slots 10 (handle-interrupts) 11 (tail-call-label -3691) ;; opendir@guile at #x7fae263f3b48 Disassembly of at #x44fc: 0 (instrument-entry 14317) at ice-9/ftw.scm:575:9 2 (assert-nargs-ee/locals 2 9) ;; 11 slots (1 arg) 3 (static-ref 5 12634) ;; #f at ice-9/ftw.scm:576:31 5 (mov 4 9) at ice-9/ftw.scm:576:30 6 (handle-interrupts) 7 (call-label 5 2 -3686) ;; readdir@guile at #x7fae263f3b80 10 (receive 2 5 11) 12 (make-immediate 7 772) ;; () at ice-9/ftw.scm:577:31 13 (eq-immediate? 8 2564) ;; # at ice-9/ftw.scm:578:17 14 (je 61) ;; -> L7 15 (static-ref 3 12622) ;; #f at ice-9/ftw.scm:582:24 17 (mov 2 9) at ice-9/ftw.scm:582:23 18 (handle-interrupts) 19 (call-label 7 2 -3698) ;; readdir@guile at #x7fae263f3b80 22 (receive 4 7 11) 24 (scm-ref/immediate 2 10 2) 25 (mov 1 8) at ice-9/ftw.scm:583:27 26 (handle-interrupts) 27 (call 8 2) 29 (receive 5 8 11) 31 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:583:23 33 (je 5) ;; -> L1 34 (allocate-words/immediate 5 2) at ice-9/ftw.scm:584:27 35 (scm-set!/immediate 5 0 8) 36 (scm-set!/immediate 5 1 7) 37 (j 2) ;; -> L2 L1: 38 (mov 5 7) L2: 39 (eq-immediate? 6 2564) ;; # at ice-9/ftw.scm:578:17 40 (je 33) ;; -> L6 L3: 41 (instrument-loop 14276) 43 (handle-interrupts) 44 (static-ref 1 12593) ;; #f at ice-9/ftw.scm:582:24 46 (mov 0 9) at ice-9/ftw.scm:582:23 47 (handle-interrupts) 48 (call-label 9 2 -3727) ;; readdir@guile at #x7fae263f3b80 51 (receive 2 9 11) 53 (scm-ref/immediate 1 10 2) 54 (mov 0 6) at ice-9/ftw.scm:583:27 55 (handle-interrupts) 56 (call 9 2) 58 (receive 3 9 11) 60 (immediate-tag=? 7 3839 4) ;; false? at ice-9/ftw.scm:583:23 62 (je 5) ;; -> L4 63 (allocate-words/immediate 7 2) at ice-9/ftw.scm:584:27 64 (scm-set!/immediate 7 0 6) 65 (scm-set!/immediate 7 1 5) 66 (j 2) ;; -> L5 L4: 67 (mov 7 5) L5: 68 (eq-immediate? 8 2564) ;; # at ice-9/ftw.scm:578:17 69 (je 6) ;; -> L7 70 (mov 6 8) at ice-9/ftw.scm:582:17 71 (mov 5 7) 72 (j -31) ;; -> L3 L6: 73 (mov 8 6) at ice-9/ftw.scm:578:17 74 (mov 7 5) L7: 75 (static-ref 3 12582) ;; #f at ice-9/ftw.scm:580:20 77 (mov 2 9) at ice-9/ftw.scm:580:19 78 (handle-interrupts) 79 (call-label 7 2 -3730) ;; closedir@guile at #x7fae263f3bf0 82 (reset-frame 11) ;; 11 slots 83 (static-ref 9 14224) ;; #f at ice-9/ftw.scm:581:20 85 (immediate-tag=? 9 7 0) ;; heap-object? 87 (je 7) ;; -> L8 88 (call-scm<-scmn-scmn 9 12177 14221 112);; lookup-bound-public 92 (static-set! 9 14215) ;; #f L8: 94 (scm-ref/immediate 9 9 1) 95 (scm-ref/immediate 8 10 3) 96 (mov 10 9) 97 (mov 9 7) 98 (reset-frame 3) ;; 3 slots 99 (handle-interrupts) 100 (tail-call) Disassembly of at #x4690: 0 (instrument-entry 14276) at ice-9/ftw.scm:581:20 2 (assert-nargs-ee/locals 1 1) ;; 2 slots (0 args) 3 (static-patch! 11867 1315) 6 (make-non-immediate 1 11862) ;; "ice-9" 8 (call-scm<-scm 1 1 14) ;; string->symbol 10 (static-set! 1 11866) ;; ice-9 12 (static-set! 1 12102) ;; ice-9 14 (static-set! 1 11950) ;; ice-9 16 (static-set! 1 11926) ;; ice-9 18 (static-set! 1 11874) ;; ice-9 20 (static-patch! 11860 1304) 23 (make-non-immediate 1 11855) ;; "ftw" 25 (call-scm<-scm 1 1 14) ;; string->symbol 27 (static-set! 1 11859) ;; ftw 29 (static-set! 1 12055) ;; ftw 31 (static-set! 1 11857) ;; ftw 33 (static-patch! 11861 11855) 36 (static-patch! 11862 1294) 39 (make-non-immediate 1 11857) ;; "filename" 41 (call-scm<-scm 1 1 14) ;; string->symbol 43 (static-set! 1 11861) ;; filename 45 (static-ref 1 11859) ;; filename 47 (call-scm<-scm 1 1 15) ;; symbol->keyword 49 (static-set! 1 11857) ;; #:filename 51 (static-patch! 11859 1287) 54 (static-patch! 11864 1292) 57 (make-non-immediate 1 11859) ;; "imports" 59 (call-scm<-scm 1 1 14) ;; string->symbol 61 (static-set! 1 11863) ;; imports 63 (static-ref 1 11861) ;; imports 65 (call-scm<-scm 1 1 15) ;; symbol->keyword 67 (static-set! 1 11859) ;; #:imports 69 (static-patch! 11861 1283) 72 (make-non-immediate 1 11856) ;; "match" 74 (call-scm<-scm 1 1 14) ;; string->symbol 76 (static-set! 1 11860) ;; match 78 (static-set! 1 11860) ;; match 80 (static-patch! 11864 11858) 83 (static-patch! 11863 11859) 86 (static-patch! 11926 11860) 89 (static-patch! 11863 1269) 92 (make-non-immediate 1 11858) ;; "vlist" 94 (call-scm<-scm 1 1 14) ;; string->symbol 96 (static-set! 1 11862) ;; vlist 98 (static-set! 1 11862) ;; vlist 100 (static-patch! 11866 11860) 103 (static-patch! 11865 11861) 106 (static-patch! 11902 11862) 109 (static-patch! 11865 1255) 112 (make-non-immediate 1 11860) ;; "srfi" 114 (call-scm<-scm 1 1 14) ;; string->symbol 116 (static-set! 1 11864) ;; srfi 118 (static-set! 1 11878) ;; srfi 120 (static-patch! 11864 1250) 123 (make-non-immediate 1 11859) ;; "srfi-1" 125 (call-scm<-scm 1 1 14) ;; string->symbol 127 (static-set! 1 11863) ;; srfi-1 129 (static-set! 1 11863) ;; srfi-1 131 (static-patch! 11867 11861) 134 (static-patch! 11866 11862) 137 (static-patch! 11867 11863) 140 (static-patch! 11870 11864) 143 (static-patch! 11871 11865) 146 (static-patch! 11872 1230) 149 (make-non-immediate 1 11867) ;; "exports" 151 (call-scm<-scm 1 1 14) ;; string->symbol 153 (static-set! 1 11871) ;; exports 155 (static-ref 1 11869) ;; exports 157 (call-scm<-scm 1 1 15) ;; symbol->keyword 159 (static-set! 1 11867) ;; #:exports 161 (static-patch! 11869 1221) 164 (make-non-immediate 1 11864) ;; "nftw" 166 (call-scm<-scm 1 1 14) ;; string->symbol 168 (static-set! 1 11868) ;; nftw 170 (static-set! 1 11910) ;; nftw 172 (static-patch! 11868 1216) 175 (make-non-immediate 1 11863) ;; "file-system-fold" 177 (call-scm<-scm 1 1 14) ;; string->symbol 179 (static-set! 1 11867) ;; file-system-fold 181 (static-set! 1 11895) ;; file-system-fold 183 (static-patch! 11867 1215) 186 (make-non-immediate 1 11862) ;; "file-system-tree" 188 (call-scm<-scm 1 1 14) ;; string->symbol 190 (static-set! 1 11866) ;; file-system-tree 192 (static-set! 1 11880) ;; file-system-tree 194 (static-patch! 11866 1214) 197 (make-non-immediate 1 11861) ;; "scandir" 199 (call-scm<-scm 1 1 14) ;; string->symbol 201 (static-set! 1 11865) ;; scandir 203 (static-set! 1 11865) ;; scandir 205 (static-patch! 11869 11863) 208 (static-patch! 11870 11864) 211 (static-patch! 11871 11865) 214 (static-patch! 11872 11866) 217 (static-patch! 11873 1197) 220 (make-non-immediate 1 11868) ;; "autoloads" 222 (call-scm<-scm 1 1 14) ;; string->symbol 224 (static-set! 1 11872) ;; autoloads 226 (static-ref 1 11870) ;; autoloads 228 (call-scm<-scm 1 1 15) ;; symbol->keyword 230 (static-set! 1 11868) ;; #:autoloads 232 (static-patch! 11870 1190) 235 (make-non-immediate 1 11865) ;; "i18n" 237 (call-scm<-scm 1 1 14) ;; string->symbol 239 (static-set! 1 11869) ;; i18n 241 (static-set! 1 11869) ;; i18n 243 (static-patch! 11873 11867) 246 (static-patch! 11890 11868) 249 (static-patch! 11871 1179) 252 (make-non-immediate 1 11866) ;; "string-localesymbol 256 (static-set! 1 11870) ;; string-localesymbol 273 (static-set! 1 11875) ;; declarative? 275 (static-ref 1 11873) ;; declarative? 277 (call-scm<-scm 1 1 15) ;; symbol->keyword 279 (static-set! 1 11871) ;; #:declarative? 281 (static-patch! 11875 1163) 284 (make-non-immediate 1 11870) ;; "guile" 286 (call-scm<-scm 1 1 14) ;; string->symbol 288 (static-set! 1 11874) ;; guile 290 (static-set! 1 11874) ;; guile 292 (static-patch! 11878 1158) 295 (static-patch! 11885 1163) 298 (static-patch! 11890 1170) 301 (make-non-immediate 1 11885) ;; "getuid-or-false" 303 (call-scm<-scm 1 1 14) ;; string->symbol 305 (static-set! 1 11889) ;; getuid-or-false 307 (static-patch! 11891 1169) 310 (make-non-immediate 1 11886) ;; "macro" 312 (call-scm<-scm 1 1 14) ;; string->symbol 314 (static-set! 1 11890) ;; macro 316 (static-patch! 11894 1166) 319 (static-patch! 11899 -4562) 322 (static-patch! 11900 1170) 325 (make-non-immediate 1 11895) ;; "getgid-or-false" 327 (call-scm<-scm 1 1 14) ;; string->symbol 329 (static-set! 1 11899) ;; getgid-or-false 331 (static-patch! 11901 -4400) 334 (static-patch! 11902 1166) 337 (make-non-immediate 1 11897) ;; "directory-files" 339 (call-scm<-scm 1 1 14) ;; string->symbol 341 (static-set! 1 11901) ;; directory-files 343 (static-patch! 11905 -4280) 346 (static-patch! 11906 1162) 349 (make-non-immediate 1 11901) ;; "pathify" 351 (call-scm<-scm 1 1 14) ;; string->symbol 353 (static-set! 1 11905) ;; pathify 355 (static-patch! 11907 -4093) 358 (static-patch! 11908 1156) 361 (make-non-immediate 1 11903) ;; "visited?-proc" 363 (call-scm<-scm 1 1 14) ;; string->symbol 365 (static-set! 1 11907) ;; visited?-proc 367 (static-patch! 11909 -3962) 370 (static-patch! 11910 1152) 373 (make-non-immediate 1 11905) ;; "stat-dir-readable?-proc" 375 (call-scm<-scm 1 1 14) ;; string->symbol 377 (static-set! 1 11909) ;; stat-dir-readable?-proc 379 (static-patch! 11911 -3734) 382 (static-patch! 11912 1150) 385 (make-non-immediate 1 11907) ;; "stat&flag-proc" 387 (call-scm<-scm 1 1 14) ;; string->symbol 389 (static-set! 1 11911) ;; stat&flag-proc 391 (static-patch! 11913 -3548) 394 (static-patch! 11914 1146) 397 (make-non-immediate 1 11909) ;; "clean" 399 (call-scm<-scm 1 1 14) ;; string->symbol 401 (static-set! 1 11913) ;; clean 403 (static-patch! 11915 -3235) 406 (static-patch! 11916 -3158) 409 (static-patch! 11917 -2858) 412 (static-patch! 11918 1134) 415 (make-non-immediate 1 11913) ;; "errno-if-exception" 417 (call-scm<-scm 1 1 14) ;; string->symbol 419 (static-set! 1 11917) ;; errno-if-exception 421 (static-set! 1 13241) ;; errno-if-exception 423 (static-set! 1 13215) ;; errno-if-exception 425 (static-patch! 11915 -2062) 428 (static-patch! 11916 -1972) 431 (static-patch! 11917 -1140) 434 (static-patch! 11918 -652) 437 (static-patch! 11925 1119) 440 (make-non-immediate 1 11920) ;; "_" 442 (call-scm<-scm 1 1 14) ;; string->symbol 444 (static-set! 1 11924) ;; _ 446 (static-set! 1 11934) ;; _ 448 (static-patch! 11924 1114) 451 (make-non-immediate 1 11919) ;; "any" 453 (call-scm<-scm 1 1 14) ;; string->symbol 455 (static-set! 1 11923) ;; any 457 (static-set! 1 13009) ;; any 459 (static-set! 1 13011) ;; any 461 (static-set! 1 11921) ;; any 463 (static-patch! 11925 1105) 466 (static-patch! 11930 1110) 469 (static-patch! 11937 1123) 472 (static-patch! 11950 -4604) 475 (static-patch! 11959 1127) 478 (static-patch! 11970 1132) 481 (make-non-immediate 1 11965) ;; "getuid" 483 (call-scm<-scm 1 1 14) ;; string->symbol 485 (static-set! 1 11969) ;; getuid 487 (static-patch! 11981 1129) 490 (static-patch! 11992 1134) 493 (static-patch! 12009 -4465) 496 (static-patch! 12016 1136) 499 (make-non-immediate 1 12011) ;; "getgid" 501 (call-scm<-scm 1 1 14) ;; string->symbol 503 (static-set! 1 12015) ;; getgid 505 (static-patch! 12035 1133) 508 (static-patch! 12042 1136) 511 (static-patch! 12055 1139) 514 (static-patch! 12066 1142) 517 (static-patch! 12077 1145) 520 (static-patch! 12088 1150) 523 (static-patch! 12099 -4247) 526 (static-patch! 12106 1152) 529 (static-patch! 12111 1155) 532 (static-patch! 12118 1158) 535 (make-non-immediate 1 12113) ;; "wrong-type-arg" 537 (call-scm<-scm 1 1 14) ;; string->symbol 539 (static-set! 1 12117) ;; wrong-type-arg 541 (static-set! 1 12663) ;; wrong-type-arg 543 (static-set! 1 12159) ;; wrong-type-arg 545 (static-set! 1 12131) ;; wrong-type-arg 547 (static-patch! 12113 1151) 550 (static-patch! 12128 12108) 553 (static-patch! 12115 1151) 556 (make-non-immediate 1 12110) ;; "Wrong type argument in position 1 (expecting pair): ~S" 558 (static-set! 1 12650) ;; "Wrong type argument in position 1 (expecting pair): ~S" 560 (static-set! 1 12120) ;; "Wrong type argument in position 1 (expecting pair): ~S" 562 (static-patch! 12124 1160) 565 (static-patch! 12139 12119) 568 (static-patch! 12126 1162) 571 (static-patch! 12135 12121) 574 (static-patch! 12142 1176) 577 (static-patch! 12153 1181) 580 (static-patch! 12178 1186) 583 (static-patch! 12205 1191) 586 (static-patch! 12216 1196) 589 (static-patch! 12227 1201) 592 (static-patch! 12238 1206) 595 (static-patch! 12249 1211) 598 (static-patch! 12274 1216) 601 (static-patch! 12281 1221) 604 (static-patch! 12288 1226) 607 (static-patch! 12295 1229) 610 (static-patch! 12306 1234) 613 (make-non-immediate 1 12301) ;; "depth" 615 (call-scm<-scm 1 1 14) ;; string->symbol 617 (static-set! 1 12305) ;; depth 619 (static-patch! 12309 1231) 622 (static-patch! 12314 1234) 625 (make-non-immediate 1 12309) ;; "directory-processed" 627 (call-scm<-scm 1 1 14) ;; string->symbol 629 (static-set! 1 12313) ;; directory-processed 631 (static-patch! 12315 1235) 634 (make-non-immediate 1 12310) ;; "directory" 636 (call-scm<-scm 1 1 14) ;; string->symbol 638 (static-set! 1 12314) ;; directory 640 (static-patch! 12316 1234) 643 (make-non-immediate 1 12311) ;; "nftw-style" 645 (call-scm<-scm 1 1 14) ;; string->symbol 647 (static-set! 1 12315) ;; nftw-style 649 (static-patch! 12317 1233) 652 (make-non-immediate 1 12312) ;; "stale-symlink" 654 (call-scm<-scm 1 1 14) ;; string->symbol 656 (static-set! 1 12316) ;; stale-symlink 658 (static-patch! 12318 1232) 661 (make-non-immediate 1 12313) ;; "symlink" 663 (call-scm<-scm 1 1 14) ;; string->symbol 665 (static-set! 1 12317) ;; symlink 667 (static-patch! 12319 1229) 670 (make-non-immediate 1 12314) ;; "physical" 672 (call-scm<-scm 1 1 14) ;; string->symbol 674 (static-set! 1 12318) ;; physical 676 (static-patch! 12328 -3576) 679 (static-patch! 12331 -3520) 682 (static-patch! 12332 1222) 685 (make-non-immediate 1 12327) ;; "directory-not-readable" 687 (call-scm<-scm 1 1 14) ;; string->symbol 689 (static-set! 1 12331) ;; directory-not-readable 691 (static-patch! 12333 1223) 694 (make-non-immediate 1 12328) ;; "regular" 696 (call-scm<-scm 1 1 14) ;; string->symbol 698 (static-set! 1 12332) ;; regular 700 (static-patch! 12334 1220) 703 (make-non-immediate 1 12329) ;; "invalid-stat" 705 (call-scm<-scm 1 1 14) ;; string->symbol 707 (static-set! 1 12333) ;; invalid-stat 709 (static-patch! 12349 1219) 712 (static-patch! 12366 1222) 715 (static-patch! 12377 1225) 718 (static-patch! 12390 1230) 721 (static-patch! 12409 1233) 724 (make-non-immediate 1 12404) ;; "out-of-range" 726 (call-scm<-scm 1 1 14) ;; string->symbol 728 (static-set! 1 12408) ;; out-of-range 730 (static-set! 1 12428) ;; out-of-range 732 (static-patch! 12408 1230) 735 (make-non-immediate 1 12403) ;; "string-ref" 737 (call-scm<-scm 1 1 14) ;; string->symbol 739 (static-set! 1 12407) ;; string-ref 741 (static-set! 1 12419) ;; string-ref 743 (static-patch! 12407 1227) 746 (static-patch! 12416 12402) 749 (static-patch! 12423 1233) 752 (static-patch! 12434 1236) 755 (make-non-immediate 1 12429) ;; "hash-size" 757 (call-scm<-scm 1 1 14) ;; string->symbol 759 (static-set! 1 12433) ;; hash-size 761 (static-patch! 12435 1235) 764 (static-patch! 12442 12430) 767 (static-patch! 12445 1235) 770 (make-non-immediate 1 12440) ;; "ftw-early-exit" 772 (call-scm<-scm 1 1 14) ;; string->symbol 774 (static-set! 1 12444) ;; ftw-early-exit 776 (static-patch! 12448 -3246) 779 (static-patch! 12463 1231) 782 (make-non-immediate 1 12458) ;; "for-each" 784 (call-scm<-scm 1 1 14) ;; string->symbol 786 (static-set! 1 12462) ;; for-each 788 (static-patch! 12490 1230) 791 (static-patch! 12495 -2945) 794 (static-patch! 12496 1230) 797 (make-non-immediate 1 12491) ;; "mount" 799 (call-scm<-scm 1 1 14) ;; string->symbol 801 (static-set! 1 12495) ;; mount 803 (static-patch! 12497 -2925) 806 (static-patch! 12498 1224) 809 (make-non-immediate 1 12493) ;; "chdir" 811 (call-scm<-scm 1 1 14) ;; string->symbol 813 (static-set! 1 12497) ;; chdir 815 (static-patch! 12501 1221) 818 (static-patch! 12506 -2889) 821 (static-patch! 12507 -2859) 824 (static-patch! 12508 -2842) 827 (static-patch! 12509 -2839) 830 (static-patch! 12510 -2827) 833 (static-patch! 12511 1213) 836 (make-non-immediate 1 12506) ;; "nftw-early-exit" 838 (call-scm<-scm 1 1 14) ;; string->symbol 840 (static-set! 1 12510) ;; nftw-early-exit 842 (static-patch! 12512 -2486) 845 (static-patch! 12627 12621) 848 (static-patch! 12628 -2426) 851 (make-non-immediate 1 12225) ;; "catch" 853 (call-scm<-scm 1 1 14) ;; string->symbol 855 (static-set! 1 12629) ;; catch 857 (static-set! 1 12865) ;; catch 859 (static-patch! 12629 1195) 862 (make-non-immediate 1 12624) ;; "top" 864 (call-scm<-scm 1 1 14) ;; string->symbol 866 (static-set! 1 12628) ;; top 868 (static-set! 1 12628) ;; top 870 (make-non-immediate 1 12626) ;; (top) 872 (static-set! 1 12770) ;; (top) 874 (static-set! 1 12680) ;; (top) 876 (static-set! 1 12672) ;; (top) 878 (static-set! 1 12830) ;; (top) 880 (static-patch! 12622 1180) 883 (make-non-immediate 1 12617) ;; "ribcage" 885 (call-scm<-scm 1 1 14) ;; string->symbol 887 (static-set! 1 12621) ;; ribcage 889 (static-set! 1 12791) ;; ribcage 891 (static-set! 1 12739) ;; ribcage 893 (static-set! 1 12697) ;; ribcage 895 (static-set! 1 12685) ;; ribcage 897 (static-patch! 12615 1169) 900 (make-non-immediate 1 12610) ;; "dummy" 902 (call-scm<-scm 1 1 14) ;; string->symbol 904 (static-set! 1 12614) ;; dummy 906 (static-set! 1 12626) ;; dummy 908 (static-patch! 12614 1164) 911 (make-non-immediate 1 12609) ;; "expr" 913 (call-scm<-scm 1 1 14) ;; string->symbol 915 (static-set! 1 12613) ;; expr 917 (static-set! 1 13339) ;; expr 919 (static-set! 1 12615) ;; expr 921 (static-patch! 12661 12609) 924 (static-patch! 12614 1154) 927 (make-non-immediate 1 12609) ;; "m-1b8ca79d6eff4af2-12b" 929 (call-scm<-scm 1 1 14) ;; string->symbol 931 (static-set! 1 12613) ;; m-1b8ca79d6eff4af2-12b 933 (static-set! 1 12613) ;; m-1b8ca79d6eff4af2-12b 935 (make-non-immediate 1 12611) ;; (m-1b8ca79d6eff4af2-12b top) 937 (static-set! 1 12677) ;; (m-1b8ca79d6eff4af2-12b top) 939 (static-set! 1 12613) ;; (m-1b8ca79d6eff4af2-12b top) 941 (static-patch! 12643 12609) 944 (static-patch! 12614 1144) 947 (static-patch! 12627 12609) 950 (static-patch! 12616 1148) 953 (static-patch! 12623 12611) 956 (static-patch! 12630 12616) 959 (static-patch! 12745 12619) 962 (static-patch! 12738 12626) 965 (static-patch! 12635 1143) 968 (make-non-immediate 1 12630) ;; "x" 970 (call-scm<-scm 1 1 14) ;; string->symbol 972 (static-set! 1 12634) ;; x 974 (static-set! 1 12636) ;; x 976 (static-patch! 12656 12632) 979 (static-patch! 12655 12633) 982 (static-patch! 12636 1132) 985 (static-patch! 12641 12631) 988 (static-patch! 12648 12636) 991 (static-patch! 12705 12637) 994 (static-patch! 12688 12644) 997 (make-non-immediate 1 12645) ;; ((top)) 999 (static-set! 1 12665) ;; ((top)) 1001 (static-set! 1 12683) ;; ((top)) 1003 (static-patch! 12645 1121) 1006 (make-non-immediate 1 12640) ;; "hygiene" 1008 (call-scm<-scm 1 1 14) ;; string->symbol 1010 (static-set! 1 12644) ;; hygiene 1012 (static-set! 1 12644) ;; hygiene 1014 (static-patch! 12644 10878) 1017 (make-non-immediate 1 12639) ;; (hygiene ice-9 ftw) 1019 (static-set! 1 12847) ;; (hygiene ice-9 ftw) 1021 (static-set! 1 12817) ;; (hygiene ice-9 ftw) 1023 (static-set! 1 12787) ;; (hygiene ice-9 ftw) 1025 (static-set! 1 12749) ;; (hygiene ice-9 ftw) 1027 (static-set! 1 12719) ;; (hygiene ice-9 ftw) 1029 (static-set! 1 12697) ;; (hygiene ice-9 ftw) 1031 (static-set! 1 12635) ;; (hygiene ice-9 ftw) 1033 (static-set! 1 12637) ;; (hygiene ice-9 ftw) 1035 (static-patch! 12637 12625) 1038 (static-patch! 12636 12632) 1041 (static-patch! 12645 12633) 1044 (make-non-immediate 1 12634) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #))) 1046 (static-set! 1 12642) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #))) 1048 (static-set! 1 12644) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #))) 1050 (static-patch! 12644 12638) 1053 (static-patch! 12645 12639) 1056 (static-patch! 12646 12640) 1059 (static-patch! 12647 12641) 1062 (static-patch! 12648 12642) 1065 (make-non-immediate 1 12643) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1067 (static-set! 1 12797) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1069 (static-set! 1 12767) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1071 (static-set! 1 12737) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1073 (static-set! 1 12699) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1075 (static-set! 1 12669) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1077 (static-set! 1 12647) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …) 1079 (make-non-immediate 1 10829) ;; "ice-9/ftw.scm" 1081 (static-set! 1 12773) ;; "ice-9/ftw.scm" 1083 (static-set! 1 12743) ;; "ice-9/ftw.scm" 1085 (static-set! 1 12713) ;; "ice-9/ftw.scm" 1087 (static-set! 1 12675) ;; "ice-9/ftw.scm" 1089 (static-set! 1 12625) ;; "ice-9/ftw.scm" 1091 (static-patch! 12637 12621) 1094 (static-patch! 12638 1036) 1097 (make-non-immediate 1 12633) ;; "quote" 1099 (call-scm<-scm 1 1 14) ;; string->symbol 1101 (static-set! 1 12637) ;; quote 1103 (static-set! 1 12639) ;; quote 1105 (static-patch! 12677 12635) 1108 (static-patch! 12644 1028) 1111 (make-non-immediate 1 12639) ;; "system-error" 1113 (call-scm<-scm 1 1 14) ;; string->symbol 1115 (static-set! 1 12643) ;; system-error 1117 (static-set! 1 12653) ;; system-error 1119 (static-patch! 12657 12641) 1122 (static-patch! 12656 12646) 1125 (static-patch! 12659 12653) 1128 (static-patch! 12660 1016) 1131 (make-non-immediate 1 12655) ;; "lambda" 1133 (call-scm<-scm 1 1 14) ;; string->symbol 1135 (static-set! 1 12659) ;; lambda 1137 (static-set! 1 12669) ;; lambda 1139 (static-patch! 12673 12657) 1142 (static-patch! 12744 12662) 1145 (static-patch! 12671 1005) 1148 (make-non-immediate 1 12666) ;; "args" 1150 (call-scm<-scm 1 1 14) ;; string->symbol 1152 (static-set! 1 12670) ;; args 1154 (static-set! 1 12680) ;; args 1156 (static-patch! 12684 12668) 1159 (make-non-immediate 1 12673) ;; # 1161 (static-set! 1 12709) ;; # 1163 (static-set! 1 12719) ;; # 1165 (static-patch! 12679 991) 1168 (make-non-immediate 1 12674) ;; "system-error-errno" 1170 (call-scm<-scm 1 1 14) ;; string->symbol 1172 (static-set! 1 12678) ;; system-error-errno 1174 (static-set! 1 12688) ;; system-error-errno 1176 (static-patch! 12692 12676) 1179 (static-patch! 12695 12681) 1182 (static-patch! 12694 12688) 1185 (static-patch! 12693 12689) 1188 (static-patch! 12696 12690) 1191 (static-patch! 12697 12691) 1194 (static-patch! 12696 12692) 1197 (static-patch! 12707 -2651) 1200 (static-patch! 12710 966) 1203 (static-patch! 12743 971) 1206 (static-patch! 12750 976) 1209 (static-patch! 12755 -2034) 1212 (static-patch! 12760 978) 1215 (static-patch! 12765 -2005) 1218 (static-patch! 12768 982) 1221 (static-patch! 12791 985) 1224 (static-patch! 12816 990) 1227 (static-patch! 12833 -1806) 1230 (static-patch! 12834 -1635) 1233 (static-patch! 12835 -1632) 1236 (static-patch! 12836 -1624) 1239 (static-patch! 12837 985) 1242 (make-non-immediate 1 12832) ;; "match-error" 1244 (call-scm<-scm 1 1 14) ;; string->symbol 1246 (static-set! 1 12836) ;; match-error 1248 (static-patch! 12838 984) 1251 (static-patch! 12869 991) 1254 (static-patch! 12882 994) 1257 (static-patch! 12917 999) 1260 (static-patch! 12928 1002) 1263 (static-patch! 12947 1005) 1266 (static-patch! 12958 1008) 1269 (make-non-immediate 1 12953) ;; "macro-type" 1271 (call-scm<-scm 1 1 14) ;; string->symbol 1273 (static-set! 1 12957) ;; macro-type 1275 (static-set! 1 12967) ;; macro-type 1277 (static-patch! 12957 1005) 1280 (make-non-immediate 1 12952) ;; "syntax-rules" 1282 (call-scm<-scm 1 1 14) ;; string->symbol 1284 (static-set! 1 12956) ;; syntax-rules 1286 (static-set! 1 12958) ;; syntax-rules 1288 (static-patch! 12984 12954) 1291 (static-patch! 12957 999) 1294 (make-non-immediate 1 12952) ;; "patterns" 1296 (call-scm<-scm 1 1 14) ;; string->symbol 1298 (static-set! 1 12956) ;; patterns 1300 (static-set! 1 12964) ;; patterns 1302 (static-patch! 12958 12954) 1305 (static-patch! 12961 12955) 1308 (static-patch! 12960 12956) 1311 (static-patch! 12963 12957) 1314 (reset-frame 1) ;; 1 slot 1315 (make-immediate 0 2052) ;; # 1316 (return-values) -- There are only two hard things in Computer Science: cache invalidation, naming things and off-by-one errors.