bugMIT/GNU Scheme - Bugs: bug #64804, Entering compiled libraries...

 
 

bug #64804: Entering compiled libraries sometimes hangs.

Submitter:  Arthur A. Gleckler <aag>
Submitted:  Sat 21 Oct 2023 11:09:56 PM UTC
   
 
Category:  runtime Severity:  3 - Normal
Priority:  5 - Normal Item Group:  None
Status:  Fixed Privacy:  Public
Assigned to:  cph Originator Name: 
Open/Closed:  Open
Keywords: 
* Mandatory Fields

Add a New Comment Rich Markup
   

Jump to the original submission

Sat 04 Nov 2023 05:08:16 AM UTC, comment #10: 

Fantastic!  I recompiled and reinstalled MIT Scheme, then recompiled all of my own code.  Everything loaded quickly without incident.  I haven't encountered the debugger bug, either.

Thanks.

Arthur A. Gleckler <aag>
Group Member
Sat 04 Nov 2023 03:56:13 AM UTC, comment #9: 

I've pushed some fixes, both for the performance issue and for another continuation-parser bug.

Please let me know how these fixes work and if you see other problems with them.

Chris Hanson <cph>
Group administrator
Thu 02 Nov 2023 06:54:42 AM UTC, comment #8: 

P.S.: I'll note that, as I've implemented it, as long as the value returned by the original version never goes from #true to #false, the cached result should be correct.  Still, the cache shouldn't be global.

Arthur A. Gleckler <aag>
Group Member
Wed 01 Nov 2023 06:08:26 PM UTC, comment #7: 

Cacheing the results of auto-deps-available? made everything finish instantly:


