Package: guile;
Reported by: SeerLite <seerlite <at> nixnet.email>
Date: Tue, 10 May 2022 00:26:01 UTC
Severity: normal
Done: Ludovic Courtès <ludo <at> gnu.org>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 55344 in the body.
You can then email your comments to 55344 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
bug-guile <at> gnu.org
:bug#55344
; Package guile
.
(Tue, 10 May 2022 00:26:01 GMT) Full text and rfc822 format available.SeerLite <seerlite <at> nixnet.email>
:bug-guile <at> gnu.org
.
(Tue, 10 May 2022 00:26:01 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: SeerLite <seerlite <at> nixnet.email> To: bug-guile <at> gnu.org Subject: ftw thinks readable directories are unreadable if "other" don't have read permission Date: Mon, 9 May 2022 20:25:17 -0400
ftw incorrectly thinks that if other users don't have the read permission then the owner can't read it either. This also affects ntfw. Guile version: 3.0.8 Machine type: x86_64-pc-linux-gnu guile <at> 3.0.8 from Guix To reproduce: Create 2 directories, one with rwxrwxrwx permissions and another with rwxrwx---. Then pass them to ftw and notice it won't recurse because it thinks they're directory-not-readable. scheme@(guile-user)> (passwd:uid (getpw (getlogin))) $1 = 1001 scheme@(guile-user)> (stat:uid (stat "readable-dir")) $2 = 1001 scheme@(guile-user)> (stat:uid (stat "also-readable-dir")) $3 = 1001 scheme@(guile-user)> (format #f "~o" (stat:perms (stat "readable-dir"))) $4 = "777" scheme@(guile-user)> (format #f "~o" (stat:perms (stat "also-readable-dir"))) $5 = "770" scheme@(guile-user)> (stat "readable-dir") $6 = #(24 61374845 16895 1 1001 998 0 0 1652140343 1652140343 1652141421 4096 0 directory 511 216530924 216530924 1652141421) scheme@(guile-user)> (stat "also-readable-dir") $7 = #(24 61374847 16888 1 1001 998 0 0 1652140345 1652140345 1652141426 4096 0 directory 504 20542871 20542871 1652141426) scheme@(guile-user)> (ftw "readable-dir" (lambda (filename statinfo flag) (display flag) (newline) #t)) directory $8 = #t scheme@(guile-user)> (ftw "also-readable-dir" (lambda (filename statinfo flag) (display flag) (newline) #t))directory-not-readable $9 = #t
bug-guile <at> gnu.org
:bug#55344
; Package guile
.
(Tue, 17 May 2022 16:08:02 GMT) Full text and rfc822 format available.Message #8 received at submit <at> debbugs.gnu.org (full text, mbox):
From: angry rectangle <angryrectangle <at> cock.li> To: bug-guile <at> gnu.org Subject: bug#55344: ftw thinks readable directories are unreadable if "other" don't have read permission Date: Tue, 17 May 2022 12:03:34 -0400
(hmm... resending this because it didnt work. hopefully i'm doing it right this time.) It looks like guile's compiler and optimizer could be replacing the `getuid' and `setuid' calls with constant, compile-time values. Here is a test I performed: 1. Make directory with 770 owned by root and the `guixbuild' group. When guile is compiled with guix, I think the process is done under one of the guixbuilder<XX> users who have the `guixbuild' group. 2. Run guile under my regular user. 3. Try to `ftw' that directory. ftw detects it as a readable directory and then ends up throwing a "permission denied" error because it's not actually readable. If I compile guile manually under my regular user and try ftw on a different user, I observe the results that support my conclusion. System info: Guile 3.0.8.13-cc455 guix on amd64
bug-guile <at> gnu.org
:bug#55344
; Package guile
.
(Mon, 13 Mar 2023 07:33:02 GMT) Full text and rfc822 format available.Message #11 received at 55344 <at> debbugs.gnu.org (full text, mbox):
From: Saad Rhoulam <saad <at> rhoulam.com> To: 55344 <at> debbugs.gnu.org Subject: ftw thinks readable directories are unreadable if "other" don't have read permission Date: Sun, 12 Mar 2023 23:38:07 -0400
I am also experiencing this issue on Guile 3.0.9, guix on Ubuntu 22.04, amd64 architecture. It won't descend into a directory unless it has o+rx permissions set.
bug-guile <at> gnu.org
:bug#55344
; Package guile
.
(Fri, 13 Oct 2023 10:40:01 GMT) Full text and rfc822 format available.Message #14 received at 55344 <at> debbugs.gnu.org (full text, mbox):
From: wolf <wolf <at> wolfsden.cz> To: 55344 <at> debbugs.gnu.org Subject: getuid and getgid are indeed replaced with compile-time constants Date: Fri, 13 Oct 2023 12:38:32 +0200
[Message part 1 (text/plain, inline)]
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 <unnamed function> 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<?)) at ice-9/ftw.scm:192:0 21 (static-ref 6 16587) ;; #:declarative? at ice-9/boot-9.scm:3853:35 23 (make-immediate 5 1028) ;; #t at ice-9/ftw.scm:192:0 24 (static-ref 4 16586) ;; #f at ice-9/boot-9.scm:3923:23 26 (immediate-tag=? 4 7 0) ;; heap-object? 28 (je 7) ;; -> 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) ;; #<procedure 7fae26403570 at ice-9/ftw.scm:202:0 (y)> 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) ;; #<procedure 7fae264035a8 at ice-9/ftw.scm:207:0 (y)> 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) ;; #<procedure directory-files (dir)> 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) ;; #<procedure pathify nodes> 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) ;; #<procedure visited?-proc (size)> 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) ;; #<procedure stat-dir-readable?-proc (uid gid)> 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) ;; #<procedure stat&flag-proc (dir-readable? . control-flags)> 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) ;; #<procedure clean (name)> 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) ;; #<procedure ftw (filename proc . options)> 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) ;; #<procedure nftw (filename proc . control-flags)> 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) ;; #<procedure 7fae26403758 at ice-9/ftw.scm:406:0 (x)> 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) ;; #<procedure file-system-fold (enter? leaf down up skip error init file-name #…> 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) ;; #<procedure file-system-tree (file-name #:optional enter? stat)> 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) ;; #<procedure scandir (name #:optional select? entry<?)> 210 (scm-set!/immediate 15 1 14) 211 (make-immediate 15 2052) ;; #<unspecified> 212 (reset-frame 1) ;; 1 slot 213 (handle-interrupts) 214 (return-values) Disassembly of <unnamed function> 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 <unnamed function> 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) ;; #<procedure 7fae264038a0 at ice-9/ftw.scm:202:0 ()> 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 <unnamed function> 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 <unnamed function> 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 <unnamed function> 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) ;; #<procedure 7fae264039e0 at ice-9/ftw.scm:207:0 ()> 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 <unnamed function> 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 <at> 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 <at> 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) ;; #<eof> 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 <at> 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) ;; #<eof> 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 <at> 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) ;; #<eof> 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 <at> 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 <at> 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 <at> 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 <at> 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) ;; #<procedure pathify nodes> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <unnamed function> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <unnamed function> 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 <unnamed function> 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) ;; #<procedure 7fae264041b8 at ice-9/ftw.scm:296:15 args> 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 <at> 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) ;; #<procedure 7fae264041d0 at ice-9/ftw.scm:300:31 args> 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 <at> 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 <at> 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 <unnamed function> 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 <at> guile at #x7fae263f4908 Disassembly of lstat <at> 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 <unnamed function> 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 <at> 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 <unnamed function> 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 <unnamed function> 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<? 8 0) 15 (jnl 45) ;; -> L5 16 (make-immediate 5 12044) ;; #\/ at ice-9/ftw.scm:311:37 17 (u64<? 8 10) at ice-9/ftw.scm:311:41 18 (jnl 40) ;; -> 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 <at> 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) ;; #<procedure 7fae26404528 at ice-9/ftw.scm:336:13 (key val)> 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 <at> guile at #x7fae263f5014 Disassembly of <unnamed function> 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<? 8 0) 16 (jnl 50) ;; -> L5 17 (make-immediate 5 12044) ;; #\/ at ice-9/ftw.scm:311:37 18 (u64<? 8 9) at ice-9/ftw.scm:311:41 19 (jnl 45) ;; -> 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 <at> 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 <unnamed function> 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 <unnamed function> 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 <at> 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) ;; #<procedure 7fae26404620 at ice-9/ftw.scm:340:24 args> 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 <at> 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) ;; #<procedure 7fae26404658 at ice-9/ftw.scm:344:24 (s)> 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) ;; #<procedure 7fae264046b8 at ice-9/ftw.scm:348:27 (fullname base)> at ice-9/ftw.scm:348:27 135 (j 3) ;; -> L10 L9: 136 (make-non-immediate 9 15639) ;; #<procedure 7fae264046c8 at ice-9/ftw.scm:354:23 (fullname base)> 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) ;; #<procedure 7fae264046d8 at ice-9/ftw.scm:357:28 ()> 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) ;; #<procedure 7fae264046e8 at ice-9/ftw.scm:363:24 (flag)> at ice-9/ftw.scm:363:24 210 (j 3) ;; -> L18 L17: 211 (make-non-immediate 8 15576) ;; #<procedure 7fae264046f8 at ice-9/ftw.scm:364:24 (flag)> 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) ;; #<procedure stat&flag-proc (dir-readable? . control-flags)> 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) ;; #<procedure 7fae26404730 at ice-9/ftw.scm:397:24 (key val)> 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 <at> 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 <at> 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 <unnamed function> 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 <at> guile at #x7fae263f4908 Disassembly of <unnamed function> 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 <unnamed function> 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 <at> 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 <unnamed function> 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 <unnamed function> 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 <at> 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 <at> guile at #x7fae263f55fc Disassembly of chdir <at> 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 <unnamed function> 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 <at> 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 <at> guile at #x7fae263f55fc L3: 29 (mov 6 3) 30 (reset-frame 1) ;; 1 slot 31 (handle-interrupts) 32 (return-values) Disassembly of <unnamed function> 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 <unnamed function> 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 <at> guile at #x7fae263f55fc Disassembly of <unnamed function> 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 <unnamed function> 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 <unnamed function> 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 <unnamed function> 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<? 9 0) 16 (jnl 48) ;; -> L5 17 (make-immediate 6 12044) ;; #\/ at ice-9/ftw.scm:311:37 18 (u64<? 9 10) at ice-9/ftw.scm:311:41 19 (jnl 43) ;; -> 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 <at> 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 <unnamed function> 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 <unnamed function> 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 <unnamed function> 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 <unnamed function> 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) ;; #<procedure 7fae26404918 at ice-9/ftw.scm:406:0 (dummy expr)> 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 <unnamed function> 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) ;; #<syntax:ftw.scm:407:3 catch> 5 (make-non-immediate 4 15355) ;; (#<syntax quote> #<syntax:ftw.scm:407:10 system-error>) 7 (make-non-immediate 2 15375) ;; #<syntax:ftw.scm:408:5 lambda> 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) ;; ((#<syntax:ftw.scm:408:5 lambda> #<syntax:ftw.scm:410:12 args> (#<synta…> …))) 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) ;; #<procedure 7fae26404fc8 at ice-9/ftw.scm:447:23 args> 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 <at> 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 <unnamed function> 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 <unnamed function> 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 <at> guile at #x7fae263f6000 Disassembly of system-error-errno <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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) ;; #<procedure 7fae264050b8 at ice-9/ftw.scm:464:25 args> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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) ;; #<procedure 7fae264050f8 at ice-9/ftw.scm:495:37 args> 270 (make-immediate 8 4) ;; #f at ice-9/ftw.scm:498:48 271 (eq-immediate? 17 2564) ;; #<eof> 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 <at> 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 <at> 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 <at> 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 <at> 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) ;; #<eof> 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 <at> 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) ;; #<eof> 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 <at> 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) ;; #<eof> 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 <at> guile at #x7fae263f3b80 427 (receive 7 20 25) 429 (eq-immediate? 17 2564) ;; #<eof> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <unnamed function> 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 <at> guile at #x7fae263f3b48 Disassembly of <unnamed function> 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 <at> guile at #x7fae263f6000 Disassembly of vhash-cons <at> 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 <unnamed function> 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 <unnamed function> 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 <at> guile at #x7fae263f6000 Disassembly of <unnamed function> 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 <unnamed function> 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) ;; #<procedure 7fae26405238 at ice-9/ftw.scm:518:46 (n s)> 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) ;; #<procedure leaf (name stat result)> 46 (make-non-immediate 6 14729) ;; #<procedure down (name stat result)> 48 (make-non-immediate 5 14731) ;; #<procedure up (name stat result)> 50 (make-non-immediate 4 14721) ;; #<procedure leaf (name stat result)> 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 <unnamed function> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <unnamed function> 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 <at> guile at #x7fae263f3b48 Disassembly of <unnamed function> 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 <at> 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) ;; #<eof> 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 <at> 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) ;; #<eof> 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 <at> 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) ;; #<eof> 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 <at> 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 <unnamed function> 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-locale<?" 254 (call-scm<-scm 1 1 14) ;; string->symbol 256 (static-set! 1 11870) ;; string-locale<? 258 (static-set! 1 11870) ;; string-locale<? 260 (static-patch! 11872 11868) 263 (static-patch! 11875 11869) 266 (static-patch! 11876 1170) 269 (make-non-immediate 1 11871) ;; "declarative?" 271 (call-scm<-scm 1 1 14) ;; string->symbol 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) . #<syntax e…>))) 1046 (static-set! 1 12642) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #<syntax e…>))) 1048 (static-set! 1 12644) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #<syntax e…>))) 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) ;; #<syntax:ftw.scm:410:12 args> 1161 (static-set! 1 12709) ;; #<syntax:ftw.scm:410:12 args> 1163 (static-set! 1 12719) ;; #<syntax:ftw.scm:410:12 args> 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) ;; #<unspecified> 1316 (return-values) -- There are only two hard things in Computer Science: cache invalidation, naming things and off-by-one errors.
[signature.asc (application/pgp-signature, inline)]
Ludovic Courtès <ludo <at> gnu.org>
to control <at> debbugs.gnu.org
.
(Mon, 29 Jan 2024 13:32:01 GMT) Full text and rfc822 format available.Debbugs Internal Request <help-debbugs <at> gnu.org>
to internal_control <at> debbugs.gnu.org
.
(Tue, 27 Feb 2024 12:24:07 GMT) Full text and rfc822 format available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.