mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 21:59:16 +02:00
30257 lines
1.3 MiB
30257 lines
1.3 MiB
/**
|
|
** This file was automatically generated by the Cyclone scheme compiler
|
|
** http://justinethier.github.io/cyclone/
|
|
**
|
|
** (c) 2014-2018 Justin Ethier
|
|
** Version 0.8.1
|
|
**
|
|
**/
|
|
|
|
/*
|
|
"---------------- input program:"
|
|
*/
|
|
/*
|
|
((import
|
|
(scheme base)
|
|
(scheme read)
|
|
(scheme write)
|
|
(scheme time))
|
|
(define (create-n n)
|
|
(do ((n n (- n 1)) (a '() (cons '() a)))
|
|
((= n 0) a)))
|
|
(define (iterative-div2 l)
|
|
(do ((l l (cddr l)) (a '() (cons (car l) a)))
|
|
((null? l) a)))
|
|
(define (main)
|
|
(let* ((count 1000000)
|
|
(input1 1000)
|
|
(output 500)
|
|
(s2 (number->string count))
|
|
(s1 (number->string input1))
|
|
(ll (create-n (hide count input1)))
|
|
(name "diviter"))
|
|
(run-r7rs-benchmark
|
|
(string-append name ":" s1 ":" s2)
|
|
count
|
|
(lambda () (iterative-div2 ll))
|
|
(lambda (result) (equal? (length result) output)))))
|
|
(define (hide r x)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x) x))
|
|
(if (< r 100) 0 1)))
|
|
(lambda (v i) ((vector-ref v i) x))))
|
|
(define (run-r7rs-benchmark name count thunk ok?)
|
|
(define (rounded x) (/ (round (* 1000 x)) 1000))
|
|
(display "Running ")
|
|
(display name)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
(let* ((j/s (jiffies-per-second))
|
|
(t0 (current-second))
|
|
(j0 (current-jiffy)))
|
|
(let loop ((i 0) (result #f))
|
|
(cond ((< i count) (loop (+ i 1) (thunk)))
|
|
((ok? result)
|
|
(let* ((j1 (current-jiffy))
|
|
(t1 (current-second))
|
|
(jifs (- j1 j0))
|
|
(secs (inexact (/ jifs j/s)))
|
|
(secs2 (rounded (- t1 t0))))
|
|
(display "Elapsed time: ")
|
|
(write secs)
|
|
(display " seconds (")
|
|
(write secs2)
|
|
(display ") for ")
|
|
(display name)
|
|
(newline)
|
|
(display "+!CSVLINE!+")
|
|
(display (this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name)
|
|
(display ",")
|
|
(display secs)
|
|
(newline)
|
|
(flush-output-port (current-output-port)))
|
|
result)
|
|
(else
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result)))))
|
|
(define (this-scheme-implementation-name)
|
|
(string-append "cyclone-" (Cyc-version)))
|
|
(main))
|
|
*/
|
|
/*
|
|
"inline candidates:"
|
|
*/
|
|
/*
|
|
()
|
|
*/
|
|
/*
|
|
"imports:"
|
|
*/
|
|
/*
|
|
((scheme base)
|
|
(scheme read)
|
|
(scheme write)
|
|
(scheme time))
|
|
*/
|
|
/*
|
|
"resolved imports:"
|
|
*/
|
|
/*
|
|
((member scheme base)
|
|
(assoc scheme base)
|
|
(cons-source scheme base)
|
|
(syntax-rules scheme base)
|
|
(letrec* scheme base)
|
|
(guard scheme base)
|
|
(guard-aux scheme base)
|
|
(define-record-type scheme base)
|
|
(record? scheme base)
|
|
(is-a? scheme base)
|
|
(register-simple-type scheme base)
|
|
(make-type-predicate scheme base)
|
|
(make-constructor scheme base)
|
|
(make-getter scheme base)
|
|
(make-setter scheme base)
|
|
(slot-ref scheme base)
|
|
(slot-set! scheme base)
|
|
(type-slot-offset scheme base)
|
|
(receive scheme base)
|
|
(abs scheme base)
|
|
(max scheme base)
|
|
(min scheme base)
|
|
(modulo scheme base)
|
|
(floor-remainder scheme base)
|
|
(even? scheme base)
|
|
(exact-integer? scheme base)
|
|
(exact-integer-sqrt scheme base)
|
|
(exact? scheme base)
|
|
(inexact? scheme base)
|
|
(odd? scheme base)
|
|
(complex? scheme base)
|
|
(rational? scheme base)
|
|
(bignum? scheme base)
|
|
(gcd scheme base)
|
|
(lcm scheme base)
|
|
(quotient scheme base)
|
|
(remainder scheme base)
|
|
(truncate-quotient scheme base)
|
|
(truncate-remainder scheme base)
|
|
(truncate/ scheme base)
|
|
(floor-quotient scheme base)
|
|
(floor-remainder scheme base)
|
|
(floor/ scheme base)
|
|
(square scheme base)
|
|
(expt scheme base)
|
|
(call-with-current-continuation scheme base)
|
|
(call/cc scheme base)
|
|
(call-with-values scheme base)
|
|
(dynamic-wind scheme base)
|
|
(values scheme base)
|
|
(char=? scheme base)
|
|
(char<? scheme base)
|
|
(char>? scheme base)
|
|
(char<=? scheme base)
|
|
(char>=? scheme base)
|
|
(string=? scheme base)
|
|
(string<? scheme base)
|
|
(string<=? scheme base)
|
|
(string>? scheme base)
|
|
(string>=? scheme base)
|
|
(foldl scheme base)
|
|
(foldr scheme base)
|
|
(not scheme base)
|
|
(list? scheme base)
|
|
(zero? scheme base)
|
|
(positive? scheme base)
|
|
(negative? scheme base)
|
|
(append scheme base)
|
|
(list scheme base)
|
|
(make-list scheme base)
|
|
(list-copy scheme base)
|
|
(map scheme base)
|
|
(Cyc-map-loop-1 scheme base)
|
|
(Cyc-for-each-loop-1 scheme base)
|
|
(for-each scheme base)
|
|
(list-tail scheme base)
|
|
(list-ref scheme base)
|
|
(list-set! scheme base)
|
|
(reverse scheme base)
|
|
(boolean=? scheme base)
|
|
(symbol=? scheme base)
|
|
(Cyc-obj=? scheme base)
|
|
(vector scheme base)
|
|
(vector-append scheme base)
|
|
(vector-copy scheme base)
|
|
(vector-copy! scheme base)
|
|
(vector-fill! scheme base)
|
|
(vector->list scheme base)
|
|
(vector->string scheme base)
|
|
(vector-map scheme base)
|
|
(vector-for-each scheme base)
|
|
(make-string scheme base)
|
|
(string scheme base)
|
|
(string-copy scheme base)
|
|
(string-copy! scheme base)
|
|
(string-fill! scheme base)
|
|
(string->list scheme base)
|
|
(string->vector scheme base)
|
|
(string-map scheme base)
|
|
(string-for-each scheme base)
|
|
(make-parameter scheme base)
|
|
(current-output-port scheme base)
|
|
(current-input-port scheme base)
|
|
(current-error-port scheme base)
|
|
(call-with-port scheme base)
|
|
(error-object? scheme base)
|
|
(error-object-message scheme base)
|
|
(error-object-irritants scheme base)
|
|
(error scheme base)
|
|
(raise scheme base)
|
|
(raise-continuable scheme base)
|
|
(with-handler scheme base)
|
|
(with-exception-handler scheme base)
|
|
(Cyc-add-exception-handler scheme base)
|
|
(Cyc-remove-exception-handler scheme base)
|
|
(newline scheme base)
|
|
(write-char scheme base)
|
|
(write-string scheme base)
|
|
(flush-output-port scheme base)
|
|
(peek-char scheme base)
|
|
(read-char scheme base)
|
|
(read-line scheme base)
|
|
(read-string scheme base)
|
|
(input-port? scheme base)
|
|
(output-port? scheme base)
|
|
(input-port-open? scheme base)
|
|
(output-port-open? scheme base)
|
|
(get-output-string scheme base)
|
|
(open-output-string scheme base)
|
|
(open-input-string scheme base)
|
|
(get-output-bytevector scheme base)
|
|
(open-input-bytevector scheme base)
|
|
(open-output-bytevector scheme base)
|
|
(features scheme base)
|
|
(Cyc-version scheme base)
|
|
(any scheme base)
|
|
(every scheme base)
|
|
(and scheme base)
|
|
(or scheme base)
|
|
(let scheme base)
|
|
(let* scheme base)
|
|
(letrec scheme base)
|
|
(let*-values scheme base)
|
|
(let-values scheme base)
|
|
(begin scheme base)
|
|
(case scheme base)
|
|
(cond scheme base)
|
|
(cond-expand scheme base)
|
|
(do scheme base)
|
|
(when scheme base)
|
|
(unless scheme base)
|
|
(quasiquote scheme base)
|
|
(floor scheme base)
|
|
(ceiling scheme base)
|
|
(truncate scheme base)
|
|
(round scheme base)
|
|
(exact scheme base)
|
|
(inexact scheme base)
|
|
(eof-object scheme base)
|
|
(syntax-error scheme base)
|
|
(bytevector-copy scheme base)
|
|
(bytevector-copy! scheme base)
|
|
(utf8->string scheme base)
|
|
(string->utf8 scheme base)
|
|
(denominator scheme base)
|
|
(numerator scheme base)
|
|
(parameterize scheme base)
|
|
(peek-u8 scheme base)
|
|
(read-u8 scheme base)
|
|
(write-u8 scheme base)
|
|
(read scheme read)
|
|
(read-all scheme read)
|
|
(include scheme read)
|
|
(include-ci scheme read)
|
|
(display scheme write)
|
|
(write scheme write)
|
|
(write-shared scheme write)
|
|
(write-simple scheme write)
|
|
(current-second scheme time)
|
|
(current-jiffy scheme time)
|
|
(jiffies-per-second scheme time))
|
|
*/
|
|
/*
|
|
"resolved macros:"
|
|
*/
|
|
/*
|
|
()
|
|
*/
|
|
/*
|
|
"---------------- after macro expansion:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (n$1)
|
|
((lambda (n$5 a$6)
|
|
((lambda (lp$2$7)
|
|
(set! lp$2$7
|
|
(lambda (n$8 a$9)
|
|
(if (= n$8 0)
|
|
a$9
|
|
(lp$2$7 (- n$8 1) (cons '() a$9)))))
|
|
(lp$2$7 n$5 a$6))
|
|
#f))
|
|
n$1
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (l$10)
|
|
((lambda (l$14 a$15)
|
|
((lambda (lp$11$16)
|
|
(set! lp$11$16
|
|
(lambda (l$17 a$18)
|
|
(if (null? l$17)
|
|
a$18
|
|
(lp$11$16 (cddr l$17) (cons (car l$17) a$18)))))
|
|
(lp$11$16 l$14 a$15))
|
|
#f))
|
|
l$10
|
|
'())))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$21)
|
|
((lambda (input1$24)
|
|
((lambda (output$27)
|
|
((lambda (s2$30)
|
|
((lambda (s1$33)
|
|
((lambda (ll$36)
|
|
((lambda (name$39)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name$39 ":" s1$33 ":" s2$30)
|
|
count$21
|
|
(lambda () (iterative-div2 ll$36))
|
|
(lambda (result$41)
|
|
(equal? (length result$41) output$27))))))
|
|
"diviter"))
|
|
(create-n (hide count$21 input1$24))))
|
|
(number->string input1$24)))
|
|
(number->string count$21)))
|
|
500))
|
|
1000))
|
|
1000000)))
|
|
(define hide
|
|
(lambda (r$42 x$43)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$44) x$44))
|
|
(if (< r$42 100) 0 1)))
|
|
(lambda (v$45 i$46)
|
|
((vector-ref v$45 i$46) x$43)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47 count$48 thunk$49 ok?$50)
|
|
(define rounded
|
|
(lambda (x$51) (/ (round (* 1000 x$51)) 1000)))
|
|
(display "Running ")
|
|
(display name$47)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$54)
|
|
((lambda (t0$57)
|
|
((lambda (j0$60)
|
|
((lambda ()
|
|
((lambda (i$63 result$64)
|
|
((lambda (loop$65)
|
|
(set! loop$65
|
|
(lambda (i$66 result$67)
|
|
(if (< i$66 count$48)
|
|
((lambda () (loop$65 (+ i$66 1) (thunk$49))))
|
|
(if (ok?$50 result$67)
|
|
((lambda ()
|
|
((lambda (j1$76)
|
|
((lambda (t1$79)
|
|
((lambda (jifs$82)
|
|
((lambda (secs$85)
|
|
((lambda (secs2$88)
|
|
((lambda ()
|
|
(display "Elapsed time: ")
|
|
(write secs$85)
|
|
(display " seconds (")
|
|
(write secs2$88)
|
|
(display ") for ")
|
|
(display name$47)
|
|
(newline)
|
|
(display "+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47)
|
|
(display ",")
|
|
(display secs$85)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded (- t1$79 t0$57))))
|
|
(inexact (/ jifs$82 j/s$54))))
|
|
(- j1$76 j0$60)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$67))
|
|
((lambda ()
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result$67)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result$67))))))
|
|
(loop$65 i$63 result$64))
|
|
#f))
|
|
0
|
|
#f))))
|
|
(current-jiffy)))
|
|
(current-second)))
|
|
(jiffies-per-second))))
|
|
(define this-scheme-implementation-name
|
|
(lambda ()
|
|
(string-append "cyclone-" (Cyc-version))))
|
|
(main))
|
|
*/
|
|
/*
|
|
"---------------- after macro expansion cleanup:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (n$1)
|
|
((lambda (n$5 a$6)
|
|
((lambda (lp$2$7)
|
|
(set! lp$2$7
|
|
(lambda (n$8 a$9)
|
|
(if (= n$8 0)
|
|
a$9
|
|
(lp$2$7 (- n$8 1) (cons '() a$9)))))
|
|
(lp$2$7 n$5 a$6))
|
|
#f))
|
|
n$1
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (l$10)
|
|
((lambda (l$14 a$15)
|
|
((lambda (lp$11$16)
|
|
(set! lp$11$16
|
|
(lambda (l$17 a$18)
|
|
(if (null? l$17)
|
|
a$18
|
|
(lp$11$16 (cddr l$17) (cons (car l$17) a$18)))))
|
|
(lp$11$16 l$14 a$15))
|
|
#f))
|
|
l$10
|
|
'())))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$21)
|
|
((lambda (input1$24)
|
|
((lambda (output$27)
|
|
((lambda (s2$30)
|
|
((lambda (s1$33)
|
|
((lambda (ll$36)
|
|
((lambda (name$39)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name$39 ":" s1$33 ":" s2$30)
|
|
count$21
|
|
(lambda () (iterative-div2 ll$36))
|
|
(lambda (result$41)
|
|
(equal? (length result$41) output$27))))))
|
|
"diviter"))
|
|
(create-n (hide count$21 input1$24))))
|
|
(number->string input1$24)))
|
|
(number->string count$21)))
|
|
500))
|
|
1000))
|
|
1000000)))
|
|
(define hide
|
|
(lambda (r$42 x$43)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$44) x$44))
|
|
(if (< r$42 100) 0 1)))
|
|
(lambda (v$45 i$46)
|
|
((vector-ref v$45 i$46) x$43)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47 count$48 thunk$49 ok?$50)
|
|
(define rounded
|
|
(lambda (x$51) (/ (round (* 1000 x$51)) 1000)))
|
|
(display "Running ")
|
|
(display name$47)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$54)
|
|
((lambda (t0$57)
|
|
((lambda (j0$60)
|
|
((lambda ()
|
|
((lambda (i$63 result$64)
|
|
((lambda (loop$65)
|
|
(set! loop$65
|
|
(lambda (i$66 result$67)
|
|
(if (< i$66 count$48)
|
|
((lambda () (loop$65 (+ i$66 1) (thunk$49))))
|
|
(if (ok?$50 result$67)
|
|
((lambda ()
|
|
((lambda (j1$76)
|
|
((lambda (t1$79)
|
|
((lambda (jifs$82)
|
|
((lambda (secs$85)
|
|
((lambda (secs2$88)
|
|
((lambda ()
|
|
(display "Elapsed time: ")
|
|
(write secs$85)
|
|
(display " seconds (")
|
|
(write secs2$88)
|
|
(display ") for ")
|
|
(display name$47)
|
|
(newline)
|
|
(display "+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47)
|
|
(display ",")
|
|
(display secs$85)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded (- t1$79 t0$57))))
|
|
(inexact (/ jifs$82 j/s$54))))
|
|
(- j1$76 j0$60)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$67))
|
|
((lambda ()
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result$67)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result$67))))))
|
|
(loop$65 i$63 result$64))
|
|
#f))
|
|
0
|
|
#f))))
|
|
(current-jiffy)))
|
|
(current-second)))
|
|
(jiffies-per-second))))
|
|
(define this-scheme-implementation-name
|
|
(lambda ()
|
|
(string-append "cyclone-" (Cyc-version))))
|
|
(main))
|
|
*/
|
|
/*
|
|
"---------------- after processing globals"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (n$1)
|
|
((lambda (n$5 a$6)
|
|
((lambda (lp$2$7)
|
|
(set! lp$2$7
|
|
(lambda (n$8 a$9)
|
|
(if (= n$8 0)
|
|
a$9
|
|
(lp$2$7 (- n$8 1) (cons '() a$9)))))
|
|
(lp$2$7 n$5 a$6))
|
|
#f))
|
|
n$1
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (l$10)
|
|
((lambda (l$14 a$15)
|
|
((lambda (lp$11$16)
|
|
(set! lp$11$16
|
|
(lambda (l$17 a$18)
|
|
(if (null? l$17)
|
|
a$18
|
|
(lp$11$16 (cddr l$17) (cons (car l$17) a$18)))))
|
|
(lp$11$16 l$14 a$15))
|
|
#f))
|
|
l$10
|
|
'())))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$21)
|
|
((lambda (input1$24)
|
|
((lambda (output$27)
|
|
((lambda (s2$30)
|
|
((lambda (s1$33)
|
|
((lambda (ll$36)
|
|
((lambda (name$39)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name$39 ":" s1$33 ":" s2$30)
|
|
count$21
|
|
(lambda () (iterative-div2 ll$36))
|
|
(lambda (result$41)
|
|
(equal? (length result$41) output$27))))))
|
|
"diviter"))
|
|
(create-n (hide count$21 input1$24))))
|
|
(number->string input1$24)))
|
|
(number->string count$21)))
|
|
500))
|
|
1000))
|
|
1000000)))
|
|
(define hide
|
|
(lambda (r$42 x$43)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$44) x$44))
|
|
(if (< r$42 100) 0 1)))
|
|
(lambda (v$45 i$46)
|
|
((vector-ref v$45 i$46) x$43)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47 count$48 thunk$49 ok?$50)
|
|
(define rounded
|
|
(lambda (x$51) (/ (round (* 1000 x$51)) 1000)))
|
|
(display "Running ")
|
|
(display name$47)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$54)
|
|
((lambda (t0$57)
|
|
((lambda (j0$60)
|
|
((lambda ()
|
|
((lambda (i$63 result$64)
|
|
((lambda (loop$65)
|
|
(set! loop$65
|
|
(lambda (i$66 result$67)
|
|
(if (< i$66 count$48)
|
|
((lambda () (loop$65 (+ i$66 1) (thunk$49))))
|
|
(if (ok?$50 result$67)
|
|
((lambda ()
|
|
((lambda (j1$76)
|
|
((lambda (t1$79)
|
|
((lambda (jifs$82)
|
|
((lambda (secs$85)
|
|
((lambda (secs2$88)
|
|
((lambda ()
|
|
(display "Elapsed time: ")
|
|
(write secs$85)
|
|
(display " seconds (")
|
|
(write secs2$88)
|
|
(display ") for ")
|
|
(display name$47)
|
|
(newline)
|
|
(display "+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47)
|
|
(display ",")
|
|
(display secs$85)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded (- t1$79 t0$57))))
|
|
(inexact (/ jifs$82 j/s$54))))
|
|
(- j1$76 j0$60)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$67))
|
|
((lambda ()
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result$67)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result$67))))))
|
|
(loop$65 i$63 result$64))
|
|
#f))
|
|
0
|
|
#f))))
|
|
(current-jiffy)))
|
|
(current-second)))
|
|
(jiffies-per-second))))
|
|
(define this-scheme-implementation-name
|
|
(lambda ()
|
|
(string-append "cyclone-" (Cyc-version))))
|
|
((lambda () 0 (main))))
|
|
*/
|
|
/*
|
|
"pass thru exports:"
|
|
*/
|
|
/*
|
|
()
|
|
*/
|
|
/*
|
|
"---------------- after alpha conversion:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (n$1$91)
|
|
((lambda (n$5$92 a$6$93)
|
|
((lambda (lp$2$7$94)
|
|
(set! lp$2$7$94
|
|
(lambda (n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
a$9$96
|
|
(lp$2$7$94
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96)))))
|
|
(lp$2$7$94 n$5$92 a$6$93))
|
|
#f))
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (l$10$97)
|
|
((lambda (l$14$98 a$15$99)
|
|
((lambda (lp$11$16$100)
|
|
(set! lp$11$16$100
|
|
(lambda (l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
a$18$102
|
|
(lp$11$16$100
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102)))))
|
|
(lp$11$16$100 l$14$98 a$15$99))
|
|
#f))
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$21$103)
|
|
((lambda (input1$24$104)
|
|
((lambda (output$27$105)
|
|
((lambda (s2$30$106)
|
|
((lambda (s1$33$107)
|
|
((lambda (ll$36$108)
|
|
((lambda (name$39$109)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append
|
|
name$39$109
|
|
":"
|
|
s1$33$107
|
|
":"
|
|
s2$30$106)
|
|
count$21$103
|
|
(lambda () (iterative-div2 ll$36$108))
|
|
(lambda (result$41$110)
|
|
(equal?
|
|
(length result$41$110)
|
|
output$27$105))))))
|
|
"diviter"))
|
|
(create-n (hide count$21$103 input1$24$104))))
|
|
(number->string input1$24$104)))
|
|
(number->string count$21$103)))
|
|
500))
|
|
1000))
|
|
1000000)))
|
|
(define hide
|
|
(lambda (r$42$111 x$43$112)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$44$113) x$44$113))
|
|
(if (Cyc-fast-lt r$42$111 100) 0 1)))
|
|
(lambda (v$45$114 i$46$115)
|
|
((vector-ref v$45$114 i$46$115) x$43$112)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda (rounded$121)
|
|
((lambda (rounded$122)
|
|
(set! rounded$121
|
|
(lambda (x$51$123)
|
|
(Cyc-fast-div
|
|
(round (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
(display "Running ")
|
|
(display name$47$116)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$54$124)
|
|
((lambda (t0$57$125)
|
|
((lambda (j0$60$126)
|
|
((lambda ()
|
|
((lambda (i$63$127 result$64$128)
|
|
((lambda (loop$65$129)
|
|
(set! loop$65$129
|
|
(lambda (i$66$130 result$67$131)
|
|
(if (Cyc-fast-lt i$66$130 count$48$117)
|
|
((lambda ()
|
|
(loop$65$129
|
|
(Cyc-fast-plus i$66$130 1)
|
|
(thunk$49$118))))
|
|
(if (ok?$50$119 result$67$131)
|
|
((lambda ()
|
|
((lambda (j1$76$132)
|
|
((lambda (t1$79$133)
|
|
((lambda (jifs$82$134)
|
|
((lambda (secs$85$135)
|
|
((lambda (secs2$88$136)
|
|
((lambda ()
|
|
(display
|
|
"Elapsed time: ")
|
|
(write secs$85$135)
|
|
(display " seconds (")
|
|
(write secs2$88$136)
|
|
(display ") for ")
|
|
(display name$47$116)
|
|
(newline)
|
|
(display
|
|
"+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47$116)
|
|
(display ",")
|
|
(display secs$85$135)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded$121
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125))))
|
|
(inexact
|
|
(Cyc-fast-div
|
|
jifs$82$134
|
|
j/s$54$124))))
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$67$131))
|
|
((lambda ()
|
|
(display
|
|
"ERROR: returned incorrect result: ")
|
|
(write result$67$131)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port))
|
|
result$67$131))))))
|
|
(loop$65$129 i$63$127 result$64$128))
|
|
#f))
|
|
0
|
|
#f))))
|
|
(current-jiffy)))
|
|
(current-second)))
|
|
(jiffies-per-second)))
|
|
#f))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda ()
|
|
(string-append "cyclone-" (Cyc-version))))
|
|
((lambda () 0 (main))))
|
|
*/
|
|
/*
|
|
"---------------- after func->primitive conversion:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (n$1$91)
|
|
((lambda (n$5$92 a$6$93)
|
|
((lambda (lp$2$7$94)
|
|
(set! lp$2$7$94
|
|
(lambda (n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
a$9$96
|
|
(lp$2$7$94
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96)))))
|
|
(lp$2$7$94 n$5$92 a$6$93))
|
|
#f))
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (l$10$97)
|
|
((lambda (l$14$98 a$15$99)
|
|
((lambda (lp$11$16$100)
|
|
(set! lp$11$16$100
|
|
(lambda (l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
a$18$102
|
|
(lp$11$16$100
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102)))))
|
|
(lp$11$16$100 l$14$98 a$15$99))
|
|
#f))
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$21$103)
|
|
((lambda (input1$24$104)
|
|
((lambda (output$27$105)
|
|
((lambda (s2$30$106)
|
|
((lambda (s1$33$107)
|
|
((lambda (ll$36$108)
|
|
((lambda (name$39$109)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append
|
|
name$39$109
|
|
":"
|
|
s1$33$107
|
|
":"
|
|
s2$30$106)
|
|
count$21$103
|
|
(lambda () (iterative-div2 ll$36$108))
|
|
(lambda (result$41$110)
|
|
(equal?
|
|
(length result$41$110)
|
|
output$27$105))))))
|
|
"diviter"))
|
|
(create-n (hide count$21$103 input1$24$104))))
|
|
(number->string input1$24$104)))
|
|
(number->string count$21$103)))
|
|
500))
|
|
1000))
|
|
1000000)))
|
|
(define hide
|
|
(lambda (r$42$111 x$43$112)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$44$113) x$44$113))
|
|
(if (Cyc-fast-lt r$42$111 100) 0 1)))
|
|
(lambda (v$45$114 i$46$115)
|
|
((vector-ref v$45$114 i$46$115) x$43$112)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda (rounded$121)
|
|
((lambda (rounded$122)
|
|
(set! rounded$121
|
|
(lambda (x$51$123)
|
|
(Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
(display "Running ")
|
|
(display name$47$116)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$54$124)
|
|
((lambda (t0$57$125)
|
|
((lambda (j0$60$126)
|
|
((lambda ()
|
|
((lambda (i$63$127 result$64$128)
|
|
((lambda (loop$65$129)
|
|
(set! loop$65$129
|
|
(lambda (i$66$130 result$67$131)
|
|
(if (Cyc-fast-lt i$66$130 count$48$117)
|
|
((lambda ()
|
|
(loop$65$129
|
|
(Cyc-fast-plus i$66$130 1)
|
|
(thunk$49$118))))
|
|
(if (ok?$50$119 result$67$131)
|
|
((lambda ()
|
|
((lambda (j1$76$132)
|
|
((lambda (t1$79$133)
|
|
((lambda (jifs$82$134)
|
|
((lambda (secs$85$135)
|
|
((lambda (secs2$88$136)
|
|
((lambda ()
|
|
(display
|
|
"Elapsed time: ")
|
|
(write secs$85$135)
|
|
(display " seconds (")
|
|
(write secs2$88$136)
|
|
(display ") for ")
|
|
(display name$47$116)
|
|
(newline)
|
|
(display
|
|
"+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47$116)
|
|
(display ",")
|
|
(display secs$85$135)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded$121
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
jifs$82$134
|
|
j/s$54$124))))
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$67$131))
|
|
((lambda ()
|
|
(display
|
|
"ERROR: returned incorrect result: ")
|
|
(write result$67$131)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port))
|
|
result$67$131))))))
|
|
(loop$65$129 i$63$127 result$64$128))
|
|
#f))
|
|
0
|
|
#f))))
|
|
(current-jiffy)))
|
|
(current-second)))
|
|
(jiffies-per-second)))
|
|
#f))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda ()
|
|
(string-append "cyclone-" (Cyc-version))))
|
|
((lambda () 0 (main))))
|
|
*/
|
|
/*
|
|
"---------------- results of inlinable-top-level-lambda analysis: "
|
|
*/
|
|
/*
|
|
()
|
|
*/
|
|
/*
|
|
"---------------- after CPS:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda-11-cont
|
|
(k$139 n$1$91)
|
|
((lambda-10
|
|
(r$140)
|
|
((lambda-9
|
|
(n$5$92 a$6$93)
|
|
((lambda-8
|
|
(lp$2$7$94)
|
|
((lambda-2
|
|
(r$142)
|
|
((lambda-1
|
|
(r$141)
|
|
(lp$2$7$94 k$139 n$5$92 a$6$93))
|
|
(set! lp$2$7$94 r$142)))
|
|
(lambda-7-cont
|
|
(k$143 n$8$95 a$9$96)
|
|
((lambda-6
|
|
(r$144)
|
|
(if r$144
|
|
(k$143 a$9$96)
|
|
((lambda-5
|
|
(r$145)
|
|
((lambda-4
|
|
(r$147)
|
|
((lambda-3 (r$146) (lp$2$7$94 k$143 r$145 r$146))
|
|
(cons r$147 a$9$96)))
|
|
'()))
|
|
(Cyc-fast-sub n$8$95 1))))
|
|
(Cyc-fast-eq n$8$95 0)))))
|
|
#f))
|
|
n$1$91
|
|
r$140))
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda-22-cont
|
|
(k$150 l$10$97)
|
|
((lambda-21
|
|
(r$151)
|
|
((lambda-20
|
|
(l$14$98 a$15$99)
|
|
((lambda-19
|
|
(lp$11$16$100)
|
|
((lambda-13
|
|
(r$153)
|
|
((lambda-12
|
|
(r$152)
|
|
(lp$11$16$100 k$150 l$14$98 a$15$99))
|
|
(set! lp$11$16$100 r$153)))
|
|
(lambda-18-cont
|
|
(k$154 l$17$101 a$18$102)
|
|
((lambda-17
|
|
(r$155)
|
|
(if r$155
|
|
(k$154 a$18$102)
|
|
((lambda-16
|
|
(r$156)
|
|
((lambda-15
|
|
(r$158)
|
|
((lambda-14
|
|
(r$157)
|
|
(lp$11$16$100 k$154 r$156 r$157))
|
|
(cons r$158 a$18$102)))
|
|
(car l$17$101)))
|
|
(cddr l$17$101))))
|
|
(null? l$17$101)))))
|
|
#f))
|
|
l$10$97
|
|
r$151))
|
|
'())))
|
|
(define main
|
|
(lambda-41-cont
|
|
(k$161)
|
|
((lambda-40
|
|
(count$21$103)
|
|
((lambda-39
|
|
(input1$24$104)
|
|
((lambda-38
|
|
(output$27$105)
|
|
((lambda-37
|
|
(r$162)
|
|
((lambda-36
|
|
(s2$30$106)
|
|
((lambda-35
|
|
(r$163)
|
|
((lambda-34
|
|
(s1$33$107)
|
|
(hide (lambda-33
|
|
(r$171)
|
|
(create-n
|
|
(lambda-32
|
|
(r$164)
|
|
((lambda-31
|
|
(ll$36$108)
|
|
((lambda-30
|
|
(name$39$109)
|
|
((lambda-29
|
|
()
|
|
((lambda-28
|
|
(r$165)
|
|
((lambda-26
|
|
(r$166)
|
|
((lambda-23
|
|
(r$167)
|
|
(run-r7rs-benchmark
|
|
k$161
|
|
r$165
|
|
count$21$103
|
|
r$166
|
|
r$167))
|
|
(lambda-25-cont
|
|
(k$168 result$41$110)
|
|
((lambda-24
|
|
(r$169)
|
|
(k$168 (equal?
|
|
r$169
|
|
output$27$105)))
|
|
(length
|
|
result$41$110)))))
|
|
(lambda-27-cont
|
|
(k$170)
|
|
(iterative-div2
|
|
k$170
|
|
ll$36$108))))
|
|
(string-append
|
|
name$39$109
|
|
":"
|
|
s1$33$107
|
|
":"
|
|
s2$30$106)))))
|
|
"diviter"))
|
|
r$164))
|
|
r$171))
|
|
count$21$103
|
|
input1$24$104))
|
|
r$163))
|
|
(number->string input1$24$104)))
|
|
r$162))
|
|
(number->string count$21$103)))
|
|
500))
|
|
1000))
|
|
1000000)))
|
|
(define hide
|
|
(lambda-53-cont
|
|
(k$174 r$42$111 x$43$112)
|
|
((lambda-45
|
|
(r$175)
|
|
((lambda-42
|
|
(r$176)
|
|
(call-with-values k$174 r$175 r$176))
|
|
(lambda-44-cont
|
|
(k$177 v$45$114 i$46$115)
|
|
((lambda-43 (r$178) (r$178 k$177 x$43$112))
|
|
(vector-ref v$45$114 i$46$115)))))
|
|
(lambda-52-cont
|
|
(k$179)
|
|
((lambda-50
|
|
(r$184)
|
|
(vector
|
|
(lambda-49
|
|
(r$180)
|
|
((lambda-48-cont
|
|
(k$182)
|
|
((lambda-47
|
|
(r$183)
|
|
(if r$183 (k$182 0) (k$182 1)))
|
|
(Cyc-fast-lt r$42$111 100)))
|
|
(lambda-46 (r$181) (values k$179 r$180 r$181))))
|
|
values
|
|
r$184))
|
|
(lambda-51-cont
|
|
(k$185 x$44$113)
|
|
(k$185 x$44$113)))))))
|
|
(define run-r7rs-benchmark
|
|
(lambda-120-cont
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda-119
|
|
(rounded$121)
|
|
((lambda-118
|
|
(rounded$122)
|
|
((lambda-114
|
|
(r$234)
|
|
((lambda-113
|
|
(r$189)
|
|
(display
|
|
(lambda-112
|
|
(r$190)
|
|
(display
|
|
(lambda-111
|
|
(r$191)
|
|
(newline
|
|
(lambda-110
|
|
(r$192)
|
|
(current-output-port
|
|
(lambda-109
|
|
(r$233)
|
|
(flush-output-port
|
|
(lambda-108
|
|
(r$193)
|
|
(jiffies-per-second
|
|
(lambda-107
|
|
(r$194)
|
|
((lambda-106
|
|
(j/s$54$124)
|
|
(current-second
|
|
(lambda-105
|
|
(r$195)
|
|
((lambda-104
|
|
(t0$57$125)
|
|
(current-jiffy
|
|
(lambda-103
|
|
(r$196)
|
|
((lambda-102
|
|
(j0$60$126)
|
|
((lambda-101
|
|
()
|
|
((lambda-100
|
|
(i$63$127
|
|
result$64$128)
|
|
((lambda-99
|
|
(loop$65$129)
|
|
((lambda-55
|
|
(r$198)
|
|
((lambda-54
|
|
(r$197)
|
|
(loop$65$129
|
|
k$188
|
|
i$63$127
|
|
result$64$128))
|
|
(set! loop$65$129
|
|
r$198)))
|
|
(lambda-98-cont
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
((lambda-97
|
|
(r$200)
|
|
(if r$200
|
|
((lambda-58
|
|
()
|
|
((lambda-57
|
|
(r$201)
|
|
(thunk$49$118
|
|
(lambda-56
|
|
(r$202)
|
|
(loop$65$129
|
|
k$199
|
|
r$201
|
|
r$202))))
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1))))
|
|
(ok?$50$119
|
|
(lambda-96
|
|
(r$203)
|
|
(if r$203
|
|
((lambda-89
|
|
()
|
|
(current-jiffy
|
|
(lambda-88
|
|
(r$205)
|
|
((lambda-87
|
|
(j1$76$132)
|
|
(current-second
|
|
(lambda-86
|
|
(r$206)
|
|
((lambda-85
|
|
(t1$79$133)
|
|
((lambda-84
|
|
(r$207)
|
|
((lambda-83
|
|
(jifs$82$134)
|
|
((lambda-82
|
|
(r$227)
|
|
((lambda-81
|
|
(r$208)
|
|
((lambda-80
|
|
(secs$85$135)
|
|
((lambda-79
|
|
(r$226)
|
|
(rounded$121
|
|
(lambda-78
|
|
(r$209)
|
|
((lambda-77
|
|
(secs2$88$136)
|
|
((lambda-76
|
|
()
|
|
(display
|
|
(lambda-75
|
|
(r$210)
|
|
(write (lambda-74
|
|
(r$211)
|
|
(display
|
|
(lambda-73
|
|
(r$212)
|
|
(write (lambda-72
|
|
(r$213)
|
|
(display
|
|
(lambda-71
|
|
(r$214)
|
|
(display
|
|
(lambda-70
|
|
(r$215)
|
|
(newline
|
|
(lambda-69
|
|
(r$216)
|
|
(display
|
|
(lambda-68
|
|
(r$217)
|
|
(this-scheme-implementation-name
|
|
(lambda-67
|
|
(r$225)
|
|
(display
|
|
(lambda-66
|
|
(r$218)
|
|
(display
|
|
(lambda-65
|
|
(r$219)
|
|
(display
|
|
(lambda-64
|
|
(r$220)
|
|
(display
|
|
(lambda-63
|
|
(r$221)
|
|
(display
|
|
(lambda-62
|
|
(r$222)
|
|
(newline
|
|
(lambda-61
|
|
(r$223)
|
|
(current-output-port
|
|
(lambda-60
|
|
(r$224)
|
|
(flush-output-port
|
|
(lambda-59
|
|
(r$204)
|
|
(k$199 result$67$131))
|
|
r$224))))))
|
|
secs$85$135))
|
|
","))
|
|
name$47$116))
|
|
","))
|
|
r$225))))
|
|
"+!CSVLINE!+"))))
|
|
name$47$116))
|
|
") for "))
|
|
secs2$88$136))
|
|
" seconds ("))
|
|
secs$85$135))
|
|
"Elapsed time: "))))
|
|
r$209))
|
|
r$226))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
r$208))
|
|
(inexact__inline__
|
|
r$227)))
|
|
(Cyc-fast-div
|
|
jifs$82$134
|
|
j/s$54$124)))
|
|
r$207))
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)))
|
|
r$206))))
|
|
r$205)))))
|
|
((lambda-95
|
|
()
|
|
(display
|
|
(lambda-94
|
|
(r$228)
|
|
(write (lambda-93
|
|
(r$229)
|
|
(newline
|
|
(lambda-92
|
|
(r$230)
|
|
(current-output-port
|
|
(lambda-91
|
|
(r$232)
|
|
(flush-output-port
|
|
(lambda-90
|
|
(r$231)
|
|
(k$199 result$67$131))
|
|
r$232))))))
|
|
result$67$131))
|
|
"ERROR: returned incorrect result: ")))))
|
|
result$67$131)))
|
|
(Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)))))
|
|
#f))
|
|
0
|
|
#f))))
|
|
r$196))))
|
|
r$195))))
|
|
r$194))))
|
|
r$233))))))
|
|
name$47$116))
|
|
"Running "))
|
|
(set! rounded$121 r$234)))
|
|
(lambda-117-cont
|
|
(k$235 x$51$123)
|
|
((lambda-116
|
|
(r$237)
|
|
((lambda-115
|
|
(r$236)
|
|
(k$235 (Cyc-fast-div r$236 1000)))
|
|
(round__inline__ r$237)))
|
|
(Cyc-fast-mul 1000 x$51$123)))))
|
|
#f))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda-122-cont
|
|
(k$240)
|
|
(Cyc-version
|
|
(lambda-121
|
|
(r$241)
|
|
(k$240 (string-append "cyclone-" r$241))))))
|
|
((lambda-124
|
|
()
|
|
((lambda-123 (r$242) (main %halt)) 0))))
|
|
*/
|
|
/*
|
|
"---------------- cps analysis db:"
|
|
*/
|
|
/*
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<srfi-hash-table>"
|
|
(size hash compare associate entries))
|
|
#(299
|
|
#[procedure]
|
|
#[procedure]
|
|
#[procedure]
|
|
#(()
|
|
((1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((2
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((3
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((4
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((5
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((6
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((7
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$142 lp$2$7$94 r$142) #f))))
|
|
((8
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((9
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((10
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((11
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((12
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((13
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((14
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((15
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((%halt .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(123)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(inexact__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(82)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(16
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((17
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((18
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$153 lp$11$16$100 r$153) #f))))
|
|
((19
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((20
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((21
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((22
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((23
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((24
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((25
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$167) #f))))
|
|
((26
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((27
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$166) #t))))
|
|
((28
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((29
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((30
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((31
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$241 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
121
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$225 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
67
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(67)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$217 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
68
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$209 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
78
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(78)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$185 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
51
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(51)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$161 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
41
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(23)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(32
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t)))
|
|
(k$177 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(43)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(this-scheme-implementation-name
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
122
|
|
#f
|
|
#f
|
|
2
|
|
(-1 68)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(122
|
|
(k$240)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(121
|
|
(r$241)
|
|
((k$240 (string-append "cyclone-" r$241)))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$145 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
5
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(3)
|
|
#f
|
|
(Cyc-fast-sub n$8$95 1)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(l$14$98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
20
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
l$10$97
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$153 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
13
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(13)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(17
|
|
(r$155)
|
|
((if r$155
|
|
(k$154 a$18$102)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(16
|
|
(r$156)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(15
|
|
(r$158)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(14
|
|
(r$157)
|
|
((lp$11$16$100
|
|
k$154
|
|
r$156
|
|
r$157))
|
|
#f))
|
|
(cons r$158 a$18$102)))
|
|
#f))
|
|
(car l$17$101)))
|
|
#f))
|
|
(cddr l$17$101))))
|
|
#f))
|
|
(null? l$17$101)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(s2$30$106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
36
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(29)
|
|
#f
|
|
r$162
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$169 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
24
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(24)
|
|
#f
|
|
(length result$41$110)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(v$45$114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(rounded$122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
118
|
|
#f
|
|
#t
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$233 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
109
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(109)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$193 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
108
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(i$66$130
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(98 58)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$201 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
57
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(56)
|
|
#f
|
|
(Cyc-fast-plus i$66$130 1)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
((33
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((34
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((35
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((36
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((37
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((38
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((39
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((40
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((41
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((42
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((43
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$176) #f))))
|
|
((45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (k$182) #f))))
|
|
((47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((Cyc-version
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(122)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(48
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(flush-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(91 60 109)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
((49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((50
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$184) #f))))
|
|
((52
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$175) #f))))
|
|
((53
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((54
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((55
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((58
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((59
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((60
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((64
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((65
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((66
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((67
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((68
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((69
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((73
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((74
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((75
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((77
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((79
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((80
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(Cyc-fast-eq
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(7)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-jiffy
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(89 104)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
((81
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((82
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((84
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((85
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((86
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((87
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((89
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((90
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$242 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
123
|
|
#f
|
|
#t
|
|
0
|
|
0
|
|
()
|
|
#f
|
|
0
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$51$123
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$218 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
66
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$210 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
75
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$226 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
79
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(79)
|
|
#f
|
|
(Cyc-fast-sub t1$79$133 t0$57$125)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(k$154 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(14 17)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$170 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
27
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(27)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(n$1$91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
11
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(10)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$146 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
3
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(3)
|
|
#f
|
|
(cons r$147 a$9$96)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$15$99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
20
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
r$151
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$162 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
37
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(37)
|
|
#f
|
|
(number->string count$21$103)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(s1$33$107
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
34
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(29)
|
|
#f
|
|
r$163
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(i$46$115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$178 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
43
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(43)
|
|
#f
|
|
(vector-ref v$45$114 i$46$115)
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$234 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
114
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(114)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(116
|
|
(r$237)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(115
|
|
(r$236)
|
|
((k$235 (Cyc-fast-div r$236 1000)))
|
|
#f))
|
|
(round__inline__ r$237)))
|
|
#f))
|
|
(Cyc-fast-mul 1000 x$51$123)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$194 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
107
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(107)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(result$67$131
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(97 94 90 59)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$202 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
56
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(56)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
((97
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$198 loop$65$129 r$198) #f))))
|
|
((99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((103
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((107
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((116
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$234 rounded$121 r$234) #f))))
|
|
((118
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((120
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((123
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((Cyc-fast-plus
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(58)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$219 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
65
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$211 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
74
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$227 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
82
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(82)
|
|
#f
|
|
(Cyc-fast-div jifs$82$134 j/s$54$124)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$139 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
11
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$179 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
52
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$235 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(115)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(n$5$92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
9
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
n$1$91
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$147 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
4
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(4)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(lp$11$16$100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
19
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(14 13 12)
|
|
#f
|
|
r$153
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$155 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
17
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(17)
|
|
#f
|
|
(null? l$17$101)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$163 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
35
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(35)
|
|
#f
|
|
(number->string input1$24$104)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$171 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
33
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(33)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(ll$36$108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
31
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(27)
|
|
#f
|
|
r$164
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(name$47$116
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(112 71 65)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(j/s$54$124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
106
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(83)
|
|
#f
|
|
r$194
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$195 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
105
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(105)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$203 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
96
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(96)
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(j1$76$132
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
87
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(85)
|
|
#f
|
|
r$205
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(50)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((round__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(116)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(create-n
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
11
|
|
#f
|
|
#f
|
|
2
|
|
(33 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(11
|
|
(k$139 n$1$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(10
|
|
(r$140)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(9
|
|
(n$5$92 a$6$93)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(8
|
|
(lp$2$7$94)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(2
|
|
(r$142)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(1
|
|
(r$141)
|
|
((lp$2$7$94
|
|
k$139
|
|
n$5$92
|
|
a$6$93))
|
|
#f))
|
|
(set! lp$2$7$94 r$142)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(6
|
|
(r$144)
|
|
((if r$144
|
|
(k$143 a$9$96)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(5
|
|
(r$145)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(4
|
|
(r$147)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(3
|
|
(r$146)
|
|
((lp$2$7$94
|
|
k$143
|
|
r$145
|
|
r$146))
|
|
#f))
|
|
(cons r$147
|
|
a$9$96)))
|
|
#f))
|
|
'()))
|
|
#f))
|
|
(Cyc-fast-sub n$8$95 1))))
|
|
#f))
|
|
(Cyc-fast-eq n$8$95 0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
n$1$91
|
|
r$140))
|
|
#f))
|
|
'()))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-sub
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(85 80 6)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-lt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(98 48)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$236 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
115
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(115)
|
|
#f
|
|
(round__inline__ r$237)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$228 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
94
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$204 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
59
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$220 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
64
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$212 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
73
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$188 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(54)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$140 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
10
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(10)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$6$93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
9
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
r$140
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(l$17$101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(18 17 16)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$156 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
16
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(14)
|
|
#f
|
|
(cddr l$17$101)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$164 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
32
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(32)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(name$39$109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
30
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(29)
|
|
#f
|
|
"diviter"
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$180 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
49
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(count$48$117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(t0$57$125
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
104
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(80)
|
|
#f
|
|
r$195
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$196 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
103
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(103)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(t1$79$133
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
85
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(80)
|
|
#f
|
|
r$206
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((equal?
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(24)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(number->string
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(38 36)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((Cyc-fast-mul
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(iterative-div2
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
22
|
|
#f
|
|
#f
|
|
2
|
|
(27 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(22
|
|
(k$150 l$10$97)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(21
|
|
(r$151)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(20
|
|
(l$14$98 a$15$99)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(19
|
|
(lp$11$16$100)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(13
|
|
(r$153)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(12
|
|
(r$152)
|
|
((lp$11$16$100
|
|
k$150
|
|
l$14$98
|
|
a$15$99))
|
|
#f))
|
|
(set! lp$11$16$100 r$153)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(17
|
|
(r$155)
|
|
((if r$155
|
|
(k$154 a$18$102)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(16
|
|
(r$156)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$158)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$157)
|
|
((lp$11$16$100
|
|
k$154
|
|
r$156
|
|
r$157))
|
|
#f))
|
|
(cons r$158
|
|
a$18$102)))
|
|
#f))
|
|
(car l$17$101)))
|
|
#f))
|
|
(cddr l$17$101))))
|
|
#f))
|
|
(null? l$17$101)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
l$10$97
|
|
r$151))
|
|
#f))
|
|
'()))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$237 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
116
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(116)
|
|
#f
|
|
(Cyc-fast-mul 1000 x$51$123)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$229 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
93
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$221 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
63
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$213 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
72
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(jifs$82$134
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
83
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(83)
|
|
#f
|
|
r$207
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(lp$2$7$94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
8
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(3 2 1)
|
|
#f
|
|
r$142
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$141 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! lp$2$7$94 r$142)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$18$102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(15 17)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$157 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
14
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(14)
|
|
#f
|
|
(cons r$158 a$18$102)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$165 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
28
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(23)
|
|
#f
|
|
(string-append
|
|
name$39$109
|
|
":"
|
|
s1$33$107
|
|
":"
|
|
s2$30$106)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(result$41$110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
25
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$181 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
46
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(thunk$49$118
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(57)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$189 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
113
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! rounded$121 r$234)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(j0$60$126
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
102
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(85)
|
|
#f
|
|
r$196
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$197 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
54
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$65$129 r$198)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$205 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
88
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(88)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((cons .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(15 4)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(car .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(16)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((Cyc-fast-div
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(115 83)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(hide .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
53
|
|
#f
|
|
#f
|
|
2
|
|
(-1 34)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(53
|
|
(k$174 r$42$111 x$43$112)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(45
|
|
(r$175)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(42
|
|
(r$176)
|
|
((call-with-values k$174 r$175 r$176))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(44
|
|
(k$177 v$45$114 i$46$115)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(43 (r$178) ((r$178 k$177 x$43$112)) #f))
|
|
(vector-ref v$45$114 i$46$115)))
|
|
#t))))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(52
|
|
(k$179)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(50
|
|
(r$184)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(49
|
|
(r$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(48
|
|
(k$182)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(47
|
|
(r$183)
|
|
((if r$183
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
#f))
|
|
(Cyc-fast-lt r$42$111 100)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46
|
|
(r$181)
|
|
((values k$179 r$180 r$181))
|
|
#f))))
|
|
#f))
|
|
values
|
|
r$184))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(51 (k$185 x$44$113) ((k$185 x$44$113)) #t))))
|
|
#t))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(jiffies-per-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(108)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$230 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
92
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$222 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
62
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$214 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
71
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(secs$85$135
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
80
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
r$208
|
|
0
|
|
2
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$150 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
22
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$174 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(42)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$182 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
48
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(47 47)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46 (r$181) ((values k$179 r$180 r$181)) #f))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$142 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
2
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(2)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(6
|
|
(r$144)
|
|
((if r$144
|
|
(k$143 a$9$96)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(5
|
|
(r$145)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(4
|
|
(r$147)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(3
|
|
(r$146)
|
|
((lp$2$7$94 k$143 r$145 r$146))
|
|
#f))
|
|
(cons r$147 a$9$96)))
|
|
#f))
|
|
'()))
|
|
#f))
|
|
(Cyc-fast-sub n$8$95 1))))
|
|
#f))
|
|
(Cyc-fast-eq n$8$95 0)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(n$8$95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 6)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$158 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
15
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(15)
|
|
#f
|
|
(car l$17$101)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(count$21$103
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
40
|
|
#f
|
|
#t
|
|
1000000
|
|
3
|
|
(38 34 23)
|
|
#f
|
|
1000000
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$166 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
26
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(23)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(27
|
|
(k$170)
|
|
((iterative-div2 k$170 ll$36$108))
|
|
#t))
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$42$111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(48)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(ok?$50$119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(97)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$190 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
112
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(i$63$127
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
100
|
|
#f
|
|
#t
|
|
0
|
|
1
|
|
(54)
|
|
#f
|
|
0
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$198 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
55
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(55)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(98
|
|
(k$199 i$66$130 result$67$131)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(97
|
|
(r$200)
|
|
((if r$200
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(58
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(57
|
|
(r$201)
|
|
((thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
r$201
|
|
r$202))
|
|
#f))))
|
|
#f))
|
|
(Cyc-fast-plus i$66$130 1)))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(89
|
|
()
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(88
|
|
(r$205)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(86
|
|
(r$206)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(84
|
|
(r$207)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(83
|
|
(jifs$82$134)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(82
|
|
(r$227)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(81
|
|
(r$208)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(80
|
|
(secs$85$135)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(79
|
|
(r$226)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(78
|
|
(r$209)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(76
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
secs$85$135))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
secs$85$135))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))))
|
|
#f))
|
|
r$209))
|
|
#f))
|
|
r$226))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))
|
|
r$208))
|
|
#f))
|
|
(inexact__inline__
|
|
r$227)))
|
|
#f))
|
|
(Cyc-fast-div
|
|
jifs$82$134
|
|
j/s$54$124)))
|
|
#f))
|
|
r$207))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)))
|
|
#f))
|
|
r$206))
|
|
#f))))
|
|
#f))
|
|
r$205))
|
|
#f))))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(95
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: "))
|
|
#f)))))
|
|
#f))
|
|
result$67$131)))
|
|
#f))
|
|
(Cyc-fast-lt i$66$130 count$48$117)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$206 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
86
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(86)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((write .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(94 73 75)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(call-with-values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(42)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(newline
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(93 62 70 111)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(92 61 110)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((main .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
41
|
|
#f
|
|
#f
|
|
2
|
|
(123 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(41
|
|
(k$161)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(40
|
|
(count$21$103)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(39
|
|
(input1$24$104)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(38
|
|
(output$27$105)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(37
|
|
(r$162)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(36
|
|
(s2$30$106)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(35
|
|
(r$163)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(34
|
|
(s1$33$107)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(33
|
|
(r$171)
|
|
((create-n
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(32
|
|
(r$164)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(31
|
|
(ll$36$108)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(30
|
|
(name$39$109)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(29
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(r$165)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$166)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$167)
|
|
((run-r7rs-benchmark
|
|
k$161
|
|
r$165
|
|
count$21$103
|
|
r$166
|
|
r$167))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(k$168 result$41$110)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$169)
|
|
((k$168 (equal?
|
|
r$169
|
|
output$27$105)))
|
|
#f))
|
|
(length
|
|
result$41$110)))
|
|
#t))))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(27
|
|
(k$170)
|
|
((iterative-div2
|
|
k$170
|
|
ll$36$108))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
name$39$109
|
|
":"
|
|
s1$33$107
|
|
":"
|
|
s2$30$106)))
|
|
#f))))
|
|
#f))
|
|
"diviter"))
|
|
#f))
|
|
r$164))
|
|
#f))
|
|
r$171))
|
|
#f))
|
|
count$21$103
|
|
input1$24$104))
|
|
#f))
|
|
r$163))
|
|
#f))
|
|
(number->string
|
|
input1$24$104)))
|
|
#f))
|
|
r$162))
|
|
#f))
|
|
(number->string count$21$103)))
|
|
#f))
|
|
500))
|
|
#f))
|
|
1000))
|
|
#f))
|
|
1000000))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$231 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
90
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$223 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
61
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$215 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
70
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(secs2$88$136
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
77
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(73)
|
|
#f
|
|
r$209
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$207 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
84
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(84)
|
|
#f
|
|
(Cyc-fast-sub j1$76$132 j0$60$126)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$199 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(90 59 56)
|
|
#f
|
|
#f
|
|
2
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$143 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(3 6)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$9$96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(4 6)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$151 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
21
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(21)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(input1$24$104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
39
|
|
#f
|
|
#t
|
|
1000
|
|
2
|
|
(36 34)
|
|
#f
|
|
1000
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$167 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
23
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(23)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(25
|
|
(k$168 result$41$110)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(24
|
|
(r$169)
|
|
((k$168 (equal? r$169 output$27$105)))
|
|
#f))
|
|
(length result$41$110)))
|
|
#t))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$43$112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(43)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$175 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
45
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(42)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(52
|
|
(k$179)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(50
|
|
(r$184)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(49
|
|
(r$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(48
|
|
(k$182)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(47
|
|
(r$183)
|
|
((if r$183 (k$182 0) (k$182 1)))
|
|
#f))
|
|
(Cyc-fast-lt r$42$111 100)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46
|
|
(r$181)
|
|
((values k$179 r$180 r$181))
|
|
#f))))
|
|
#f))
|
|
values
|
|
r$184))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(51 (k$185 x$44$113) ((k$185 x$44$113)) #t))))
|
|
#t))
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$183 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
47
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(47)
|
|
#f
|
|
(Cyc-fast-lt r$42$111 100)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$191 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
111
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(result$64$128
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
100
|
|
#f
|
|
#t
|
|
#f
|
|
1
|
|
(54)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector-ref
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(50 46)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(display
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
13
|
|
(95 63 64 65 66 67 69 71 72 74 76 112 113)
|
|
#f
|
|
#f
|
|
13
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((run-r7rs-benchmark
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
120
|
|
#f
|
|
#f
|
|
2
|
|
(-1 23)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(120
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(119
|
|
(rounded$121)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(118
|
|
(rounded$122)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(114
|
|
(r$234)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(113
|
|
(r$189)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(112
|
|
(r$190)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(111
|
|
(r$191)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(110
|
|
(r$192)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$233)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(108
|
|
(r$193)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(107
|
|
(r$194)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(106
|
|
(j/s$54$124)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(105
|
|
(r$195)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(t0$57$125)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(103
|
|
(r$196)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(102
|
|
(j0$60$126)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(101
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(100
|
|
(i$63$127
|
|
result$64$128)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(99
|
|
(loop$65$129)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(r$198)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(54
|
|
(r$197)
|
|
((loop$65$129
|
|
k$188
|
|
i$63$127
|
|
result$64$128))
|
|
#f))
|
|
(set! loop$65$129
|
|
r$198)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(98
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(97
|
|
(r$200)
|
|
((if r$200
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(58
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(r$201)
|
|
((thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
r$201
|
|
r$202))
|
|
#f))))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
()
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(r$205)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(86
|
|
(r$206)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(84
|
|
(r$207)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(83
|
|
(jifs$82$134)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(82
|
|
(r$227)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(81
|
|
(r$208)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(80
|
|
(secs$85$135)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(79
|
|
(r$226)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(78
|
|
(r$209)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(76
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
secs$85$135))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
secs$85$135))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))))
|
|
#f))
|
|
r$209))
|
|
#f))
|
|
r$226))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))
|
|
r$208))
|
|
#f))
|
|
(inexact__inline__
|
|
r$227)))
|
|
#f))
|
|
(Cyc-fast-div
|
|
jifs$82$134
|
|
j/s$54$124)))
|
|
#f))
|
|
r$207))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)))
|
|
#f))
|
|
r$206))
|
|
#f))))
|
|
#f))
|
|
r$205))
|
|
#f))))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(95
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: "))
|
|
#f)))))
|
|
#f))
|
|
result$67$131)))
|
|
#f))
|
|
(Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
0
|
|
#f))
|
|
#f))))
|
|
#f))
|
|
r$196))
|
|
#f))))
|
|
#f))
|
|
r$195))
|
|
#f))))
|
|
#f))
|
|
r$194))
|
|
#f))))
|
|
#f))
|
|
r$233))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$121 r$234)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(116
|
|
(r$237)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(115
|
|
(r$236)
|
|
((k$235 (Cyc-fast-div
|
|
r$236
|
|
1000)))
|
|
#f))
|
|
(round__inline__ r$237)))
|
|
#f))
|
|
(Cyc-fast-mul 1000 x$51$123)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(87 106)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$232 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
91
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(91)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$224 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
60
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(60)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$216 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
69
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$208 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
81
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(81)
|
|
#f
|
|
(inexact__inline__ r$227)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$168 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
25
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(24)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$240 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
122
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$144 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
6
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(6)
|
|
#f
|
|
(Cyc-fast-eq n$8$95 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(l$10$97
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
22
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(21)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$152 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
12
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! lp$11$16$100 r$153)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(output$27$105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
38
|
|
#f
|
|
#t
|
|
500
|
|
1
|
|
(24)
|
|
#f
|
|
500
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$176 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
42
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(42)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(44
|
|
(k$177 v$45$114 i$46$115)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(43 (r$178) ((r$178 k$177 x$43$112)) #f))
|
|
(vector-ref v$45$114 i$46$115)))
|
|
#t))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$184 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
50
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(50)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(51 (k$185 x$44$113) ((k$185 x$44$113)) #t))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$44$113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
51
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(51)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(rounded$121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
119
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(114 79)
|
|
#f
|
|
r$234
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$192 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
110
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(loop$65$129
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
99
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(56 55 54)
|
|
#f
|
|
r$198
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$200 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
97
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(97)
|
|
#f
|
|
(Cyc-fast-lt i$66$130 count$48$117)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((cddr .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(17)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(null? .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(length
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(string-append
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(121 29)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
())))
|
|
*/
|
|
/*
|
|
"---------------- after cps optimizations (1):"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda-11-cont
|
|
(k$139 n$1$91)
|
|
((lambda-9
|
|
(n$5$92 a$6$93)
|
|
((lambda-8
|
|
(lp$2$7$94)
|
|
((lambda-1
|
|
(r$141)
|
|
(lp$2$7$94 k$139 n$5$92 a$6$93))
|
|
(set! lp$2$7$94
|
|
(lambda-7-cont
|
|
(k$143 n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96)))))))
|
|
#f))
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda-22-cont
|
|
(k$150 l$10$97)
|
|
((lambda-20
|
|
(l$14$98 a$15$99)
|
|
((lambda-19
|
|
(lp$11$16$100)
|
|
((lambda-12
|
|
(r$152)
|
|
(lp$11$16$100 k$150 l$14$98 a$15$99))
|
|
(set! lp$11$16$100
|
|
(lambda-18-cont
|
|
(k$154 l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102)))))))
|
|
#f))
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda-41-cont
|
|
(k$161)
|
|
(hide (lambda-33
|
|
(r$171)
|
|
(create-n
|
|
(lambda-31
|
|
(ll$36$108)
|
|
((lambda-28
|
|
(r$165)
|
|
(run-r7rs-benchmark
|
|
k$161
|
|
r$165
|
|
1000000
|
|
(lambda-27-cont
|
|
(k$170)
|
|
(iterative-div2 k$170 ll$36$108))
|
|
(lambda-25-cont
|
|
(k$168 result$41$110)
|
|
(k$168 (equal? (length result$41$110) 500)))))
|
|
(string-append
|
|
"diviter"
|
|
":"
|
|
"1000"
|
|
":"
|
|
"1000000")))
|
|
r$171))
|
|
1000000
|
|
1000)))
|
|
(define hide
|
|
(lambda-53-cont
|
|
(k$174 r$42$111 x$43$112)
|
|
(call-with-values
|
|
k$174
|
|
(lambda-52-cont
|
|
(k$179)
|
|
(vector
|
|
(lambda-49
|
|
(r$180)
|
|
((lambda-48-cont
|
|
(k$182)
|
|
(if (Cyc-fast-lt r$42$111 100)
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
(lambda-46 (r$181) (values k$179 r$180 r$181))))
|
|
values
|
|
(lambda-51-cont
|
|
(k$185 x$44$113)
|
|
(k$185 x$44$113))))
|
|
(lambda-44-cont
|
|
(k$177 v$45$114 i$46$115)
|
|
((vector-ref v$45$114 i$46$115) k$177 x$43$112)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda-120-cont
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda-119
|
|
(rounded$121)
|
|
((lambda-113
|
|
(r$189)
|
|
(display
|
|
(lambda-112
|
|
(r$190)
|
|
(display
|
|
(lambda-111
|
|
(r$191)
|
|
(newline
|
|
(lambda-110
|
|
(r$192)
|
|
(current-output-port
|
|
(lambda-109
|
|
(r$233)
|
|
(flush-output-port
|
|
(lambda-108
|
|
(r$193)
|
|
(jiffies-per-second
|
|
(lambda-106
|
|
(j/s$54$124)
|
|
(current-second
|
|
(lambda-104
|
|
(t0$57$125)
|
|
(current-jiffy
|
|
(lambda-102
|
|
(j0$60$126)
|
|
((lambda-99
|
|
(loop$65$129)
|
|
((lambda-54
|
|
(r$197)
|
|
(loop$65$129 k$188 0 #f))
|
|
(set! loop$65$129
|
|
(lambda-98-cont
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
(if (Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)
|
|
(thunk$49$118
|
|
(lambda-56
|
|
(r$202)
|
|
(loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)
|
|
r$202)))
|
|
(ok?$50$119
|
|
(lambda-96
|
|
(r$203)
|
|
(if r$203
|
|
(current-jiffy
|
|
(lambda-87
|
|
(j1$76$132)
|
|
(current-second
|
|
(lambda-85
|
|
(t1$79$133)
|
|
(rounded$121
|
|
(lambda-77
|
|
(secs2$88$136)
|
|
(display
|
|
(lambda-75
|
|
(r$210)
|
|
(write (lambda-74
|
|
(r$211)
|
|
(display
|
|
(lambda-73
|
|
(r$212)
|
|
(write (lambda-72
|
|
(r$213)
|
|
(display
|
|
(lambda-71
|
|
(r$214)
|
|
(display
|
|
(lambda-70
|
|
(r$215)
|
|
(newline
|
|
(lambda-69
|
|
(r$216)
|
|
(display
|
|
(lambda-68
|
|
(r$217)
|
|
(this-scheme-implementation-name
|
|
(lambda-67
|
|
(r$225)
|
|
(display
|
|
(lambda-66
|
|
(r$218)
|
|
(display
|
|
(lambda-65
|
|
(r$219)
|
|
(display
|
|
(lambda-64
|
|
(r$220)
|
|
(display
|
|
(lambda-63
|
|
(r$221)
|
|
(display
|
|
(lambda-62
|
|
(r$222)
|
|
(newline
|
|
(lambda-61
|
|
(r$223)
|
|
(current-output-port
|
|
(lambda-60
|
|
(r$224)
|
|
(flush-output-port
|
|
(lambda-59
|
|
(r$204)
|
|
(k$199 result$67$131))
|
|
r$224))))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
","))
|
|
name$47$116))
|
|
","))
|
|
r$225))))
|
|
"+!CSVLINE!+"))))
|
|
name$47$116))
|
|
") for "))
|
|
secs2$88$136))
|
|
" seconds ("))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
"Elapsed time: "))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125))))))
|
|
(display
|
|
(lambda-94
|
|
(r$228)
|
|
(write (lambda-93
|
|
(r$229)
|
|
(newline
|
|
(lambda-92
|
|
(r$230)
|
|
(current-output-port
|
|
(lambda-91
|
|
(r$232)
|
|
(flush-output-port
|
|
(lambda-90
|
|
(r$231)
|
|
(k$199 result$67$131))
|
|
r$232))))))
|
|
result$67$131))
|
|
"ERROR: returned incorrect result: ")))
|
|
result$67$131))))))
|
|
#f))))))))
|
|
r$233))))))
|
|
name$47$116))
|
|
"Running "))
|
|
(set! rounded$121
|
|
(lambda-117-cont
|
|
(k$235 x$51$123)
|
|
(k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000))))))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda-122-cont
|
|
(k$240)
|
|
(Cyc-version
|
|
(lambda-121
|
|
(r$241)
|
|
(k$240 (string-append "cyclone-" r$241))))))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- cps analysis db:"
|
|
*/
|
|
/*
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<srfi-hash-table>"
|
|
(size hash compare associate entries))
|
|
#(191
|
|
#[procedure]
|
|
#[procedure]
|
|
#[procedure]
|
|
#(()
|
|
((1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((7
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (lp$2$7$94) #f))))
|
|
((8
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((9
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((11
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((12
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
()
|
|
((%halt .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(-1)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-mul
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(inexact__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(iterative-div2
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
22
|
|
#f
|
|
#f
|
|
2
|
|
(27 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(22
|
|
(k$150 l$10$97)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(20
|
|
(l$14$98 a$15$99)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(19
|
|
(lp$11$16$100)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(12
|
|
(r$152)
|
|
((lp$11$16$100 k$150 l$14$98 a$15$99))
|
|
#f))
|
|
(set! lp$11$16$100
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
l$10$97
|
|
'()))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((18
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (lp$11$16$100) #f))))
|
|
((19
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((20
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((22
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((25
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((27
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((28
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((31
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$241 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
121
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$193 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
108
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$233 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
109
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(109)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$189 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
113
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(v$45$114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$181 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
46
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(result$41$110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
25
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$165 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
28
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(28)
|
|
#f
|
|
(string-append
|
|
"diviter"
|
|
":"
|
|
"1000"
|
|
":"
|
|
"1000000")
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$221 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
63
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$225 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
67
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(67)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(this-scheme-implementation-name
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
122
|
|
#f
|
|
#f
|
|
2
|
|
(-1 68)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(122
|
|
(k$240)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(121
|
|
(r$241)
|
|
((k$240 (string-append "cyclone-" r$241)))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$217 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
68
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$213 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
72
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(thunk$49$118
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(i$66$130
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(56 98)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$197 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
54
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$65$129
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(98
|
|
(k$199 i$66$130 result$67$131)
|
|
((if (Cyc-fast-lt i$66$130 count$48$117)
|
|
(thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus i$66$130 1)
|
|
r$202))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$67$131)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$18$102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(18 18)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(l$14$98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
20
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
l$10$97
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$141 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! lp$2$7$94
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(lp$2$7$94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
8
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(7 8 1)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(j0$60$126
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
102
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$229 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
93
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$161 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
41
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(28)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$185 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
51
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(51)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$177 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
((33
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((41
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (k$182) #f))))
|
|
()
|
|
((Cyc-version
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(122)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(flush-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(91 60 109)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(car .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(cons .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(18 7)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(48
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((52
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((53
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((54
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((59
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((60
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((64
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((65
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((66
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((67
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((68
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((69
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((73
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((74
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((75
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((77
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((jiffies-per-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(108)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-jiffy
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(96 104)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-eq
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(7)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-div
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(117 75 63)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(hide .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
53
|
|
#f
|
|
#f
|
|
2
|
|
(-1 41)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(53
|
|
(k$174 r$42$111 x$43$112)
|
|
((call-with-values
|
|
k$174
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(52
|
|
(k$179)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(49
|
|
(r$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(48
|
|
(k$182)
|
|
((if (Cyc-fast-lt r$42$111 100)
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46
|
|
(r$181)
|
|
((values k$179 r$180 r$181))
|
|
#f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(51
|
|
(k$185 x$44$113)
|
|
((k$185 x$44$113))
|
|
#t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(44
|
|
(k$177 v$45$114 i$46$115)
|
|
(((vector-ref v$45$114 i$46$115) k$177 x$43$112))
|
|
#t))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((85
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((87
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((90
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((x$51$123
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$190 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
112
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(i$46$115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$42$111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(48)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(n$1$91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
11
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(11)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$222 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
62
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$218 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
66
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$214 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
71
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$210 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
75
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(ok?$50$119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$202 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
56
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(56)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(result$67$131
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(98 94 90 59)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$154 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(18 18)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(a$15$99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
20
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$150 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
22
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(n$8$95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 7)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$230 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
92
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$170 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
27
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(27)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$174 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(53)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$182 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
48
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(48 48)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46 (r$181) ((values k$179 r$180 r$181)) #f))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$65$129) #f))))
|
|
((99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((call-with-values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(53)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(92 61 110)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(newline
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(93 62 70 111)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(write .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(94 73 75)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (rounded$121) #f))))
|
|
()
|
|
((119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((120
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((Cyc-fast-plus
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(56)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(main .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
41
|
|
#f
|
|
#f
|
|
2
|
|
(-1 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(41
|
|
(k$161)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(33
|
|
(r$171)
|
|
((create-n
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(31
|
|
(ll$36$108)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(28
|
|
(r$165)
|
|
((run-r7rs-benchmark
|
|
k$161
|
|
r$165
|
|
1000000
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(27
|
|
(k$170)
|
|
((iterative-div2
|
|
k$170
|
|
ll$36$108))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(25
|
|
(k$168 result$41$110)
|
|
((k$168 (equal?
|
|
(length
|
|
result$41$110)
|
|
500)))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
"diviter"
|
|
":"
|
|
"1000"
|
|
":"
|
|
"1000000")))
|
|
#f))
|
|
r$171))
|
|
#f))
|
|
1000000
|
|
1000))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$191 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
111
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$43$112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(ll$36$108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
31
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(27)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$171 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
33
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(33)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$235 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$223 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
61
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$219 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
65
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$215 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
70
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$211 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
74
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(secs2$88$136
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
77
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(73)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(j1$76$132
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
87
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$203 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
96
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(96)
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$199 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(90 59 56)
|
|
#f
|
|
#f
|
|
2
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(lp$11$16$100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
19
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(18 19 12)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(a$9$96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 7)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$143 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 7)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(n$5$92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
9
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
n$1$91
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$139 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
11
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(j/s$54$124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
106
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(name$47$116
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(112 71 65)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$231 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
90
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$179 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
52
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector-ref
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(52 46)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(52)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(display
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
13
|
|
(96 63 64 65 66 67 69 71 72 74 77 112 113)
|
|
#f
|
|
#f
|
|
13
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((round__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(87 106)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-lt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(98 48)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-sub
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(85 75 63 7)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(create-n
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
11
|
|
#f
|
|
#f
|
|
2
|
|
(33 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(11
|
|
(k$139 n$1$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(9
|
|
(n$5$92 a$6$93)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(8
|
|
(lp$2$7$94)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(1
|
|
(r$141)
|
|
((lp$2$7$94 k$139 n$5$92 a$6$93))
|
|
#f))
|
|
(set! lp$2$7$94
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
n$1$91
|
|
'()))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(run-r7rs-benchmark
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
120
|
|
#f
|
|
#f
|
|
2
|
|
(-1 28)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(120
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(119
|
|
(rounded$121)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(113
|
|
(r$189)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(112
|
|
(r$190)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(111
|
|
(r$191)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$192)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$233)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(108
|
|
(r$193)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(106
|
|
(j/s$54$124)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(t0$57$125)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(102
|
|
(j0$60$126)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(99
|
|
(loop$65$129)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(54
|
|
(r$197)
|
|
((loop$65$129
|
|
k$188
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$65$129
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(98
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
((if (Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)
|
|
(thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)
|
|
r$202))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$67$131)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$233))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((k$235 (Cyc-fast-div
|
|
(round__inline__
|
|
(Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$192 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
110
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$44$113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
51
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(51)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$180 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
49
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(l$10$97
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
22
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(22)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$240 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
122
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$204 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
59
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$224 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
60
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(60)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$220 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
64
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$216 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
69
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$212 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
73
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(rounded$121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
119
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(119 85)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
#t))
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(t1$79$133
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
85
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(85)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(count$48$117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$188 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(54)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(loop$65$129
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
99
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(56 99 54)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(98
|
|
(k$199 i$66$130 result$67$131)
|
|
((if (Cyc-fast-lt i$66$130 count$48$117)
|
|
(thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus i$66$130 1)
|
|
r$202))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$67$131)))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(l$17$101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(18 18 18)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$152 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
12
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! lp$11$16$100
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$6$93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
9
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(t0$57$125
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
104
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(85)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$228 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
94
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$232 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
91
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(91)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$168 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
25
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((string-append
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(121 31)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(length
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(equal?
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(cddr .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(null? .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((-1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(? ? () #t)))))))
|
|
*/
|
|
/*
|
|
"---------------- after cps optimizations (2):"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda-11-cont
|
|
(k$139 n$1$91)
|
|
((lambda-9
|
|
(n$5$92 a$6$93)
|
|
((lambda-8
|
|
(lp$2$7$94)
|
|
((lambda-1
|
|
(r$141)
|
|
(lp$2$7$94 k$139 n$5$92 a$6$93))
|
|
(set! lp$2$7$94
|
|
(lambda-7-cont
|
|
(k$143 n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96)))))))
|
|
#f))
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda-22-cont
|
|
(k$150 l$10$97)
|
|
((lambda-20
|
|
(l$14$98 a$15$99)
|
|
((lambda-19
|
|
(lp$11$16$100)
|
|
((lambda-12
|
|
(r$152)
|
|
(lp$11$16$100 k$150 l$14$98 a$15$99))
|
|
(set! lp$11$16$100
|
|
(lambda-18-cont
|
|
(k$154 l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102)))))))
|
|
#f))
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda-41-cont
|
|
(k$161)
|
|
(hide (lambda-33
|
|
(r$171)
|
|
(create-n
|
|
(lambda-31
|
|
(ll$36$108)
|
|
(run-r7rs-benchmark
|
|
k$161
|
|
"diviter:1000:1000000"
|
|
1000000
|
|
(lambda-27-cont
|
|
(k$170)
|
|
(iterative-div2 k$170 ll$36$108))
|
|
(lambda-25-cont
|
|
(k$168 result$41$110)
|
|
(k$168 (equal? (length result$41$110) 500)))))
|
|
r$171))
|
|
1000000
|
|
1000)))
|
|
(define hide
|
|
(lambda-53-cont
|
|
(k$174 r$42$111 x$43$112)
|
|
(call-with-values
|
|
k$174
|
|
(lambda-52-cont
|
|
(k$179)
|
|
(vector
|
|
(lambda-49
|
|
(r$180)
|
|
((lambda-48-cont
|
|
(k$182)
|
|
(if (Cyc-fast-lt r$42$111 100)
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
(lambda-46 (r$181) (values k$179 r$180 r$181))))
|
|
values
|
|
(lambda-51-cont
|
|
(k$185 x$44$113)
|
|
(k$185 x$44$113))))
|
|
(lambda-44-cont
|
|
(k$177 v$45$114 i$46$115)
|
|
((vector-ref v$45$114 i$46$115) k$177 x$43$112)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda-120-cont
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda-119
|
|
(rounded$121)
|
|
((lambda-113
|
|
(r$189)
|
|
(display
|
|
(lambda-112
|
|
(r$190)
|
|
(display
|
|
(lambda-111
|
|
(r$191)
|
|
(newline
|
|
(lambda-110
|
|
(r$192)
|
|
(current-output-port
|
|
(lambda-109
|
|
(r$233)
|
|
(flush-output-port
|
|
(lambda-108
|
|
(r$193)
|
|
(jiffies-per-second
|
|
(lambda-106
|
|
(j/s$54$124)
|
|
(current-second
|
|
(lambda-104
|
|
(t0$57$125)
|
|
(current-jiffy
|
|
(lambda-102
|
|
(j0$60$126)
|
|
((lambda-99
|
|
(loop$65$129)
|
|
((lambda-54
|
|
(r$197)
|
|
(loop$65$129 k$188 0 #f))
|
|
(set! loop$65$129
|
|
(lambda-98-cont
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
(if (Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)
|
|
(thunk$49$118
|
|
(lambda-56
|
|
(r$202)
|
|
(loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)
|
|
r$202)))
|
|
(ok?$50$119
|
|
(lambda-96
|
|
(r$203)
|
|
(if r$203
|
|
(current-jiffy
|
|
(lambda-87
|
|
(j1$76$132)
|
|
(current-second
|
|
(lambda-85
|
|
(t1$79$133)
|
|
(rounded$121
|
|
(lambda-77
|
|
(secs2$88$136)
|
|
(display
|
|
(lambda-75
|
|
(r$210)
|
|
(write (lambda-74
|
|
(r$211)
|
|
(display
|
|
(lambda-73
|
|
(r$212)
|
|
(write (lambda-72
|
|
(r$213)
|
|
(display
|
|
(lambda-71
|
|
(r$214)
|
|
(display
|
|
(lambda-70
|
|
(r$215)
|
|
(newline
|
|
(lambda-69
|
|
(r$216)
|
|
(display
|
|
(lambda-68
|
|
(r$217)
|
|
(this-scheme-implementation-name
|
|
(lambda-67
|
|
(r$225)
|
|
(display
|
|
(lambda-66
|
|
(r$218)
|
|
(display
|
|
(lambda-65
|
|
(r$219)
|
|
(display
|
|
(lambda-64
|
|
(r$220)
|
|
(display
|
|
(lambda-63
|
|
(r$221)
|
|
(display
|
|
(lambda-62
|
|
(r$222)
|
|
(newline
|
|
(lambda-61
|
|
(r$223)
|
|
(current-output-port
|
|
(lambda-60
|
|
(r$224)
|
|
(flush-output-port
|
|
(lambda-59
|
|
(r$204)
|
|
(k$199 result$67$131))
|
|
r$224))))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
","))
|
|
name$47$116))
|
|
","))
|
|
r$225))))
|
|
"+!CSVLINE!+"))))
|
|
name$47$116))
|
|
") for "))
|
|
secs2$88$136))
|
|
" seconds ("))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
"Elapsed time: "))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125))))))
|
|
(display
|
|
(lambda-94
|
|
(r$228)
|
|
(write (lambda-93
|
|
(r$229)
|
|
(newline
|
|
(lambda-92
|
|
(r$230)
|
|
(current-output-port
|
|
(lambda-91
|
|
(r$232)
|
|
(flush-output-port
|
|
(lambda-90
|
|
(r$231)
|
|
(k$199 result$67$131))
|
|
r$232))))))
|
|
result$67$131))
|
|
"ERROR: returned incorrect result: ")))
|
|
result$67$131))))))
|
|
#f))))))))
|
|
r$233))))))
|
|
name$47$116))
|
|
"Running "))
|
|
(set! rounded$121
|
|
(lambda-117-cont
|
|
(k$235 x$51$123)
|
|
(k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000))))))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda-122-cont
|
|
(k$240)
|
|
(Cyc-version
|
|
(lambda-121
|
|
(r$241)
|
|
(k$240 (string-append "cyclone-" r$241))))))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- cps analysis db:"
|
|
*/
|
|
/*
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<srfi-hash-table>"
|
|
(size hash compare associate entries))
|
|
#(189
|
|
#[procedure]
|
|
#[procedure]
|
|
#[procedure]
|
|
#(()
|
|
((1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((7
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (lp$2$7$94) #f))))
|
|
((8
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((9
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((11
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((12
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
()
|
|
((%halt .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(-1)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-mul
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(inexact__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(iterative-div2
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
22
|
|
#f
|
|
#f
|
|
2
|
|
(27 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(22
|
|
(k$150 l$10$97)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(20
|
|
(l$14$98 a$15$99)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(19
|
|
(lp$11$16$100)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(12
|
|
(r$152)
|
|
((lp$11$16$100 k$150 l$14$98 a$15$99))
|
|
#f))
|
|
(set! lp$11$16$100
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
l$10$97
|
|
'()))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((18
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (lp$11$16$100) #f))))
|
|
((19
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((20
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((22
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((25
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((27
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((31
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$241 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
121
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$193 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
108
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$233 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
109
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(109)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$189 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
113
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(v$45$114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$181 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
46
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(result$41$110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
25
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$221 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
63
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$225 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
67
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(67)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(this-scheme-implementation-name
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
122
|
|
#f
|
|
#f
|
|
2
|
|
(-1 68)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(122
|
|
(k$240)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(121
|
|
(r$241)
|
|
((k$240 (string-append "cyclone-" r$241)))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$217 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
68
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$213 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
72
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(thunk$49$118
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(i$66$130
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(56 98)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$197 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
54
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$65$129
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(98
|
|
(k$199 i$66$130 result$67$131)
|
|
((if (Cyc-fast-lt i$66$130 count$48$117)
|
|
(thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus i$66$130 1)
|
|
r$202))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$67$131)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$18$102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(18 18)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(l$14$98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
20
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
l$10$97
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$141 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! lp$2$7$94
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(lp$2$7$94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
8
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(7 8 1)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(j0$60$126
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
102
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$229 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
93
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$161 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
41
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(31)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$185 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
51
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(51)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$177 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
((33
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((41
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (k$182) #f))))
|
|
()
|
|
((Cyc-version
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(122)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(flush-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(91 60 109)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(car .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(cons .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(18 7)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(48
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((52
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((53
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((54
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((59
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((60
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((64
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((65
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((66
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((67
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((68
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((69
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((73
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((74
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((75
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((77
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((jiffies-per-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(108)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-jiffy
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(96 104)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-eq
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(7)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-div
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(117 75 63)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(hide .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
53
|
|
#f
|
|
#f
|
|
2
|
|
(-1 41)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(53
|
|
(k$174 r$42$111 x$43$112)
|
|
((call-with-values
|
|
k$174
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(52
|
|
(k$179)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(49
|
|
(r$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(48
|
|
(k$182)
|
|
((if (Cyc-fast-lt r$42$111 100)
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46
|
|
(r$181)
|
|
((values k$179 r$180 r$181))
|
|
#f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(51
|
|
(k$185 x$44$113)
|
|
((k$185 x$44$113))
|
|
#t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(44
|
|
(k$177 v$45$114 i$46$115)
|
|
(((vector-ref v$45$114 i$46$115) k$177 x$43$112))
|
|
#t))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((85
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((87
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((90
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((x$51$123
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$190 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
112
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(i$46$115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
44
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$42$111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(48)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(n$1$91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
11
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(11)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$222 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
62
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$218 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
66
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$214 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
71
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$210 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
75
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(ok?$50$119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$202 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
56
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(56)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(result$67$131
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(98 94 90 59)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$154 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(18 18)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(a$15$99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
20
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$150 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
22
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(12)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(n$8$95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 7)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$230 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
92
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$170 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
27
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(27)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$174 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(53)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$182 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
48
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(48 48)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(46 (r$181) ((values k$179 r$180 r$181)) #f))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$65$129) #f))))
|
|
((99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((call-with-values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(53)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(92 61 110)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(newline
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(93 62 70 111)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(write .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(94 73 75)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (rounded$121) #f))))
|
|
()
|
|
((119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((120
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((Cyc-fast-plus
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(56)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(main .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
41
|
|
#f
|
|
#f
|
|
2
|
|
(-1 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(41
|
|
(k$161)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(33
|
|
(r$171)
|
|
((create-n
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(31
|
|
(ll$36$108)
|
|
((run-r7rs-benchmark
|
|
k$161
|
|
"diviter:1000:1000000"
|
|
1000000
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(27
|
|
(k$170)
|
|
((iterative-div2
|
|
k$170
|
|
ll$36$108))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(25
|
|
(k$168 result$41$110)
|
|
((k$168 (equal?
|
|
(length result$41$110)
|
|
500)))
|
|
#t))))
|
|
#f))
|
|
r$171))
|
|
#f))
|
|
1000000
|
|
1000))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$191 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
111
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$43$112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
53
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(ll$36$108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
31
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(27)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$171 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
33
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(33)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$235 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$223 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
61
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$219 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
65
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$215 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
70
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$211 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
74
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(secs2$88$136
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
77
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(73)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(j1$76$132
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
87
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$203 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
96
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(96)
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$199 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
98
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(90 59 56)
|
|
#f
|
|
#f
|
|
2
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(lp$11$16$100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
19
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(18 19 12)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(a$9$96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 7)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$143 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
7
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(7 7)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(n$5$92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
9
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
n$1$91
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$139 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
11
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(j/s$54$124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
106
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(75 63)
|
|
#f
|
|
#f
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(name$47$116
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(112 71 65)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$231 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
90
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$179 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
52
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector-ref
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(44)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(52 46)
|
|
#f
|
|
#f
|
|
1
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(52)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(display
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
13
|
|
(96 63 64 65 66 67 69 71 72 74 77 112 113)
|
|
#f
|
|
#f
|
|
13
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((round__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(117)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(current-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(87 106)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-lt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(98 48)
|
|
#f
|
|
#f
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-sub
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(85 75 63 7)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(create-n
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
11
|
|
#f
|
|
#f
|
|
2
|
|
(33 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(11
|
|
(k$139 n$1$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(9
|
|
(n$5$92 a$6$93)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(8
|
|
(lp$2$7$94)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(1
|
|
(r$141)
|
|
((lp$2$7$94 k$139 n$5$92 a$6$93))
|
|
#f))
|
|
(set! lp$2$7$94
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(7
|
|
(k$143 n$8$95 a$9$96)
|
|
((if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
n$1$91
|
|
'()))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(run-r7rs-benchmark
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
-1
|
|
120
|
|
#f
|
|
#f
|
|
2
|
|
(-1 31)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(120
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(119
|
|
(rounded$121)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(113
|
|
(r$189)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(112
|
|
(r$190)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(111
|
|
(r$191)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$192)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$233)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(108
|
|
(r$193)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(106
|
|
(j/s$54$124)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(t0$57$125)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(102
|
|
(j0$60$126)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(99
|
|
(loop$65$129)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(54
|
|
(r$197)
|
|
((loop$65$129
|
|
k$188
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$65$129
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(98
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
((if (Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)
|
|
(thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)
|
|
r$202))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$67$131)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$233))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((k$235 (Cyc-fast-div
|
|
(round__inline__
|
|
(Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$192 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
110
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(x$44$113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
51
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(51)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$180 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
49
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(46)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(l$10$97
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
22
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(22)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(k$240 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
122
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$204 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
59
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$224 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
60
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(60)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$220 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
64
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$216 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
69
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$212 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
73
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(rounded$121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
119
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(119 85)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(117
|
|
(k$235 x$51$123)
|
|
((k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))
|
|
#t))
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(t1$79$133
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
85
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(85)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(count$48$117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(98)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$188 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(54)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(loop$65$129
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
99
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(56 99 54)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(98
|
|
(k$199 i$66$130 result$67$131)
|
|
((if (Cyc-fast-lt i$66$130 count$48$117)
|
|
(thunk$49$118
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(56
|
|
(r$202)
|
|
((loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus i$66$130 1)
|
|
r$202))
|
|
#f)))
|
|
(ok?$50$119
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(96
|
|
(r$203)
|
|
((if r$203
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(87
|
|
(j1$76$132)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(85
|
|
(t1$79$133)
|
|
((rounded$121
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(77
|
|
(secs2$88$136)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(75
|
|
(r$210)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(74
|
|
(r$211)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(73
|
|
(r$212)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(72
|
|
(r$213)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(71
|
|
(r$214)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(70
|
|
(r$215)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(69
|
|
(r$216)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(68
|
|
(r$217)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(67
|
|
(r$225)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(66
|
|
(r$218)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(65
|
|
(r$219)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(64
|
|
(r$220)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(63
|
|
(r$221)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(62
|
|
(r$222)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$223)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$224)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$204)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$224))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$225))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47$116))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$88$136))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(94
|
|
(r$228)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(93
|
|
(r$229)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(92
|
|
(r$230)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(r$232)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
(r$231)
|
|
((k$199 result$67$131))
|
|
#f))
|
|
r$232))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$67$131))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$67$131)))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(l$17$101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
18
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(18 18 18)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$152 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
12
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! lp$11$16$100
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<lambda-ast>"
|
|
(id args body has-cont))
|
|
#(18
|
|
(k$154 l$17$101 a$18$102)
|
|
((if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(a$6$93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
9
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(1)
|
|
#f
|
|
'()
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(t0$57$125
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
104
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(85)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$228 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
94
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
#f
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$232 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
91
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(91)
|
|
#f
|
|
#f
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f
|
|
#t
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$168 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(#f
|
|
25
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((string-append
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(length
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(equal?
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(25)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f)))
|
|
(cddr .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f)))
|
|
(null? .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-variable>"
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont
|
|
def-in-loop
|
|
ref-in-loop
|
|
direct-rec-call
|
|
self-rec-call))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(18)
|
|
#f
|
|
#f
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f
|
|
#f
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((-1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
"<analysis-db-function>"
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(? ? () #t)))))))
|
|
*/
|
|
/*
|
|
"---------------- after cps optimizations (3):"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda-11-cont
|
|
(k$139 n$1$91)
|
|
((lambda-9
|
|
(n$5$92 a$6$93)
|
|
((lambda-8
|
|
(lp$2$7$94)
|
|
((lambda-1
|
|
(r$141)
|
|
(lp$2$7$94 k$139 n$5$92 a$6$93))
|
|
(set! lp$2$7$94
|
|
(lambda-7-cont
|
|
(k$143 n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
(lp$2$7$94
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96)))))))
|
|
#f))
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda-22-cont
|
|
(k$150 l$10$97)
|
|
((lambda-20
|
|
(l$14$98 a$15$99)
|
|
((lambda-19
|
|
(lp$11$16$100)
|
|
((lambda-12
|
|
(r$152)
|
|
(lp$11$16$100 k$150 l$14$98 a$15$99))
|
|
(set! lp$11$16$100
|
|
(lambda-18-cont
|
|
(k$154 l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
(lp$11$16$100
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102)))))))
|
|
#f))
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda-41-cont
|
|
(k$161)
|
|
(hide (lambda-33
|
|
(r$171)
|
|
(create-n
|
|
(lambda-31
|
|
(ll$36$108)
|
|
(run-r7rs-benchmark
|
|
k$161
|
|
"diviter:1000:1000000"
|
|
1000000
|
|
(lambda-27-cont
|
|
(k$170)
|
|
(iterative-div2 k$170 ll$36$108))
|
|
(lambda-25-cont
|
|
(k$168 result$41$110)
|
|
(k$168 (equal? (length result$41$110) 500)))))
|
|
r$171))
|
|
1000000
|
|
1000)))
|
|
(define hide
|
|
(lambda-53-cont
|
|
(k$174 r$42$111 x$43$112)
|
|
(call-with-values
|
|
k$174
|
|
(lambda-52-cont
|
|
(k$179)
|
|
(vector
|
|
(lambda-49
|
|
(r$180)
|
|
((lambda-48-cont
|
|
(k$182)
|
|
(if (Cyc-fast-lt r$42$111 100)
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
(lambda-46 (r$181) (values k$179 r$180 r$181))))
|
|
values
|
|
(lambda-51-cont
|
|
(k$185 x$44$113)
|
|
(k$185 x$44$113))))
|
|
(lambda-44-cont
|
|
(k$177 v$45$114 i$46$115)
|
|
((vector-ref v$45$114 i$46$115) k$177 x$43$112)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda-120-cont
|
|
(k$188 name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda-119
|
|
(rounded$121)
|
|
((lambda-113
|
|
(r$189)
|
|
(display
|
|
(lambda-112
|
|
(r$190)
|
|
(display
|
|
(lambda-111
|
|
(r$191)
|
|
(newline
|
|
(lambda-110
|
|
(r$192)
|
|
(current-output-port
|
|
(lambda-109
|
|
(r$233)
|
|
(flush-output-port
|
|
(lambda-108
|
|
(r$193)
|
|
(jiffies-per-second
|
|
(lambda-106
|
|
(j/s$54$124)
|
|
(current-second
|
|
(lambda-104
|
|
(t0$57$125)
|
|
(current-jiffy
|
|
(lambda-102
|
|
(j0$60$126)
|
|
((lambda-99
|
|
(loop$65$129)
|
|
((lambda-54
|
|
(r$197)
|
|
(loop$65$129 k$188 0 #f))
|
|
(set! loop$65$129
|
|
(lambda-98-cont
|
|
(k$199 i$66$130
|
|
result$67$131)
|
|
(if (Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)
|
|
(thunk$49$118
|
|
(lambda-56
|
|
(r$202)
|
|
(loop$65$129
|
|
k$199
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)
|
|
r$202)))
|
|
(ok?$50$119
|
|
(lambda-96
|
|
(r$203)
|
|
(if r$203
|
|
(current-jiffy
|
|
(lambda-87
|
|
(j1$76$132)
|
|
(current-second
|
|
(lambda-85
|
|
(t1$79$133)
|
|
(rounded$121
|
|
(lambda-77
|
|
(secs2$88$136)
|
|
(display
|
|
(lambda-75
|
|
(r$210)
|
|
(write (lambda-74
|
|
(r$211)
|
|
(display
|
|
(lambda-73
|
|
(r$212)
|
|
(write (lambda-72
|
|
(r$213)
|
|
(display
|
|
(lambda-71
|
|
(r$214)
|
|
(display
|
|
(lambda-70
|
|
(r$215)
|
|
(newline
|
|
(lambda-69
|
|
(r$216)
|
|
(display
|
|
(lambda-68
|
|
(r$217)
|
|
(this-scheme-implementation-name
|
|
(lambda-67
|
|
(r$225)
|
|
(display
|
|
(lambda-66
|
|
(r$218)
|
|
(display
|
|
(lambda-65
|
|
(r$219)
|
|
(display
|
|
(lambda-64
|
|
(r$220)
|
|
(display
|
|
(lambda-63
|
|
(r$221)
|
|
(display
|
|
(lambda-62
|
|
(r$222)
|
|
(newline
|
|
(lambda-61
|
|
(r$223)
|
|
(current-output-port
|
|
(lambda-60
|
|
(r$224)
|
|
(flush-output-port
|
|
(lambda-59
|
|
(r$204)
|
|
(k$199 result$67$131))
|
|
r$224))))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
","))
|
|
name$47$116))
|
|
","))
|
|
r$225))))
|
|
"+!CSVLINE!+"))))
|
|
name$47$116))
|
|
") for "))
|
|
secs2$88$136))
|
|
" seconds ("))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
"Elapsed time: "))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125))))))
|
|
(display
|
|
(lambda-94
|
|
(r$228)
|
|
(write (lambda-93
|
|
(r$229)
|
|
(newline
|
|
(lambda-92
|
|
(r$230)
|
|
(current-output-port
|
|
(lambda-91
|
|
(r$232)
|
|
(flush-output-port
|
|
(lambda-90
|
|
(r$231)
|
|
(k$199 result$67$131))
|
|
r$232))))))
|
|
result$67$131))
|
|
"ERROR: returned incorrect result: ")))
|
|
result$67$131))))))
|
|
#f))))))))
|
|
r$233))))))
|
|
name$47$116))
|
|
"Running "))
|
|
(set! rounded$121
|
|
(lambda-117-cont
|
|
(k$235 x$51$123)
|
|
(k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000))))))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda-122-cont
|
|
(k$240)
|
|
(Cyc-version
|
|
(lambda-121
|
|
(r$241)
|
|
(k$240 (string-append "cyclone-" r$241))))))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- after wrap-mutables:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (k$139 n$1$91)
|
|
((lambda (n$5$92 a$6$93)
|
|
((lambda (lp$2$7$94)
|
|
((lambda (lp$2$7$94)
|
|
((lambda (r$141)
|
|
((cell-get lp$2$7$94) k$139 n$5$92 a$6$93))
|
|
(set-cell!
|
|
lp$2$7$94
|
|
(lambda (k$143 n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
(k$143 a$9$96)
|
|
((cell-get lp$2$7$94)
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96)))))))
|
|
(cell lp$2$7$94)))
|
|
#f))
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (k$150 l$10$97)
|
|
((lambda (l$14$98 a$15$99)
|
|
((lambda (lp$11$16$100)
|
|
((lambda (lp$11$16$100)
|
|
((lambda (r$152)
|
|
((cell-get lp$11$16$100) k$150 l$14$98 a$15$99))
|
|
(set-cell!
|
|
lp$11$16$100
|
|
(lambda (k$154 l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
(k$154 a$18$102)
|
|
((cell-get lp$11$16$100)
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102)))))))
|
|
(cell lp$11$16$100)))
|
|
#f))
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda (k$161)
|
|
(hide (lambda (r$171)
|
|
(create-n
|
|
(lambda (ll$36$108)
|
|
(run-r7rs-benchmark
|
|
k$161
|
|
"diviter:1000:1000000"
|
|
1000000
|
|
(lambda (k$170) (iterative-div2 k$170 ll$36$108))
|
|
(lambda (k$168 result$41$110)
|
|
(k$168 (equal? (length result$41$110) 500)))))
|
|
r$171))
|
|
1000000
|
|
1000)))
|
|
(define hide
|
|
(lambda (k$174 r$42$111 x$43$112)
|
|
(call-with-values
|
|
k$174
|
|
(lambda (k$179)
|
|
(vector
|
|
(lambda (r$180)
|
|
((lambda (k$182)
|
|
(if (Cyc-fast-lt r$42$111 100)
|
|
(k$182 0)
|
|
(k$182 1)))
|
|
(lambda (r$181) (values k$179 r$180 r$181))))
|
|
values
|
|
(lambda (k$185 x$44$113) (k$185 x$44$113))))
|
|
(lambda (k$177 v$45$114 i$46$115)
|
|
((vector-ref v$45$114 i$46$115) k$177 x$43$112)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (k$188
|
|
name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((lambda (rounded$121)
|
|
((lambda (rounded$121)
|
|
((lambda (r$189)
|
|
(display
|
|
(lambda (r$190)
|
|
(display
|
|
(lambda (r$191)
|
|
(newline
|
|
(lambda (r$192)
|
|
(current-output-port
|
|
(lambda (r$233)
|
|
(flush-output-port
|
|
(lambda (r$193)
|
|
(jiffies-per-second
|
|
(lambda (j/s$54$124)
|
|
(current-second
|
|
(lambda (t0$57$125)
|
|
(current-jiffy
|
|
(lambda (j0$60$126)
|
|
((lambda (loop$65$129)
|
|
((lambda (loop$65$129)
|
|
((lambda (r$197)
|
|
((cell-get loop$65$129)
|
|
k$188
|
|
0
|
|
#f))
|
|
(set-cell!
|
|
loop$65$129
|
|
(lambda (k$199
|
|
i$66$130
|
|
result$67$131)
|
|
(if (Cyc-fast-lt
|
|
i$66$130
|
|
count$48$117)
|
|
(thunk$49$118
|
|
(lambda (r$202)
|
|
((cell-get
|
|
loop$65$129)
|
|
k$199
|
|
(Cyc-fast-plus
|
|
i$66$130
|
|
1)
|
|
r$202)))
|
|
(ok?$50$119
|
|
(lambda (r$203)
|
|
(if r$203
|
|
(current-jiffy
|
|
(lambda (j1$76$132)
|
|
(current-second
|
|
(lambda (t1$79$133)
|
|
((cell-get
|
|
rounded$121)
|
|
(lambda (secs2$88$136)
|
|
(display
|
|
(lambda (r$210)
|
|
(write (lambda (r$211)
|
|
(display
|
|
(lambda (r$212)
|
|
(write (lambda (r$213)
|
|
(display
|
|
(lambda (r$214)
|
|
(display
|
|
(lambda (r$215)
|
|
(newline
|
|
(lambda (r$216)
|
|
(display
|
|
(lambda (r$217)
|
|
(this-scheme-implementation-name
|
|
(lambda (r$225)
|
|
(display
|
|
(lambda (r$218)
|
|
(display
|
|
(lambda (r$219)
|
|
(display
|
|
(lambda (r$220)
|
|
(display
|
|
(lambda (r$221)
|
|
(display
|
|
(lambda (r$222)
|
|
(newline
|
|
(lambda (r$223)
|
|
(current-output-port
|
|
(lambda (r$224)
|
|
(flush-output-port
|
|
(lambda (r$204)
|
|
(k$199 result$67$131))
|
|
r$224))))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
","))
|
|
name$47$116))
|
|
","))
|
|
r$225))))
|
|
"+!CSVLINE!+"))))
|
|
name$47$116))
|
|
") for "))
|
|
secs2$88$136))
|
|
" seconds ("))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$76$132
|
|
j0$60$126)
|
|
j/s$54$124))))
|
|
"Elapsed time: "))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
t0$57$125))))))
|
|
(display
|
|
(lambda (r$228)
|
|
(write (lambda (r$229)
|
|
(newline
|
|
(lambda (r$230)
|
|
(current-output-port
|
|
(lambda (r$232)
|
|
(flush-output-port
|
|
(lambda (r$231)
|
|
(k$199 result$67$131))
|
|
r$232))))))
|
|
result$67$131))
|
|
"ERROR: returned incorrect result: ")))
|
|
result$67$131))))))
|
|
(cell loop$65$129)))
|
|
#f))))))))
|
|
r$233))))))
|
|
name$47$116))
|
|
"Running "))
|
|
(set-cell!
|
|
rounded$121
|
|
(lambda (k$235 x$51$123)
|
|
(k$235 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000))))))
|
|
(cell rounded$121)))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda (k$240)
|
|
(Cyc-version
|
|
(lambda (r$241)
|
|
(k$240 (string-append "cyclone-" r$241))))))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- after closure-convert:"
|
|
*/
|
|
/*
|
|
((define create-n
|
|
(lambda (k$139 n$1$91)
|
|
((%closure
|
|
(lambda (self$243 n$5$92 a$6$93)
|
|
((%closure
|
|
(lambda (self$244 lp$2$7$94)
|
|
((%closure
|
|
(lambda (self$245 lp$2$7$94)
|
|
((%closure
|
|
(lambda (self$247 r$141)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$247 3))
|
|
0)
|
|
(cell-get (%closure-ref self$247 3))
|
|
(%closure-ref self$247 2)
|
|
(%closure-ref self$247 4)
|
|
(%closure-ref self$247 1)))
|
|
(%closure-ref self$245 1)
|
|
(%closure-ref self$245 2)
|
|
lp$2$7$94
|
|
(%closure-ref self$245 3))
|
|
(set-cell!
|
|
lp$2$7$94
|
|
(%closure
|
|
(lambda (self$246 k$143 n$8$95 a$9$96)
|
|
(if (Cyc-fast-eq n$8$95 0)
|
|
((%closure-ref k$143 0) k$143 a$9$96)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$246 1))
|
|
0)
|
|
(cell-get (%closure-ref self$246 1))
|
|
k$143
|
|
(Cyc-fast-sub n$8$95 1)
|
|
(cons '() a$9$96))))
|
|
lp$2$7$94))))
|
|
(%closure-ref self$244 1)
|
|
(%closure-ref self$244 2)
|
|
(%closure-ref self$244 3))
|
|
(cell lp$2$7$94)))
|
|
a$6$93
|
|
(%closure-ref self$243 1)
|
|
n$5$92)
|
|
#f))
|
|
k$139)
|
|
n$1$91
|
|
'())))
|
|
(define iterative-div2
|
|
(lambda (k$150 l$10$97)
|
|
((%closure
|
|
(lambda (self$248 l$14$98 a$15$99)
|
|
((%closure
|
|
(lambda (self$249 lp$11$16$100)
|
|
((%closure
|
|
(lambda (self$250 lp$11$16$100)
|
|
((%closure
|
|
(lambda (self$252 r$152)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$252 4))
|
|
0)
|
|
(cell-get (%closure-ref self$252 4))
|
|
(%closure-ref self$252 2)
|
|
(%closure-ref self$252 3)
|
|
(%closure-ref self$252 1)))
|
|
(%closure-ref self$250 1)
|
|
(%closure-ref self$250 2)
|
|
(%closure-ref self$250 3)
|
|
lp$11$16$100)
|
|
(set-cell!
|
|
lp$11$16$100
|
|
(%closure
|
|
(lambda (self$251 k$154 l$17$101 a$18$102)
|
|
(if (null? l$17$101)
|
|
((%closure-ref k$154 0) k$154 a$18$102)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$251 1))
|
|
0)
|
|
(cell-get (%closure-ref self$251 1))
|
|
k$154
|
|
(cddr l$17$101)
|
|
(cons (car l$17$101) a$18$102))))
|
|
lp$11$16$100))))
|
|
(%closure-ref self$249 1)
|
|
(%closure-ref self$249 2)
|
|
(%closure-ref self$249 3))
|
|
(cell lp$11$16$100)))
|
|
a$15$99
|
|
(%closure-ref self$248 1)
|
|
l$14$98)
|
|
#f))
|
|
k$150)
|
|
l$10$97
|
|
'())))
|
|
(define main
|
|
(lambda (k$161)
|
|
((%closure-ref hide 0)
|
|
hide
|
|
(%closure
|
|
(lambda (self$253 r$171)
|
|
((%closure-ref create-n 0)
|
|
create-n
|
|
(%closure
|
|
(lambda (self$254 ll$36$108)
|
|
((%closure-ref run-r7rs-benchmark 0)
|
|
run-r7rs-benchmark
|
|
(%closure-ref self$254 1)
|
|
"diviter:1000:1000000"
|
|
1000000
|
|
(%closure
|
|
(lambda (self$255 k$170)
|
|
((%closure-ref iterative-div2 0)
|
|
iterative-div2
|
|
k$170
|
|
(%closure-ref self$255 1)))
|
|
ll$36$108)
|
|
(%closure
|
|
(lambda (self$256 k$168 result$41$110)
|
|
((%closure-ref k$168 0)
|
|
k$168
|
|
(equal? (length result$41$110) 500))))))
|
|
(%closure-ref self$253 1))
|
|
r$171))
|
|
k$161)
|
|
1000000
|
|
1000)))
|
|
(define hide
|
|
(lambda (k$174 r$42$111 x$43$112)
|
|
((%closure-ref call-with-values 0)
|
|
call-with-values
|
|
k$174
|
|
(%closure
|
|
(lambda (self$257 k$179)
|
|
((%closure-ref vector 0)
|
|
vector
|
|
(%closure
|
|
(lambda (self$258 r$180)
|
|
((%closure
|
|
(lambda (self$260 k$182)
|
|
(if (Cyc-fast-lt (%closure-ref self$260 1) 100)
|
|
((%closure-ref k$182 0) k$182 0)
|
|
((%closure-ref k$182 0) k$182 1)))
|
|
(%closure-ref self$258 2))
|
|
(%closure
|
|
(lambda (self$259 r$181)
|
|
((%closure-ref values 0)
|
|
values
|
|
(%closure-ref self$259 1)
|
|
(%closure-ref self$259 2)
|
|
r$181))
|
|
(%closure-ref self$258 1)
|
|
r$180)))
|
|
k$179
|
|
(%closure-ref self$257 1))
|
|
values
|
|
(%closure
|
|
(lambda (self$261 k$185 x$44$113)
|
|
((%closure-ref k$185 0) k$185 x$44$113)))))
|
|
r$42$111)
|
|
(%closure
|
|
(lambda (self$262 k$177 v$45$114 i$46$115)
|
|
((%closure-ref (vector-ref v$45$114 i$46$115) 0)
|
|
(vector-ref v$45$114 i$46$115)
|
|
k$177
|
|
(%closure-ref self$262 1)))
|
|
x$43$112))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (k$188
|
|
name$47$116
|
|
count$48$117
|
|
thunk$49$118
|
|
ok?$50$119)
|
|
((%closure
|
|
(lambda (self$263 rounded$121)
|
|
((%closure
|
|
(lambda (self$264 rounded$121)
|
|
((%closure
|
|
(lambda (self$266 r$189)
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$267 r$190)
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$268 r$191)
|
|
((%closure-ref newline 0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$269 r$192)
|
|
((%closure-ref current-output-port 0)
|
|
current-output-port
|
|
(%closure
|
|
(lambda (self$270 r$233)
|
|
((%closure-ref flush-output-port 0)
|
|
flush-output-port
|
|
(%closure
|
|
(lambda (self$271 r$193)
|
|
((%closure-ref
|
|
jiffies-per-second
|
|
0)
|
|
jiffies-per-second
|
|
(%closure
|
|
(lambda (self$272 j/s$54$124)
|
|
((%closure-ref
|
|
current-second
|
|
0)
|
|
current-second
|
|
(%closure
|
|
(lambda (self$273
|
|
t0$57$125)
|
|
((%closure-ref
|
|
current-jiffy
|
|
0)
|
|
current-jiffy
|
|
(%closure
|
|
(lambda (self$274
|
|
j0$60$126)
|
|
((%closure
|
|
(lambda (self$275
|
|
loop$65$129)
|
|
((%closure
|
|
(lambda (self$276
|
|
loop$65$129)
|
|
((%closure
|
|
(lambda (self$305
|
|
r$197)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$305
|
|
2))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$305
|
|
2))
|
|
(%closure-ref
|
|
self$305
|
|
1)
|
|
0
|
|
#f))
|
|
(%closure-ref
|
|
self$276
|
|
4)
|
|
loop$65$129)
|
|
(set-cell!
|
|
loop$65$129
|
|
(%closure
|
|
(lambda (self$277
|
|
k$199
|
|
i$66$130
|
|
result$67$131)
|
|
(if (Cyc-fast-lt
|
|
i$66$130
|
|
(%closure-ref
|
|
self$277
|
|
1))
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$277
|
|
9)
|
|
0)
|
|
(%closure-ref
|
|
self$277
|
|
9)
|
|
(%closure
|
|
(lambda (self$278
|
|
r$202)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$278
|
|
3))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$278
|
|
3))
|
|
(%closure-ref
|
|
self$278
|
|
2)
|
|
(Cyc-fast-plus
|
|
(%closure-ref
|
|
self$278
|
|
1)
|
|
1)
|
|
r$202))
|
|
i$66$130
|
|
k$199
|
|
(%closure-ref
|
|
self$277
|
|
4)))
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$277
|
|
6)
|
|
0)
|
|
(%closure-ref
|
|
self$277
|
|
6)
|
|
(%closure
|
|
(lambda (self$279
|
|
r$203)
|
|
(if r$203
|
|
((%closure-ref
|
|
current-jiffy
|
|
0)
|
|
current-jiffy
|
|
(%closure
|
|
(lambda (self$280
|
|
j1$76$132)
|
|
((%closure-ref
|
|
current-second
|
|
0)
|
|
current-second
|
|
(%closure
|
|
(lambda (self$281
|
|
t1$79$133)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$281
|
|
7))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$281
|
|
7))
|
|
(%closure
|
|
(lambda (self$282
|
|
secs2$88$136)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$283
|
|
r$210)
|
|
((%closure-ref
|
|
write
|
|
0)
|
|
write
|
|
(%closure
|
|
(lambda (self$284
|
|
r$211)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$285
|
|
r$212)
|
|
((%closure-ref
|
|
write
|
|
0)
|
|
write
|
|
(%closure
|
|
(lambda (self$286
|
|
r$213)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$287
|
|
r$214)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$288
|
|
r$215)
|
|
((%closure-ref
|
|
newline
|
|
0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$289
|
|
r$216)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$290
|
|
r$217)
|
|
((%closure-ref
|
|
this-scheme-implementation-name
|
|
0)
|
|
this-scheme-implementation-name
|
|
(%closure
|
|
(lambda (self$291
|
|
r$225)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$292
|
|
r$218)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$293
|
|
r$219)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$294
|
|
r$220)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$295
|
|
r$221)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$296
|
|
r$222)
|
|
((%closure-ref
|
|
newline
|
|
0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$297
|
|
r$223)
|
|
((%closure-ref
|
|
current-output-port
|
|
0)
|
|
current-output-port
|
|
(%closure
|
|
(lambda (self$298
|
|
r$224)
|
|
((%closure-ref
|
|
flush-output-port
|
|
0)
|
|
flush-output-port
|
|
(%closure
|
|
(lambda (self$299
|
|
r$204)
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$299
|
|
1)
|
|
0)
|
|
(%closure-ref
|
|
self$299
|
|
1)
|
|
(%closure-ref
|
|
self$299
|
|
2)))
|
|
(%closure-ref
|
|
self$298
|
|
1)
|
|
(%closure-ref
|
|
self$298
|
|
2))
|
|
r$224))
|
|
(%closure-ref
|
|
self$297
|
|
1)
|
|
(%closure-ref
|
|
self$297
|
|
2))))
|
|
(%closure-ref
|
|
self$296
|
|
1)
|
|
(%closure-ref
|
|
self$296
|
|
2))))
|
|
(%closure-ref
|
|
self$295
|
|
4)
|
|
(%closure-ref
|
|
self$295
|
|
5))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
(%closure-ref
|
|
self$295
|
|
3)
|
|
(%closure-ref
|
|
self$295
|
|
2))
|
|
(%closure-ref
|
|
self$295
|
|
1)))))
|
|
(%closure-ref
|
|
self$294
|
|
1)
|
|
(%closure-ref
|
|
self$294
|
|
2)
|
|
(%closure-ref
|
|
self$294
|
|
3)
|
|
(%closure-ref
|
|
self$294
|
|
4)
|
|
(%closure-ref
|
|
self$294
|
|
5))
|
|
","))
|
|
(%closure-ref
|
|
self$293
|
|
1)
|
|
(%closure-ref
|
|
self$293
|
|
2)
|
|
(%closure-ref
|
|
self$293
|
|
3)
|
|
(%closure-ref
|
|
self$293
|
|
4)
|
|
(%closure-ref
|
|
self$293
|
|
6))
|
|
(%closure-ref
|
|
self$293
|
|
5)))
|
|
(%closure-ref
|
|
self$292
|
|
1)
|
|
(%closure-ref
|
|
self$292
|
|
2)
|
|
(%closure-ref
|
|
self$292
|
|
3)
|
|
(%closure-ref
|
|
self$292
|
|
4)
|
|
(%closure-ref
|
|
self$292
|
|
5)
|
|
(%closure-ref
|
|
self$292
|
|
6))
|
|
","))
|
|
(%closure-ref
|
|
self$291
|
|
1)
|
|
(%closure-ref
|
|
self$291
|
|
2)
|
|
(%closure-ref
|
|
self$291
|
|
3)
|
|
(%closure-ref
|
|
self$291
|
|
4)
|
|
(%closure-ref
|
|
self$291
|
|
5)
|
|
(%closure-ref
|
|
self$291
|
|
6))
|
|
r$225))
|
|
(%closure-ref
|
|
self$290
|
|
1)
|
|
(%closure-ref
|
|
self$290
|
|
2)
|
|
(%closure-ref
|
|
self$290
|
|
3)
|
|
(%closure-ref
|
|
self$290
|
|
4)
|
|
(%closure-ref
|
|
self$290
|
|
5)
|
|
(%closure-ref
|
|
self$290
|
|
6))))
|
|
(%closure-ref
|
|
self$289
|
|
1)
|
|
(%closure-ref
|
|
self$289
|
|
2)
|
|
(%closure-ref
|
|
self$289
|
|
3)
|
|
(%closure-ref
|
|
self$289
|
|
4)
|
|
(%closure-ref
|
|
self$289
|
|
5)
|
|
(%closure-ref
|
|
self$289
|
|
6))
|
|
"+!CSVLINE!+"))
|
|
(%closure-ref
|
|
self$288
|
|
1)
|
|
(%closure-ref
|
|
self$288
|
|
2)
|
|
(%closure-ref
|
|
self$288
|
|
3)
|
|
(%closure-ref
|
|
self$288
|
|
4)
|
|
(%closure-ref
|
|
self$288
|
|
5)
|
|
(%closure-ref
|
|
self$288
|
|
6))))
|
|
(%closure-ref
|
|
self$287
|
|
1)
|
|
(%closure-ref
|
|
self$287
|
|
2)
|
|
(%closure-ref
|
|
self$287
|
|
3)
|
|
(%closure-ref
|
|
self$287
|
|
4)
|
|
(%closure-ref
|
|
self$287
|
|
5)
|
|
(%closure-ref
|
|
self$287
|
|
6))
|
|
(%closure-ref
|
|
self$287
|
|
5)))
|
|
(%closure-ref
|
|
self$286
|
|
1)
|
|
(%closure-ref
|
|
self$286
|
|
2)
|
|
(%closure-ref
|
|
self$286
|
|
3)
|
|
(%closure-ref
|
|
self$286
|
|
4)
|
|
(%closure-ref
|
|
self$286
|
|
5)
|
|
(%closure-ref
|
|
self$286
|
|
6))
|
|
") for "))
|
|
(%closure-ref
|
|
self$285
|
|
1)
|
|
(%closure-ref
|
|
self$285
|
|
2)
|
|
(%closure-ref
|
|
self$285
|
|
3)
|
|
(%closure-ref
|
|
self$285
|
|
4)
|
|
(%closure-ref
|
|
self$285
|
|
5)
|
|
(%closure-ref
|
|
self$285
|
|
6))
|
|
(%closure-ref
|
|
self$285
|
|
7)))
|
|
(%closure-ref
|
|
self$284
|
|
1)
|
|
(%closure-ref
|
|
self$284
|
|
2)
|
|
(%closure-ref
|
|
self$284
|
|
3)
|
|
(%closure-ref
|
|
self$284
|
|
4)
|
|
(%closure-ref
|
|
self$284
|
|
5)
|
|
(%closure-ref
|
|
self$284
|
|
6)
|
|
(%closure-ref
|
|
self$284
|
|
7))
|
|
" seconds ("))
|
|
(%closure-ref
|
|
self$283
|
|
1)
|
|
(%closure-ref
|
|
self$283
|
|
2)
|
|
(%closure-ref
|
|
self$283
|
|
3)
|
|
(%closure-ref
|
|
self$283
|
|
4)
|
|
(%closure-ref
|
|
self$283
|
|
5)
|
|
(%closure-ref
|
|
self$283
|
|
6)
|
|
(%closure-ref
|
|
self$283
|
|
7))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
(%closure-ref
|
|
self$283
|
|
3)
|
|
(%closure-ref
|
|
self$283
|
|
2))
|
|
(%closure-ref
|
|
self$283
|
|
1)))))
|
|
(%closure-ref
|
|
self$282
|
|
1)
|
|
(%closure-ref
|
|
self$282
|
|
2)
|
|
(%closure-ref
|
|
self$282
|
|
3)
|
|
(%closure-ref
|
|
self$282
|
|
4)
|
|
(%closure-ref
|
|
self$282
|
|
5)
|
|
(%closure-ref
|
|
self$282
|
|
6)
|
|
secs2$88$136)
|
|
"Elapsed time: "))
|
|
(%closure-ref
|
|
self$281
|
|
1)
|
|
(%closure-ref
|
|
self$281
|
|
2)
|
|
(%closure-ref
|
|
self$281
|
|
3)
|
|
(%closure-ref
|
|
self$281
|
|
4)
|
|
(%closure-ref
|
|
self$281
|
|
5)
|
|
(%closure-ref
|
|
self$281
|
|
6))
|
|
(Cyc-fast-sub
|
|
t1$79$133
|
|
(%closure-ref
|
|
self$281
|
|
8))))
|
|
(%closure-ref
|
|
self$280
|
|
1)
|
|
(%closure-ref
|
|
self$280
|
|
2)
|
|
j1$76$132
|
|
(%closure-ref
|
|
self$280
|
|
3)
|
|
(%closure-ref
|
|
self$280
|
|
4)
|
|
(%closure-ref
|
|
self$280
|
|
5)
|
|
(%closure-ref
|
|
self$280
|
|
6)
|
|
(%closure-ref
|
|
self$280
|
|
7))))
|
|
(%closure-ref
|
|
self$279
|
|
1)
|
|
(%closure-ref
|
|
self$279
|
|
2)
|
|
(%closure-ref
|
|
self$279
|
|
3)
|
|
(%closure-ref
|
|
self$279
|
|
4)
|
|
(%closure-ref
|
|
self$279
|
|
5)
|
|
(%closure-ref
|
|
self$279
|
|
6)
|
|
(%closure-ref
|
|
self$279
|
|
7)))
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$300
|
|
r$228)
|
|
((%closure-ref
|
|
write
|
|
0)
|
|
write
|
|
(%closure
|
|
(lambda (self$301
|
|
r$229)
|
|
((%closure-ref
|
|
newline
|
|
0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$302
|
|
r$230)
|
|
((%closure-ref
|
|
current-output-port
|
|
0)
|
|
current-output-port
|
|
(%closure
|
|
(lambda (self$303
|
|
r$232)
|
|
((%closure-ref
|
|
flush-output-port
|
|
0)
|
|
flush-output-port
|
|
(%closure
|
|
(lambda (self$304
|
|
r$231)
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$304
|
|
1)
|
|
0)
|
|
(%closure-ref
|
|
self$304
|
|
1)
|
|
(%closure-ref
|
|
self$304
|
|
2)))
|
|
(%closure-ref
|
|
self$303
|
|
1)
|
|
(%closure-ref
|
|
self$303
|
|
2))
|
|
r$232))
|
|
(%closure-ref
|
|
self$302
|
|
1)
|
|
(%closure-ref
|
|
self$302
|
|
2))))
|
|
(%closure-ref
|
|
self$301
|
|
1)
|
|
(%closure-ref
|
|
self$301
|
|
2))))
|
|
(%closure-ref
|
|
self$300
|
|
1)
|
|
(%closure-ref
|
|
self$300
|
|
2))
|
|
(%closure-ref
|
|
self$300
|
|
2)))
|
|
(%closure-ref
|
|
self$279
|
|
3)
|
|
(%closure-ref
|
|
self$279
|
|
5))
|
|
"ERROR: returned incorrect result: ")))
|
|
(%closure-ref
|
|
self$277
|
|
2)
|
|
(%closure-ref
|
|
self$277
|
|
3)
|
|
k$199
|
|
(%closure-ref
|
|
self$277
|
|
5)
|
|
result$67$131
|
|
(%closure-ref
|
|
self$277
|
|
7)
|
|
(%closure-ref
|
|
self$277
|
|
8))
|
|
result$67$131)))
|
|
(%closure-ref
|
|
self$276
|
|
1)
|
|
(%closure-ref
|
|
self$276
|
|
2)
|
|
(%closure-ref
|
|
self$276
|
|
3)
|
|
loop$65$129
|
|
(%closure-ref
|
|
self$276
|
|
5)
|
|
(%closure-ref
|
|
self$276
|
|
6)
|
|
(%closure-ref
|
|
self$276
|
|
7)
|
|
(%closure-ref
|
|
self$276
|
|
8)
|
|
(%closure-ref
|
|
self$276
|
|
9)))))
|
|
(%closure-ref
|
|
self$275
|
|
1)
|
|
(%closure-ref
|
|
self$275
|
|
2)
|
|
(%closure-ref
|
|
self$275
|
|
3)
|
|
(%closure-ref
|
|
self$275
|
|
4)
|
|
(%closure-ref
|
|
self$275
|
|
5)
|
|
(%closure-ref
|
|
self$275
|
|
6)
|
|
(%closure-ref
|
|
self$275
|
|
7)
|
|
(%closure-ref
|
|
self$275
|
|
8)
|
|
(%closure-ref
|
|
self$275
|
|
9))
|
|
(cell loop$65$129)))
|
|
(%closure-ref
|
|
self$274
|
|
1)
|
|
(%closure-ref
|
|
self$274
|
|
2)
|
|
j0$60$126
|
|
(%closure-ref
|
|
self$274
|
|
3)
|
|
(%closure-ref
|
|
self$274
|
|
4)
|
|
(%closure-ref
|
|
self$274
|
|
5)
|
|
(%closure-ref
|
|
self$274
|
|
6)
|
|
(%closure-ref
|
|
self$274
|
|
7)
|
|
(%closure-ref
|
|
self$274
|
|
8))
|
|
#f))
|
|
(%closure-ref
|
|
self$273
|
|
1)
|
|
(%closure-ref
|
|
self$273
|
|
2)
|
|
(%closure-ref
|
|
self$273
|
|
3)
|
|
(%closure-ref
|
|
self$273
|
|
4)
|
|
(%closure-ref
|
|
self$273
|
|
5)
|
|
(%closure-ref
|
|
self$273
|
|
6)
|
|
t0$57$125
|
|
(%closure-ref
|
|
self$273
|
|
7))))
|
|
(%closure-ref self$272 1)
|
|
j/s$54$124
|
|
(%closure-ref self$272 2)
|
|
(%closure-ref self$272 3)
|
|
(%closure-ref self$272 4)
|
|
(%closure-ref self$272 5)
|
|
(%closure-ref
|
|
self$272
|
|
6))))
|
|
(%closure-ref self$271 1)
|
|
(%closure-ref self$271 2)
|
|
(%closure-ref self$271 3)
|
|
(%closure-ref self$271 4)
|
|
(%closure-ref self$271 5)
|
|
(%closure-ref self$271 6))))
|
|
(%closure-ref self$270 1)
|
|
(%closure-ref self$270 2)
|
|
(%closure-ref self$270 3)
|
|
(%closure-ref self$270 4)
|
|
(%closure-ref self$270 5)
|
|
(%closure-ref self$270 6))
|
|
r$233))
|
|
(%closure-ref self$269 1)
|
|
(%closure-ref self$269 2)
|
|
(%closure-ref self$269 3)
|
|
(%closure-ref self$269 4)
|
|
(%closure-ref self$269 5)
|
|
(%closure-ref self$269 6))))
|
|
(%closure-ref self$268 1)
|
|
(%closure-ref self$268 2)
|
|
(%closure-ref self$268 3)
|
|
(%closure-ref self$268 4)
|
|
(%closure-ref self$268 5)
|
|
(%closure-ref self$268 6))))
|
|
(%closure-ref self$267 1)
|
|
(%closure-ref self$267 2)
|
|
(%closure-ref self$267 3)
|
|
(%closure-ref self$267 4)
|
|
(%closure-ref self$267 5)
|
|
(%closure-ref self$267 6))
|
|
(%closure-ref self$267 3)))
|
|
(%closure-ref self$266 1)
|
|
(%closure-ref self$266 2)
|
|
(%closure-ref self$266 3)
|
|
(%closure-ref self$266 4)
|
|
(%closure-ref self$266 5)
|
|
(%closure-ref self$266 6))
|
|
"Running "))
|
|
(%closure-ref self$264 1)
|
|
(%closure-ref self$264 2)
|
|
(%closure-ref self$264 3)
|
|
(%closure-ref self$264 4)
|
|
rounded$121
|
|
(%closure-ref self$264 5))
|
|
(set-cell!
|
|
rounded$121
|
|
(%closure
|
|
(lambda (self$265 k$235 x$51$123)
|
|
((%closure-ref k$235 0)
|
|
k$235
|
|
(Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$51$123))
|
|
1000)))))))
|
|
(%closure-ref self$263 1)
|
|
(%closure-ref self$263 2)
|
|
(%closure-ref self$263 3)
|
|
(%closure-ref self$263 4)
|
|
(%closure-ref self$263 5))
|
|
(cell rounded$121)))
|
|
count$48$117
|
|
k$188
|
|
name$47$116
|
|
ok?$50$119
|
|
thunk$49$118)
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda (k$240)
|
|
((%closure-ref Cyc-version 0)
|
|
Cyc-version
|
|
(%closure
|
|
(lambda (self$306 r$241)
|
|
((%closure-ref (%closure-ref self$306 1) 0)
|
|
(%closure-ref self$306 1)
|
|
(string-append "cyclone-" r$241)))
|
|
k$240))))
|
|
((%closure-ref main 0) main %halt))
|
|
*/
|
|
/*
|
|
"---------------- C headers: "
|
|
*/
|
|
/*
|
|
()
|
|
*/
|
|
/*
|
|
"---------------- module globals: "
|
|
*/
|
|
/*
|
|
(this-scheme-implementation-name
|
|
run-r7rs-benchmark
|
|
hide
|
|
main
|
|
iterative-div2
|
|
create-n)
|
|
*/
|
|
/*
|
|
"---------------- C code:"
|
|
*/
|
|
#define closcall1(td, clo,a1) \
|
|
if (type_is_pair_prim(clo)) { \
|
|
Cyc_apply(td, 0, (closure)(a1), clo); \
|
|
} else { \
|
|
((clo)->fn)(td, 1, clo,a1);\
|
|
}
|
|
#define return_closcall1(td, clo,a1) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[1]; buf[0] = a1;\
|
|
GC(td, clo, buf, 1); \
|
|
return; \
|
|
} else {\
|
|
closcall1(td, (closure) (clo),a1); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct1(td, _fn,a1) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[1]; buf[0] = a1; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 1); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 1, (closure)_fn,a1); \
|
|
}}
|
|
|
|
#define closcall2(td, clo,a1,a2) \
|
|
if (type_is_pair_prim(clo)) { \
|
|
Cyc_apply(td, 1, (closure)(a1), clo,a2); \
|
|
} else { \
|
|
((clo)->fn)(td, 2, clo,a1,a2);\
|
|
}
|
|
#define return_closcall2(td, clo,a1,a2) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[2]; buf[0] = a1;buf[1] = a2;\
|
|
GC(td, clo, buf, 2); \
|
|
return; \
|
|
} else {\
|
|
closcall2(td, (closure) (clo),a1,a2); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct2(td, _fn,a1,a2) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[2]; buf[0] = a1;buf[1] = a2; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 2); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 2, (closure)_fn,a1,a2); \
|
|
}}
|
|
|
|
#define closcall3(td, clo,a1,a2,a3) \
|
|
if (type_is_pair_prim(clo)) { \
|
|
Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \
|
|
} else { \
|
|
((clo)->fn)(td, 3, clo,a1,a2,a3);\
|
|
}
|
|
#define return_closcall3(td, clo,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
|
|
GC(td, clo, buf, 3); \
|
|
return; \
|
|
} else {\
|
|
closcall3(td, (closure) (clo),a1,a2,a3); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct3(td, _fn,a1,a2,a3) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 3); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 3, (closure)_fn,a1,a2,a3); \
|
|
}}
|
|
|
|
#define closcall5(td, clo,a1,a2,a3,a4,a5) \
|
|
if (type_is_pair_prim(clo)) { \
|
|
Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \
|
|
} else { \
|
|
((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\
|
|
}
|
|
#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\
|
|
GC(td, clo, buf, 5); \
|
|
return; \
|
|
} else {\
|
|
closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 5); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \
|
|
}}
|
|
|
|
#include "cyclone/types.h"
|
|
object __glo_this_91scheme_91implementation_91name = NULL;
|
|
object __glo_run_91r7rs_91benchmark = NULL;
|
|
object __glo_hide = NULL;
|
|
object __glo_main = NULL;
|
|
object __glo_iterative_91div2 = NULL;
|
|
object __glo_create_91n = NULL;
|
|
extern object __glo_member_scheme_base;
|
|
extern object __glo_assoc_scheme_base;
|
|
extern object __glo_cons_91source_scheme_base;
|
|
extern object __glo_syntax_91rules_scheme_base;
|
|
extern object __glo_letrec_85_scheme_base;
|
|
extern object __glo_guard_scheme_base;
|
|
extern object __glo_guard_91aux_scheme_base;
|
|
extern object __glo_define_91record_91type_scheme_base;
|
|
extern object __glo_record_127_scheme_base;
|
|
extern object __glo_is_91a_127_scheme_base;
|
|
extern object __glo_register_91simple_91type_scheme_base;
|
|
extern object __glo_make_91type_91predicate_scheme_base;
|
|
extern object __glo_make_91constructor_scheme_base;
|
|
extern object __glo_make_91getter_scheme_base;
|
|
extern object __glo_make_91setter_scheme_base;
|
|
extern object __glo_slot_91ref_scheme_base;
|
|
extern object __glo_slot_91set_67_scheme_base;
|
|
extern object __glo_type_91slot_91offset_scheme_base;
|
|
extern object __glo_receive_scheme_base;
|
|
extern object __glo_abs_scheme_base;
|
|
extern object __glo_max_scheme_base;
|
|
extern object __glo_min_scheme_base;
|
|
extern object __glo_modulo_scheme_base;
|
|
extern object __glo_floor_91remainder_scheme_base;
|
|
extern object __glo_even_127_scheme_base;
|
|
extern object __glo_exact_91integer_127_scheme_base;
|
|
extern object __glo_exact_91integer_91sqrt_scheme_base;
|
|
extern object __glo_exact_127_scheme_base;
|
|
extern object __glo_inexact_127_scheme_base;
|
|
extern object __glo_odd_127_scheme_base;
|
|
extern object __glo_complex_127_scheme_base;
|
|
extern object __glo_rational_127_scheme_base;
|
|
extern object __glo_bignum_127_scheme_base;
|
|
extern object __glo_gcd_scheme_base;
|
|
extern object __glo_lcm_scheme_base;
|
|
extern object __glo_quotient_scheme_base;
|
|
extern object __glo_remainder_scheme_base;
|
|
extern object __glo_truncate_91quotient_scheme_base;
|
|
extern object __glo_truncate_91remainder_scheme_base;
|
|
extern object __glo_truncate_95_scheme_base;
|
|
extern object __glo_floor_91quotient_scheme_base;
|
|
extern object __glo_floor_91remainder_scheme_base;
|
|
extern object __glo_floor_95_scheme_base;
|
|
extern object __glo_square_scheme_base;
|
|
extern object __glo_expt_scheme_base;
|
|
extern object __glo_call_91with_91current_91continuation_scheme_base;
|
|
extern object __glo_call_95cc_scheme_base;
|
|
extern object __glo_call_91with_91values_scheme_base;
|
|
extern object __glo_dynamic_91wind_scheme_base;
|
|
extern object __glo_values_scheme_base;
|
|
extern object __glo_char_123_127_scheme_base;
|
|
extern object __glo_char_121_127_scheme_base;
|
|
extern object __glo_char_125_127_scheme_base;
|
|
extern object __glo_char_121_123_127_scheme_base;
|
|
extern object __glo_char_125_123_127_scheme_base;
|
|
extern object __glo_string_123_127_scheme_base;
|
|
extern object __glo_string_121_127_scheme_base;
|
|
extern object __glo_string_121_123_127_scheme_base;
|
|
extern object __glo_string_125_127_scheme_base;
|
|
extern object __glo_string_125_123_127_scheme_base;
|
|
extern object __glo_foldl_scheme_base;
|
|
extern object __glo_foldr_scheme_base;
|
|
extern object __glo_not_scheme_base;
|
|
extern object __glo_list_127_scheme_base;
|
|
extern object __glo_zero_127_scheme_base;
|
|
extern object __glo_positive_127_scheme_base;
|
|
extern object __glo_negative_127_scheme_base;
|
|
extern object __glo_append_scheme_base;
|
|
extern object __glo__list_scheme_base;
|
|
extern object __glo_make_91list_scheme_base;
|
|
extern object __glo_list_91copy_scheme_base;
|
|
extern object __glo_map_scheme_base;
|
|
extern object __glo_Cyc_91map_91loop_911_scheme_base;
|
|
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
|
|
extern object __glo_for_91each_scheme_base;
|
|
extern object __glo_list_91tail_scheme_base;
|
|
extern object __glo_list_91ref_scheme_base;
|
|
extern object __glo_list_91set_67_scheme_base;
|
|
extern object __glo_reverse_scheme_base;
|
|
extern object __glo_boolean_123_127_scheme_base;
|
|
extern object __glo_symbol_123_127_scheme_base;
|
|
extern object __glo_Cyc_91obj_123_127_scheme_base;
|
|
extern object __glo_vector_scheme_base;
|
|
extern object __glo_vector_91append_scheme_base;
|
|
extern object __glo_vector_91copy_scheme_base;
|
|
extern object __glo_vector_91copy_67_scheme_base;
|
|
extern object __glo_vector_91fill_67_scheme_base;
|
|
extern object __glo_vector_91_125list_scheme_base;
|
|
extern object __glo_vector_91_125string_scheme_base;
|
|
extern object __glo_vector_91map_scheme_base;
|
|
extern object __glo_vector_91for_91each_scheme_base;
|
|
extern object __glo_make_91string_scheme_base;
|
|
extern object __glo_string_scheme_base;
|
|
extern object __glo_string_91copy_scheme_base;
|
|
extern object __glo_string_91copy_67_scheme_base;
|
|
extern object __glo_string_91fill_67_scheme_base;
|
|
extern object __glo_string_91_125list_scheme_base;
|
|
extern object __glo_string_91_125vector_scheme_base;
|
|
extern object __glo_string_91map_scheme_base;
|
|
extern object __glo_string_91for_91each_scheme_base;
|
|
extern object __glo_make_91parameter_scheme_base;
|
|
extern object __glo_current_91output_91port_scheme_base;
|
|
extern object __glo_current_91input_91port_scheme_base;
|
|
extern object __glo_current_91error_91port_scheme_base;
|
|
extern object __glo_call_91with_91port_scheme_base;
|
|
extern object __glo_error_91object_127_scheme_base;
|
|
extern object __glo_error_91object_91message_scheme_base;
|
|
extern object __glo_error_91object_91irritants_scheme_base;
|
|
extern object __glo_error_scheme_base;
|
|
extern object __glo_raise_scheme_base;
|
|
extern object __glo_raise_91continuable_scheme_base;
|
|
extern object __glo_with_91handler_scheme_base;
|
|
extern object __glo_with_91exception_91handler_scheme_base;
|
|
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
|
|
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
|
|
extern object __glo_newline_scheme_base;
|
|
extern object __glo_write_91char_scheme_base;
|
|
extern object __glo_write_91string_scheme_base;
|
|
extern object __glo_flush_91output_91port_scheme_base;
|
|
extern object __glo_peek_91char_scheme_base;
|
|
extern object __glo_read_91char_scheme_base;
|
|
extern object __glo_read_91line_scheme_base;
|
|
extern object __glo_read_91string_scheme_base;
|
|
extern object __glo_input_91port_127_scheme_base;
|
|
extern object __glo_output_91port_127_scheme_base;
|
|
extern object __glo_input_91port_91open_127_scheme_base;
|
|
extern object __glo_output_91port_91open_127_scheme_base;
|
|
extern object __glo_get_91output_91string_scheme_base;
|
|
extern object __glo_open_91output_91string_scheme_base;
|
|
extern object __glo_open_91input_91string_scheme_base;
|
|
extern object __glo_get_91output_91bytevector_scheme_base;
|
|
extern object __glo_open_91input_91bytevector_scheme_base;
|
|
extern object __glo_open_91output_91bytevector_scheme_base;
|
|
extern object __glo_features_scheme_base;
|
|
extern object __glo_Cyc_91version_scheme_base;
|
|
extern object __glo_any_scheme_base;
|
|
extern object __glo_every_scheme_base;
|
|
extern object __glo_and_scheme_base;
|
|
extern object __glo_or_scheme_base;
|
|
extern object __glo_let_scheme_base;
|
|
extern object __glo_let_85_scheme_base;
|
|
extern object __glo_letrec_scheme_base;
|
|
extern object __glo_let_85_91values_scheme_base;
|
|
extern object __glo_let_91values_scheme_base;
|
|
extern object __glo_begin_scheme_base;
|
|
extern object __glo__case_scheme_base;
|
|
extern object __glo_cond_scheme_base;
|
|
extern object __glo_cond_91expand_scheme_base;
|
|
extern object __glo__do_scheme_base;
|
|
extern object __glo_when_scheme_base;
|
|
extern object __glo_unless_scheme_base;
|
|
extern object __glo_quasiquote_scheme_base;
|
|
extern object __glo_floor_scheme_base;
|
|
extern object __glo_ceiling_scheme_base;
|
|
extern object __glo_truncate_scheme_base;
|
|
extern object __glo_round_scheme_base;
|
|
extern object __glo_exact_scheme_base;
|
|
extern object __glo_inexact_scheme_base;
|
|
extern object __glo_eof_91object_scheme_base;
|
|
extern object __glo_syntax_91error_scheme_base;
|
|
extern object __glo_bytevector_91copy_scheme_base;
|
|
extern object __glo_bytevector_91copy_67_scheme_base;
|
|
extern object __glo_utf8_91_125string_scheme_base;
|
|
extern object __glo_string_91_125utf8_scheme_base;
|
|
extern object __glo_denominator_scheme_base;
|
|
extern object __glo_numerator_scheme_base;
|
|
extern object __glo_parameterize_scheme_base;
|
|
extern object __glo_peek_91u8_scheme_base;
|
|
extern object __glo_read_91u8_scheme_base;
|
|
extern object __glo_write_91u8_scheme_base;
|
|
extern object __glo_read_scheme_read;
|
|
extern object __glo_read_91all_scheme_read;
|
|
extern object __glo_include_scheme_read;
|
|
extern object __glo_include_91ci_scheme_read;
|
|
extern object __glo_display_scheme_write;
|
|
extern object __glo_write_scheme_write;
|
|
extern object __glo_write_91shared_scheme_write;
|
|
extern object __glo_write_91simple_scheme_write;
|
|
extern object __glo_current_91second_scheme_time;
|
|
extern object __glo_current_91jiffy_scheme_time;
|
|
extern object __glo_jiffies_91per_91second_scheme_time;
|
|
extern object __glo_string_123_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_string_121_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_string_121_123_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_string_125_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_string_125_123_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_not_191_191inline_191_191_scheme_base;
|
|
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_floor_191_191inline_191_191_scheme_base;
|
|
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
|
|
extern object __glo_truncate_191_191inline_191_191_scheme_base;
|
|
extern object __glo_round_191_191inline_191_191_scheme_base;
|
|
extern object __glo_inexact_191_191inline_191_191_scheme_base;
|
|
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
|
|
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
|
|
extern object __glo_denominator_191_191inline_191_191_scheme_base;
|
|
extern object __glo_numerator_191_191inline_191_191_scheme_base;
|
|
extern object __glo_quotient_191_191inline_191_191_scheme_base;
|
|
extern object __glo_square_191_191inline_191_191_scheme_base;
|
|
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
|
|
extern object __glo_Cyc_91opaque_91eq_127_191_191inline_191_191_scheme_read;
|
|
extern object __glo_Cyc_91opaque_91unsafe_91eq_127_191_191inline_191_191_scheme_read;
|
|
extern object __glo_Cyc_91opaque_91unsafe_91string_127_191_191inline_191_191_scheme_read;
|
|
#include "cyclone/runtime.h"
|
|
#include "cyclone/runtime-main.h"
|
|
static void __lambda_69(void *data, int argc, closure _,object k_73240) ;
|
|
static void __lambda_68(void *data, int argc, object self_73306, object r_73241) ;
|
|
static void __lambda_67(void *data, int argc, closure _,object k_73188, object name_7347_73116, object count_7348_73117, object thunk_7349_73118, object ok_127_7350_73119) ;
|
|
static void __lambda_66(void *data, int argc, object self_73263, object rounded_73121) ;
|
|
static void __lambda_65(void *data, int argc, object self_73264, object rounded_73121) ;
|
|
static void __lambda_64(void *data, int argc, object self_73265, object k_73235, object x_7351_73123) ;
|
|
static void __lambda_63(void *data, int argc, object self_73266, object r_73189) ;
|
|
static void __lambda_62(void *data, int argc, object self_73267, object r_73190) ;
|
|
static void __lambda_61(void *data, int argc, object self_73268, object r_73191) ;
|
|
static void __lambda_60(void *data, int argc, object self_73269, object r_73192) ;
|
|
static void __lambda_59(void *data, int argc, object self_73270, object r_73233) ;
|
|
static void __lambda_58(void *data, int argc, object self_73271, object r_73193) ;
|
|
static void __lambda_57(void *data, int argc, object self_73272, object j_95s_7354_73124) ;
|
|
static void __lambda_56(void *data, int argc, object self_73273, object t0_7357_73125) ;
|
|
static void __lambda_55(void *data, int argc, object self_73274, object j0_7360_73126) ;
|
|
static void __lambda_54(void *data, int argc, object self_73275, object loop_7365_73129) ;
|
|
static void __lambda_53(void *data, int argc, object self_73276, object loop_7365_73129) ;
|
|
static void __lambda_52(void *data, int argc, object self_73277, object k_73199, object i_7366_73130, object result_7367_73131) ;
|
|
static void __lambda_51(void *data, int argc, object self_73279, object r_73203) ;
|
|
static void __lambda_50(void *data, int argc, object self_73300, object r_73228) ;
|
|
static void __lambda_49(void *data, int argc, object self_73301, object r_73229) ;
|
|
static void __lambda_48(void *data, int argc, object self_73302, object r_73230) ;
|
|
static void __lambda_47(void *data, int argc, object self_73303, object r_73232) ;
|
|
static void __lambda_46(void *data, int argc, object self_73304, object r_73231) ;
|
|
static void __lambda_45(void *data, int argc, object self_73280, object j1_7376_73132) ;
|
|
static void __lambda_44(void *data, int argc, object self_73281, object t1_7379_73133) ;
|
|
static void __lambda_43(void *data, int argc, object self_73282, object secs2_7388_73136) ;
|
|
static void __lambda_42(void *data, int argc, object self_73283, object r_73210) ;
|
|
static void __lambda_41(void *data, int argc, object self_73284, object r_73211) ;
|
|
static void __lambda_40(void *data, int argc, object self_73285, object r_73212) ;
|
|
static void __lambda_39(void *data, int argc, object self_73286, object r_73213) ;
|
|
static void __lambda_38(void *data, int argc, object self_73287, object r_73214) ;
|
|
static void __lambda_37(void *data, int argc, object self_73288, object r_73215) ;
|
|
static void __lambda_36(void *data, int argc, object self_73289, object r_73216) ;
|
|
static void __lambda_35(void *data, int argc, object self_73290, object r_73217) ;
|
|
static void __lambda_34(void *data, int argc, object self_73291, object r_73225) ;
|
|
static void __lambda_33(void *data, int argc, object self_73292, object r_73218) ;
|
|
static void __lambda_32(void *data, int argc, object self_73293, object r_73219) ;
|
|
static void __lambda_31(void *data, int argc, object self_73294, object r_73220) ;
|
|
static void __lambda_30(void *data, int argc, object self_73295, object r_73221) ;
|
|
static void __lambda_29(void *data, int argc, object self_73296, object r_73222) ;
|
|
static void __lambda_28(void *data, int argc, object self_73297, object r_73223) ;
|
|
static void __lambda_27(void *data, int argc, object self_73298, object r_73224) ;
|
|
static void __lambda_26(void *data, int argc, object self_73299, object r_73204) ;
|
|
static void __lambda_25(void *data, int argc, object self_73278, object r_73202) ;
|
|
static void __lambda_24(void *data, int argc, object self_73305, object r_73197) ;
|
|
static void __lambda_23(void *data, int argc, closure _,object k_73174, object r_7342_73111, object x_7343_73112) ;
|
|
static void __lambda_22(void *data, int argc, object self_73262, object k_73177, object v_7345_73114, object i_7346_73115) ;
|
|
static void __lambda_21(void *data, int argc, object self_73257, object k_73179) ;
|
|
static void __lambda_20(void *data, int argc, object self_73261, object k_73185, object x_7344_73113) ;
|
|
static void __lambda_19(void *data, int argc, object self_73258, object r_73180) ;
|
|
static void __lambda_18(void *data, int argc, object self_73259, object r_73181) ;
|
|
static void __lambda_17(void *data, int argc, object self_73260, object k_73182) ;
|
|
static void __lambda_16(void *data, int argc, closure _,object k_73161) ;
|
|
static void __lambda_15(void *data, int argc, object self_73253, object r_73171) ;
|
|
static void __lambda_14(void *data, int argc, object self_73254, object ll_7336_73108) ;
|
|
static void __lambda_13(void *data, int argc, object self_73256, object k_73168, object result_7341_73110) ;
|
|
static void __lambda_12(void *data, int argc, object self_73255, object k_73170) ;
|
|
static void __lambda_11(void *data, int argc, closure _,object k_73150, object l_7310_7397) ;
|
|
static void __lambda_10(void *data, int argc, object self_73248, object l_7314_7398, object a_7315_7399) ;
|
|
static void __lambda_9(void *data, int argc, object self_73249, object lp_7311_7316_73100) ;
|
|
static void __lambda_8(void *data, int argc, object self_73250, object lp_7311_7316_73100) ;
|
|
static void __lambda_7(void *data, int argc, object self_73251, object k_73154, object l_7317_73101, object a_7318_73102) ;
|
|
static void __lambda_6(void *data, int argc, object self_73252, object r_73152) ;
|
|
static void __lambda_5(void *data, int argc, closure _,object k_73139, object n_731_7391) ;
|
|
static void __lambda_4(void *data, int argc, object self_73243, object n_735_7392, object a_736_7393) ;
|
|
static void __lambda_3(void *data, int argc, object self_73244, object lp_732_737_7394) ;
|
|
static void __lambda_2(void *data, int argc, object self_73245, object lp_732_737_7394) ;
|
|
static void __lambda_1(void *data, int argc, object self_73246, object k_73143, object n_738_7395, object a_739_7396) ;
|
|
static void __lambda_0(void *data, int argc, object self_73247, object r_73141) ;
|
|
|
|
static void __lambda_69(void *data, int argc, closure _,object k_73240) {
|
|
Cyc_st_add(data, "diviter.scm:this-scheme-implementation-name");
|
|
|
|
closureN_type c_73609;
|
|
c_73609.hdr.mark = gc_color_red;
|
|
c_73609.hdr.grayed = 0;
|
|
c_73609.tag = closureN_tag;
|
|
c_73609.fn = (function_type)__lambda_68;
|
|
c_73609.num_args = 1;
|
|
c_73609.num_elements = 1;
|
|
c_73609.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73609.elements[0] = k_73240;
|
|
|
|
return_closcall1(data, __glo_Cyc_91version_scheme_base, &c_73609);;
|
|
}
|
|
|
|
static void __lambda_68(void *data, int argc, object self_73306, object r_73241) {
|
|
|
|
make_utf8_string_with_len(c_73615, "cyclone-", 8, 8);
|
|
|
|
object c_73614 = Cyc_string_append(data, ((closureN)self_73306)->elements[0],2,&c_73615, r_73241);
|
|
return_closcall1(data, ((closureN)self_73306)->elements[0], c_73614);;
|
|
}
|
|
|
|
static void __lambda_67(void *data, int argc, closure _,object k_73188, object name_7347_73116, object count_7348_73117, object thunk_7349_73118, object ok_127_7350_73119) {
|
|
Cyc_st_add(data, "diviter.scm:run-r7rs-benchmark");
|
|
|
|
closureN_type c_73423;
|
|
c_73423.hdr.mark = gc_color_red;
|
|
c_73423.hdr.grayed = 0;
|
|
c_73423.tag = closureN_tag;
|
|
c_73423.fn = (function_type)__lambda_66;
|
|
c_73423.num_args = 1;
|
|
c_73423.num_elements = 5;
|
|
c_73423.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73423.elements[0] = count_7348_73117;
|
|
c_73423.elements[1] = k_73188;
|
|
c_73423.elements[2] = name_7347_73116;
|
|
c_73423.elements[3] = ok_127_7350_73119;
|
|
c_73423.elements[4] = thunk_7349_73118;
|
|
|
|
return_closcall1(data,(closure)&c_73423, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_66(void *data, int argc, object self_73263, object rounded_73121) {
|
|
|
|
closureN_type c_73425;
|
|
c_73425.hdr.mark = gc_color_red;
|
|
c_73425.hdr.grayed = 0;
|
|
c_73425.tag = closureN_tag;
|
|
c_73425.fn = (function_type)__lambda_65;
|
|
c_73425.num_args = 1;
|
|
c_73425.num_elements = 5;
|
|
c_73425.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73425.elements[0] = ((closureN)self_73263)->elements[0];
|
|
c_73425.elements[1] = ((closureN)self_73263)->elements[1];
|
|
c_73425.elements[2] = ((closureN)self_73263)->elements[2];
|
|
c_73425.elements[3] = ((closureN)self_73263)->elements[3];
|
|
c_73425.elements[4] = ((closureN)self_73263)->elements[4];
|
|
|
|
|
|
make_cell(c_73606,rounded_73121);
|
|
return_closcall1(data,(closure)&c_73425, &c_73606);;
|
|
}
|
|
|
|
static void __lambda_65(void *data, int argc, object self_73264, object rounded_73121) {
|
|
|
|
closureN_type c_73427;
|
|
c_73427.hdr.mark = gc_color_red;
|
|
c_73427.hdr.grayed = 0;
|
|
c_73427.tag = closureN_tag;
|
|
c_73427.fn = (function_type)__lambda_63;
|
|
c_73427.num_args = 1;
|
|
c_73427.num_elements = 6;
|
|
c_73427.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73427.elements[0] = ((closureN)self_73264)->elements[0];
|
|
c_73427.elements[1] = ((closureN)self_73264)->elements[1];
|
|
c_73427.elements[2] = ((closureN)self_73264)->elements[2];
|
|
c_73427.elements[3] = ((closureN)self_73264)->elements[3];
|
|
c_73427.elements[4] = rounded_73121;
|
|
c_73427.elements[5] = ((closureN)self_73264)->elements[4];
|
|
|
|
|
|
mclosure0(c_73590, (function_type)__lambda_64);c_73590.num_args = 1;
|
|
return_closcall1(data,(closure)&c_73427, Cyc_set_cell(data, rounded_73121, &c_73590));;
|
|
}
|
|
|
|
static void __lambda_64(void *data, int argc, object self_73265, object k_73235, object x_7351_73123) {
|
|
|
|
complex_num_type local_73602; object c_73603 = Cyc_fast_mul(data,&local_73602,obj_int2obj(1000), x_7351_73123);
|
|
|
|
complex_num_type local_73598; object c_73599 = ((inline_function_type)
|
|
((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_73598,c_73603);
|
|
|
|
complex_num_type local_73594; object c_73595 = Cyc_fast_div(data,&local_73594,c_73599, obj_int2obj(1000));
|
|
return_closcall1(data, k_73235, c_73595);;
|
|
}
|
|
|
|
static void __lambda_63(void *data, int argc, object self_73266, object r_73189) {
|
|
|
|
closureN_type c_73429;
|
|
c_73429.hdr.mark = gc_color_red;
|
|
c_73429.hdr.grayed = 0;
|
|
c_73429.tag = closureN_tag;
|
|
c_73429.fn = (function_type)__lambda_62;
|
|
c_73429.num_args = 1;
|
|
c_73429.num_elements = 6;
|
|
c_73429.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73429.elements[0] = ((closureN)self_73266)->elements[0];
|
|
c_73429.elements[1] = ((closureN)self_73266)->elements[1];
|
|
c_73429.elements[2] = ((closureN)self_73266)->elements[2];
|
|
c_73429.elements[3] = ((closureN)self_73266)->elements[3];
|
|
c_73429.elements[4] = ((closureN)self_73266)->elements[4];
|
|
c_73429.elements[5] = ((closureN)self_73266)->elements[5];
|
|
|
|
|
|
make_utf8_string_with_len(c_73587, "Running ", 8, 8);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73429, &c_73587);;
|
|
}
|
|
|
|
static void __lambda_62(void *data, int argc, object self_73267, object r_73190) {
|
|
|
|
closureN_type c_73431;
|
|
c_73431.hdr.mark = gc_color_red;
|
|
c_73431.hdr.grayed = 0;
|
|
c_73431.tag = closureN_tag;
|
|
c_73431.fn = (function_type)__lambda_61;
|
|
c_73431.num_args = 1;
|
|
c_73431.num_elements = 6;
|
|
c_73431.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73431.elements[0] = ((closureN)self_73267)->elements[0];
|
|
c_73431.elements[1] = ((closureN)self_73267)->elements[1];
|
|
c_73431.elements[2] = ((closureN)self_73267)->elements[2];
|
|
c_73431.elements[3] = ((closureN)self_73267)->elements[3];
|
|
c_73431.elements[4] = ((closureN)self_73267)->elements[4];
|
|
c_73431.elements[5] = ((closureN)self_73267)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73431, ((closureN)self_73267)->elements[2]);;
|
|
}
|
|
|
|
static void __lambda_61(void *data, int argc, object self_73268, object r_73191) {
|
|
|
|
closureN_type c_73433;
|
|
c_73433.hdr.mark = gc_color_red;
|
|
c_73433.hdr.grayed = 0;
|
|
c_73433.tag = closureN_tag;
|
|
c_73433.fn = (function_type)__lambda_60;
|
|
c_73433.num_args = 1;
|
|
c_73433.num_elements = 6;
|
|
c_73433.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73433.elements[0] = ((closureN)self_73268)->elements[0];
|
|
c_73433.elements[1] = ((closureN)self_73268)->elements[1];
|
|
c_73433.elements[2] = ((closureN)self_73268)->elements[2];
|
|
c_73433.elements[3] = ((closureN)self_73268)->elements[3];
|
|
c_73433.elements[4] = ((closureN)self_73268)->elements[4];
|
|
c_73433.elements[5] = ((closureN)self_73268)->elements[5];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73433);;
|
|
}
|
|
|
|
static void __lambda_60(void *data, int argc, object self_73269, object r_73192) {
|
|
|
|
closureN_type c_73435;
|
|
c_73435.hdr.mark = gc_color_red;
|
|
c_73435.hdr.grayed = 0;
|
|
c_73435.tag = closureN_tag;
|
|
c_73435.fn = (function_type)__lambda_59;
|
|
c_73435.num_args = 1;
|
|
c_73435.num_elements = 6;
|
|
c_73435.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73435.elements[0] = ((closureN)self_73269)->elements[0];
|
|
c_73435.elements[1] = ((closureN)self_73269)->elements[1];
|
|
c_73435.elements[2] = ((closureN)self_73269)->elements[2];
|
|
c_73435.elements[3] = ((closureN)self_73269)->elements[3];
|
|
c_73435.elements[4] = ((closureN)self_73269)->elements[4];
|
|
c_73435.elements[5] = ((closureN)self_73269)->elements[5];
|
|
|
|
return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73435);;
|
|
}
|
|
|
|
static void __lambda_59(void *data, int argc, object self_73270, object r_73233) {
|
|
|
|
closureN_type c_73437;
|
|
c_73437.hdr.mark = gc_color_red;
|
|
c_73437.hdr.grayed = 0;
|
|
c_73437.tag = closureN_tag;
|
|
c_73437.fn = (function_type)__lambda_58;
|
|
c_73437.num_args = 1;
|
|
c_73437.num_elements = 6;
|
|
c_73437.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73437.elements[0] = ((closureN)self_73270)->elements[0];
|
|
c_73437.elements[1] = ((closureN)self_73270)->elements[1];
|
|
c_73437.elements[2] = ((closureN)self_73270)->elements[2];
|
|
c_73437.elements[3] = ((closureN)self_73270)->elements[3];
|
|
c_73437.elements[4] = ((closureN)self_73270)->elements[4];
|
|
c_73437.elements[5] = ((closureN)self_73270)->elements[5];
|
|
|
|
return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73437, r_73233);;
|
|
}
|
|
|
|
static void __lambda_58(void *data, int argc, object self_73271, object r_73193) {
|
|
|
|
closureN_type c_73439;
|
|
c_73439.hdr.mark = gc_color_red;
|
|
c_73439.hdr.grayed = 0;
|
|
c_73439.tag = closureN_tag;
|
|
c_73439.fn = (function_type)__lambda_57;
|
|
c_73439.num_args = 1;
|
|
c_73439.num_elements = 6;
|
|
c_73439.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73439.elements[0] = ((closureN)self_73271)->elements[0];
|
|
c_73439.elements[1] = ((closureN)self_73271)->elements[1];
|
|
c_73439.elements[2] = ((closureN)self_73271)->elements[2];
|
|
c_73439.elements[3] = ((closureN)self_73271)->elements[3];
|
|
c_73439.elements[4] = ((closureN)self_73271)->elements[4];
|
|
c_73439.elements[5] = ((closureN)self_73271)->elements[5];
|
|
|
|
return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_73439);;
|
|
}
|
|
|
|
static void __lambda_57(void *data, int argc, object self_73272, object j_95s_7354_73124) {
|
|
|
|
closureN_type c_73441;
|
|
c_73441.hdr.mark = gc_color_red;
|
|
c_73441.hdr.grayed = 0;
|
|
c_73441.tag = closureN_tag;
|
|
c_73441.fn = (function_type)__lambda_56;
|
|
c_73441.num_args = 1;
|
|
c_73441.num_elements = 7;
|
|
c_73441.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73441.elements[0] = ((closureN)self_73272)->elements[0];
|
|
c_73441.elements[1] = j_95s_7354_73124;
|
|
c_73441.elements[2] = ((closureN)self_73272)->elements[1];
|
|
c_73441.elements[3] = ((closureN)self_73272)->elements[2];
|
|
c_73441.elements[4] = ((closureN)self_73272)->elements[3];
|
|
c_73441.elements[5] = ((closureN)self_73272)->elements[4];
|
|
c_73441.elements[6] = ((closureN)self_73272)->elements[5];
|
|
|
|
return_closcall1(data, __glo_current_91second_scheme_time, &c_73441);;
|
|
}
|
|
|
|
static void __lambda_56(void *data, int argc, object self_73273, object t0_7357_73125) {
|
|
|
|
closureN_type c_73443;
|
|
c_73443.hdr.mark = gc_color_red;
|
|
c_73443.hdr.grayed = 0;
|
|
c_73443.tag = closureN_tag;
|
|
c_73443.fn = (function_type)__lambda_55;
|
|
c_73443.num_args = 1;
|
|
c_73443.num_elements = 8;
|
|
c_73443.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73443.elements[0] = ((closureN)self_73273)->elements[0];
|
|
c_73443.elements[1] = ((closureN)self_73273)->elements[1];
|
|
c_73443.elements[2] = ((closureN)self_73273)->elements[2];
|
|
c_73443.elements[3] = ((closureN)self_73273)->elements[3];
|
|
c_73443.elements[4] = ((closureN)self_73273)->elements[4];
|
|
c_73443.elements[5] = ((closureN)self_73273)->elements[5];
|
|
c_73443.elements[6] = t0_7357_73125;
|
|
c_73443.elements[7] = ((closureN)self_73273)->elements[6];
|
|
|
|
return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73443);;
|
|
}
|
|
|
|
static void __lambda_55(void *data, int argc, object self_73274, object j0_7360_73126) {
|
|
|
|
closureN_type c_73445;
|
|
c_73445.hdr.mark = gc_color_red;
|
|
c_73445.hdr.grayed = 0;
|
|
c_73445.tag = closureN_tag;
|
|
c_73445.fn = (function_type)__lambda_54;
|
|
c_73445.num_args = 1;
|
|
c_73445.num_elements = 9;
|
|
c_73445.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73445.elements[0] = ((closureN)self_73274)->elements[0];
|
|
c_73445.elements[1] = ((closureN)self_73274)->elements[1];
|
|
c_73445.elements[2] = j0_7360_73126;
|
|
c_73445.elements[3] = ((closureN)self_73274)->elements[2];
|
|
c_73445.elements[4] = ((closureN)self_73274)->elements[3];
|
|
c_73445.elements[5] = ((closureN)self_73274)->elements[4];
|
|
c_73445.elements[6] = ((closureN)self_73274)->elements[5];
|
|
c_73445.elements[7] = ((closureN)self_73274)->elements[6];
|
|
c_73445.elements[8] = ((closureN)self_73274)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_73445, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_54(void *data, int argc, object self_73275, object loop_7365_73129) {
|
|
|
|
closureN_type c_73447;
|
|
c_73447.hdr.mark = gc_color_red;
|
|
c_73447.hdr.grayed = 0;
|
|
c_73447.tag = closureN_tag;
|
|
c_73447.fn = (function_type)__lambda_53;
|
|
c_73447.num_args = 1;
|
|
c_73447.num_elements = 9;
|
|
c_73447.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73447.elements[0] = ((closureN)self_73275)->elements[0];
|
|
c_73447.elements[1] = ((closureN)self_73275)->elements[1];
|
|
c_73447.elements[2] = ((closureN)self_73275)->elements[2];
|
|
c_73447.elements[3] = ((closureN)self_73275)->elements[3];
|
|
c_73447.elements[4] = ((closureN)self_73275)->elements[4];
|
|
c_73447.elements[5] = ((closureN)self_73275)->elements[5];
|
|
c_73447.elements[6] = ((closureN)self_73275)->elements[6];
|
|
c_73447.elements[7] = ((closureN)self_73275)->elements[7];
|
|
c_73447.elements[8] = ((closureN)self_73275)->elements[8];
|
|
|
|
|
|
make_cell(c_73585,loop_7365_73129);
|
|
return_closcall1(data,(closure)&c_73447, &c_73585);;
|
|
}
|
|
|
|
static void __lambda_53(void *data, int argc, object self_73276, object loop_7365_73129) {
|
|
|
|
closureN_type c_73449;
|
|
c_73449.hdr.mark = gc_color_red;
|
|
c_73449.hdr.grayed = 0;
|
|
c_73449.tag = closureN_tag;
|
|
c_73449.fn = (function_type)__lambda_24;
|
|
c_73449.num_args = 1;
|
|
c_73449.num_elements = 2;
|
|
c_73449.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73449.elements[0] = ((closureN)self_73276)->elements[3];
|
|
c_73449.elements[1] = loop_7365_73129;
|
|
|
|
|
|
closureN_type c_73457;
|
|
c_73457.hdr.mark = gc_color_red;
|
|
c_73457.hdr.grayed = 0;
|
|
c_73457.tag = closureN_tag;
|
|
c_73457.fn = (function_type)__lambda_52;
|
|
c_73457.num_args = 2;
|
|
c_73457.num_elements = 9;
|
|
c_73457.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73457.elements[0] = ((closureN)self_73276)->elements[0];
|
|
c_73457.elements[1] = ((closureN)self_73276)->elements[1];
|
|
c_73457.elements[2] = ((closureN)self_73276)->elements[2];
|
|
c_73457.elements[3] = loop_7365_73129;
|
|
c_73457.elements[4] = ((closureN)self_73276)->elements[4];
|
|
c_73457.elements[5] = ((closureN)self_73276)->elements[5];
|
|
c_73457.elements[6] = ((closureN)self_73276)->elements[6];
|
|
c_73457.elements[7] = ((closureN)self_73276)->elements[7];
|
|
c_73457.elements[8] = ((closureN)self_73276)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_73449, Cyc_set_cell(data, loop_7365_73129, &c_73457));;
|
|
}
|
|
|
|
static void __lambda_52(void *data, int argc, object self_73277, object k_73199, object i_7366_73130, object result_7367_73131) {
|
|
object c_73460 = Cyc_num_fast_lt_op(data,i_7366_73130, ((closureN)self_73277)->elements[0]);
|
|
if( (boolean_f != c_73460) ){
|
|
|
|
closureN_type c_73464;
|
|
c_73464.hdr.mark = gc_color_red;
|
|
c_73464.hdr.grayed = 0;
|
|
c_73464.tag = closureN_tag;
|
|
c_73464.fn = (function_type)__lambda_25;
|
|
c_73464.num_args = 1;
|
|
c_73464.num_elements = 3;
|
|
c_73464.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73464.elements[0] = i_7366_73130;
|
|
c_73464.elements[1] = k_73199;
|
|
c_73464.elements[2] = ((closureN)self_73277)->elements[3];
|
|
|
|
return_closcall1(data, ((closureN)self_73277)->elements[8], &c_73464);
|
|
} else {
|
|
|
|
closureN_type c_73477;
|
|
c_73477.hdr.mark = gc_color_red;
|
|
c_73477.hdr.grayed = 0;
|
|
c_73477.tag = closureN_tag;
|
|
c_73477.fn = (function_type)__lambda_51;
|
|
c_73477.num_args = 1;
|
|
c_73477.num_elements = 7;
|
|
c_73477.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73477.elements[0] = ((closureN)self_73277)->elements[1];
|
|
c_73477.elements[1] = ((closureN)self_73277)->elements[2];
|
|
c_73477.elements[2] = k_73199;
|
|
c_73477.elements[3] = ((closureN)self_73277)->elements[4];
|
|
c_73477.elements[4] = result_7367_73131;
|
|
c_73477.elements[5] = ((closureN)self_73277)->elements[6];
|
|
c_73477.elements[6] = ((closureN)self_73277)->elements[7];
|
|
|
|
return_closcall2(data, ((closureN)self_73277)->elements[5], &c_73477, result_7367_73131);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_51(void *data, int argc, object self_73279, object r_73203) {
|
|
if( (boolean_f != r_73203) ){
|
|
|
|
closureN_type c_73479;
|
|
c_73479.hdr.mark = gc_color_red;
|
|
c_73479.hdr.grayed = 0;
|
|
c_73479.tag = closureN_tag;
|
|
c_73479.fn = (function_type)__lambda_45;
|
|
c_73479.num_args = 1;
|
|
c_73479.num_elements = 7;
|
|
c_73479.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73479.elements[0] = ((closureN)self_73279)->elements[0];
|
|
c_73479.elements[1] = ((closureN)self_73279)->elements[1];
|
|
c_73479.elements[2] = ((closureN)self_73279)->elements[2];
|
|
c_73479.elements[3] = ((closureN)self_73279)->elements[3];
|
|
c_73479.elements[4] = ((closureN)self_73279)->elements[4];
|
|
c_73479.elements[5] = ((closureN)self_73279)->elements[5];
|
|
c_73479.elements[6] = ((closureN)self_73279)->elements[6];
|
|
|
|
return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73479);
|
|
} else {
|
|
|
|
closureN_type c_73569;
|
|
c_73569.hdr.mark = gc_color_red;
|
|
c_73569.hdr.grayed = 0;
|
|
c_73569.tag = closureN_tag;
|
|
c_73569.fn = (function_type)__lambda_50;
|
|
c_73569.num_args = 1;
|
|
c_73569.num_elements = 2;
|
|
c_73569.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73569.elements[0] = ((closureN)self_73279)->elements[2];
|
|
c_73569.elements[1] = ((closureN)self_73279)->elements[4];
|
|
|
|
|
|
make_utf8_string_with_len(c_73582, "ERROR: returned incorrect result: ", 34, 34);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73569, &c_73582);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_50(void *data, int argc, object self_73300, object r_73228) {
|
|
|
|
closureN_type c_73571;
|
|
c_73571.hdr.mark = gc_color_red;
|
|
c_73571.hdr.grayed = 0;
|
|
c_73571.tag = closureN_tag;
|
|
c_73571.fn = (function_type)__lambda_49;
|
|
c_73571.num_args = 1;
|
|
c_73571.num_elements = 2;
|
|
c_73571.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73571.elements[0] = ((closureN)self_73300)->elements[0];
|
|
c_73571.elements[1] = ((closureN)self_73300)->elements[1];
|
|
|
|
return_closcall2(data, __glo_write_scheme_write, &c_73571, ((closureN)self_73300)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_49(void *data, int argc, object self_73301, object r_73229) {
|
|
|
|
closureN_type c_73573;
|
|
c_73573.hdr.mark = gc_color_red;
|
|
c_73573.hdr.grayed = 0;
|
|
c_73573.tag = closureN_tag;
|
|
c_73573.fn = (function_type)__lambda_48;
|
|
c_73573.num_args = 1;
|
|
c_73573.num_elements = 2;
|
|
c_73573.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73573.elements[0] = ((closureN)self_73301)->elements[0];
|
|
c_73573.elements[1] = ((closureN)self_73301)->elements[1];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73573);;
|
|
}
|
|
|
|
static void __lambda_48(void *data, int argc, object self_73302, object r_73230) {
|
|
|
|
closureN_type c_73575;
|
|
c_73575.hdr.mark = gc_color_red;
|
|
c_73575.hdr.grayed = 0;
|
|
c_73575.tag = closureN_tag;
|
|
c_73575.fn = (function_type)__lambda_47;
|
|
c_73575.num_args = 1;
|
|
c_73575.num_elements = 2;
|
|
c_73575.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73575.elements[0] = ((closureN)self_73302)->elements[0];
|
|
c_73575.elements[1] = ((closureN)self_73302)->elements[1];
|
|
|
|
return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73575);;
|
|
}
|
|
|
|
static void __lambda_47(void *data, int argc, object self_73303, object r_73232) {
|
|
|
|
closureN_type c_73577;
|
|
c_73577.hdr.mark = gc_color_red;
|
|
c_73577.hdr.grayed = 0;
|
|
c_73577.tag = closureN_tag;
|
|
c_73577.fn = (function_type)__lambda_46;
|
|
c_73577.num_args = 1;
|
|
c_73577.num_elements = 2;
|
|
c_73577.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73577.elements[0] = ((closureN)self_73303)->elements[0];
|
|
c_73577.elements[1] = ((closureN)self_73303)->elements[1];
|
|
|
|
return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73577, r_73232);;
|
|
}
|
|
|
|
static void __lambda_46(void *data, int argc, object self_73304, object r_73231) {
|
|
return_closcall1(data, ((closureN)self_73304)->elements[0], ((closureN)self_73304)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_45(void *data, int argc, object self_73280, object j1_7376_73132) {
|
|
|
|
closureN_type c_73481;
|
|
c_73481.hdr.mark = gc_color_red;
|
|
c_73481.hdr.grayed = 0;
|
|
c_73481.tag = closureN_tag;
|
|
c_73481.fn = (function_type)__lambda_44;
|
|
c_73481.num_args = 1;
|
|
c_73481.num_elements = 8;
|
|
c_73481.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73481.elements[0] = ((closureN)self_73280)->elements[0];
|
|
c_73481.elements[1] = ((closureN)self_73280)->elements[1];
|
|
c_73481.elements[2] = j1_7376_73132;
|
|
c_73481.elements[3] = ((closureN)self_73280)->elements[2];
|
|
c_73481.elements[4] = ((closureN)self_73280)->elements[3];
|
|
c_73481.elements[5] = ((closureN)self_73280)->elements[4];
|
|
c_73481.elements[6] = ((closureN)self_73280)->elements[5];
|
|
c_73481.elements[7] = ((closureN)self_73280)->elements[6];
|
|
|
|
return_closcall1(data, __glo_current_91second_scheme_time, &c_73481);;
|
|
}
|
|
|
|
static void __lambda_44(void *data, int argc, object self_73281, object t1_7379_73133) {
|
|
|
|
closureN_type c_73486;
|
|
c_73486.hdr.mark = gc_color_red;
|
|
c_73486.hdr.grayed = 0;
|
|
c_73486.tag = closureN_tag;
|
|
c_73486.fn = (function_type)__lambda_43;
|
|
c_73486.num_args = 1;
|
|
c_73486.num_elements = 6;
|
|
c_73486.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73486.elements[0] = ((closureN)self_73281)->elements[0];
|
|
c_73486.elements[1] = ((closureN)self_73281)->elements[1];
|
|
c_73486.elements[2] = ((closureN)self_73281)->elements[2];
|
|
c_73486.elements[3] = ((closureN)self_73281)->elements[3];
|
|
c_73486.elements[4] = ((closureN)self_73281)->elements[4];
|
|
c_73486.elements[5] = ((closureN)self_73281)->elements[5];
|
|
|
|
|
|
complex_num_type local_73565; object c_73566 = Cyc_fast_sub(data,&local_73565,t1_7379_73133, ((closureN)self_73281)->elements[7]);
|
|
return_closcall2(data, car(((closureN)self_73281)->elements[6]), &c_73486, c_73566);;
|
|
}
|
|
|
|
static void __lambda_43(void *data, int argc, object self_73282, object secs2_7388_73136) {
|
|
|
|
closureN_type c_73488;
|
|
c_73488.hdr.mark = gc_color_red;
|
|
c_73488.hdr.grayed = 0;
|
|
c_73488.tag = closureN_tag;
|
|
c_73488.fn = (function_type)__lambda_42;
|
|
c_73488.num_args = 1;
|
|
c_73488.num_elements = 7;
|
|
c_73488.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73488.elements[0] = ((closureN)self_73282)->elements[0];
|
|
c_73488.elements[1] = ((closureN)self_73282)->elements[1];
|
|
c_73488.elements[2] = ((closureN)self_73282)->elements[2];
|
|
c_73488.elements[3] = ((closureN)self_73282)->elements[3];
|
|
c_73488.elements[4] = ((closureN)self_73282)->elements[4];
|
|
c_73488.elements[5] = ((closureN)self_73282)->elements[5];
|
|
c_73488.elements[6] = secs2_7388_73136;
|
|
|
|
|
|
make_utf8_string_with_len(c_73562, "Elapsed time: ", 14, 14);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73488, &c_73562);;
|
|
}
|
|
|
|
static void __lambda_42(void *data, int argc, object self_73283, object r_73210) {
|
|
|
|
closureN_type c_73490;
|
|
c_73490.hdr.mark = gc_color_red;
|
|
c_73490.hdr.grayed = 0;
|
|
c_73490.tag = closureN_tag;
|
|
c_73490.fn = (function_type)__lambda_41;
|
|
c_73490.num_args = 1;
|
|
c_73490.num_elements = 7;
|
|
c_73490.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73490.elements[0] = ((closureN)self_73283)->elements[0];
|
|
c_73490.elements[1] = ((closureN)self_73283)->elements[1];
|
|
c_73490.elements[2] = ((closureN)self_73283)->elements[2];
|
|
c_73490.elements[3] = ((closureN)self_73283)->elements[3];
|
|
c_73490.elements[4] = ((closureN)self_73283)->elements[4];
|
|
c_73490.elements[5] = ((closureN)self_73283)->elements[5];
|
|
c_73490.elements[6] = ((closureN)self_73283)->elements[6];
|
|
|
|
|
|
complex_num_type local_73557; object c_73558 = Cyc_fast_sub(data,&local_73557,((closureN)self_73283)->elements[2], ((closureN)self_73283)->elements[1]);
|
|
|
|
complex_num_type local_73553; object c_73554 = Cyc_fast_div(data,&local_73553,c_73558, ((closureN)self_73283)->elements[0]);
|
|
|
|
complex_num_type local_73549; object c_73550 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73549,c_73554);
|
|
return_closcall2(data, __glo_write_scheme_write, &c_73490, c_73550);;
|
|
}
|
|
|
|
static void __lambda_41(void *data, int argc, object self_73284, object r_73211) {
|
|
|
|
closureN_type c_73492;
|
|
c_73492.hdr.mark = gc_color_red;
|
|
c_73492.hdr.grayed = 0;
|
|
c_73492.tag = closureN_tag;
|
|
c_73492.fn = (function_type)__lambda_40;
|
|
c_73492.num_args = 1;
|
|
c_73492.num_elements = 7;
|
|
c_73492.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73492.elements[0] = ((closureN)self_73284)->elements[0];
|
|
c_73492.elements[1] = ((closureN)self_73284)->elements[1];
|
|
c_73492.elements[2] = ((closureN)self_73284)->elements[2];
|
|
c_73492.elements[3] = ((closureN)self_73284)->elements[3];
|
|
c_73492.elements[4] = ((closureN)self_73284)->elements[4];
|
|
c_73492.elements[5] = ((closureN)self_73284)->elements[5];
|
|
c_73492.elements[6] = ((closureN)self_73284)->elements[6];
|
|
|
|
|
|
make_utf8_string_with_len(c_73546, " seconds (", 10, 10);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73492, &c_73546);;
|
|
}
|
|
|
|
static void __lambda_40(void *data, int argc, object self_73285, object r_73212) {
|
|
|
|
closureN_type c_73494;
|
|
c_73494.hdr.mark = gc_color_red;
|
|
c_73494.hdr.grayed = 0;
|
|
c_73494.tag = closureN_tag;
|
|
c_73494.fn = (function_type)__lambda_39;
|
|
c_73494.num_args = 1;
|
|
c_73494.num_elements = 6;
|
|
c_73494.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73494.elements[0] = ((closureN)self_73285)->elements[0];
|
|
c_73494.elements[1] = ((closureN)self_73285)->elements[1];
|
|
c_73494.elements[2] = ((closureN)self_73285)->elements[2];
|
|
c_73494.elements[3] = ((closureN)self_73285)->elements[3];
|
|
c_73494.elements[4] = ((closureN)self_73285)->elements[4];
|
|
c_73494.elements[5] = ((closureN)self_73285)->elements[5];
|
|
|
|
return_closcall2(data, __glo_write_scheme_write, &c_73494, ((closureN)self_73285)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_39(void *data, int argc, object self_73286, object r_73213) {
|
|
|
|
closureN_type c_73496;
|
|
c_73496.hdr.mark = gc_color_red;
|
|
c_73496.hdr.grayed = 0;
|
|
c_73496.tag = closureN_tag;
|
|
c_73496.fn = (function_type)__lambda_38;
|
|
c_73496.num_args = 1;
|
|
c_73496.num_elements = 6;
|
|
c_73496.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73496.elements[0] = ((closureN)self_73286)->elements[0];
|
|
c_73496.elements[1] = ((closureN)self_73286)->elements[1];
|
|
c_73496.elements[2] = ((closureN)self_73286)->elements[2];
|
|
c_73496.elements[3] = ((closureN)self_73286)->elements[3];
|
|
c_73496.elements[4] = ((closureN)self_73286)->elements[4];
|
|
c_73496.elements[5] = ((closureN)self_73286)->elements[5];
|
|
|
|
|
|
make_utf8_string_with_len(c_73544, ") for ", 6, 6);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73496, &c_73544);;
|
|
}
|
|
|
|
static void __lambda_38(void *data, int argc, object self_73287, object r_73214) {
|
|
|
|
closureN_type c_73498;
|
|
c_73498.hdr.mark = gc_color_red;
|
|
c_73498.hdr.grayed = 0;
|
|
c_73498.tag = closureN_tag;
|
|
c_73498.fn = (function_type)__lambda_37;
|
|
c_73498.num_args = 1;
|
|
c_73498.num_elements = 6;
|
|
c_73498.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73498.elements[0] = ((closureN)self_73287)->elements[0];
|
|
c_73498.elements[1] = ((closureN)self_73287)->elements[1];
|
|
c_73498.elements[2] = ((closureN)self_73287)->elements[2];
|
|
c_73498.elements[3] = ((closureN)self_73287)->elements[3];
|
|
c_73498.elements[4] = ((closureN)self_73287)->elements[4];
|
|
c_73498.elements[5] = ((closureN)self_73287)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73498, ((closureN)self_73287)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_37(void *data, int argc, object self_73288, object r_73215) {
|
|
|
|
closureN_type c_73500;
|
|
c_73500.hdr.mark = gc_color_red;
|
|
c_73500.hdr.grayed = 0;
|
|
c_73500.tag = closureN_tag;
|
|
c_73500.fn = (function_type)__lambda_36;
|
|
c_73500.num_args = 1;
|
|
c_73500.num_elements = 6;
|
|
c_73500.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73500.elements[0] = ((closureN)self_73288)->elements[0];
|
|
c_73500.elements[1] = ((closureN)self_73288)->elements[1];
|
|
c_73500.elements[2] = ((closureN)self_73288)->elements[2];
|
|
c_73500.elements[3] = ((closureN)self_73288)->elements[3];
|
|
c_73500.elements[4] = ((closureN)self_73288)->elements[4];
|
|
c_73500.elements[5] = ((closureN)self_73288)->elements[5];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73500);;
|
|
}
|
|
|
|
static void __lambda_36(void *data, int argc, object self_73289, object r_73216) {
|
|
|
|
closureN_type c_73502;
|
|
c_73502.hdr.mark = gc_color_red;
|
|
c_73502.hdr.grayed = 0;
|
|
c_73502.tag = closureN_tag;
|
|
c_73502.fn = (function_type)__lambda_35;
|
|
c_73502.num_args = 1;
|
|
c_73502.num_elements = 6;
|
|
c_73502.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73502.elements[0] = ((closureN)self_73289)->elements[0];
|
|
c_73502.elements[1] = ((closureN)self_73289)->elements[1];
|
|
c_73502.elements[2] = ((closureN)self_73289)->elements[2];
|
|
c_73502.elements[3] = ((closureN)self_73289)->elements[3];
|
|
c_73502.elements[4] = ((closureN)self_73289)->elements[4];
|
|
c_73502.elements[5] = ((closureN)self_73289)->elements[5];
|
|
|
|
|
|
make_utf8_string_with_len(c_73542, "+!CSVLINE!+", 11, 11);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73502, &c_73542);;
|
|
}
|
|
|
|
static void __lambda_35(void *data, int argc, object self_73290, object r_73217) {
|
|
|
|
closureN_type c_73504;
|
|
c_73504.hdr.mark = gc_color_red;
|
|
c_73504.hdr.grayed = 0;
|
|
c_73504.tag = closureN_tag;
|
|
c_73504.fn = (function_type)__lambda_34;
|
|
c_73504.num_args = 1;
|
|
c_73504.num_elements = 6;
|
|
c_73504.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73504.elements[0] = ((closureN)self_73290)->elements[0];
|
|
c_73504.elements[1] = ((closureN)self_73290)->elements[1];
|
|
c_73504.elements[2] = ((closureN)self_73290)->elements[2];
|
|
c_73504.elements[3] = ((closureN)self_73290)->elements[3];
|
|
c_73504.elements[4] = ((closureN)self_73290)->elements[4];
|
|
c_73504.elements[5] = ((closureN)self_73290)->elements[5];
|
|
|
|
return_closcall1(data, __glo_this_91scheme_91implementation_91name, &c_73504);;
|
|
}
|
|
|
|
static void __lambda_34(void *data, int argc, object self_73291, object r_73225) {
|
|
|
|
closureN_type c_73506;
|
|
c_73506.hdr.mark = gc_color_red;
|
|
c_73506.hdr.grayed = 0;
|
|
c_73506.tag = closureN_tag;
|
|
c_73506.fn = (function_type)__lambda_33;
|
|
c_73506.num_args = 1;
|
|
c_73506.num_elements = 6;
|
|
c_73506.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73506.elements[0] = ((closureN)self_73291)->elements[0];
|
|
c_73506.elements[1] = ((closureN)self_73291)->elements[1];
|
|
c_73506.elements[2] = ((closureN)self_73291)->elements[2];
|
|
c_73506.elements[3] = ((closureN)self_73291)->elements[3];
|
|
c_73506.elements[4] = ((closureN)self_73291)->elements[4];
|
|
c_73506.elements[5] = ((closureN)self_73291)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73506, r_73225);;
|
|
}
|
|
|
|
static void __lambda_33(void *data, int argc, object self_73292, object r_73218) {
|
|
|
|
closureN_type c_73508;
|
|
c_73508.hdr.mark = gc_color_red;
|
|
c_73508.hdr.grayed = 0;
|
|
c_73508.tag = closureN_tag;
|
|
c_73508.fn = (function_type)__lambda_32;
|
|
c_73508.num_args = 1;
|
|
c_73508.num_elements = 6;
|
|
c_73508.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73508.elements[0] = ((closureN)self_73292)->elements[0];
|
|
c_73508.elements[1] = ((closureN)self_73292)->elements[1];
|
|
c_73508.elements[2] = ((closureN)self_73292)->elements[2];
|
|
c_73508.elements[3] = ((closureN)self_73292)->elements[3];
|
|
c_73508.elements[4] = ((closureN)self_73292)->elements[4];
|
|
c_73508.elements[5] = ((closureN)self_73292)->elements[5];
|
|
|
|
|
|
make_utf8_string_with_len(c_73541, ",", 1, 1);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73508, &c_73541);;
|
|
}
|
|
|
|
static void __lambda_32(void *data, int argc, object self_73293, object r_73219) {
|
|
|
|
closureN_type c_73510;
|
|
c_73510.hdr.mark = gc_color_red;
|
|
c_73510.hdr.grayed = 0;
|
|
c_73510.tag = closureN_tag;
|
|
c_73510.fn = (function_type)__lambda_31;
|
|
c_73510.num_args = 1;
|
|
c_73510.num_elements = 5;
|
|
c_73510.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73510.elements[0] = ((closureN)self_73293)->elements[0];
|
|
c_73510.elements[1] = ((closureN)self_73293)->elements[1];
|
|
c_73510.elements[2] = ((closureN)self_73293)->elements[2];
|
|
c_73510.elements[3] = ((closureN)self_73293)->elements[3];
|
|
c_73510.elements[4] = ((closureN)self_73293)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73510, ((closureN)self_73293)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_31(void *data, int argc, object self_73294, object r_73220) {
|
|
|
|
closureN_type c_73512;
|
|
c_73512.hdr.mark = gc_color_red;
|
|
c_73512.hdr.grayed = 0;
|
|
c_73512.tag = closureN_tag;
|
|
c_73512.fn = (function_type)__lambda_30;
|
|
c_73512.num_args = 1;
|
|
c_73512.num_elements = 5;
|
|
c_73512.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73512.elements[0] = ((closureN)self_73294)->elements[0];
|
|
c_73512.elements[1] = ((closureN)self_73294)->elements[1];
|
|
c_73512.elements[2] = ((closureN)self_73294)->elements[2];
|
|
c_73512.elements[3] = ((closureN)self_73294)->elements[3];
|
|
c_73512.elements[4] = ((closureN)self_73294)->elements[4];
|
|
|
|
|
|
make_utf8_string_with_len(c_73539, ",", 1, 1);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73512, &c_73539);;
|
|
}
|
|
|
|
static void __lambda_30(void *data, int argc, object self_73295, object r_73221) {
|
|
|
|
closureN_type c_73514;
|
|
c_73514.hdr.mark = gc_color_red;
|
|
c_73514.hdr.grayed = 0;
|
|
c_73514.tag = closureN_tag;
|
|
c_73514.fn = (function_type)__lambda_29;
|
|
c_73514.num_args = 1;
|
|
c_73514.num_elements = 2;
|
|
c_73514.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73514.elements[0] = ((closureN)self_73295)->elements[3];
|
|
c_73514.elements[1] = ((closureN)self_73295)->elements[4];
|
|
|
|
|
|
complex_num_type local_73534; object c_73535 = Cyc_fast_sub(data,&local_73534,((closureN)self_73295)->elements[2], ((closureN)self_73295)->elements[1]);
|
|
|
|
complex_num_type local_73530; object c_73531 = Cyc_fast_div(data,&local_73530,c_73535, ((closureN)self_73295)->elements[0]);
|
|
|
|
complex_num_type local_73526; object c_73527 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73526,c_73531);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73514, c_73527);;
|
|
}
|
|
|
|
static void __lambda_29(void *data, int argc, object self_73296, object r_73222) {
|
|
|
|
closureN_type c_73516;
|
|
c_73516.hdr.mark = gc_color_red;
|
|
c_73516.hdr.grayed = 0;
|
|
c_73516.tag = closureN_tag;
|
|
c_73516.fn = (function_type)__lambda_28;
|
|
c_73516.num_args = 1;
|
|
c_73516.num_elements = 2;
|
|
c_73516.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73516.elements[0] = ((closureN)self_73296)->elements[0];
|
|
c_73516.elements[1] = ((closureN)self_73296)->elements[1];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73516);;
|
|
}
|
|
|
|
static void __lambda_28(void *data, int argc, object self_73297, object r_73223) {
|
|
|
|
closureN_type c_73518;
|
|
c_73518.hdr.mark = gc_color_red;
|
|
c_73518.hdr.grayed = 0;
|
|
c_73518.tag = closureN_tag;
|
|
c_73518.fn = (function_type)__lambda_27;
|
|
c_73518.num_args = 1;
|
|
c_73518.num_elements = 2;
|
|
c_73518.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73518.elements[0] = ((closureN)self_73297)->elements[0];
|
|
c_73518.elements[1] = ((closureN)self_73297)->elements[1];
|
|
|
|
return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73518);;
|
|
}
|
|
|
|
static void __lambda_27(void *data, int argc, object self_73298, object r_73224) {
|
|
|
|
closureN_type c_73520;
|
|
c_73520.hdr.mark = gc_color_red;
|
|
c_73520.hdr.grayed = 0;
|
|
c_73520.tag = closureN_tag;
|
|
c_73520.fn = (function_type)__lambda_26;
|
|
c_73520.num_args = 1;
|
|
c_73520.num_elements = 2;
|
|
c_73520.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73520.elements[0] = ((closureN)self_73298)->elements[0];
|
|
c_73520.elements[1] = ((closureN)self_73298)->elements[1];
|
|
|
|
return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73520, r_73224);;
|
|
}
|
|
|
|
static void __lambda_26(void *data, int argc, object self_73299, object r_73204) {
|
|
return_closcall1(data, ((closureN)self_73299)->elements[0], ((closureN)self_73299)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_25(void *data, int argc, object self_73278, object r_73202) {
|
|
|
|
complex_num_type local_73472; object c_73473 = Cyc_fast_sum(data,&local_73472,((closureN)self_73278)->elements[0], obj_int2obj(1));
|
|
return_closcall3(data, car(((closureN)self_73278)->elements[2]), ((closureN)self_73278)->elements[1], c_73473, r_73202);;
|
|
}
|
|
|
|
static void __lambda_24(void *data, int argc, object self_73305, object r_73197) {
|
|
return_closcall3(data, car(((closureN)self_73305)->elements[1]), ((closureN)self_73305)->elements[0], obj_int2obj(0), boolean_f);;
|
|
}
|
|
|
|
static void __lambda_23(void *data, int argc, closure _,object k_73174, object r_7342_73111, object x_7343_73112) {
|
|
Cyc_st_add(data, "diviter.scm:hide");
|
|
|
|
closureN_type c_73399;
|
|
c_73399.hdr.mark = gc_color_red;
|
|
c_73399.hdr.grayed = 0;
|
|
c_73399.tag = closureN_tag;
|
|
c_73399.fn = (function_type)__lambda_21;
|
|
c_73399.num_args = 0;
|
|
c_73399.num_elements = 1;
|
|
c_73399.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73399.elements[0] = r_7342_73111;
|
|
|
|
|
|
closureN_type c_73416;
|
|
c_73416.hdr.mark = gc_color_red;
|
|
c_73416.hdr.grayed = 0;
|
|
c_73416.tag = closureN_tag;
|
|
c_73416.fn = (function_type)__lambda_22;
|
|
c_73416.num_args = 2;
|
|
c_73416.num_elements = 1;
|
|
c_73416.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73416.elements[0] = x_7343_73112;
|
|
|
|
return_closcall3(data, __glo_call_91with_91values_scheme_base, k_73174, &c_73399, &c_73416);;
|
|
}
|
|
|
|
static void __lambda_22(void *data, int argc, object self_73262, object k_73177, object v_7345_73114, object i_7346_73115) {
|
|
return_closcall2(data, Cyc_vector_ref(data, v_7345_73114, i_7346_73115), k_73177, ((closureN)self_73262)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_21(void *data, int argc, object self_73257, object k_73179) {
|
|
|
|
closureN_type c_73401;
|
|
c_73401.hdr.mark = gc_color_red;
|
|
c_73401.hdr.grayed = 0;
|
|
c_73401.tag = closureN_tag;
|
|
c_73401.fn = (function_type)__lambda_19;
|
|
c_73401.num_args = 1;
|
|
c_73401.num_elements = 2;
|
|
c_73401.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73401.elements[0] = k_73179;
|
|
c_73401.elements[1] = ((closureN)self_73257)->elements[0];
|
|
|
|
|
|
mclosure0(c_73414, (function_type)__lambda_20);c_73414.num_args = 1;
|
|
return_closcall3(data, __glo_vector_scheme_base, &c_73401, __glo_values_scheme_base, &c_73414);;
|
|
}
|
|
|
|
static void __lambda_20(void *data, int argc, object self_73261, object k_73185, object x_7344_73113) {
|
|
return_closcall1(data, k_73185, x_7344_73113);;
|
|
}
|
|
|
|
static void __lambda_19(void *data, int argc, object self_73258, object r_73180) {
|
|
|
|
closureN_type c_73403;
|
|
c_73403.hdr.mark = gc_color_red;
|
|
c_73403.hdr.grayed = 0;
|
|
c_73403.tag = closureN_tag;
|
|
c_73403.fn = (function_type)__lambda_17;
|
|
c_73403.num_args = 0;
|
|
c_73403.num_elements = 1;
|
|
c_73403.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73403.elements[0] = ((closureN)self_73258)->elements[1];
|
|
|
|
|
|
closureN_type c_73410;
|
|
c_73410.hdr.mark = gc_color_red;
|
|
c_73410.hdr.grayed = 0;
|
|
c_73410.tag = closureN_tag;
|
|
c_73410.fn = (function_type)__lambda_18;
|
|
c_73410.num_args = 1;
|
|
c_73410.num_elements = 2;
|
|
c_73410.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73410.elements[0] = ((closureN)self_73258)->elements[0];
|
|
c_73410.elements[1] = r_73180;
|
|
|
|
return_closcall1(data,(closure)&c_73403, &c_73410);;
|
|
}
|
|
|
|
static void __lambda_18(void *data, int argc, object self_73259, object r_73181) {
|
|
return_closcall3(data, __glo_values_scheme_base, ((closureN)self_73259)->elements[0], ((closureN)self_73259)->elements[1], r_73181);;
|
|
}
|
|
|
|
static void __lambda_17(void *data, int argc, object self_73260, object k_73182) {
|
|
object c_73406 = Cyc_num_fast_lt_op(data,((closureN)self_73260)->elements[0], obj_int2obj(100));
|
|
if( (boolean_f != c_73406) ){
|
|
return_closcall1(data, k_73182, obj_int2obj(0));
|
|
} else {
|
|
return_closcall1(data, k_73182, obj_int2obj(1));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_16(void *data, int argc, closure _,object k_73161) {
|
|
Cyc_st_add(data, "diviter.scm:main");
|
|
|
|
closureN_type c_73382;
|
|
c_73382.hdr.mark = gc_color_red;
|
|
c_73382.hdr.grayed = 0;
|
|
c_73382.tag = closureN_tag;
|
|
c_73382.fn = (function_type)__lambda_15;
|
|
c_73382.num_args = 1;
|
|
c_73382.num_elements = 1;
|
|
c_73382.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73382.elements[0] = k_73161;
|
|
|
|
return_closcall3(data, __glo_hide, &c_73382, obj_int2obj(1000000), obj_int2obj(1000));;
|
|
}
|
|
|
|
static void __lambda_15(void *data, int argc, object self_73253, object r_73171) {
|
|
|
|
closureN_type c_73384;
|
|
c_73384.hdr.mark = gc_color_red;
|
|
c_73384.hdr.grayed = 0;
|
|
c_73384.tag = closureN_tag;
|
|
c_73384.fn = (function_type)__lambda_14;
|
|
c_73384.num_args = 1;
|
|
c_73384.num_elements = 1;
|
|
c_73384.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73384.elements[0] = ((closureN)self_73253)->elements[0];
|
|
|
|
return_closcall2(data, __glo_create_91n, &c_73384, r_73171);;
|
|
}
|
|
|
|
static void __lambda_14(void *data, int argc, object self_73254, object ll_7336_73108) {
|
|
|
|
make_utf8_string_with_len(c_73387, "diviter:1000:1000000", 20, 20);
|
|
|
|
closureN_type c_73388;
|
|
c_73388.hdr.mark = gc_color_red;
|
|
c_73388.hdr.grayed = 0;
|
|
c_73388.tag = closureN_tag;
|
|
c_73388.fn = (function_type)__lambda_12;
|
|
c_73388.num_args = 0;
|
|
c_73388.num_elements = 1;
|
|
c_73388.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73388.elements[0] = ll_7336_73108;
|
|
|
|
|
|
mclosure0(c_73391, (function_type)__lambda_13);c_73391.num_args = 1;
|
|
return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_73254)->elements[0], &c_73387, obj_int2obj(1000000), &c_73388, &c_73391);;
|
|
}
|
|
|
|
static void __lambda_13(void *data, int argc, object self_73256, object k_73168, object result_7341_73110) {
|
|
return_closcall1(data, k_73168, equalp(Cyc_length(data, result_7341_73110), obj_int2obj(500)));;
|
|
}
|
|
|
|
static void __lambda_12(void *data, int argc, object self_73255, object k_73170) {
|
|
return_closcall2(data, __glo_iterative_91div2, k_73170, ((closureN)self_73255)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_11(void *data, int argc, closure _,object k_73150, object l_7310_7397) {
|
|
Cyc_st_add(data, "diviter.scm:iterative-div2");
|
|
|
|
closureN_type c_73346;
|
|
c_73346.hdr.mark = gc_color_red;
|
|
c_73346.hdr.grayed = 0;
|
|
c_73346.tag = closureN_tag;
|
|
c_73346.fn = (function_type)__lambda_10;
|
|
c_73346.num_args = 2;
|
|
c_73346.num_elements = 1;
|
|
c_73346.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73346.elements[0] = k_73150;
|
|
|
|
return_closcall2(data,(closure)&c_73346, l_7310_7397, NULL);;
|
|
}
|
|
|
|
static void __lambda_10(void *data, int argc, object self_73248, object l_7314_7398, object a_7315_7399) {
|
|
|
|
closureN_type c_73348;
|
|
c_73348.hdr.mark = gc_color_red;
|
|
c_73348.hdr.grayed = 0;
|
|
c_73348.tag = closureN_tag;
|
|
c_73348.fn = (function_type)__lambda_9;
|
|
c_73348.num_args = 1;
|
|
c_73348.num_elements = 3;
|
|
c_73348.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73348.elements[0] = a_7315_7399;
|
|
c_73348.elements[1] = ((closureN)self_73248)->elements[0];
|
|
c_73348.elements[2] = l_7314_7398;
|
|
|
|
return_closcall1(data,(closure)&c_73348, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_9(void *data, int argc, object self_73249, object lp_7311_7316_73100) {
|
|
|
|
closureN_type c_73350;
|
|
c_73350.hdr.mark = gc_color_red;
|
|
c_73350.hdr.grayed = 0;
|
|
c_73350.tag = closureN_tag;
|
|
c_73350.fn = (function_type)__lambda_8;
|
|
c_73350.num_args = 1;
|
|
c_73350.num_elements = 3;
|
|
c_73350.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73350.elements[0] = ((closureN)self_73249)->elements[0];
|
|
c_73350.elements[1] = ((closureN)self_73249)->elements[1];
|
|
c_73350.elements[2] = ((closureN)self_73249)->elements[2];
|
|
|
|
|
|
make_cell(c_73379,lp_7311_7316_73100);
|
|
return_closcall1(data,(closure)&c_73350, &c_73379);;
|
|
}
|
|
|
|
static void __lambda_8(void *data, int argc, object self_73250, object lp_7311_7316_73100) {
|
|
|
|
closureN_type c_73352;
|
|
c_73352.hdr.mark = gc_color_red;
|
|
c_73352.hdr.grayed = 0;
|
|
c_73352.tag = closureN_tag;
|
|
c_73352.fn = (function_type)__lambda_6;
|
|
c_73352.num_args = 1;
|
|
c_73352.num_elements = 4;
|
|
c_73352.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73352.elements[0] = ((closureN)self_73250)->elements[0];
|
|
c_73352.elements[1] = ((closureN)self_73250)->elements[1];
|
|
c_73352.elements[2] = ((closureN)self_73250)->elements[2];
|
|
c_73352.elements[3] = lp_7311_7316_73100;
|
|
|
|
|
|
closureN_type c_73362;
|
|
c_73362.hdr.mark = gc_color_red;
|
|
c_73362.hdr.grayed = 0;
|
|
c_73362.tag = closureN_tag;
|
|
c_73362.fn = (function_type)__lambda_7;
|
|
c_73362.num_args = 2;
|
|
c_73362.num_elements = 1;
|
|
c_73362.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73362.elements[0] = lp_7311_7316_73100;
|
|
|
|
return_closcall1(data,(closure)&c_73352, Cyc_set_cell(data, lp_7311_7316_73100, &c_73362));;
|
|
}
|
|
|
|
static void __lambda_7(void *data, int argc, object self_73251, object k_73154, object l_7317_73101_arg, object a_7318_73102_arg) {
|
|
object l_7317_73101 , a_7318_73102;
|
|
l_7317_73101 = l_7317_73101_arg;
|
|
a_7318_73102 = a_7318_73102_arg;
|
|
loop: {
|
|
if( (boolean_f != Cyc_is_null(l_7317_73101)) ){
|
|
return_closcall1(data, k_73154, a_7318_73102);
|
|
} else {
|
|
pair_type *c_73374 = alloca(sizeof(pair_type));
|
|
set_pair(c_73374,Cyc_car(data, l_7317_73101), a_7318_73102);
|
|
l_7317_73101 = Cyc_cddr(data, l_7317_73101);
|
|
a_7318_73102 = c_73374;
|
|
//return_closcall3(data, car(((closureN)self_73251)->elements[0]), k_73154, Cyc_cddr(data, l_7317_73101), c_73374);}
|
|
goto loop;
|
|
;
|
|
}}}
|
|
|
|
static void __lambda_6(void *data, int argc, object self_73252, object r_73152) {
|
|
return_closcall3(data, car(((closureN)self_73252)->elements[3]), ((closureN)self_73252)->elements[1], ((closureN)self_73252)->elements[2], ((closureN)self_73252)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_5(void *data, int argc, closure _,object k_73139, object n_731_7391) {
|
|
Cyc_st_add(data, "diviter.scm:create-n");
|
|
|
|
closureN_type c_73309;
|
|
c_73309.hdr.mark = gc_color_red;
|
|
c_73309.hdr.grayed = 0;
|
|
c_73309.tag = closureN_tag;
|
|
c_73309.fn = (function_type)__lambda_4;
|
|
c_73309.num_args = 2;
|
|
c_73309.num_elements = 1;
|
|
c_73309.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73309.elements[0] = k_73139;
|
|
|
|
return_closcall2(data,(closure)&c_73309, n_731_7391, NULL);;
|
|
}
|
|
|
|
static void __lambda_4(void *data, int argc, object self_73243, object n_735_7392, object a_736_7393) {
|
|
|
|
closureN_type c_73311;
|
|
c_73311.hdr.mark = gc_color_red;
|
|
c_73311.hdr.grayed = 0;
|
|
c_73311.tag = closureN_tag;
|
|
c_73311.fn = (function_type)__lambda_3;
|
|
c_73311.num_args = 1;
|
|
c_73311.num_elements = 3;
|
|
c_73311.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73311.elements[0] = a_736_7393;
|
|
c_73311.elements[1] = ((closureN)self_73243)->elements[0];
|
|
c_73311.elements[2] = n_735_7392;
|
|
|
|
return_closcall1(data,(closure)&c_73311, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_3(void *data, int argc, object self_73244, object lp_732_737_7394) {
|
|
|
|
closureN_type c_73313;
|
|
c_73313.hdr.mark = gc_color_red;
|
|
c_73313.hdr.grayed = 0;
|
|
c_73313.tag = closureN_tag;
|
|
c_73313.fn = (function_type)__lambda_2;
|
|
c_73313.num_args = 1;
|
|
c_73313.num_elements = 3;
|
|
c_73313.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73313.elements[0] = ((closureN)self_73244)->elements[0];
|
|
c_73313.elements[1] = ((closureN)self_73244)->elements[1];
|
|
c_73313.elements[2] = ((closureN)self_73244)->elements[2];
|
|
|
|
|
|
make_cell(c_73343,lp_732_737_7394);
|
|
return_closcall1(data,(closure)&c_73313, &c_73343);;
|
|
}
|
|
|
|
static void __lambda_2(void *data, int argc, object self_73245, object lp_732_737_7394) {
|
|
|
|
closureN_type c_73315;
|
|
c_73315.hdr.mark = gc_color_red;
|
|
c_73315.hdr.grayed = 0;
|
|
c_73315.tag = closureN_tag;
|
|
c_73315.fn = (function_type)__lambda_0;
|
|
c_73315.num_args = 1;
|
|
c_73315.num_elements = 4;
|
|
c_73315.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73315.elements[0] = ((closureN)self_73245)->elements[0];
|
|
c_73315.elements[1] = ((closureN)self_73245)->elements[1];
|
|
c_73315.elements[2] = lp_732_737_7394;
|
|
c_73315.elements[3] = ((closureN)self_73245)->elements[2];
|
|
|
|
|
|
closureN_type c_73325;
|
|
c_73325.hdr.mark = gc_color_red;
|
|
c_73325.hdr.grayed = 0;
|
|
c_73325.tag = closureN_tag;
|
|
c_73325.fn = (function_type)__lambda_1;
|
|
c_73325.num_args = 2;
|
|
c_73325.num_elements = 1;
|
|
c_73325.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73325.elements[0] = lp_732_737_7394;
|
|
|
|
return_closcall1(data,(closure)&c_73315, Cyc_set_cell(data, lp_732_737_7394, &c_73325));;
|
|
}
|
|
|
|
static void __lambda_1(void *data, int argc, object self_73246, object k_73143, object n_738_7395_arg, object a_739_7396_arg) {
|
|
object n_738_7395, a_739_7396;
|
|
n_738_7395 = n_738_7395_arg;
|
|
a_739_7396 = a_739_7396_arg;
|
|
loop: {
|
|
object c_73328 = Cyc_num_fast_eq_op(data,n_738_7395, obj_int2obj(0));
|
|
if( (boolean_f != c_73328) ){
|
|
return_closcall1(data, k_73143, a_739_7396);
|
|
} else {
|
|
|
|
complex_num_type *local_73336 = alloca(sizeof(complex_num_type));
|
|
object c_73337 = Cyc_fast_sub(data,local_73336,n_738_7395, obj_int2obj(1));
|
|
pair_type *c_73340 = alloca(sizeof(pair_type));
|
|
// TODO: check if stack is full!
|
|
set_pair(c_73340, NULL, a_739_7396);
|
|
//return_closcall3(data, car(((closureN)self_73246)->elements[0]), k_73143, c_73337, c_73340);
|
|
n_738_7395 = c_73337;
|
|
a_739_7396 = c_73340;
|
|
goto loop;
|
|
}
|
|
;
|
|
}}
|
|
|
|
static void __lambda_0(void *data, int argc, object self_73247, object r_73141) {
|
|
return_closcall3(data, car(((closureN)self_73247)->elements[2]), ((closureN)self_73247)->elements[1], ((closureN)self_73247)->elements[3], ((closureN)self_73247)->elements[0]);;
|
|
}
|
|
|
|
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
|
|
extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemetime_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
|
|
extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
|
|
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; {
|
|
Cyc_set_globals_changed((gc_thread_data *)data);
|
|
|
|
add_global((object *) &__glo_this_91scheme_91implementation_91name);
|
|
add_global((object *) &__glo_run_91r7rs_91benchmark);
|
|
add_global((object *) &__glo_hide);
|
|
add_global((object *) &__glo_main);
|
|
add_global((object *) &__glo_iterative_91div2);
|
|
add_global((object *) &__glo_create_91n);
|
|
mclosure0(c_73607, (function_type)__lambda_69);c_73607.num_args = 0;
|
|
__glo_this_91scheme_91implementation_91name = &c_73607;
|
|
mclosure0(c_73421, (function_type)__lambda_67);c_73421.num_args = 4;
|
|
__glo_run_91r7rs_91benchmark = &c_73421;
|
|
mclosure0(c_73397, (function_type)__lambda_23);c_73397.num_args = 2;
|
|
__glo_hide = &c_73397;
|
|
mclosure0(c_73380, (function_type)__lambda_16);c_73380.num_args = 0;
|
|
__glo_main = &c_73380;
|
|
mclosure0(c_73344, (function_type)__lambda_11);c_73344.num_args = 1;
|
|
__glo_iterative_91div2 = &c_73344;
|
|
mclosure0(c_73307, (function_type)__lambda_5);c_73307.num_args = 1;
|
|
__glo_create_91n = &c_73307;
|
|
|
|
make_cvar(cvar_73617, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_73618, find_or_add_symbol("this-scheme-implementation-name"), &cvar_73617);
|
|
make_cvar(cvar_73619, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_73620, find_or_add_symbol("run-r7rs-benchmark"), &cvar_73619);
|
|
make_cvar(cvar_73621, (object *)&__glo_hide);make_pair(pair_73622, find_or_add_symbol("hide"), &cvar_73621);
|
|
make_cvar(cvar_73623, (object *)&__glo_main);make_pair(pair_73624, find_or_add_symbol("main"), &cvar_73623);
|
|
make_cvar(cvar_73625, (object *)&__glo_iterative_91div2);make_pair(pair_73626, find_or_add_symbol("iterative-div2"), &cvar_73625);
|
|
make_cvar(cvar_73627, (object *)&__glo_create_91n);make_pair(pair_73628, find_or_add_symbol("create-n"), &cvar_73627);
|
|
make_pair(c_73634, &pair_73618,Cyc_global_variables);
|
|
make_pair(c_73633, &pair_73620, &c_73634);
|
|
make_pair(c_73632, &pair_73622, &c_73633);
|
|
make_pair(c_73631, &pair_73624, &c_73632);
|
|
make_pair(c_73630, &pair_73626, &c_73631);
|
|
make_pair(c_73629, &pair_73628, &c_73630);
|
|
Cyc_global_variables = &c_73629;
|
|
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
|
|
mclosure1(c_73635, c_schemeread_entry_pt, &c_done);
|
|
mclosure1(c_73636, c_scheme_char_entry_pt, &c_73635);
|
|
mclosure1(c_73637, c_schemewrite_entry_pt, &c_73636);
|
|
mclosure1(c_73638, c_schemetime_entry_pt, &c_73637);
|
|
mclosure1(c_73639, c_schemebase_entry_pt, &c_73638);
|
|
mclosure1(c_73640, c_schemecyclonecommon_entry_pt, &c_73639);
|
|
(c_73640.fn)(data, 0, &c_73640, &c_73640);
|
|
}
|
|
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
|
|
|
|
|
|
|
|
|
|
|
|
|
|
return_closcall1(data, __glo_main, primitive__75halt);
|
|
;
|
|
}
|
|
int main(int argc, char **argv, char **envp)
|
|
{gc_thread_data *thd;
|
|
long stack_size = global_stack_size = STACK_SIZE;
|
|
long heap_size = global_heap_size = HEAP_SIZE;
|
|
mclosure0(clos_halt,&Cyc_halt); // Halt if final closure is reached
|
|
mclosure0(entry_pt,&c_entry_pt); // First function to execute
|
|
_cyc_argc = argc;
|
|
_cyc_argv = argv;
|
|
set_env_variables(envp);
|
|
gc_initialize();
|
|
thd = malloc(sizeof(gc_thread_data));
|
|
gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
|
|
thd->gc_cont = &entry_pt;
|
|
thd->gc_args[0] = &clos_halt;
|
|
thd->gc_num_args = 1;
|
|
thd->thread_id = pthread_self();
|
|
gc_add_mutator(thd);
|
|
Cyc_heap_init(heap_size);
|
|
thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
|
|
Cyc_start_trampoline(thd);
|
|
return 0;}
|