(define (auto-deps-available? auto library)
  (cond ((hash-table-ref/default auto-deps-available-cache auto #false))
        (else
         (let ((result (every (lambda (key) (auto-dep-available? key library))
                              (auto-deps auto))))
           (hash-table-set! auto-deps-available-cache auto result)
           result))))

I'm not sure whether this is a good idea, though, because it's possible that the value it returns should change over time.  I don't yet understand the context in which it is used.

Arthur A. Gleckler <aag>
Group Member
Wed 01 Nov 2023 02:37:21 AM UTC, comment #6: 

OK, I've pushed a fix for the problem with the debugger.

I'm still trying to figure out what's going on with the libraries.

Chris Hanson <cph>
Group administrator
Sun 22 Oct 2023 07:40:09 PM UTC, comment #5: 

That's helpful, but not quite enough.

Can I get a copy of your code so I can reproduce it on my machine?

Chris Hanson <cph>
Group administrator
Sun 22 Oct 2023 05:11:28 AM UTC, comment #4: 

comment #3:

> Sorry, I should have been clearer: run that code instead of starting the debugger. I need to debug the continuation parser, so I need to see the raw frames it's working with.


Oops, I should have understood that.  Here's the output:




Interrupt option (? for help): ;Break!
;To continue, call RESTART with an option number:
; (RESTART 2) => Continue from breakpoint.
; (RESTART 1) => Return to read-eval-print level 1.

2 break> ,(import (mit runtime-internal))

;Unspecified return value

2 break> (generator-for-each write-line
                    (control-point->raw-frame-generator
                     (continuation/control-point
                      (condition/continuation
                       (nearest-repl/condition)))))
#(0 205 #(#[return-address 12 restore-interrupt-mask] 7))
#(2 205 #(#[return-address 13 restore-history] #[hunk3-a 14] 184 #f))
#(6 205 #(#[return-address 15 reenter-compiled-code] 13))
#(8 205 #(#[compiled-return-address 16 ("thread" #x81) #x188 #xdce827] #t))
#(10 205 #(#[compiled-return-address 17 ("thread" #x81) #x307 #xdce7ae] #[compiled-closure 18 ("interrupt" #x1a) #x14a #xbc82d2 ...] #f #[thread 19]))
#(14 205 #(#[compiled-return-address 20 ("thread" #x79) #x16c #xdcd2b7] #[thread 19]))
#(16 205 #(#[compiled-return-address 21 ("thread" #x79) #xca #xdcd1f9] 71))
#(18 205 #(#[compiled-return-address 22 (return-to-interpreter) #x20 #x810020]))
#(19 205 #(#[return-address 12 restore-interrupt-mask] 65535))
#(21 205 #(#[return-address 23 restore-dont-copy-history] #[hunk3-a 24] 37 #f))
#(25 205 #(#[return-address 25 compiler-interrupt-restart] 143 #f #[compiled-procedure 26 ("list" #x29) #x1c #xe43164] ((filename . #f) (export-groups #[export-group 27 #f]) (environment . #f))))
#(30 205 #(#[compiled-return-address 28 ("list" #x91) #x129 #xe5ad4c] ((filename . #f) (export-groups #[export-group 27 #f]) (environment . #f)) environment ((parsed-imports) (parsed-exports) (parsed-defines) (parsed-contents) (filename . #f) (export-groups #[export-group 27 #f]) (environment . #f))))
#(34 205 #(#[compiled-return-address 29 ("library-database" #x1b) #x1b8 #x8cb56d] environment #[library 30 (mit legacy runtime)]))
#(37 205 #(#[compiled-return-address 31 ("srfi-1" #x33) #x37c #xe2caf7] #[library-ixport 32 (mit legacy runtime) get-output-string] (#[library-ixport 33 (mit legacy runtime) get-output-bytevector] #[library-ixport 34 (mit legacy runtime) gcd] #[library-ixport 35 (mit legacy runtime) for-each] #[library-ixport 36 (mit legacy runtime) flush-output-port] #[library-ixport 37 (mit legacy runtime) floor/] #[library-ixport 38 (mit legacy runtime) floor-remainder] #[library-ixport 39 (mit legacy runtime) floor-quotient] #[library-ixport 40 (mit legacy runtime) floor] #[library-ixport 41 (mit legacy runtime) file-error?] #[library-ixport 42 (mit legacy runtime) features] #[library-ixport 43 (mit legacy runtime) expt] #[library-ixport 44 (mit legacy runtime) exact?] #[library-ixport 45 (mit legacy runtime) exact-integer?] #[library-ixport 46 (mit legacy runtime) exact-integer-sqrt] #[library-ixport 47 (mit legacy runtime) exact] #[library-ixport 48 (mit legacy runtime) even?] #[library-ixport 49 (mit legacy runtime) error-object?] #[library-ixport 50 (mit legacy runtime) error-object-message] #[library-ixport 51 (mit legacy runtime) error-object-irritants] #[library-ixport 52 (mit legacy runtime) error] #[library-ixport 53 (mit legacy runtime) eqv?] #[library-ixport 54 (mit legacy runtime) equal?] #[library-ixport 55 (mit legacy runtime) eq?] #[library-ixport 56 (mit legacy runtime) eof-object?] #[library-ixport 57 (mit legacy runtime) eof-object] #[library-ixport 58 (mit legacy runtime) else] #[library-ixport 59 (mit legacy runtime) dynamic-wind] #[library-ixport 60 (mit legacy runtime) do] #[library-ixport 61 (mit legacy runtime) denominator] #[library-ixport 62 (mit legacy runtime) define-values] #[library-ixport 63 (mit legacy runtime) define-syntax] #[library-ixport 64 (mit legacy runtime) define-record-type] #[library-ixport 65 (mit legacy runtime) define] #[library-ixport 66 (mit legacy runtime) current-output-port] #[library-ixport 67 (mit legacy runtime) current-input-port] #[library-ixport 68 (mit legacy runtime) current-error-port] #[library-ixport 69 (mit legacy runtime) cons] #[library-ixport 70 (mit legacy runtime) cond-expand] #[library-ixport 71 (mit legacy runtime) cond] #[library-ixport 72 (mit legacy runtime) complex?] #[library-ixport 73 (mit legacy runtime) close-port] #[library-ixport 74 (mit legacy runtime) close-output-port] #[library-ixport 75 (mit legacy runtime) close-input-port] #[library-ixport 76 (mit legacy runtime) char?] #[library-ixport 77 (mit legacy runtime) char>?] #[library-ixport 78 (mit legacy runtime) char>=?] #[library-ixport 79 (mit legacy runtime) char=?] #[library-ixport 80 (mit legacy runtime) char<?] #[library-ixport 81 (mit legacy runtime) char<=?] #[library-ixport 82 (mit legacy runtime) char-ready?] #[library-ixport 83 (mit legacy runtime) char->integer] #[library-ixport 84 (mit legacy runtime) ceiling] #[library-ixport 85 (mit legacy runtime) cdr] #[library-ixport 86 (mit legacy runtime) cddr] #[library-ixport 87 (mit legacy runtime) cdar] #[library-ixport 88 (mit legacy runtime) case] #[library-ixport 89 (mit legacy runtime) car] #[library-ixport 90 (mit legacy runtime) call/cc] #[library-ixport 91 (mit legacy runtime) call-with-values] #[library-ixport 92 (mit legacy runtime) call-with-port] #[library-ixport 93 (mit legacy runtime) call-with-current-continuation] #[library-ixport 94 (mit legacy runtime) cadr] #[library-ixport 95 (mit legacy runtime) caar] #[library-ixport 96 (mit legacy runtime) bytevector?] #[library-ixport 97 (mit legacy runtime) bytevector-u8-set!] #[library-ixport 98 (mit legacy runtime) bytevector-u8-ref] #[library-ixport 99 (mit legacy runtime) bytevector-length] #[library-ixport 100 (mit legacy runtime) bytevector-copy!] #[library-ixport 101 (mit legacy runtime) bytevector-copy] #[library-ixport 102 (mit legacy runtime) bytevector-append] #[library-ixport 103 (mit legacy runtime) bytevector] #[library-ixport 104 (mit legacy runtime) boolean?] #[library-ixport 105 (mit legacy runtime) boolean=?] #[library-ixport 106 (mit legacy runtime) binary-port?] #[library-ixport 107 (mit legacy runtime) begin] #[library-ixport 108 (mit legacy runtime) assv] #[library-ixport 109 (mit legacy runtime) assq] #[library-ixport 110 (mit legacy runtime) assoc] #[library-ixport 111 (mit legacy runtime) apply] #[library-ixport 112 (mit legacy runtime) append] #[library-ixport 113 (mit legacy runtime) and] #[library-ixport 114 (mit legacy runtime) abs] #[library-ixport 115 (mit legacy runtime) _] #[library-ixport 116 (mit legacy runtime) >=] #[library-ixport 117 (mit legacy runtime) >] #[library-ixport 118 (mit legacy runtime) =>] #[library-ixport 119 (mit legacy runtime) =] #[library-ixport 120 (mit legacy runtime) <=] #[library-ixport 121 (mit legacy runtime) <] #[library-ixport 122 (mit legacy runtime) /] #[library-ixport 123 (mit legacy runtime) ...] #[library-ixport 124 (mit legacy runtime) -] #[library-ixport 125 (mit legacy runtime) +] #[library-ixport 126 (mit legacy runtime) *] #[library-ixport 127 (mit legacy runtime) named-lambda] #[library-ixport 128 (mit legacy runtime) record-predicate] #[library-ixport 129 (mit legacy runtime) record-modifier] #[library-ixport 130 (mit legacy runtime) record-constructor] #[library-ixport 131 (mit legacy runtime) record-accessor] #[library-ixport 132 (mit legacy runtime) make-record-type] #[library-ixport 133 (mit legacy runtime) guarantee] #[library-ixport 134 (mit legacy runtime) %record-set!] #[library-ixport 135 (mit legacy runtime) %record-ref] #[library-ixport 136 (mit legacy runtime) %record?] #[library-ixport 137 (mit legacy runtime) parameterize*] #[library-ixport 138 (mit legacy runtime) syntax-rules:match-datum] #[library-ixport 139 (mit legacy runtime) syntax-rules:expand-template] #[library-ixport 140 (mit legacy runtime) ill-formed-syntax] #[library-ixport 141 (mit legacy runtime) er-macro-transformer] #[library-ixport 142 (mit legacy runtime) declare] #[library-ixport 143 (mit legacy runtime) write-to-string] #[library-ixport 144 (mit legacy runtime) pp] #[library-ixport 145 (mit legacy runtime) write] #[library-ixport 146 (mit legacy runtime) |1+|] #[library-ixport 147 (mit legacy runtime) unspecific] #[library-ixport 148 (mit legacy runtime) sort] #[library-ixport 149 (mit legacy runtime) del-assoc] #[library-ixport 150 (mit legacy runtime) append-map] #[library-ixport 151 (mit legacy runtime) format] #[library-ixport 152 (mit legacy runtime) condition?] #[library-ixport 153 (mit legacy runtime) condition-type:error] #[library-ixport 154 (mit legacy runtime) bind-condition-handler] #[library-ixport 155 (mit legacy runtime) define-print-method] #[library-ixport 156 (mit legacy runtime) bracketed-print-method]) #[compiled-closure 157 ("library-loader" #xa) #xa2 #x89705a ...] (#[library-ixport 158 (mit legacy runtime) zero?] #[library-ixport 159 (mit legacy runtime) write-u8] #[library-ixport 160 (mit legacy runtime) write-string] #[library-ixport 161 (mit legacy runtime) write-char] #[library-ixport 162 (mit legacy runtime) write-bytevector] #[library-ixport 163 (mit legacy runtime) with-exception-handler] #[library-ixport 164 (mit legacy runtime) when] #[library-ixport 165 (mit legacy runtime) vector?] #[library-ixport 166 (mit legacy runtime) vector-set!] #[library-ixport 167 (mit legacy runtime) vector-ref] #[library-ixport 168 (mit legacy runtime) vector-map] #[library-ixport 169 (mit legacy runtime) vector-length] #[library-ixport 170 (mit legacy runtime) vector-for-each] #[library-ixport 171 (mit legacy runtime) vector-fill!] #[library-ixport 172 (mit legacy runtime) vector-copy!] #[library-ixport 173 (mit legacy runtime) vector-copy] #[library-ixport 174 (mit legacy runtime) vector-append] #[library-ixport 175 (mit legacy runtime) vector->string] #[library-ixport 176 (mit legacy runtime) vector->list] #[library-ixport 177 (mit legacy runtime) vector] #[library-ixport 178 (mit legacy runtime) values] #[library-ixport 179 (mit legacy runtime) utf8->string] #[library-ixport 180 (mit legacy runtime) unquote-splicing] #[library-ixport 181 (mit legacy runtime) unquote] #[library-ixport 182 (mit legacy runtime) unless] #[library-ixport 183 (mit legacy runtime) u8-ready?] #[library-ixport 184 (mit legacy runtime) truncate/] #[library-ixport 185 (mit legacy runtime) truncate-remainder] #[library-ixport 186 (mit legacy runtime) truncate-quotient] #[library-ixport 187 (mit legacy runtime) truncate] #[library-ixport 188 (mit legacy runtime) textual-port?] #[library-ixport 189 (mit legacy runtime) syntax-rules] #[library-ixport 190 (mit legacy runtime) syntax-error] #[library-ixport 191 (mit legacy runtime) symbol?] #[library-ixport 192 (mit legacy runtime) symbol=?] #[library-ixport 193 (mit legacy runtime) symbol->string] #[library-ixport 194 (mit legacy runtime) substring] #[library-ixport 195 (mit legacy runtime) string?] #[library-ixport 196 (mit legacy runtime) string>?] #[library-ixport 197 (mit legacy runtime) string>=?] #[library-ixport 198 (mit legacy runtime) string=?] #[library-ixport 199 (mit legacy runtime) string<?] #[library-ixport 200 (mit legacy runtime) string<=?] #[library-ixport 201 (mit legacy runtime) string-set!] #[library-ixport 202 (mit legacy runtime) string-ref] #[library-ixport 203 (mit legacy runtime) string-map] #[library-ixport 204 (mit legacy runtime) string-length] #[library-ixport 205 (mit legacy runtime) string-for-each] #[library-ixport 206 (mit legacy runtime) string-fill!] #[library-ixport 207 (mit legacy runtime) string-copy!] #[library-ixport 208 (mit legacy runtime) string-copy] #[library-ixport 209 (mit legacy runtime) string-append] #[library-ixport 210 (mit legacy runtime) string->vector] #[library-ixport 211 (mit legacy runtime) string->utf8] #[library-ixport 212 (mit legacy runtime) string->symbol] #[library-ixport 213 (mit legacy runtime) string->number] #[library-ixport 214 (mit legacy runtime) string->list] #[library-ixport 215 (mit legacy runtime) string] #[library-ixport 216 (mit legacy runtime) square] #[library-ixport 217 (mit legacy runtime) set-cdr!] #[library-ixport 218 (mit legacy runtime) set-car!] #[library-ixport 219 (mit legacy runtime) set!] #[library-ixport 220 (mit legacy runtime) round] #[library-ixport 221 (mit legacy runtime) reverse] #[library-ixport 222 (mit legacy runtime) remainder] #[library-ixport 223 (mit legacy runtime) real?] #[library-ixport 224 (mit legacy runtime) read-u8] #[library-ixport 225 (mit legacy runtime) read-string] #[library-ixport 226 (mit legacy runtime) read-line] #[library-ixport 227 (mit legacy runtime) read-error?] #[library-ixport 228 (mit legacy runtime) read-char] #[library-ixport 229 (mit legacy runtime) read-bytevector!] #[library-ixport 230 (mit legacy runtime) read-bytevector] #[library-ixport 231 (mit legacy runtime) rationalize] #[library-ixport 232 (mit legacy runtime) rational?] #[library-ixport 233 (mit legacy runtime) raise-continuable] #[library-ixport 234 (mit legacy runtime) raise] #[library-ixport 235 (mit legacy runtime) quotient] #[library-ixport 236 (mit legacy runtime) quote] #[library-ixport 237 (mit legacy runtime) quasiquote] #[library-ixport 238 (mit legacy runtime) procedure?] #[library-ixport 239 (mit legacy runtime) positive?] #[library-ixport 240 (mit legacy runtime) port?] #[library-ixport 241 (mit legacy runtime) peek-u8] #[library-ixport 242 (mit legacy runtime) peek-char] #[library-ixport 243 (mit legacy runtime) parameterize] #[library-ixport 244 (mit legacy runtime) pair?] #[library-ixport 245 (mit legacy runtime) output-port?] #[library-ixport 246 (mit legacy runtime) output-port-open?] #[library-ixport 247 (mit legacy runtime) or] #[library-ixport 248 (mit legacy runtime) open-output-string] #[library-ixport 249 (mit legacy runtime) open-output-bytevector] #[library-ixport 250 (mit legacy runtime) open-input-string] #[library-ixport 251 (mit legacy runtime) open-input-bytevector] #[library-ixport 252 (mit legacy runtime) odd?] #[library-ixport 253 (mit legacy runtime) numerator] #[library-ixport 254 (mit legacy runtime) number?] #[library-ixport 255 (mit legacy runtime) number->string] #[library-ixport 256 (mit legacy runtime) null?] #[library-ixport 257 (mit legacy runtime) not] #[library-ixport 258 (mit legacy runtime) newline] #[library-ixport 259 (mit legacy runtime) negative?] #[library-ixport 260 (mit legacy runtime) modulo] #[library-ixport 261 (mit legacy runtime) min] #[library-ixport 262 (mit legacy runtime) memv] #[library-ixport 263 (mit legacy runtime) memq] #[library-ixport 264 (mit legacy runtime) member] #[library-ixport 265 (mit legacy runtime) max] #[library-ixport 266 (mit legacy runtime) map] #[library-ixport 267 (mit legacy runtime) make-vector] #[library-ixport 268 (mit legacy runtime) make-string] #[library-ixport 269 (mit legacy runtime) make-parameter] #[library-ixport 270 (mit legacy runtime) make-list] #[library-ixport 271 (mit legacy runtime) make-bytevector] #[library-ixport 272 (mit legacy runtime) list?] #[library-ixport 273 (mit legacy runtime) list-tail] #[library-ixport 274 (mit legacy runtime) list-set!] #[library-ixport 275 (mit legacy runtime) list-ref] #[library-ixport 276 (mit legacy runtime) list-copy] #[library-ixport 277 (mit legacy runtime) list->vector] #[library-ixport 278 (mit legacy runtime) list->string] #[library-ixport 279 (mit legacy runtime) list] #[library-ixport 280 (mit legacy runtime) letrec-syntax] #[library-ixport 281 (mit legacy runtime) letrec*] #[library-ixport 282 (mit legacy runtime) letrec] #[library-ixport 283 (mit legacy runtime) let-values] #[library-ixport 284 (mit legacy runtime) let-syntax] #[library-ixport 285 (mit legacy runtime) let*-values] #[library-ixport 286 (mit legacy runtime) let*] #[library-ixport 287 (mit legacy runtime) let] #[library-ixport 288 (mit legacy runtime) length] #[library-ixport 289 (mit legacy runtime) lcm] #[library-ixport 290 (mit legacy runtime) lambda] #[library-ixport 291 (mit legacy runtime) integer?] #[library-ixport 292 (mit legacy runtime) integer->char] #[library-ixport 293 (mit legacy runtime) input-port?] #[library-ixport 294 (mit legacy runtime) input-port-open?] #[library-ixport 295 (mit legacy runtime) inexact?] #[library-ixport 296 (mit legacy runtime) inexact] #[library-ixport 297 (mit legacy runtime) include-ci] #[library-ixport 298 (mit legacy runtime) include] #[library-ixport 299 (mit legacy runtime) if] #[library-ixport 300 (mit legacy runtime) guard] #[library-ixport 32 (mit legacy runtime) get-output-string] #[library-ixport 33 (mit legacy runtime) get-output-bytevector] #[library-ixport 34 (mit legacy runtime) gcd] #[library-ixport 35 (mit legacy runtime) for-each] #[library-ixport 36 (mit legacy runtime) flush-output-port] #[library-ixport 37 (mit legacy runtime) floor/] #[library-ixport 38 (mit legacy runtime) floor-remainder] #[library-ixport 39 (mit legacy runtime) floor-quotient] #[library-ixport 40 (mit legacy runtime) floor] #[library-ixport 41 (mit legacy runtime) file-error?] #[library-ixport 42 (mit legacy runtime) features] #[library-ixport 43 (mit legacy runtime) expt] #[library-ixport 44 (mit legacy runtime) exact?] #[library-ixport 45 (mit legacy runtime) exact-integer?] #[library-ixport 46 (mit legacy runtime) exact-integer-sqrt] #[library-ixport 47 (mit legacy runtime) exact] #[library-ixport 48 (mit legacy runtime) even?] #[library-ixport 49 (mit legacy runtime) error-object?] #[library-ixport 50 (mit legacy runtime) error-object-message] #[library-ixport 51 (mit legacy runtime) error-object-irritants] #[library-ixport 52 (mit legacy runtime) error] #[library-ixport 53 (mit legacy runtime) eqv?] #[library-ixport 54 (mit legacy runtime) equal?] #[library-ixport 55 (mit legacy runtime) eq?] #[library-ixport 56 (mit legacy runtime) eof-object?] #[library-ixport 57 (mit legacy runtime) eof-object] #[library-ixport 58 (mit legacy runtime) else] #[library-ixport 59 (mit legacy runtime) dynamic-wind] #[library-ixport 60 (mit legacy runtime) do] #[library-ixport 61 (mit legacy runtime) denominator] #[library-ixport 62 (mit legacy runtime) define-values] #[library-ixport 63 (mit legacy runtime) define-syntax] #[library-ixport 64 (mit legacy runtime) define-record-type] #[library-ixport 65 (mit legacy runtime) define] #[library-ixport 66 (mit legacy runtime) current-output-port] #[library-ixport 67 (mit legacy runtime) current-input-port] #[library-ixport 68 (mit legacy runtime) current-error-port] #[library-ixport 69 (mit legacy runtime) cons] #[library-ixport 70 (mit legacy runtime) cond-expand] #[library-ixport 71 (mit legacy runtime) cond] #[library-ixport 72 (mit legacy runtime) complex?] #[library-ixport 73 (mit legacy runtime) close-port] #[library-ixport 74 (mit legacy runtime) close-output-port] #[library-ixport 75 (mit legacy runtime) close-input-port] #[library-ixport 76 (mit legacy runtime) char?] #[library-ixport 77 (mit legacy runtime) char>?] #[library-ixport 78 (mit legacy runtime) char>=?] #[library-ixport 79 (mit legacy runtime) char=?] #[library-ixport 80 (mit legacy runtime) char<?] #[library-ixport 81 (mit legacy runtime) char<=?] #[library-ixport 82 (mit legacy runtime) char-ready?] #[library-ixport 83 (mit legacy runtime) char->integer] #[library-ixport 84 (mit legacy runtime) ceiling] #[library-ixport 85 (mit legacy runtime) cdr] #[library-ixport 86 (mit legacy runtime) cddr] #[library-ixport 87 (mit legacy runtime) cdar] #[library-ixport 88 (mit legacy runtime) case] #[library-ixport 89 (mit legacy runtime) car] #[library-ixport 90 (mit legacy runtime) call/cc] #[library-ixport 91 (mit legacy runtime) call-with-values] #[library-ixport 92 (mit legacy runtime) call-with-port] #[library-ixport 93 (mit legacy runtime) call-with-current-continuation] #[library-ixport 94 (mit legacy runtime) cadr] #[library-ixport 95 (mit legacy runtime) caar] #[library-ixport 96 (mit legacy runtime) bytevector?] #[library-ixport 97 (mit legacy runtime) bytevector-u8-set!] #[library-ixport 98 (mit legacy runtime) bytevector-u8-ref] #[library-ixport 99 (mit legacy runtime) bytevector-length] #[library-ixport 100 (mit legacy runtime) bytevector-copy!] #[library-ixport 101 (mit legacy runtime) bytevector-copy] #[library-ixport 102 (mit legacy runtime) bytevector-append] #[library-ixport 103 (mit legacy runtime) bytevector] #[library-ixport 104 (mit legacy runtime) boolean?] #[library-ixport 105 (mit legacy runtime) boolean=?] #[library-ixport 106 (mit legacy runtime) binary-port?] #[library-ixport 107 (mit legacy runtime) begin] #[library-ixport 108 (mit legacy runtime) assv] #[library-ixport 109 (mit legacy runtime) assq] #[library-ixport 110 (mit legacy runtime) assoc] #[library-ixport 111 (mit legacy runtime) apply] #[library-ixport 112 (mit legacy runtime) append] #[library-ixport 113 (mit legacy runtime) and] #[library-ixport 114 (mit legacy runtime) abs] #[library-ixport 115 (mit legacy runtime) _] #[library-ixport 116 (mit legacy runtime) >=] #[library-ixport 117 (mit legacy runtime) >] #[library-ixport 118 (mit legacy runtime) =>] #[library-ixport 119 (mit legacy runtime) =] #[library-ixport 120 (mit legacy runtime) <=] #[library-ixport 121 (mit legacy runtime) <] #[library-ixport 122 (mit legacy runtime) /] #[library-ixport 123 (mit legacy runtime) ...] #[library-ixport 124 (mit legacy runtime) -] #[library-ixport 125 (mit legacy runtime) +] #[library-ixport 126 (mit legacy runtime) *] #[library-ixport 127 (mit legacy runtime) named-lambda] #[library-ixport 128 (mit legacy runtime) record-predicate] #[library-ixport 129 (mit legacy runtime) record-modifier] #[library-ixport 130 (mit legacy runtime) record-constructor] #[library-ixport 131 (mit legacy runtime) record-accessor] #[library-ixport 132 (mit legacy runtime) make-record-type] #[library-ixport 133 (mit legacy runtime) guarantee] #[library-ixport 134 (mit legacy runtime) %record-set!] #[library-ixport 135 (mit legacy runtime) %record-ref] #[library-ixport 136 (mit legacy runtime) %record?] #[library-ixport 137 (mit legacy runtime) parameterize*] #[library-ixport 138 (mit legacy runtime) syntax-rules:match-datum] #[library-ixport 139 (mit legacy runtime) syntax-rules:expand-template] #[library-ixport 140 (mit legacy runtime) ill-formed-syntax] #[library-ixport 141 (mit legacy runtime) er-macro-transformer] #[library-ixport 142 (mit legacy runtime) declare] #[library-ixport 143 (mit legacy runtime) write-to-string] #[library-ixport 144 (mit legacy runtime) pp] #[library-ixport 145 (mit legacy runtime) write] #[library-ixport 146 (mit legacy runtime) |1+|] #[library-ixport 147 (mit legacy runtime) unspecific] #[library-ixport 148 (mit legacy runtime) sort] #[library-ixport 149 (mit legacy runtime) del-assoc] #[library-ixport 150 (mit legacy runtime) append-map] #[library-ixport 151 (mit legacy runtime) format] #[library-ixport 152 (mit legacy runtime) condition?] #[library-ixport 153 (mit legacy runtime) condition-type:error] #[library-ixport 154 (mit legacy runtime) bind-condition-handler] #[library-ixport 155 (mit legacy runtime) define-print-method] #[library-ixport 156 (mit legacy runtime) bracketed-print-method]) ()))
#(43 205 #(#[compiled-return-address 31 ("srfi-1" #x33) #x37c #xe2caf7] imports-environment (name) #[compiled-closure 301 ("library-database" #x33) #x283 #x8d154b ...] (contents imports-environment name) ()))
#(49 205 #(#[compiled-return-address 302 ("library-database" #x30) #x55 #x8cfd84] #[auto 303] #[library 304 (unit-test)]))
#(52 205 #(#[compiled-return-address 31 ("srfi-1" #x33) #x37c #xe2caf7] #[library-ixport 305 (unit-test) run-single-test] (#[library-ixport 306 (unit-test) run-all-tests] #[library-ixport 307 (unit-test) make-unit-test] #[library-ixport 308 (unit-test) install-test-group!] #[library-ixport 309 (unit-test) define-test-group] #[library-ixport 310 (unit-test) define-test] #[library-ixport 311 (mit legacy runtime) zero?] #[library-ixport 312 (mit legacy runtime) write-u8] #[library-ixport 313 (mit legacy runtime) write-string] #[library-ixport 314 (mit legacy runtime) write-char] #[library-ixport 315 (mit legacy runtime) write-bytevector] #[library-ixport 316 (mit legacy runtime) with-exception-handler] #[library-ixport 317 (mit legacy runtime) when] #[library-ixport 318 (mit legacy runtime) vector?] #[library-ixport 319 (mit legacy runtime) vector-set!] #[library-ixport 320 (mit legacy runtime) vector-ref] #[library-ixport 321 (mit legacy runtime) vector-map] #[library-ixport 322 (mit legacy runtime) vector-length] #[library-ixport 323 (mit legacy runtime) vector-for-each] #[library-ixport 324 (mit legacy runtime) vector-fill!] #[library-ixport 325 (mit legacy runtime) vector-copy!] #[library-ixport 326 (mit legacy runtime) vector-copy] #[library-ixport 327 (mit legacy runtime) vector-append] #[library-ixport 328 (mit legacy runtime) vector->string] #[library-ixport 329 (mit legacy runtime) vector->list] #[library-ixport 330 (mit legacy runtime) vector] #[library-ixport 331 (mit legacy runtime) values] #[library-ixport 332 (mit legacy runtime) utf8->string] #[library-ixport 333 (mit legacy runtime) unquote-splicing] #[library-ixport 334 (mit legacy runtime) unquote] #[library-ixport 335 (mit legacy runtime) unless] #[library-ixport 336 (mit legacy runtime) u8-ready?] #[library-ixport 337 (mit legacy runtime) truncate/] #[library-ixport 338 (mit legacy runtime) truncate-remainder] #[library-ixport 339 (mit legacy runtime) truncate-quotient] #[library-ixport 340 (mit legacy runtime) truncate] #[library-ixport 341 (mit legacy runtime) textual-port?] #[library-ixport 342 (mit legacy runtime) syntax-rules] #[library-ixport 343 (mit legacy runtime) syntax-error] #[library-ixport 344 (mit legacy runtime) symbol?] #[library-ixport 345 (mit legacy runtime) symbol=?] #[library-ixport 346 (mit legacy runtime) symbol->string] #[library-ixport 347 (mit legacy runtime) substring] #[library-ixport 348 (mit legacy runtime) string?] #[library-ixport 349 (mit legacy runtime) string>?] #[library-ixport 350 (mit legacy runtime) string>=?] #[library-ixport 351 (mit legacy runtime) string=?] #[library-ixport 352 (mit legacy runtime) string<?] #[library-ixport 353 (mit legacy runtime) string<=?] #[library-ixport 354 (mit legacy runtime) string-set!] #[library-ixport 355 (mit legacy runtime) string-ref] #[library-ixport 356 (mit legacy runtime) string-map] #[library-ixport 357 (mit legacy runtime) string-length] #[library-ixport 358 (mit legacy runtime) string-for-each] #[library-ixport 359 (mit legacy runtime) string-fill!] #[library-ixport 360 (mit legacy runtime) string-copy!] #[library-ixport 361 (mit legacy runtime) string-copy] #[library-ixport 362 (mit legacy runtime) string-append] #[library-ixport 363 (mit legacy runtime) string->vector] #[library-ixport 364 (mit legacy runtime) string->utf8] #[library-ixport 365 (mit legacy runtime) string->symbol] #[library-ixport 366 (mit legacy runtime) string->number] #[library-ixport 367 (mit legacy runtime) string->list] #[library-ixport 368 (mit legacy runtime) string] #[library-ixport 369 (mit legacy runtime) square] #[library-ixport 370 (mit legacy runtime) set-cdr!] #[library-ixport 371 (mit legacy runtime) set-car!] #[library-ixport 372 (mit legacy runtime) set!] #[library-ixport 373 (mit legacy runtime) round] #[library-ixport 374 (mit legacy runtime) reverse] #[library-ixport 375 (mit legacy runtime) remainder] #[library-ixport 376 (mit legacy runtime) real?] #[library-ixport 377 (mit legacy runtime) read-u8] #[library-ixport 378 (mit legacy runtime) read-string] #[library-ixport 379 (mit legacy runtime) read-line] #[library-ixport 380 (mit legacy runtime) read-error?] #[library-ixport 381 (mit legacy runtime) read-char] #[library-ixport 382 (mit legacy runtime) read-bytevector!] #[library-ixport 383 (mit legacy runtime) read-bytevector] #[library-ixport 384 (mit legacy runtime) rationalize] #[library-ixport 385 (mit legacy runtime) rational?] #[library-ixport 386 (mit legacy runtime) raise-continuable] #[library-ixport 387 (mit legacy runtime) raise] #[library-ixport 388 (mit legacy runtime) quotient] #[library-ixport 389 (mit legacy runtime) quote] #[library-ixport 390 (mit legacy runtime) quasiquote] #[library-ixport 391 (mit legacy runtime) procedure?] #[library-ixport 392 (mit legacy runtime) positive?] #[library-ixport 393 (mit legacy runtime) port?] #[library-ixport 394 (mit legacy runtime) peek-u8] #[library-ixport 395 (mit legacy runtime) peek-char] #[library-ixport 396 (mit legacy runtime) parameterize] #[library-ixport 397 (mit legacy runtime) pair?] #[library-ixport 398 (mit legacy runtime) output-port?] #[library-ixport 399 (mit legacy runtime) output-port-open?] #[library-ixport 400 (mit legacy runtime) or] #[library-ixport 401 (mit legacy runtime) open-output-string] #[library-ixport 402 (mit legacy runtime) open-output-bytevector] #[library-ixport 403 (mit legacy runtime) open-input-string] #[library-ixport 404 (mit legacy runtime) open-input-bytevector] #[library-ixport 405 (mit legacy runtime) odd?] #[library-ixport 406 (mit legacy runtime) numerator] #[library-ixport 407 (mit legacy runtime) number?] #[library-ixport 408 (mit legacy runtime) number->string] #[library-ixport 409 (mit legacy runtime) null?] #[library-ixport 410 (mit legacy runtime) not] #[library-ixport 411 (mit legacy runtime) newline] #[library-ixport 412 (mit legacy runtime) negative?] #[library-ixport 413 (mit legacy runtime) modulo] #[library-ixport 414 (mit legacy runtime) min] #[library-ixport 415 (mit legacy runtime) memv] #[library-ixport 416 (mit legacy runtime) memq] #[library-ixport 417 (mit legacy runtime) member] #[library-ixport 418 (mit legacy runtime) max] #[library-ixport 419 (mit legacy runtime) map] #[library-ixport 420 (mit legacy runtime) make-vector] #[library-ixport 421 (mit legacy runtime) make-string] #[library-ixport 422 (mit legacy runtime) make-parameter] #[library-ixport 423 (mit legacy runtime) make-list] #[library-ixport 424 (mit legacy runtime) make-bytevector] #[library-ixport 425 (mit legacy runtime) list?] #[library-ixport 426 (mit legacy runtime) list-tail] #[library-ixport 427 (mit legacy runtime) list-set!] #[library-ixport 428 (mit legacy runtime) list-ref] #[library-ixport 429 (mit legacy runtime) list-copy] #[library-ixport 430 (mit legacy runtime) list->vector] #[library-ixport 431 (mit legacy runtime) list->string] #[library-ixport 432 (mit legacy runtime) list] #[library-ixport 433 (mit legacy runtime) letrec-syntax] #[library-ixport 434 (mit legacy runtime) letrec*] #[library-ixport 435 (mit legacy runtime) letrec] #[library-ixport 436 (mit legacy runtime) let-values] #[library-ixport 437 (mit legacy runtime) let-syntax] #[library-ixport 438 (mit legacy runtime) let*-values] #[library-ixport 439 (mit legacy runtime) let*] #[library-ixport 440 (mit legacy runtime) let] #[library-ixport 441 (mit legacy runtime) length] #[library-ixport 442 (mit legacy runtime) lcm] #[library-ixport 443 (mit legacy runtime) lambda] #[library-ixport 444 (mit legacy runtime) integer?] #[library-ixport 445 (mit legacy runtime) integer->char] #[library-ixport 446 (mit legacy runtime) input-port?] #[library-ixport 447 (mit legacy runtime) input-port-open?] #[library-ixport 448 (mit legacy runtime) inexact?] #[library-ixport 449 (mit legacy runtime) inexact] #[library-ixport 450 (mit legacy runtime) include-ci] #[library-ixport 451 (mit legacy runtime) include] #[library-ixport 452 (mit legacy runtime) if] #[library-ixport 453 (mit legacy runtime) guard] #[library-ixport 454 (mit legacy runtime) get-output-string] #[library-ixport 455 (mit legacy runtime) get-output-bytevector] #[library-ixport 456 (mit legacy runtime) gcd] #[library-ixport 457 (mit legacy runtime) for-each] #[library-ixport 458 (mit legacy runtime) flush-output-port] #[library-ixport 459 (mit legacy runtime) floor/] #[library-ixport 460 (mit legacy runtime) floor-remainder] #[library-ixport 461 (mit legacy runtime) floor-quotient] #[library-ixport 462 (mit legacy runtime) floor] #[library-ixport 463 (mit legacy runtime) file-error?] #[library-ixport 464 (mit legacy runtime) features] #[library-ixport 465 (mit legacy runtime) expt] #[library-ixport 466 (mit legacy runtime) exact?] #[library-ixport 467 (mit legacy runtime) exact-integer?] #[library-ixport 468 (mit legacy runtime) exact-integer-sqrt] #[library-ixport 469 (mit legacy runtime) exact] #[library-ixport 470 (mit legacy runtime) even?] #[library-ixport 471 (mit legacy runtime) error-object?] #[library-ixport 472 (mit legacy runtime) error-object-message] #[library-ixport 473 (mit legacy runtime) error-object-irritants] #[library-ixport 474 (mit legacy runtime) error] #[library-ixport 475 (mit legacy runtime) eqv?] #[library-ixport 476 (mit legacy runtime) equal?] #[library-ixport 477 (mit legacy runtime) eq?] #[library-ixport 478 (mit legacy runtime) eof-object?] #[library-ixport 479 (mit legacy runtime) eof-object] #[library-ixport 480 (mit legacy runtime) else] #[library-ixport 481 (mit legacy runtime) dynamic-wind] #[library-ixport 482 (mit legacy runtime) do] #[library-ixport 483 (mit legacy runtime) denominator] #[library-ixport 484 (mit legacy runtime) define-values] #[library-ixport 485 (mit legacy runtime) define-syntax] #[library-ixport 486 (mit legacy runtime) define-record-type] #[library-ixport 487 (mit legacy runtime) define] #[library-ixport 488 (mit legacy runtime) current-output-port] #[library-ixport 489 (mit legacy runtime) current-input-port] #[library-ixport 490 (mit legacy runtime) current-error-port] #[library-ixport 491 (mit legacy runtime) cons] #[library-ixport 492 (mit legacy runtime) cond-expand] #[library-ixport 493 (mit legacy runtime) cond] #[library-ixport 494 (mit legacy runtime) complex?] #[library-ixport 495 (mit legacy runtime) close-port] #[library-ixport 496 (mit legacy runtime) close-output-port] #[library-ixport 497 (mit legacy runtime) close-input-port] #[library-ixport 498 (mit legacy runtime) char?] #[library-ixport 499 (mit legacy runtime) char>?] #[library-ixport 500 (mit legacy runtime) char>=?] #[library-ixport 501 (mit legacy runtime) char=?] #[library-ixport 502 (mit legacy runtime) char<?] #[library-ixport 503 (mit legacy runtime) char<=?] #[library-ixport 504 (mit legacy runtime) char-ready?] #[library-ixport 505 (mit legacy runtime) char->integer] #[library-ixport 506 (mit legacy runtime) ceiling] #[library-ixport 507 (mit legacy runtime) cdr] #[library-ixport 508 (mit legacy runtime) cddr] #[library-ixport 509 (mit legacy runtime) cdar] #[library-ixport 510 (mit legacy runtime) case] #[library-ixport 511 (mit legacy runtime) car] #[library-ixport 512 (mit legacy runtime) call/cc] #[library-ixport 513 (mit legacy runtime) call-with-values] #[library-ixport 514 (mit legacy runtime) call-with-port] #[library-ixport 515 (mit legacy runtime) call-with-current-continuation] #[library-ixport 516 (mit legacy runtime) cadr] #[library-ixport 517 (mit legacy runtime) caar] #[library-ixport 518 (mit legacy runtime) bytevector?] #[library-ixport 519 (mit legacy runtime) bytevector-u8-set!] #[library-ixport 520 (mit legacy runtime) bytevector-u8-ref] #[library-ixport 521 (mit legacy runtime) bytevector-length] #[library-ixport 522 (mit legacy runtime) bytevector-copy!] #[library-ixport 523 (mit legacy runtime) bytevector-copy] #[library-ixport 524 (mit legacy runtime) bytevector-append] #[library-ixport 525 (mit legacy runtime) bytevector] #[library-ixport 526 (mit legacy runtime) boolean?] #[library-ixport 527 (mit legacy runtime) boolean=?] #[library-ixport 528 (mit legacy runtime) binary-port?] #[library-ixport 529 (mit legacy runtime) begin] #[library-ixport 530 (mit legacy runtime) assv] #[library-ixport 531 (mit legacy runtime) assq] #[library-ixport 532 (mit legacy runtime) assoc] #[library-ixport 533 (mit legacy runtime) apply] #[library-ixport 534 (mit legacy runtime) append] #[library-ixport 535 (mit legacy runtime) and] #[library-ixport 536 (mit legacy runtime) abs] #[library-ixport 537 (mit legacy runtime) _] #[library-ixport 538 (mit legacy runtime) >=] #[library-ixport 539 (mit legacy runtime) >] #[library-ixport 540 (mit legacy runtime) =>] #[library-ixport 541 (mit legacy runtime) =] #[library-ixport 542 (mit legacy runtime) <=] #[library-ixport 543 (mit legacy runtime) <] #[library-ixport 544 (mit legacy runtime) /] #[library-ixport 545 (mit legacy runtime) ...] #[library-ixport 546 (mit legacy runtime) -] #[library-ixport 547 (mit legacy runtime) +] #[library-ixport 548 (mit legacy runtime) *] #[library-ixport 549 (mit legacy runtime) named-lambda] #[library-ixport 550 (mit legacy runtime) record-predicate] #[library-ixport 551 (mit legacy runtime) record-modifier] #[library-ixport 552 (mit legacy runtime) record-constructor] #[library-ixport 553 (mit legacy runtime) record-accessor] #[library-ixport 554 (mit legacy runtime) make-record-type] #[library-ixport 555 (mit legacy runtime) guarantee] #[library-ixport 556 (mit legacy runtime) %record-set!] #[library-ixport 557 (mit legacy runtime) %record-ref] #[library-ixport 558 (mit legacy runtime) %record?] #[library-ixport 559 (mit legacy runtime) parameterize*] #[library-ixport 560 (mit legacy runtime) syntax-rules:match-datum] #[library-ixport 561 (mit legacy runtime) syntax-rules:expand-template] #[library-ixport 562 (mit legacy runtime) ill-formed-syntax] #[library-ixport 563 (mit legacy runtime) er-macro-transformer] #[library-ixport 564 (mit legacy runtime) declare] #[library-ixport 565 (mit legacy runtime) stream-pair?] #[library-ixport 566 (mit legacy runtime) stream-null?] #[library-ixport 567 (mit legacy runtime) stream-cdr] #[library-ixport 568 (mit legacy runtime) stream] #[library-ixport 569 (mit legacy runtime) condition-type:simple-error] #[library-ixport 570 (mit legacy runtime) bind-condition-handler]) #[compiled-closure 571 ("library-loader" #xa) #xa2 #x89705a ...] (#[library-ixport 572 (unit-test) unit-tests] #[library-ixport 573 (unit-test) uninstall-test-group!] #[library-ixport 574 (unit-test) show-failing-tests] #[library-ixport 305 (unit-test) run-single-test] #[library-ixport 306 (unit-test) run-all-tests] #[library-ixport 307 (unit-test) make-unit-test] #[library-ixport 308 (unit-test) install-test-group!] #[library-ixport 309 (unit-test) define-test-group] #[library-ixport 310 (unit-test) define-test] #[library-ixport 311 (mit legacy runtime) zero?] #[library-ixport 312 (mit legacy runtime) write-u8] #[library-ixport 313 (mit legacy runtime) write-string] #[library-ixport 314 (mit legacy runtime) write-char] #[library-ixport 315 (mit legacy runtime) write-bytevector] #[library-ixport 316 (mit legacy runtime) with-exception-handler] #[library-ixport 317 (mit legacy runtime) when] #[library-ixport 318 (mit legacy runtime) vector?] #[library-ixport 319 (mit legacy runtime) vector-set!] #[library-ixport 320 (mit legacy runtime) vector-ref] #[library-ixport 321 (mit legacy runtime) vector-map] #[library-ixport 322 (mit legacy runtime) vector-length] #[library-ixport 323 (mit legacy runtime) vector-for-each] #[library-ixport 324 (mit legacy runtime) vector-fill!] #[library-ixport 325 (mit legacy runtime) vector-copy!] #[library-ixport 326 (mit legacy runtime) vector-copy] #[library-ixport 327 (mit legacy runtime) vector-append] #[library-ixport 328 (mit legacy runtime) vector->string] #[library-ixport 329 (mit legacy runtime) vector->list] #[library-ixport 330 (mit legacy runtime) vector] #[library-ixport 331 (mit legacy runtime) values] #[library-ixport 332 (mit legacy runtime) utf8->string] #[library-ixport 333 (mit legacy runtime) unquote-splicing] #[library-ixport 334 (mit legacy runtime) unquote] #[library-ixport 335 (mit legacy runtime) unless] #[library-ixport 336 (mit legacy runtime) u8-ready?] #[library-ixport 337 (mit legacy runtime) truncate/] #[library-ixport 338 (mit legacy runtime) truncate-remainder] #[library-ixport 339 (mit legacy runtime) truncate-quotient] #[library-ixport 340 (mit legacy runtime) truncate] #[library-ixport 341 (mit legacy runtime) textual-port?] #[library-ixport 342 (mit legacy runtime) syntax-rules] #[library-ixport 343 (mit legacy runtime) syntax-error] #[library-ixport 344 (mit legacy runtime) symbol?] #[library-ixport 345 (mit legacy runtime) symbol=?] #[library-ixport 346 (mit legacy runtime) symbol->string] #[library-ixport 347 (mit legacy runtime) substring] #[library-ixport 348 (mit legacy runtime) string?] #[library-ixport 349 (mit legacy runtime) string>?] #[library-ixport 350 (mit legacy runtime) string>=?] #[library-ixport 351 (mit legacy runtime) string=?] #[library-ixport 352 (mit legacy runtime) string<?] #[library-ixport 353 (mit legacy runtime) string<=?] #[library-ixport 354 (mit legacy runtime) string-set!] #[library-ixport 355 (mit legacy runtime) string-ref] #[library-ixport 356 (mit legacy runtime) string-map] #[library-ixport 357 (mit legacy runtime) string-length] #[library-ixport 358 (mit legacy runtime) string-for-each] #[library-ixport 359 (mit legacy runtime) string-fill!] #[library-ixport 360 (mit legacy runtime) string-copy!] #[library-ixport 361 (mit legacy runtime) string-copy] #[library-ixport 362 (mit legacy runtime) string-append] #[library-ixport 363 (mit legacy runtime) string->vector] #[library-ixport 364 (mit legacy runtime) string->utf8] #[library-ixport 365 (mit legacy runtime) string->symbol] #[library-ixport 366 (mit legacy runtime) string->number] #[library-ixport 367 (mit legacy runtime) string->list] #[library-ixport 368 (mit legacy runtime) string] #[library-ixport 369 (mit legacy runtime) square] #[library-ixport 370 (mit legacy runtime) set-cdr!] #[library-ixport 371 (mit legacy runtime) set-car!] #[library-ixport 372 (mit legacy runtime) set!] #[library-ixport 373 (mit legacy runtime) round] #[library-ixport 374 (mit legacy runtime) reverse] #[library-ixport 375 (mit legacy runtime) remainder] #[library-ixport 376 (mit legacy runtime) real?] #[library-ixport 377 (mit legacy runtime) read-u8] #[library-ixport 378 (mit legacy runtime) read-string] #[library-ixport 379 (mit legacy runtime) read-line] #[library-ixport 380 (mit legacy runtime) read-error?] #[library-ixport 381 (mit legacy runtime) read-char] #[library-ixport 382 (mit legacy runtime) read-bytevector!] #[library-ixport 383 (mit legacy runtime) read-bytevector] #[library-ixport 384 (mit legacy runtime) rationalize] #[library-ixport 385 (mit legacy runtime) rational?] #[library-ixport 386 (mit legacy runtime) raise-continuable] #[library-ixport 387 (mit legacy runtime) raise] #[library-ixport 388 (mit legacy runtime) quotient] #[library-ixport 389 (mit legacy runtime) quote] #[library-ixport 390 (mit legacy runtime) quasiquote] #[library-ixport 391 (mit legacy runtime) procedure?] #[library-ixport 392 (mit legacy runtime) positive?] #[library-ixport 393 (mit legacy runtime) port?] #[library-ixport 394 (mit legacy runtime) peek-u8] #[library-ixport 395 (mit legacy runtime) peek-char] #[library-ixport 396 (mit legacy runtime) parameterize] #[library-ixport 397 (mit legacy runtime) pair?] #[library-ixport 398 (mit legacy runtime) output-port?] #[library-ixport 399 (mit legacy runtime) output-port-open?] #[library-ixport 400 (mit legacy runtime) or] #[library-ixport 401 (mit legacy runtime) open-output-string] #[library-ixport 402 (mit legacy runtime) open-output-bytevector] #[library-ixport 403 (mit legacy runtime) open-input-string] #[library-ixport 404 (mit legacy runtime) open-input-bytevector] #[library-ixport 405 (mit legacy runtime) odd?] #[library-ixport 406 (mit legacy runtime) numerator] #[library-ixport 407 (mit legacy runtime) number?] #[library-ixport 408 (mit legacy runtime) number->string] #[library-ixport 409 (mit legacy runtime) null?] #[library-ixport 410 (mit legacy runtime) not] #[library-ixport 411 (mit legacy runtime) newline] #[library-ixport 412 (mit legacy runtime) negative?] #[library-ixport 413 (mit legacy runtime) modulo] #[library-ixport 414 (mit legacy runtime) min] #[library-ixport 415 (mit legacy runtime) memv] #[library-ixport 416 (mit legacy runtime) memq] #[library-ixport 417 (mit legacy runtime) member] #[library-ixport 418 (mit legacy runtime) max] #[library-ixport 419 (mit legacy runtime) map] #[library-ixport 420 (mit legacy runtime) make-vector] #[library-ixport 421 (mit legacy runtime) make-string] #[library-ixport 422 (mit legacy runtime) make-parameter] #[library-ixport 423 (mit legacy runtime) make-list] #[library-ixport 424 (mit legacy runtime) make-bytevector] #[library-ixport 425 (mit legacy runtime) list?] #[library-ixport 426 (mit legacy runtime) list-tail] #[library-ixport 427 (mit legacy runtime) list-set!] #[library-ixport 428 (mit legacy runtime) list-ref] #[library-ixport 429 (mit legacy runtime) list-copy] #[library-ixport 430 (mit legacy runtime) list->vector] #[library-ixport 431 (mit legacy runtime) list->string] #[library-ixport 432 (mit legacy runtime) list] #[library-ixport 433 (mit legacy runtime) letrec-syntax] #[library-ixport 434 (mit legacy runtime) letrec*] #[library-ixport 435 (mit legacy runtime) letrec] #[library-ixport 436 (mit legacy runtime) let-values] #[library-ixport 437 (mit legacy runtime) let-syntax] #[library-ixport 438 (mit legacy runtime) let*-values] #[library-ixport 439 (mit legacy runtime) let*] #[library-ixport 440 (mit legacy runtime) let] #[library-ixport 441 (mit legacy runtime) length] #[library-ixport 442 (mit legacy runtime) lcm] #[library-ixport 443 (mit legacy runtime) lambda] #[library-ixport 444 (mit legacy runtime) integer?] #[library-ixport 445 (mit legacy runtime) integer->char] #[library-ixport 446 (mit legacy runtime) input-port?] #[library-ixport 447 (mit legacy runtime) input-port-open?] #[library-ixport 448 (mit legacy runtime) inexact?] #[library-ixport 449 (mit legacy runtime) inexact] #[library-ixport 450 (mit legacy runtime) include-ci] #[library-ixport 451 (mit legacy runtime) include] #[library-ixport 452 (mit legacy runtime) if] #[library-ixport 453 (mit legacy runtime) guard] #[library-ixport 454 (mit legacy runtime) get-output-string] #[library-ixport 455 (mit legacy runtime) get-output-bytevector] #[library-ixport 456 (mit legacy runtime) gcd] #[library-ixport 457 (mit legacy runtime) for-each] #[library-ixport 458 (mit legacy runtime) flush-output-port] #[library-ixport 459 (mit legacy runtime) floor/] #[library-ixport 460 (mit legacy runtime) floor-remainder] #[library-ixport 461 (mit legacy runtime) floor-quotient] #[library-ixport 462 (mit legacy runtime) floor] #[library-ixport 463 (mit legacy runtime) file-error?] #[library-ixport 464 (mit legacy runtime) features] #[library-ixport 465 (mit legacy runtime) expt] #[library-ixport 466 (mit legacy runtime) exact?] #[library-ixport 467 (mit legacy runtime) exact-integer?] #[library-ixport 468 (mit legacy runtime) exact-integer-sqrt] #[library-ixport 469 (mit legacy runtime) exact] #[library-ixport 470 (mit legacy runtime) even?] #[library-ixport 471 (mit legacy runtime) error-object?] #[library-ixport 472 (mit legacy runtime) error-object-message] #[library-ixport 473 (mit legacy runtime) error-object-irritants] #[library-ixport 474 (mit legacy runtime) error] #[library-ixport 475 (mit legacy runtime) eqv?] #[library-ixport 476 (mit legacy runtime) equal?] #[library-ixport 477 (mit legacy runtime) eq?] #[library-ixport 478 (mit legacy runtime) eof-object?] #[library-ixport 479 (mit legacy runtime) eof-object] #[library-ixport 480 (mit legacy runtime) else] #[library-ixport 481 (mit legacy runtime) dynamic-wind] #[library-ixport 482 (mit legacy runtime) do] #[library-ixport 483 (mit legacy runtime) denominator] #[library-ixport 484 (mit legacy runtime) define-values] #[library-ixport 485 (mit legacy runtime) define-syntax] #[library-ixport 486 (mit legacy runtime) define-record-type] #[library-ixport 487 (mit legacy runtime) define] #[library-ixport 488 (mit legacy runtime) current-output-port] #[library-ixport 489 (mit legacy runtime) current-input-port] #[library-ixport 490 (mit legacy runtime) current-error-port] #[library-ixport 491 (mit legacy runtime) cons] #[library-ixport 492 (mit legacy runtime) cond-expand] #[library-ixport 493 (mit legacy runtime) cond] #[library-ixport 494 (mit legacy runtime) complex?] #[library-ixport 495 (mit legacy runtime) close-port] #[library-ixport 496 (mit legacy runtime) close-output-port] #[library-ixport 497 (mit legacy runtime) close-input-port] #[library-ixport 498 (mit legacy runtime)

Arthur A. Gleckler <aag>
Group Member
Sun 22 Oct 2023 03:49:44 AM UTC, comment #3: 

comment #2:

> > The failed assertion means that there's a bug in the continuation parser. To help me debug this, I'll need the output of the following:


> > ,(import (mit runtime-internal))
> > (generator-for-each write-line
> >                     (control-point->raw-frame-generator
> >                      (continuation/control-point
> >                       (condition/continuation
> >                        (nearest-repl/condition)))))


>
> Alas, the line before that is ";Ignoring error:", and I'm at the "debug>" prompt, too, so I don't think that parsing the stack where I end up will help.  I'll try modifying the MIT Scheme source code containing the assertion to produce that output.


Sorry, I should have been clearer: run that code instead of starting the debugger. I need to debug the continuation parser, so I need to see the raw frames it's working with.

Chris Hanson <cph>
Group administrator
Sun 22 Oct 2023 03:05:59 AM UTC, comment #2: 

comment #1:

> The stack traces appear to be showing activity in library linking. Do any of your libraries have an unqualified import:


I don't.  (I just double-checked.)  I've been careful, in each case, to import only what I need from that library.

At the REPL, I've tried manually importing every library upon which the hanging library depends, but that doesn't trigger the problem.  There's something about the process of loading the library itself that causes the problem.

I'm wondering whether there's something O(n**2) happening during loading.  I have other libraries that are relatively small, but have many exports, and they take forever to load.  For example, a small list library with forty-six exports just took 3m25s to load.

> The failed assertion means that there's a bug in the continuation parser. To help me debug this, I'll need the output of the following:


> ,(import (mit runtime-internal))
> (generator-for-each write-line
>                     (control-point->raw-frame-generator
>                      (continuation/control-point
>                       (condition/continuation
>                        (nearest-repl/condition)))))


Alas, the line before that is ";Ignoring error:", and I'm at the "debug>" prompt, too, so I don't think that parsing the stack where I end up will help.  I'll try modifying the MIT Scheme source code containing the assertion to produce that output.

Arthur A. Gleckler <aag>
Group Member
Sun 22 Oct 2023 01:26:48 AM UTC, comment #1: 

The stack traces appear to be showing activity in library linking. Do any of your libraries have an unqualified import:

(import ... (mit library runtime) ...)


As opposed to a qualified import:

(import ... (only (mit library runtime) ...) ...)


The reason this may be interesting is that (mit library runtime) has over 4000 bindings, and it can take a long time to copy all those bindings over when instantiating a library.



The failed assertion means that there's a bug in the continuation parser. To help me debug this, I'll need the output of the following:

,(import (mit runtime-internal))
(generator-for-each write-line
                    (control-point->raw-frame-generator
                     (continuation/control-point
                      (condition/continuation
                       (nearest-repl/condition)))))


Chris Hanson <cph>
Group administrator
Sat 21 Oct 2023 11:09:56 PM UTC, original submission:  

I've wrapped most of my code into R7RS-Small libraries.  Everything was working for a while, even compiled, but something has changed, and I'm hoping for some debugging advice.  I'm also reporting an internal assertion failure.  I'm running MIT Scheme at db828dd9b.

The problem is this: Everything works fine interpreted.  However, after I have compiled all of my ".sld" files and restarted Scheme, then registered libraries using find-scheme-libraries!, when I use ge to enter one of my libraries, the system hangs.  For the life of me, I can't figure out what's going on.  In the transcript below, I've used ^Ct a few times to print stack traces, then ^C^B to break and get a stack trace using the debugger.  Note the "Assertion failed" message near the end.  (That's the bug I'm reporting here.)  There are no top-level loops in the library being loaded, so I'm expecting to get back to a prompt immediately.  Indeed, that's what happens when all the code is interpreted.

Do you have any advice on how to debug in this situation?

Thanks.



1 ]=> (ge '(web site start))

;Loading "/home/arthur/scheme/src/web/site/start.comld"... done
;Loading "/home/arthur/scheme/src/web/site/common/template.comld"... done
;Loading "/home/arthur/scheme/src/utilities.comld"... done
;Loading "/home/arthur/scheme/src/unit-test.comld"... done
;Loading "/home/arthur/scheme/src/io/string-io.comld"... done
;Loading "/home/arthur/scheme/src/assert.comld"... done
;Loading "/home/arthur/scheme/src/iteration.comld"... done
;Loading "/home/arthur/scheme/src/data-structures/vector.comld"... done
;Loading "/home/arthur/scheme/src/data-structures/string.comld"... done
;Loading "/home/arthur/scheme/src/data-structures/stream.comld"... done
;Loading "/home/arthur/scheme/src/data-structures/set.comld"... done
;Loading "/home/arthur/scheme/src/filter-map.comld"... done
;Loading "/home/arthur/scheme/src/data-structures/list.sld"... done


Interrupt option (? for help):

^B: Enter a breakpoint loop.
^C: Goto to top level read-eval-print (REP) loop.
^L: Clear the screen.
^U: Up to previous (lower numbered) REP loop.
^X: Abort to current REP loop.
D: Debugging: change interpreter flags.
E: Examine memory location.
H: Print simple information on interrupts.
I: Ignore interrupt request.
Q: Quit instantly, killing Scheme.
R: Hard reset, possibly killing Scheme in the process.
T: Stack trace.
Z: Quit instantly, suspending Scheme.

Interrupt option (? for help): t

Enter the stack trace filename (default: terminal):
*** Scheme Microcode Back Trace: ***
{0x80fa88}  ...: (mit legacy runtime)
{0x80fa90}  ...: [false 0xc2fc0c]
{0x80fa98}  ...: (mit legacy runtime)
{0x80faa0}  ...: (runtime)
{0x80faa8}  ...: runtime
{0x80fab0}  ...: runtime
{0x80fab8}  ...: [false 0xe7605f]
{0x80fac0}  ...: [compiled-closure offset: 0xf1 entry: 0xe76009 address: 0x9c6c168]
{0x80fac8}  ...: runtime
{0x80fad0}  ...: ()
{0x80fad8}  ...: [compiled-closure offset: 0xb58 entry: 0xe76a70 address: 0x9c6c218]
{0x80fae0}  ...: [compiled-return-address offset: 0xab61 entry: 0xc3d291]
{0x80fae8}  ...: (((mit legacy runtime) . [record 0x1d14a98]) ((scheme base) . [record 0x13de1c0]))
{0x80faf0}  ...: [compiled-closure offset: 0x73fb entry: 0xc39b2b address: 0x11645c8]
{0x80faf8}  ...: [record 0x110f120]
{0x80fb00}  ...: (mit legacy runtime)
{0x80fb08}  ...: [compiled-procedure offset: 0x42f entry: 0xc139df]
{0x80fb10}  ...: [compiled-procedure offset: 0x442 entry: 0xc139f2]
{0x80fb18}  ...: [compiled-return-address offset: 0x75 entry: 0x8957cd]
{0x80fb20}  ...: (mit legacy runtime)
{0x80fb28}  ...: [record 0x1c872a8]
{0x80fb30}  ...: [record 0x102d2b8]
{0x80fb38}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fb40}  ...: [record 0x1c872a8]
{0x80fb48}  ...: ([record 0x1c872d0] [record 0x1c872f8] [record 0x1c87320] [record 0x1c87348] [record 0x1c87370] [record 0x1c87398] [record 0x1c873c0] [record 0x1c873e8] [record 0x1c87410] [record 0x1c87438] ...)
{0x80fb50}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x9c4fd40]
{0x80fb58}  ...: ([record 0x1c85610] [record 0x1c85638] [record 0x1c85660] [record 0x1c85688] [record 0x1c856b0] [record 0x1c856d8] [record 0x1c85700] [record 0x1c85728] [record 0x1c85750] [record 0x1c85778] ...)
{0x80fb60}  ...: ()
{0x80fb68}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fb70}  ...: imports-environment
{0x80fb78}  ...: (name)
{0x80fb80}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x9c4fc18]
{0x80fb88}  ...: (contents imports-environment name)
{0x80fb90}  ...: ()
{0x80fb98}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fba0}  ...: [record 0x11154f0]
{0x80fba8}  ...: [record 0x1c28808]
{0x80fbb0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fbb8}  ...: [record 0x1c87710]
{0x80fbc0}  ...: ([record 0x1c87738] [record 0x1c87760] [record 0x1c87788] [record 0x1c877b0] [record 0x1c877d8] [record 0x1c87800] [record 0x1c87828] [record 0x1c87850] [record 0x1c87878] [record 0x1c878a0] ...)
{0x80fbc8}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x9b566f0]
{0x80fbd0}  ...: ([record 0x1c28838] [record 0x1c87648] [record 0x1c87670] [record 0x1c87698] [record 0x1c876c0] [record 0x1c876e8] [record 0x1c87710] [record 0x1c87738] [record 0x1c87760] [record 0x1c87788] ...)
{0x80fbd8}  ...: ()
{0x80fbe0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fbe8}  ...: imports-environment
{0x80fbf0}  ...: (name)
{0x80fbf8}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x9b565c8]
{0x80fc00}  ...: (contents imports-environment name)
{0x80fc08}  ...: ()
{0x80fc10}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fc18}  ...: [record 0x11154f0]
{0x80fc20}  ...: [record 0x1c29a80]
{0x80fc28}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fc30}  ...: [record 0x1c8d0a0]
{0x80fc38}  ...: ([record 0x1c8d0c8] [record 0x1c8d0f0] [record 0x1c29ab0] [record 0x1c8a418] [record 0x1c8a440] [record 0x1c8a468] [record 0x1c8a490] [record 0x1c8a4b8] [record 0x1c8a4e0] [record 0x1c8a508] ...)
{0x80fc40}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x8988d48]
{0x80fc48}  ...: ([record 0x1c8a580] [record 0x1c8a5a8] [record 0x1c8a5d0] [record 0x1c8a5f8] [record 0x1c8a620] [record 0x1c8a648] [record 0x1c8a670] [record 0x1c8a698] [record 0x1c8a6c0] [record 0x1c8a6e8] ...)
{0x80fc50}  ...: ()
{0x80fc58}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fc60}  ...: imports-environment
{0x80fc68}  ...: (name)
{0x80fc70}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x8988c20]
{0x80fc78}  ...: (contents imports-environment name)
{0x80fc80}  ...: ()
{0x80fc88}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fc90}  ...: [record 0x11154f0]
{0x80fc98}  ...: [record 0x1c2ad38]
{0x80fca0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fca8}  ...: [record 0x1c8d288]
{0x80fcb0}  ...: ([record 0x1c8d2b0] [record 0x1c8d2d8] [record 0x1c8d300] [record 0x1c8d328] [record 0x1c8d350] [record 0x1c8d378] [record 0x1c8d3a0] [record 0x1c8d3c8] [record 0x1c8d3f0] [record 0x1c8d418])
{0x80fcb8}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2ae58]
{0x80fcc0}  ...: ([record 0x1c8d440] [record 0x1c8d468] [record 0x1c8d490] [record 0x1c8d4b8] [record 0x1c8d4e0] [record 0x1c8d508] [record 0x1c8d530] [record 0x1c8d558] [record 0x1c8d580] [record 0x1c8d5a8] ...)
{0x80fcc8}  ...: ()
{0x80fcd0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fcd8}  ...: imports-environment
{0x80fce0}  ...: (name)
{0x80fce8}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2c170]
{0x80fcf0}  ...: (contents imports-environment name)
{0x80fcf8}  ...: ()
{0x80fd00}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd08}  ...: [record 0x11154f0]
{0x80fd10}  ...: [record 0x1c2c180]
{0x80fd18}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fd20}  ...: [record 0x1c2c1b0]
{0x80fd28}  ...: ([record 0x1c90500] [record 0x1c90528] [record 0x1c90550] [record 0x1c90578] [record 0x1c905a0] [record 0x1c905c8] [record 0x1c905f0] [record 0x1c90618] [record 0x1c90640] [record 0x1c90668] ...)
{0x80fd30}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2c520]
{0x80fd38}  ...: ([record 0x1c90cf8] [record 0x1c90d20] [record 0x1c90d48] [record 0x1c90d70] [record 0x1c90d98] [record 0x1c90dc0] [record 0x1c90de8] [record 0x1c90e10] [record 0x1c90e38] [record 0x1c90e60] ...)
{0x80fd40}  ...: ()
{0x80fd48}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd50}  ...: [record 0x1115580]
{0x80fd58}  ...: [record 0x1c2d730]
{0x80fd60}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fd68}  ...: contents
{0x80fd70}  ...: (imports-environment name)
{0x80fd78}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2d778]
{0x80fd80}  ...: (contents imports-environment name)
{0x80fd88}  ...: ()
{0x80fd90}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd98}  ...: [record 0x11154f0]
{0x80fda0}  ...: [record 0x1c2d730]
{0x80fda8}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fdb0}  ...: [record 0x1c2d788]
{0x80fdb8}  ...: ([record 0x1c93af0] [record 0x1c93b18] [record 0x1c93b40])
{0x80fdc0}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2d7f8]
{0x80fdc8}  ...: ([record 0x1c93b68] [record 0x1c93b90] [record 0x1c93bb8] [record 0x1c93be0] [record 0x1c93c08] [record 0x1c93c30] [record 0x1c93c58] [record 0x1c93c80] [record 0x1c93ca8] [record 0x1c93cd0] ...)
{0x80fdd0}  ...: ()
{0x80fdd8}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fde0}  ...: imports-environment
{0x80fde8}  ...: (name)
{0x80fdf0}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2ea90]
{0x80fdf8}  ...: (contents imports-environment name)
{0x80fe00}  ...: ()
{0x80fe08}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fe10}  ...: [record 0x11154f0]
{0x80fe18}  ...: [record 0x1c2eaa0]
{0x80fe20}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fe28}  ...: [record 0x1c2ead0]
{0x80fe30}  ...: ([record 0x1c96b08] [record 0x1c96b30] [record 0x1c96b58] [record 0x1c96b80] [record 0x1c96ba8] [record 0x1c96bd0] [record 0x1c96bf8] [record 0x1c96c20] [record 0x1c96c48] [record 0x1c96c70] ...)
{0x80fe38}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c310d0]
{0x80fe40}  ...: ([record 0x1c2ead0] [record 0x1c96b08] [record 0x1c96b30] [record 0x1c96b58] [record 0x1c96b80] [record 0x1c96ba8] [record 0x1c96bd0] [record 0x1c96bf8] [record 0x1c96c20] [record 0x1c96c48] ...)
{0x80fe48}  ...: ()
{0x80fe50}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fe58}  ...: imports-environment
{0x80fe60}  ...: (name)
{0x80fe68}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c31108]
{0x80fe70}  ...: (contents imports-environment name)
{0x80fe78}  ...: ()
{0x80fe80}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fe88}  ...: [record 0x11154f0]
{0x80fe90}  ...: [record 0x1c31118]
{0x80fe98}  ...: [compiled-return-address offset: 0x191 entry: 0x8cc441]
{0x80fea0}  ...: [record 0x1c31118]
{0x80fea8}  ...: [compiled-return-address offset: 0xb3 entry: 0xcaef8b]
{0x80feb0}  ...: ge
{0x80feb8}  ...: (web site start)
{0x80fec0}  ...: ge
{0x80fec8}  ...: [compiled-return-address offset: 0xaa entry: 0xadf462]
{0x80fed0}  ...: [record 0x1c31178]
{0x80fed8}  ...: set-current!
{0x80fee0}  ...: (web site start)
{0x80fee8}  ...: [return-to-interpreter]
{0x80fef0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1c31190]
{0x80ff00}  ...: 0
{0x80ff08}  ...: #f
{0x80ff10}
    Return code: [return-code reenter-compiled-code]
    Expression: 28
{0x80ff20}  ...: [compiled-return-address offset: 0xda entry: 0xad55c2]
{0x80ff28}  ...: [reflect-to-interface]
{0x80ff30}  ...: 2
{0x80ff38}  ...: [compiled-procedure offset: 0x1c entry: 0xad5504]
{0x80ff40}  ...: [record 0x1c311a8]
{0x80ff48}  ...: [compiled-return-address offset: 0x55 entry: 0xe9f56d]
{0x80ff50}  ...: [compiled-closure offset: 0x153 entry: 0xad4dfb address: 0x1c31208]
{0x80ff58}  ...: [compiled-closure offset: 0x190 entry: 0xad4e38 address: 0x1c31240]
{0x80ff60}  ...: [compiled-return-address offset: 0x55 entry: 0xe9f56d]
{0x80ff68}  ...: [compiled-closure offset: 0x108 entry: 0xad5d10 address: 0x1c31268]
{0x80ff70}  ...: [compiled-closure offset: 0x141 entry: 0xad5d49 address: 0x1c312a0]
{0x80ff78}  ...: [compiled-return-address offset: 0x483 entry: 0xad42b3]
{0x80ff80}  ...: ([record 0x1c9ccb8] ())
{0x80ff88}  ...: [record 0x1c311a8]
{0x80ff90}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x80ff98}  ...: [reflect-to-interface]
{0x80ffa0}  ...: 2
{0x80ffa8}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x80ffb0}  ...: [record 0x1c312d8]
{0x80ffb8}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x80ffc0}  ...: [record 0x1c312d8]
{0x80ffc8}  ...: [record 0x10ee608]
{0x80ffd0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c31318]
{0x80ffd8}  ...: [compiled-closure offset: 0x1a0 entry: 0xdc1b98 address: 0x1c31340]
{0x80ffe0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c31318]
{0x80ffe8}  ...: [return-to-interpreter]
{0x80fff0}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1c31350]
{0x1c31368}
    Return code: [return-code restore-interrupt-mask]
    Expression: 65535
{0x1c31378}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1c9cd08]
{0x1c31388}  ...: 0
{0x1c31390}  ...: #f
{0x1c31398}
    Return code: [return-code reenter-compiled-code]
    Expression: 18
{0x1c313a8}  ...: [compiled-return-address offset: 0x13c3 entry: 0xace8bb]
{0x1c313b0}  ...: [reflect-to-interface]
{0x1c313b8}  ...: 1
{0x1c313c0}  ...: 5
{0x1c313c8}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c313d0}  ...: [reflect-to-interface]
{0x1c313d8}  ...: 2
{0x1c313e0}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c313e8}  ...: [record 0x1c9cd20]
{0x1c313f0}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c313f8}  ...: [record 0x1c9cd20]
{0x1c31400}  ...: [record 0x10ee608]
{0x1c31408}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c9cd60]
{0x1c31410}  ...: [compiled-closure offset: 0x3a3 entry: 0xc9905b address: 0x1c9cd88]
{0x1c31418}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c9cd60]
{0x1c31420}  ...: [return-to-interpreter]
{0x1c31428}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1c9cd98]
{0x1c9cdb0}
    Return code: [return-code restore-interrupt-mask]
    Expression: 5
{0x1c9cdc0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1d19550]
{0x1c9cdd0}  ...: 0
{0x1c9cdd8}  ...: #f
{0x1c9cde0}
    Return code: [return-code reenter-compiled-code]
    Expression: 39
{0x1c9cdf0}  ...: [compiled-return-address offset: 0x12b9 entry: 0xace7b1]
{0x1c9cdf8}  ...: [compiled-closure offset: 0x1219 entry: 0xace711 address: 0x1d19580]
{0x1c9ce00}  ...: [compiled-closure offset: 0x305 entry: 0xad25dd address: 0x1d195a8]
{0x1c9ce08}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c9ce10}  ...: [reflect-to-interface]
{0x1c9ce18}  ...: 2
{0x1c9ce20}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c9ce28}  ...: [record 0x1c36668]
{0x1c9ce30}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c9ce38}  ...: [record 0x1c36668]
{0x1c9ce40}  ...: [record 0x10ee608]
{0x1c9ce48}  ...: [compiled-closure offset: 0x10a4 entry: 0xace59c address: 0x1ca1ec0]
{0x1c9ce50}  ...: [compiled-closure offset: 0x1005 entry: 0xace4fd address: 0x1d195d0]
{0x1c9ce58}  ...: [compiled-closure offset: 0x10a4 entry: 0xace59c address: 0x1ca1ec0]
{0x1c9ce60}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c9ce68}  ...: [reflect-to-interface]
{0x1c9ce70}  ...: 2
{0x1c9ce78}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c9ce80}  ...: [record 0x11a0b60]
{0x1c9ce88}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c9ce90}  ...: [record 0x11a0b60]
{0x1c9ce98}  ...: [record 0x10ee608]
{0x1c9cea0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c366a8]
{0x1c9cea8}  ...: [compiled-closure offset: 0xef1 entry: 0xace3e9 address: 0x1d19600]
{0x1c9ceb0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c366a8]
{0x1c9ceb8}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c9cec0}  ...: [reflect-to-interface]
{0x1c9cec8}  ...: 2
{0x1c9ced0}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c9ced8}  ...: [record 0x116a650]
{0x1c9cee0}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c9cee8}  ...: [record 0x116a650]
{0x1c9cef0}  ...: [record 0x10ee638]
{0x1c9cef8}  ...: [compiled-closure offset: 0x1dc entry: 0xdbcd04 address: 0x1c364e8]
{0x1c9cf00}  ...: [compiled-closure offset: 0x65f entry: 0xacdb57 address: 0x1d19630]
{0x1c9cf08}  ...: [compiled-closure offset: 0x249 entry: 0xdbcd71 address: 0x1c36518]
{0x1c9cf10}  ...: [return-to-interpreter]
{0x1c9cf18}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1d19648]
{0x1d19660}
    Return code: [return-code restore-interrupt-mask]
    Expression: 5
{0x1d19670}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1d7a610]
{0x1d19680}  ...: 0
{0x1d19688}  ...: #f
{0x1d19690}
    Return code: [return-code end-of-computation]
    Expression: #f
*** End of Back Trace ***


Interrupt option (? for help):

^B: Enter a breakpoint loop.
^C: Goto to top level read-eval-print (REP) loop.
^L: Clear the screen.
^U: Up to previous (lower numbered) REP loop.
^X: Abort to current REP loop.
D: Debugging: change interpreter flags.
E: Examine memory location.
H: Print simple information on interrupts.
I: Ignore interrupt request.
Q: Quit instantly, killing Scheme.
R: Hard reset, possibly killing Scheme in the process.
T: Stack trace.
Z: Quit instantly, suspending Scheme.

Interrupt option (? for help): t

Enter the stack trace filename (default: terminal):
*** Scheme Microcode Back Trace: ***
{0x80f9f8}  ...: (mit legacy runtime)
{0x80fa00}  ...: [false 0xc2fc0c]
{0x80fa08}  ...: (mit legacy runtime)
{0x80fa10}  ...: (runtime)
{0x80fa18}  ...: ()
{0x80fa20}  ...: ()
{0x80fa28}  ...: [false 0xe7605f]
{0x80fa30}  ...: [compiled-closure offset: 0xf1 entry: 0xe76009 address: 0x3539e068]
{0x80fa38}  ...: ()
{0x80fa40}  ...: ()
{0x80fa48}  ...: [compiled-procedure offset: 0xd6 entry: 0xe75fee]
{0x80fa50}  ...: [false 0xc3d25b]
{0x80fa58}  ...: (((mit legacy runtime) . [record 0x1d10dc8]) ((scheme base) . [record 0x13de1c0]))
{0x80fa60}  ...: [compiled-closure offset: 0x73fb entry: 0xc39b2b address: 0x11645c8]
{0x80fa68}  ...: [record 0x110f120]
{0x80fa70}  ...: ((parsed-defines) (parsed-contents) (filename . #f) (export-groups [record 0x1e06d20]) (environment . #f))
{0x80fa78}  ...: [compiled-return-address offset: 0x129 entry: 0xe43271]
{0x80fa80}  ...: ((parsed-contents) (filename . #f) (export-groups [record 0x1e06d20]) (environment . #f))
{0x80fa88}  ...: [compiled-return-address offset: 0x129 entry: 0xe5ad69]
{0x80fa90}  ...: ((parsed-contents) (filename . #f) (export-groups [record 0x1e06d20]) (environment . #f))
{0x80fa98}  ...: environment
{0x80faa0}  ...: ((parsed-imports) (parsed-exports) (parsed-defines) (parsed-contents) (filename . #f) (export-groups [record 0x1e06d20]) (environment . #f))
{0x80faa8}  ...: [compiled-return-address offset: 0x1b8 entry: 0x8cb660]
{0x80fab0}  ...: environment
{0x80fab8}  ...: [record 0x1d10dc8]
{0x80fac0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fac8}  ...: [record 0x2085f60]
{0x80fad0}  ...: ([record 0x2085f88] [record 0x2085fb0] [record 0x2085fd8] [record 0x2086000] [record 0x2086028] [record 0x2086050] [record 0x2086078] [record 0x20860a0] [record 0x20860c8] [record 0x20860f0] ...)
{0x80fad8}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x3537b340]
{0x80fae0}  ...: ([record 0x2083c38] [record 0x2083c60] [record 0x2083c88] [record 0x2083cb0] [record 0x2083cd8] [record 0x2083d00] [record 0x2083d28] [record 0x2083d50] [record 0x2083d78] [record 0x2083da0] ...)
{0x80fae8}  ...: ()
{0x80faf0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80faf8}  ...: imports-environment
{0x80fb00}  ...: (name)
{0x80fb08}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x3537b218]
{0x80fb10}  ...: (contents imports-environment name)
{0x80fb18}  ...: ()
{0x80fb20}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fb28}  ...: [record 0x11154f0]
{0x80fb30}  ...: [record 0x1d87e90]
{0x80fb38}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fb40}  ...: [record 0x2097488]
{0x80fb48}  ...: ([record 0x20974b0] [record 0x20974d8] [record 0x2097500] [record 0x2097528] [record 0x2097550] [record 0x2097578] [record 0x20975a0] [record 0x20975c8] [record 0x20975f0] [record 0x2097618] ...)
{0x80fb50}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x353517c0]
{0x80fb58}  ...: ([record 0x2097460] [record 0x2097488] [record 0x20974b0] [record 0x20974d8] [record 0x2097500] [record 0x2097528] [record 0x2097550] [record 0x2097578] [record 0x20975a0] [record 0x20975c8] ...)
{0x80fb60}  ...: ()
{0x80fb68}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fb70}  ...: imports-environment
{0x80fb78}  ...: (name)
{0x80fb80}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x35351698]
{0x80fb88}  ...: (contents imports-environment name)
{0x80fb90}  ...: ()
{0x80fb98}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fba0}  ...: [record 0x11154f0]
{0x80fba8}  ...: [record 0x1d88080]
{0x80fbb0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fbb8}  ...: [record 0x1c84260]
{0x80fbc0}  ...: ([record 0x1c84288] [record 0x1c842b0] [record 0x1c842d8] [record 0x1c84300] [record 0x1c84328] [record 0x1c84350] [record 0x1c84378] [record 0x1c843a0] [record 0x1c843c8] [record 0x1c843f0] ...)
{0x80fbc8}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x351b44b0]
{0x80fbd0}  ...: ([record 0x1c845d0] [record 0x1c845f8] [record 0x1c84620] [record 0x1c84648] [record 0x1c84670] [record 0x1c84698] [record 0x1c846c0] [record 0x1c846e8] [record 0x1c84710] [record 0x1c84738] ...)
{0x80fbd8}  ...: ()
{0x80fbe0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fbe8}  ...: imports-environment
{0x80fbf0}  ...: (name)
{0x80fbf8}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x351b4388]
{0x80fc00}  ...: (contents imports-environment name)
{0x80fc08}  ...: ()
{0x80fc10}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fc18}  ...: [record 0x11154f0]
{0x80fc20}  ...: [record 0x1c288d8]
{0x80fc28}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fc30}  ...: [record 0x1c893f8]
{0x80fc38}  ...: ([record 0x1c89420] [record 0x1c28908] [record 0x1c86748] [record 0x1c86770] [record 0x1c86798] [record 0x1c867c0] [record 0x1c867e8] [record 0x1c86810] [record 0x1c86838] [record 0x1c86860] ...)
{0x80fc40}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x35015400]
{0x80fc48}  ...: ([record 0x1c86900] [record 0x1c86928] [record 0x1c86950] [record 0x1c86978] [record 0x1c869a0] [record 0x1c869c8] [record 0x1c869f0] [record 0x1c86a18] [record 0x1c86a40] [record 0x1c86a68] ...)
{0x80fc50}  ...: ()
{0x80fc58}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fc60}  ...: imports-environment
{0x80fc68}  ...: (name)
{0x80fc70}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x350152d8]
{0x80fc78}  ...: (contents imports-environment name)
{0x80fc80}  ...: ()
{0x80fc88}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fc90}  ...: [record 0x11154f0]
{0x80fc98}  ...: [record 0x1c29b90]
{0x80fca0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fca8}  ...: [record 0x1c89658]
{0x80fcb0}  ...: ([record 0x1c89680] [record 0x1c896a8] [record 0x1c896d0] [record 0x1c896f8])
{0x80fcb8}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c29c90]
{0x80fcc0}  ...: ([record 0x1c89720] [record 0x1c89748] [record 0x1c89770] [record 0x1c89798] [record 0x1c897c0] [record 0x1c897e8] [record 0x1c89810] [record 0x1c89838] [record 0x1c89860] [record 0x1c89888] ...)
{0x80fcc8}  ...: ()
{0x80fcd0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fcd8}  ...: imports-environment
{0x80fce0}  ...: (name)
{0x80fce8}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2afc8]
{0x80fcf0}  ...: (contents imports-environment name)
{0x80fcf8}  ...: ()
{0x80fd00}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd08}  ...: [record 0x11154f0]
{0x80fd10}  ...: [record 0x1c2afd8]
{0x80fd18}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fd20}  ...: [record 0x1c2b008]
{0x80fd28}  ...: ([record 0x1c8c830] [record 0x1c8c858] [record 0x1c8c880] [record 0x1c8c8a8] [record 0x1c8c8d0] [record 0x1c8c8f8] [record 0x1c8c920] [record 0x1c8c948] [record 0x1c8c970] [record 0x1c8c998] ...)
{0x80fd30}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2b358]
{0x80fd38}  ...: ([record 0x1c8cfd8] [record 0x1c8d000] [record 0x1c8d028] [record 0x1c8d050] [record 0x1c8d078] [record 0x1c8d0a0] [record 0x1c8d0c8] [record 0x1c8d0f0] [record 0x1c8d118] [record 0x1c8d140] ...)
{0x80fd40}  ...: ()
{0x80fd48}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd50}  ...: [record 0x1115580]
{0x80fd58}  ...: [record 0x1c2c588]
{0x80fd60}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fd68}  ...: contents
{0x80fd70}  ...: (imports-environment name)
{0x80fd78}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2c5d0]
{0x80fd80}  ...: (contents imports-environment name)
{0x80fd88}  ...: ()
{0x80fd90}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd98}  ...: [record 0x11154f0]
{0x80fda0}  ...: [record 0x1c2c588]
{0x80fda8}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fdb0}  ...: [record 0x1c2c5e0]
{0x80fdb8}  ...: ([record 0x1c8fe20] [record 0x1c8fe48] [record 0x1c8fe70])
{0x80fdc0}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2c650]
{0x80fdc8}  ...: ([record 0x1c8fe98] [record 0x1c8fec0] [record 0x1c8fee8] [record 0x1c8ff10] [record 0x1c8ff38] [record 0x1c8ff60] [record 0x1c8ff88] [record 0x1c8ffb0] [record 0x1c8ffd8] [record 0x1c90000] ...)
{0x80fdd0}  ...: ()
{0x80fdd8}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fde0}  ...: imports-environment
{0x80fde8}  ...: (name)
{0x80fdf0}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2d8e8]
{0x80fdf8}  ...: (contents imports-environment name)
{0x80fe00}  ...: ()
{0x80fe08}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fe10}  ...: [record 0x11154f0]
{0x80fe18}  ...: [record 0x1c2d8f8]
{0x80fe20}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fe28}  ...: [record 0x1c2d928]
{0x80fe30}  ...: ([record 0x1c92e38] [record 0x1c92e60] [record 0x1c92e88] [record 0x1c92eb0] [record 0x1c92ed8] [record 0x1c92f00] [record 0x1c92f28] [record 0x1c92f50] [record 0x1c92f78] [record 0x1c92fa0] ...)
{0x80fe38}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2ff28]
{0x80fe40}  ...: ([record 0x1c2d928] [record 0x1c92e38] [record 0x1c92e60] [record 0x1c92e88] [record 0x1c92eb0] [record 0x1c92ed8] [record 0x1c92f00] [record 0x1c92f28] [record 0x1c92f50] [record 0x1c92f78] ...)
{0x80fe48}  ...: ()
{0x80fe50}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fe58}  ...: imports-environment
{0x80fe60}  ...: (name)
{0x80fe68}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2ff60]
{0x80fe70}  ...: (contents imports-environment name)
{0x80fe78}  ...: ()
{0x80fe80}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fe88}  ...: [record 0x11154f0]
{0x80fe90}  ...: [record 0x1c2ff70]
{0x80fe98}  ...: [compiled-return-address offset: 0x191 entry: 0x8cc441]
{0x80fea0}  ...: [record 0x1c2ff70]
{0x80fea8}  ...: [compiled-return-address offset: 0xb3 entry: 0xcaef8b]
{0x80feb0}  ...: ge
{0x80feb8}  ...: (web site start)
{0x80fec0}  ...: ge
{0x80fec8}  ...: [compiled-return-address offset: 0xaa entry: 0xadf462]
{0x80fed0}  ...: [record 0x1c2ffd0]
{0x80fed8}  ...: set-current!
{0x80fee0}  ...: (web site start)
{0x80fee8}  ...: [return-to-interpreter]
{0x80fef0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1c2ffe8]
{0x80ff00}  ...: 0
{0x80ff08}  ...: #f
{0x80ff10}
    Return code: [return-code reenter-compiled-code]
    Expression: 28
{0x80ff20}  ...: [compiled-return-address offset: 0xda entry: 0xad55c2]
{0x80ff28}  ...: [reflect-to-interface]
{0x80ff30}  ...: 2
{0x80ff38}  ...: [compiled-procedure offset: 0x1c entry: 0xad5504]
{0x80ff40}  ...: [record 0x1c30000]
{0x80ff48}  ...: [compiled-return-address offset: 0x55 entry: 0xe9f56d]
{0x80ff50}  ...: [compiled-closure offset: 0x153 entry: 0xad4dfb address: 0x1c30060]
{0x80ff58}  ...: [compiled-closure offset: 0x190 entry: 0xad4e38 address: 0x1c30098]
{0x80ff60}  ...: [compiled-return-address offset: 0x55 entry: 0xe9f56d]
{0x80ff68}  ...: [compiled-closure offset: 0x108 entry: 0xad5d10 address: 0x1c300c0]
{0x80ff70}  ...: [compiled-closure offset: 0x141 entry: 0xad5d49 address: 0x1c300f8]
{0x80ff78}  ...: [compiled-return-address offset: 0x483 entry: 0xad42b3]
{0x80ff80}  ...: ([record 0x1c98fe8] ())
{0x80ff88}  ...: [record 0x1c30000]
{0x80ff90}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x80ff98}  ...: [reflect-to-interface]
{0x80ffa0}  ...: 2
{0x80ffa8}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x80ffb0}  ...: [record 0x1c30130]
{0x80ffb8}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x80ffc0}  ...: [record 0x1c30130]
{0x80ffc8}  ...: [record 0x10ee608]
{0x80ffd0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c30170]
{0x80ffd8}  ...: [compiled-closure offset: 0x1a0 entry: 0xdc1b98 address: 0x1c30198]
{0x80ffe0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c30170]
{0x80ffe8}  ...: [return-to-interpreter]
{0x80fff0}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1c301a8]
{0x1c301c0}
    Return code: [return-code restore-interrupt-mask]
    Expression: 65535
{0x1c301d0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1c99038]
{0x1c301e0}  ...: 0
{0x1c301e8}  ...: #f
{0x1c301f0}
    Return code: [return-code reenter-compiled-code]
    Expression: 18
{0x1c30200}  ...: [compiled-return-address offset: 0x13c3 entry: 0xace8bb]
{0x1c30208}  ...: [reflect-to-interface]
{0x1c30210}  ...: 1
{0x1c30218}  ...: 5
{0x1c30220}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c30228}  ...: [reflect-to-interface]
{0x1c30230}  ...: 2
{0x1c30238}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c30240}  ...: [record 0x1c99050]
{0x1c30248}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c30250}  ...: [record 0x1c99050]
{0x1c30258}  ...: [record 0x10ee608]
{0x1c30260}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c99090]
{0x1c30268}  ...: [compiled-closure offset: 0x3a3 entry: 0xc9905b address: 0x1c990b8]
{0x1c30270}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c99090]
{0x1c30278}  ...: [return-to-interpreter]
{0x1c30280}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1c990c8]
{0x1c990e0}
    Return code: [return-code restore-interrupt-mask]
    Expression: 5
{0x1c990f0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1d154b0]
{0x1c99100}  ...: 0
{0x1c99108}  ...: #f
{0x1c99110}
    Return code: [return-code reenter-compiled-code]
    Expression: 39
{0x1c99120}  ...: [compiled-return-address offset: 0x12b9 entry: 0xace7b1]
{0x1c99128}  ...: [compiled-closure offset: 0x1219 entry: 0xace711 address: 0x1d154e0]
{0x1c99130}  ...: [compiled-closure offset: 0x305 entry: 0xad25dd address: 0x1d15508]
{0x1c99138}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c99140}  ...: [reflect-to-interface]
{0x1c99148}  ...: 2
{0x1c99150}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c99158}  ...: [record 0x1c354c0]
{0x1c99160}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c99168}  ...: [record 0x1c354c0]
{0x1c99170}  ...: [record 0x10ee608]
{0x1c99178}  ...: [compiled-closure offset: 0x10a4 entry: 0xace59c address: 0x1c9e1f0]
{0x1c99180}  ...: [compiled-closure offset: 0x1005 entry: 0xace4fd address: 0x1d15530]
{0x1c99188}  ...: [compiled-closure offset: 0x10a4 entry: 0xace59c address: 0x1c9e1f0]
{0x1c99190}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c99198}  ...: [reflect-to-interface]
{0x1c991a0}  ...: 2
{0x1c991a8}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c991b0}  ...: [record 0x11a0b60]
{0x1c991b8}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c991c0}  ...: [record 0x11a0b60]
{0x1c991c8}  ...: [record 0x10ee608]
{0x1c991d0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c35500]
{0x1c991d8}  ...: [compiled-closure offset: 0xef1 entry: 0xace3e9 address: 0x1d15560]
{0x1c991e0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c35500]
{0x1c991e8}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c991f0}  ...: [reflect-to-interface]
{0x1c991f8}  ...: 2
{0x1c99200}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c99208}  ...: [record 0x116a650]
{0x1c99210}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c99218}  ...: [record 0x116a650]
{0x1c99220}  ...: [record 0x10ee638]
{0x1c99228}  ...: [compiled-closure offset: 0x1dc entry: 0xdbcd04 address: 0x1c35340]
{0x1c99230}  ...: [compiled-closure offset: 0x65f entry: 0xacdb57 address: 0x1d15590]
{0x1c99238}  ...: [compiled-closure offset: 0x249 entry: 0xdbcd71 address: 0x1c35370]
{0x1c99240}  ...: [return-to-interpreter]
{0x1c99248}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1d155a8]
{0x1d155c0}
    Return code: [return-code restore-interrupt-mask]
    Expression: 5
{0x1d155d0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1d75f68]
{0x1d155e0}  ...: 0
{0x1d155e8}  ...: #f
{0x1d155f0}
    Return code: [return-code end-of-computation]
    Expression: #f
*** End of Back Trace ***


Interrupt option (? for help):

^B: Enter a breakpoint loop.
^C: Goto to top level read-eval-print (REP) loop.
^L: Clear the screen.
^U: Up to previous (lower numbered) REP loop.
^X: Abort to current REP loop.
D: Debugging: change interpreter flags.
E: Examine memory location.
H: Print simple information on interrupts.
I: Ignore interrupt request.
Q: Quit instantly, killing Scheme.
R: Hard reset, possibly killing Scheme in the process.
T: Stack trace.
Z: Quit instantly, suspending Scheme.

Interrupt option (? for help): t

Enter the stack trace filename (default: terminal):
*** Scheme Microcode Back Trace: ***
{0x80fa40}  ...: (mit legacy runtime)
{0x80fa48}  ...: [false 0xc2fc0c]
{0x80fa50}  ...: (mit legacy runtime)
{0x80fa58}  ...: (legacy runtime)
{0x80fa60}  ...: legacy
{0x80fa68}  ...: legacy
{0x80fa70}  ...: [false 0xe7605f]
{0x80fa78}  ...: [compiled-closure offset: 0xf1 entry: 0xe76009 address: 0x34657e38]
{0x80fa80}  ...: (runtime)
{0x80fa88}  ...: (runtime)
{0x80fa90}  ...: [compiled-procedure offset: 0xd6 entry: 0xe75fee]
{0x80fa98}  ...: [compiled-return-address offset: 0xab61 entry: 0xc3d291]
{0x80faa0}  ...: (((mit legacy runtime) . [record 0x1d18720]) ((scheme base) . [record 0x13de1c0]))
{0x80faa8}  ...: [compiled-closure offset: 0x73fb entry: 0xc39b2b address: 0x11645c8]
{0x80fab0}  ...: [record 0x110f120]
{0x80fab8}  ...: (mit legacy runtime)
{0x80fac0}  ...: [compiled-procedure offset: 0x42f entry: 0xc139df]
{0x80fac8}  ...: [compiled-procedure offset: 0x442 entry: 0xc139f2]
{0x80fad0}  ...: [compiled-return-address offset: 0x75 entry: 0x8957cd]
{0x80fad8}  ...: (mit legacy runtime)
{0x80fae0}  ...: [record 0x1c88548]
{0x80fae8}  ...: [record 0x102d2b8]
{0x80faf0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80faf8}  ...: [record 0x1c88548]
{0x80fb00}  ...: ([record 0x1c88570] [record 0x1c88598] [record 0x1c885c0] [record 0x1c885e8] [record 0x1c27690] [record 0x1c85c58] [record 0x1c85c80] [record 0x1c85ca8] [record 0x1c85cd0] [record 0x1c85cf8] ...)
{0x80fb08}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x3464d108]
{0x80fb10}  ...: ([record 0x1c87a58] [record 0x1c87a80] [record 0x1c87aa8] [record 0x1c87ad0] [record 0x1c87af8] [record 0x1c87b20] [record 0x1c87b48] [record 0x1c87b70] [record 0x1c87b98] [record 0x1c87bc0] ...)
{0x80fb18}  ...: ()
{0x80fb20}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fb28}  ...: imports-environment
{0x80fb30}  ...: (name)
{0x80fb38}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x3464cfe0]
{0x80fb40}  ...: (contents imports-environment name)
{0x80fb48}  ...: ()
{0x80fb50}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fb58}  ...: [record 0x11154f0]
{0x80fb60}  ...: [record 0x1c287c8]
{0x80fb68}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fb70}  ...: [record 0x1c287f8]
{0x80fb78}  ...: ([record 0x1c88780] [record 0x1c887a8] [record 0x1c887d0] [record 0x1c887f8] [record 0x1c88820] [record 0x1c88848] [record 0x1c88870] [record 0x1c88898] [record 0x1c888c0] [record 0x1c888e8] ...)
{0x80fb80}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x345d0468]
{0x80fb88}  ...: ([record 0x1c8b0e8] [record 0x1c8b110] [record 0x1c8b138] [record 0x1c287f8] [record 0x1c88780] [record 0x1c887a8] [record 0x1c887d0] [record 0x1c887f8] [record 0x1c88820] [record 0x1c88848] ...)
{0x80fb90}  ...: ()
{0x80fb98}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fba0}  ...: imports-environment
{0x80fba8}  ...: (name)
{0x80fbb0}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x345d0340]
{0x80fbb8}  ...: (contents imports-environment name)
{0x80fbc0}  ...: ()
{0x80fbc8}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fbd0}  ...: [record 0x11154f0]
{0x80fbd8}  ...: [record 0x1c29940]
{0x80fbe0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fbe8}  ...: imports-environment
{0x80fbf0}  ...: (name)
{0x80fbf8}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x3373fc28]
{0x80fc00}  ...: (contents imports-environment name)
{0x80fc08}  ...: ()
{0x80fc10}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fc18}  ...: [record 0x11154f0]
{0x80fc20}  ...: [record 0x1c2abb8]
{0x80fc28}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fc30}  ...: [record 0x1c90d28]
{0x80fc38}  ...: ([record 0x1c90d50] [record 0x1c90d78] [record 0x1c2abe8] [record 0x1c8e0a0] [record 0x1c8e0c8] [record 0x1c8e0f0] [record 0x1c8e118])
{0x80fc40}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x2d4896d0]
{0x80fc48}  ...: ([record 0x1c8e140] [record 0x1c8e168] [record 0x1c8e190] [record 0x1c8e1b8] [record 0x1c8e1e0] [record 0x1c8e208] [record 0x1c8e230] [record 0x1c8e258] [record 0x1c8e280] [record 0x1c8e2a8] ...)
{0x80fc50}  ...: ()
{0x80fc58}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fc60}  ...: imports-environment
{0x80fc68}  ...: (name)
{0x80fc70}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x2d4895a8]
{0x80fc78}  ...: (contents imports-environment name)
{0x80fc80}  ...: ()
{0x80fc88}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fc90}  ...: [record 0x11154f0]
{0x80fc98}  ...: [record 0x1c2be70]
{0x80fca0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fca8}  ...: [record 0x1c93f58]
{0x80fcb0}  ...: ([record 0x1c93f80] [record 0x1c93fa8] [record 0x1c93fd0] [record 0x1c2bea0] [record 0x1c90f10] [record 0x1c90f38] [record 0x1c90f60] [record 0x1c90f88] [record 0x1c90fb0] [record 0x1c90fd8] ...)
{0x80fcb8}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x23116128]
{0x80fcc0}  ...: ([record 0x1c91028] [record 0x1c91050] [record 0x1c91078] [record 0x1c910a0] [record 0x1c910c8] [record 0x1c910f0] [record 0x1c91118] [record 0x1c91140] [record 0x1c91168] [record 0x1c91190] ...)
{0x80fcc8}  ...: ()
{0x80fcd0}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fcd8}  ...: imports-environment
{0x80fce0}  ...: (name)
{0x80fce8}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x23116000]
{0x80fcf0}  ...: (contents imports-environment name)
{0x80fcf8}  ...: ()
{0x80fd00}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd08}  ...: [record 0x11154f0]
{0x80fd10}  ...: [record 0x1c2d2b8]
{0x80fd18}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fd20}  ...: [record 0x1c94188]
{0x80fd28}  ...: ([record 0x1c941b0] [record 0x1c941d8] [record 0x1c94200] [record 0x1c94228] [record 0x1c94250] [record 0x1c94278] [record 0x1c942a0] [record 0x1c942c8] [record 0x1c942f0] [record 0x1c94318] ...)
{0x80fd30}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2d608]
{0x80fd38}  ...: ([record 0x1c948b8] [record 0x1c948e0] [record 0x1c94908] [record 0x1c94930] [record 0x1c94958] [record 0x1c94980] [record 0x1c949a8] [record 0x1c949d0] [record 0x1c949f8] [record 0x1c94a20] ...)
{0x80fd40}  ...: ()
{0x80fd48}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd50}  ...: [record 0x1115580]
{0x80fd58}  ...: [record 0x1c2e868]
{0x80fd60}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fd68}  ...: contents
{0x80fd70}  ...: (imports-environment name)
{0x80fd78}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2e8b0]
{0x80fd80}  ...: (contents imports-environment name)
{0x80fd88}  ...: ()
{0x80fd90}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fd98}  ...: [record 0x11154f0]
{0x80fda0}  ...: [record 0x1c2e868]
{0x80fda8}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fdb0}  ...: [record 0x1c2e8c0]
{0x80fdb8}  ...: ([record 0x1c97778] [record 0x1c977a0] [record 0x1c977c8])
{0x80fdc0}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c2e930]
{0x80fdc8}  ...: ([record 0x1c977f0] [record 0x1c97818] [record 0x1c97840] [record 0x1c97868] [record 0x1c97890] [record 0x1c978b8] [record 0x1c978e0] [record 0x1c97908] [record 0x1c97930] [record 0x1c97958] ...)
{0x80fdd0}  ...: ()
{0x80fdd8}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fde0}  ...: imports-environment
{0x80fde8}  ...: (name)
{0x80fdf0}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c2fbc8]
{0x80fdf8}  ...: (contents imports-environment name)
{0x80fe00}  ...: ()
{0x80fe08}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fe10}  ...: [record 0x11154f0]
{0x80fe18}  ...: [record 0x1c2fbd8]
{0x80fe20}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fe28}  ...: [record 0x1c2fc08]
{0x80fe30}  ...: ([record 0x1c9a790] [record 0x1c9a7b8] [record 0x1c9a7e0] [record 0x1c9a808] [record 0x1c9a830] [record 0x1c9a858] [record 0x1c9a880] [record 0x1c9a8a8] [record 0x1c9a8d0] [record 0x1c9a8f8] ...)
{0x80fe38}  ...: [compiled-closure offset: 0xa2 entry: 0x89705a address: 0x1c32208]
{0x80fe40}  ...: ([record 0x1c2fc08] [record 0x1c9a790] [record 0x1c9a7b8] [record 0x1c9a7e0] [record 0x1c9a808] [record 0x1c9a830] [record 0x1c9a858] [record 0x1c9a880] [record 0x1c9a8a8] [record 0x1c9a8d0] ...)
{0x80fe48}  ...: ()
{0x80fe50}  ...: [compiled-return-address offset: 0x37c entry: 0xe2cb1c]
{0x80fe58}  ...: imports-environment
{0x80fe60}  ...: (name)
{0x80fe68}  ...: [compiled-closure offset: 0x283 entry: 0x8d154b address: 0x1c32240]
{0x80fe70}  ...: (contents imports-environment name)
{0x80fe78}  ...: ()
{0x80fe80}  ...: [compiled-return-address offset: 0x55 entry: 0x8cfda5]
{0x80fe88}  ...: [record 0x11154f0]
{0x80fe90}  ...: [record 0x1c32250]
{0x80fe98}  ...: [compiled-return-address offset: 0x191 entry: 0x8cc441]
{0x80fea0}  ...: [record 0x1c32250]
{0x80fea8}  ...: [compiled-return-address offset: 0xb3 entry: 0xcaef8b]
{0x80feb0}  ...: ge
{0x80feb8}  ...: (web site start)
{0x80fec0}  ...: ge
{0x80fec8}  ...: [compiled-return-address offset: 0xaa entry: 0xadf462]
{0x80fed0}  ...: [record 0x1c322b0]
{0x80fed8}  ...: set-current!
{0x80fee0}  ...: (web site start)
{0x80fee8}  ...: [return-to-interpreter]
{0x80fef0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1c322c8]
{0x80ff00}  ...: 0
{0x80ff08}  ...: #f
{0x80ff10}
    Return code: [return-code reenter-compiled-code]
    Expression: 28
{0x80ff20}  ...: [compiled-return-address offset: 0xda entry: 0xad55c2]
{0x80ff28}  ...: [reflect-to-interface]
{0x80ff30}  ...: 2
{0x80ff38}  ...: [compiled-procedure offset: 0x1c entry: 0xad5504]
{0x80ff40}  ...: [record 0x1c322e0]
{0x80ff48}  ...: [compiled-return-address offset: 0x55 entry: 0xe9f56d]
{0x80ff50}  ...: [compiled-closure offset: 0x153 entry: 0xad4dfb address: 0x1c32340]
{0x80ff58}  ...: [compiled-closure offset: 0x190 entry: 0xad4e38 address: 0x1c32378]
{0x80ff60}  ...: [compiled-return-address offset: 0x55 entry: 0xe9f56d]
{0x80ff68}  ...: [compiled-closure offset: 0x108 entry: 0xad5d10 address: 0x1c323a0]
{0x80ff70}  ...: [compiled-closure offset: 0x141 entry: 0xad5d49 address: 0x1c323d8]
{0x80ff78}  ...: [compiled-return-address offset: 0x483 entry: 0xad42b3]
{0x80ff80}  ...: ([record 0x1ca0940] ())
{0x80ff88}  ...: [record 0x1c322e0]
{0x80ff90}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x80ff98}  ...: [reflect-to-interface]
{0x80ffa0}  ...: 2
{0x80ffa8}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x80ffb0}  ...: [record 0x1c32410]
{0x80ffb8}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x80ffc0}  ...: [record 0x1c32410]
{0x80ffc8}  ...: [record 0x10ee608]
{0x80ffd0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c32450]
{0x80ffd8}  ...: [compiled-closure offset: 0x1a0 entry: 0xdc1b98 address: 0x1c32478]
{0x80ffe0}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c32450]
{0x80ffe8}  ...: [return-to-interpreter]
{0x80fff0}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1c32488]
{0x1c324a0}
    Return code: [return-code restore-interrupt-mask]
    Expression: 65535
{0x1c324b0}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1ca0990]
{0x1c324c0}  ...: 0
{0x1c324c8}  ...: #f
{0x1c324d0}
    Return code: [return-code reenter-compiled-code]
    Expression: 18
{0x1c324e0}  ...: [compiled-return-address offset: 0x13c3 entry: 0xace8bb]
{0x1c324e8}  ...: [reflect-to-interface]
{0x1c324f0}  ...: 1
{0x1c324f8}  ...: 5
{0x1c32500}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1c32508}  ...: [reflect-to-interface]
{0x1c32510}  ...: 2
{0x1c32518}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1c32520}  ...: [record 0x1ca09a8]
{0x1c32528}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1c32530}  ...: [record 0x1ca09a8]
{0x1c32538}  ...: [record 0x10ee608]
{0x1c32540}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1ca09e8]
{0x1c32548}  ...: [compiled-closure offset: 0x3a3 entry: 0xc9905b address: 0x1ca0a10]
{0x1c32550}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1ca09e8]
{0x1c32558}  ...: [return-to-interpreter]
{0x1c32560}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1ca0a20]
{0x1ca0a38}
    Return code: [return-code restore-interrupt-mask]
    Expression: 5
{0x1ca0a48}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1d1d458]
{0x1ca0a58}  ...: 0
{0x1ca0a60}  ...: #f
{0x1ca0a68}
    Return code: [return-code reenter-compiled-code]
    Expression: 39
{0x1ca0a78}  ...: [compiled-return-address offset: 0x12b9 entry: 0xace7b1]
{0x1ca0a80}  ...: [compiled-closure offset: 0x1219 entry: 0xace711 address: 0x1d1d488]
{0x1ca0a88}  ...: [compiled-closure offset: 0x305 entry: 0xad25dd address: 0x1d1d4b0]
{0x1ca0a90}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1ca0a98}  ...: [reflect-to-interface]
{0x1ca0aa0}  ...: 2
{0x1ca0aa8}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1ca0ab0}  ...: [record 0x1c377a0]
{0x1ca0ab8}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1ca0ac0}  ...: [record 0x1c377a0]
{0x1ca0ac8}  ...: [record 0x10ee608]
{0x1ca0ad0}  ...: [compiled-closure offset: 0x10a4 entry: 0xace59c address: 0x1ca5b48]
{0x1ca0ad8}  ...: [compiled-closure offset: 0x1005 entry: 0xace4fd address: 0x1d1d4d8]
{0x1ca0ae0}  ...: [compiled-closure offset: 0x10a4 entry: 0xace59c address: 0x1ca5b48]
{0x1ca0ae8}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1ca0af0}  ...: [reflect-to-interface]
{0x1ca0af8}  ...: 2
{0x1ca0b00}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1ca0b08}  ...: [record 0x11a0b60]
{0x1ca0b10}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1ca0b18}  ...: [record 0x11a0b60]
{0x1ca0b20}  ...: [record 0x10ee608]
{0x1ca0b28}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c377e0]
{0x1ca0b30}  ...: [compiled-closure offset: 0xef1 entry: 0xace3e9 address: 0x1d1d508]
{0x1ca0b38}  ...: [compiled-closure offset: 0x2bf entry: 0xaa01a7 address: 0x1c377e0]
{0x1ca0b40}  ...: [compiled-return-address offset: 0x11f entry: 0xdbb12f]
{0x1ca0b48}  ...: [reflect-to-interface]
{0x1ca0b50}  ...: 2
{0x1ca0b58}  ...: [compiled-procedure offset: 0x1c entry: 0xdbb60c]
{0x1ca0b60}  ...: [record 0x116a650]
{0x1ca0b68}  ...: [compiled-return-address offset: 0x13f entry: 0xdbb14f]
{0x1ca0b70}  ...: [record 0x116a650]
{0x1ca0b78}  ...: [record 0x10ee638]
{0x1ca0b80}  ...: [compiled-closure offset: 0x1dc entry: 0xdbcd04 address: 0x1c37620]
{0x1ca0b88}  ...: [compiled-closure offset: 0x65f entry: 0xacdb57 address: 0x1d1d538]
{0x1ca0b90}  ...: [compiled-closure offset: 0x249 entry: 0xdbcd71 address: 0x1c37650]
{0x1ca0b98}  ...: [return-to-interpreter]
{0x1ca0ba0}
    Return code: [return-code join-stacklets]
    Expression: [control-point 0x1d1d550]
{0x1d1d568}
    Return code: [return-code restore-interrupt-mask]
    Expression: 5
{0x1d1d578}
    Return code: [return-code restore-history]
    Expression: [hunk3-a 0x1d7e6d8]
{0x1d1d588}  ...: 0
{0x1d1d590}  ...: #f
{0x1d1d598}
    Return code: [return-code end-of-computation]
    Expression: #f
*** End of Back Trace ***


Interrupt option (? for help):

^B: Enter a breakpoint loop.
^C: Goto to top level read-eval-print (REP) loop.
^L: Clear the screen.
^U: Up to previous (lower numbered) REP loop.
^X: Abort to current REP loop.
D: Debugging: change interpreter flags.
E: Examine memory location.
H: Print simple information on interrupts.
I: Ignore interrupt request.
Q: Quit instantly, killing Scheme.
R: Hard reset, possibly killing Scheme in the process.
T: Stack trace.
Z: Quit instantly, suspending Scheme.

Interrupt option (? for help): 
;Break!
;To continue, call RESTART with an option number:
; (RESTART 2) => Continue from breakpoint.
; (RESTART 1) => Return to read-eval-print level 1.

2 break> (debug)


3 debug> h
h
SL#  Procedure/form          Expression

0    let                     (begin (%record-set! thread 4 #t) (event) (set ...
1    let                     (begin (if event (let ((block? (%record-ref th ...
2    lambda                  (begin (handle-thread-events thread) (%record- ...
3    let                     (let ((value (call-with-current-thread #t (lam ...
;Ignoring error:
;Assertion failed: (and value (fix:>= value (cframe-end frame)))

3 debug>


Arthur A. Gleckler <aag>
Group Member

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by cph (Posted a comment)
  • -email is unavailable- added by aag (Submitted the item)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 3 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2023-11-04 aag StatusNone Fixed
    2023-10-22 cph CategoryNone runtime
        Assigned toNone cph

    Back to the top

    Powered by Savane 3.13-02a9.
    Corresponding source code