mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
33228 lines
1.8 MiB
33228 lines
1.8 MiB
/**
|
|
** This file was automatically generated by the Cyclone scheme compiler
|
|
** http://justinethier.github.io/cyclone/
|
|
**
|
|
** (c) 2014-2017 Justin Ethier
|
|
** Version 0.5.4
|
|
**
|
|
**/
|
|
|
|
/*
|
|
"---------------- input program:"
|
|
*/
|
|
/*
|
|
((import
|
|
(scheme base)
|
|
(scheme read)
|
|
(scheme write)
|
|
(scheme time))
|
|
(define (count r i step x y)
|
|
(let ((max-count 64) (radius^2 16.0))
|
|
(let ((cr (+ r (* (inexact x) step)))
|
|
(ci (+ i (* (inexact y) step))))
|
|
(let loop ((zr cr) (zi ci) (c 0))
|
|
(if (= c max-count)
|
|
c
|
|
(let ((zr^2 (* zr zr)) (zi^2 (* zi zi)))
|
|
(if (> (+ zr^2 zi^2) radius^2)
|
|
c
|
|
(let ((new-zr (+ (- zr^2 zi^2) cr))
|
|
(new-zi (+ (* 2.0 (* zr zi)) ci)))
|
|
(loop new-zr new-zi (+ c 1))))))))))
|
|
(define (mbrot matrix r i step n)
|
|
(let loop1 ((y (- n 1)))
|
|
(when (>= y 0)
|
|
(let loop2 ((x (- n 1)))
|
|
(if (>= x 0)
|
|
(begin
|
|
(vector-set!
|
|
(vector-ref matrix x)
|
|
y
|
|
(count r i step x y))
|
|
(loop2 (- x 1)))
|
|
(loop1 (- y 1)))))))
|
|
(define (test n)
|
|
(let ((matrix (make-vector n)))
|
|
(let loop ((i (- n 1)))
|
|
(when (>= i 0)
|
|
(vector-set! matrix i (make-vector n))
|
|
(loop (- i 1))))
|
|
(mbrot matrix -1.0 -0.5 0.005 n)
|
|
(vector-ref (vector-ref matrix 0) 0)))
|
|
(define (main)
|
|
(let* ((count (read))
|
|
(input1 (read))
|
|
(output (read))
|
|
(s2 (number->string count))
|
|
(s1 (number->string input1))
|
|
(name "mbrot"))
|
|
(run-r7rs-benchmark
|
|
(string-append name ":" s1 ":" s2)
|
|
count
|
|
(lambda () (test (hide count input1)))
|
|
(lambda (result) (= 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)
|
|
(register-simple-type scheme base)
|
|
(make-type-predicate scheme base)
|
|
(make-constructor scheme base)
|
|
(make-getter scheme base)
|
|
(make-setter 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)
|
|
(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 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)
|
|
(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)
|
|
(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 count
|
|
(lambda (r i step x y)
|
|
((lambda (max-count radius^2)
|
|
((lambda (cr ci)
|
|
((lambda (zr zi c)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (zr zi c)
|
|
(if (= c max-count)
|
|
c
|
|
((lambda (zr^2 zi^2)
|
|
(if (> (+ zr^2 zi^2) radius^2)
|
|
c
|
|
((lambda (new-zr new-zi)
|
|
(loop new-zr new-zi (+ c 1)))
|
|
(+ (- zr^2 zi^2) cr)
|
|
(+ (* 2.0 (* zr zi)) ci))))
|
|
(* zr zr)
|
|
(* zi zi)))))
|
|
(loop zr zi c))
|
|
#f))
|
|
cr
|
|
ci
|
|
0))
|
|
(+ r (* (inexact x) step))
|
|
(+ i (* (inexact y) step))))
|
|
64
|
|
16.0)))
|
|
(define mbrot
|
|
(lambda (matrix r i step n)
|
|
((lambda (y)
|
|
((lambda (loop1)
|
|
(set! loop1
|
|
(lambda (y)
|
|
(if (>= y 0)
|
|
((lambda ()
|
|
((lambda (x)
|
|
((lambda (loop2)
|
|
(set! loop2
|
|
(lambda (x)
|
|
(if (>= x 0)
|
|
((lambda ()
|
|
(vector-set!
|
|
(vector-ref matrix x)
|
|
y
|
|
(count r i step x y))
|
|
(loop2 (- x 1))))
|
|
(loop1 (- y 1)))))
|
|
(loop2 x))
|
|
#f))
|
|
(- n 1))))
|
|
#f)))
|
|
(loop1 y))
|
|
#f))
|
|
(- n 1))))
|
|
(define test
|
|
(lambda (n)
|
|
((lambda (matrix)
|
|
((lambda (i)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (i)
|
|
(if (>= i 0)
|
|
((lambda ()
|
|
(vector-set! matrix i (make-vector n))
|
|
(loop (- i 1))))
|
|
#f)))
|
|
(loop i))
|
|
#f))
|
|
(- n 1))
|
|
(mbrot matrix -1.0 -0.5 0.005 n)
|
|
(vector-ref (vector-ref matrix 0) 0))
|
|
(make-vector n))))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count)
|
|
((lambda (input1)
|
|
((lambda (output)
|
|
((lambda (s2)
|
|
((lambda (s1)
|
|
((lambda (name)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name ":" s1 ":" s2)
|
|
count
|
|
(lambda () (test (hide count input1)))
|
|
(lambda (result) (= result output))))))
|
|
"mbrot"))
|
|
(number->string input1)))
|
|
(number->string count)))
|
|
(read)))
|
|
(read)))
|
|
(read))))
|
|
(define hide
|
|
(lambda (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
|
|
(lambda (name count thunk ok?)
|
|
(define rounded
|
|
(lambda (x) (/ (round (* 1000 x)) 1000)))
|
|
(display "Running ")
|
|
(display name)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s)
|
|
((lambda (t0)
|
|
((lambda (j0)
|
|
((lambda ()
|
|
((lambda (i result)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (i result)
|
|
(if (< i count)
|
|
((lambda () (loop (+ i 1) (thunk))))
|
|
(if (ok? result)
|
|
((lambda ()
|
|
((lambda (j1)
|
|
((lambda (t1)
|
|
((lambda (jifs)
|
|
((lambda (secs)
|
|
((lambda (secs2)
|
|
((lambda ()
|
|
(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)))))
|
|
(rounded (- t1 t0))))
|
|
(inexact (/ jifs j/s))))
|
|
(- j1 j0)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result))
|
|
((lambda ()
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result))))))
|
|
(loop i result))
|
|
#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 count
|
|
(lambda (r i step x y)
|
|
((lambda (max-count radius^2)
|
|
((lambda (cr ci)
|
|
((lambda (zr zi c)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (zr zi c)
|
|
(if (= c max-count)
|
|
c
|
|
((lambda (zr^2 zi^2)
|
|
(if (> (+ zr^2 zi^2) radius^2)
|
|
c
|
|
((lambda (new-zr new-zi)
|
|
(loop new-zr new-zi (+ c 1)))
|
|
(+ (- zr^2 zi^2) cr)
|
|
(+ (* 2.0 (* zr zi)) ci))))
|
|
(* zr zr)
|
|
(* zi zi)))))
|
|
(loop zr zi c))
|
|
#f))
|
|
cr
|
|
ci
|
|
0))
|
|
(+ r (* (inexact x) step))
|
|
(+ i (* (inexact y) step))))
|
|
64
|
|
16.0)))
|
|
(define mbrot
|
|
(lambda (matrix r i step n)
|
|
((lambda (y)
|
|
((lambda (loop1)
|
|
(set! loop1
|
|
(lambda (y)
|
|
(if (>= y 0)
|
|
((lambda ()
|
|
((lambda (x)
|
|
((lambda (loop2)
|
|
(set! loop2
|
|
(lambda (x)
|
|
(if (>= x 0)
|
|
((lambda ()
|
|
(vector-set!
|
|
(vector-ref matrix x)
|
|
y
|
|
(count r i step x y))
|
|
(loop2 (- x 1))))
|
|
(loop1 (- y 1)))))
|
|
(loop2 x))
|
|
#f))
|
|
(- n 1))))
|
|
#f)))
|
|
(loop1 y))
|
|
#f))
|
|
(- n 1))))
|
|
(define test
|
|
(lambda (n)
|
|
((lambda (matrix)
|
|
((lambda (i)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (i)
|
|
(if (>= i 0)
|
|
((lambda ()
|
|
(vector-set! matrix i (make-vector n))
|
|
(loop (- i 1))))
|
|
#f)))
|
|
(loop i))
|
|
#f))
|
|
(- n 1))
|
|
(mbrot matrix -1.0 -0.5 0.005 n)
|
|
(vector-ref (vector-ref matrix 0) 0))
|
|
(make-vector n))))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count)
|
|
((lambda (input1)
|
|
((lambda (output)
|
|
((lambda (s2)
|
|
((lambda (s1)
|
|
((lambda (name)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name ":" s1 ":" s2)
|
|
count
|
|
(lambda () (test (hide count input1)))
|
|
(lambda (result) (= result output))))))
|
|
"mbrot"))
|
|
(number->string input1)))
|
|
(number->string count)))
|
|
(read)))
|
|
(read)))
|
|
(read))))
|
|
(define hide
|
|
(lambda (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
|
|
(lambda (name count thunk ok?)
|
|
(define rounded
|
|
(lambda (x) (/ (round (* 1000 x)) 1000)))
|
|
(display "Running ")
|
|
(display name)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s)
|
|
((lambda (t0)
|
|
((lambda (j0)
|
|
((lambda ()
|
|
((lambda (i result)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (i result)
|
|
(if (< i count)
|
|
((lambda () (loop (+ i 1) (thunk))))
|
|
(if (ok? result)
|
|
((lambda ()
|
|
((lambda (j1)
|
|
((lambda (t1)
|
|
((lambda (jifs)
|
|
((lambda (secs)
|
|
((lambda (secs2)
|
|
((lambda ()
|
|
(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)))))
|
|
(rounded (- t1 t0))))
|
|
(inexact (/ jifs j/s))))
|
|
(- j1 j0)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result))
|
|
((lambda ()
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result))))))
|
|
(loop i result))
|
|
#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 count
|
|
(lambda (r i step x y)
|
|
((lambda (max-count radius^2)
|
|
((lambda (cr ci)
|
|
((lambda (zr zi c)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (zr zi c)
|
|
(if (= c max-count)
|
|
c
|
|
((lambda (zr^2 zi^2)
|
|
(if (> (+ zr^2 zi^2) radius^2)
|
|
c
|
|
((lambda (new-zr new-zi)
|
|
(loop new-zr new-zi (+ c 1)))
|
|
(+ (- zr^2 zi^2) cr)
|
|
(+ (* 2.0 (* zr zi)) ci))))
|
|
(* zr zr)
|
|
(* zi zi)))))
|
|
(loop zr zi c))
|
|
#f))
|
|
cr
|
|
ci
|
|
0))
|
|
(+ r (* (inexact x) step))
|
|
(+ i (* (inexact y) step))))
|
|
64
|
|
16.0)))
|
|
(define mbrot
|
|
(lambda (matrix r i step n)
|
|
((lambda (y)
|
|
((lambda (loop1)
|
|
(set! loop1
|
|
(lambda (y)
|
|
(if (>= y 0)
|
|
((lambda ()
|
|
((lambda (x)
|
|
((lambda (loop2)
|
|
(set! loop2
|
|
(lambda (x)
|
|
(if (>= x 0)
|
|
((lambda ()
|
|
(vector-set!
|
|
(vector-ref matrix x)
|
|
y
|
|
(count r i step x y))
|
|
(loop2 (- x 1))))
|
|
(loop1 (- y 1)))))
|
|
(loop2 x))
|
|
#f))
|
|
(- n 1))))
|
|
#f)))
|
|
(loop1 y))
|
|
#f))
|
|
(- n 1))))
|
|
(define test
|
|
(lambda (n)
|
|
((lambda (matrix)
|
|
((lambda (i)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (i)
|
|
(if (>= i 0)
|
|
((lambda ()
|
|
(vector-set! matrix i (make-vector n))
|
|
(loop (- i 1))))
|
|
#f)))
|
|
(loop i))
|
|
#f))
|
|
(- n 1))
|
|
(mbrot matrix -1.0 -0.5 0.005 n)
|
|
(vector-ref (vector-ref matrix 0) 0))
|
|
(make-vector n))))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count)
|
|
((lambda (input1)
|
|
((lambda (output)
|
|
((lambda (s2)
|
|
((lambda (s1)
|
|
((lambda (name)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name ":" s1 ":" s2)
|
|
count
|
|
(lambda () (test (hide count input1)))
|
|
(lambda (result) (= result output))))))
|
|
"mbrot"))
|
|
(number->string input1)))
|
|
(number->string count)))
|
|
(read)))
|
|
(read)))
|
|
(read))))
|
|
(define hide
|
|
(lambda (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
|
|
(lambda (name count thunk ok?)
|
|
(define rounded
|
|
(lambda (x) (/ (round (* 1000 x)) 1000)))
|
|
(display "Running ")
|
|
(display name)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s)
|
|
((lambda (t0)
|
|
((lambda (j0)
|
|
((lambda ()
|
|
((lambda (i result)
|
|
((lambda (loop)
|
|
(set! loop
|
|
(lambda (i result)
|
|
(if (< i count)
|
|
((lambda () (loop (+ i 1) (thunk))))
|
|
(if (ok? result)
|
|
((lambda ()
|
|
((lambda (j1)
|
|
((lambda (t1)
|
|
((lambda (jifs)
|
|
((lambda (secs)
|
|
((lambda (secs2)
|
|
((lambda ()
|
|
(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)))))
|
|
(rounded (- t1 t0))))
|
|
(inexact (/ jifs j/s))))
|
|
(- j1 j0)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result))
|
|
((lambda ()
|
|
(display "ERROR: returned incorrect result: ")
|
|
(write result)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
result))))))
|
|
(loop i result))
|
|
#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 count
|
|
(lambda (r$97 i$96 step$95 x$94 y$93)
|
|
((lambda (max-count$99 radius^2$98)
|
|
((lambda (cr$101 ci$100)
|
|
((lambda (zr$104 zi$103 c$102)
|
|
((lambda (loop$105)
|
|
(set! loop$105
|
|
(lambda (zr$108 zi$107 c$106)
|
|
(if (Cyc-fast-eq c$106 max-count$99)
|
|
c$106
|
|
((lambda (zr^2$110 zi^2$109)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus zr^2$110 zi^2$109)
|
|
radius^2$98)
|
|
c$106
|
|
((lambda (new-zr$112 new-zi$111)
|
|
(loop$105
|
|
new-zr$112
|
|
new-zi$111
|
|
(Cyc-fast-plus c$106 1)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
cr$101)
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
ci$100))))
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107)))))
|
|
(loop$105 zr$104 zi$103 c$102))
|
|
#f))
|
|
cr$101
|
|
ci$100
|
|
0))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact y$93) step$95))))
|
|
64
|
|
16.0)))
|
|
(define mbrot
|
|
(lambda (matrix$86 r$85 i$84 step$83 n$82)
|
|
((lambda (y$87)
|
|
((lambda (loop1$88)
|
|
(set! loop1$88
|
|
(lambda (y$89)
|
|
(if (Cyc-fast-gte y$89 0)
|
|
((lambda ()
|
|
((lambda (x$90)
|
|
((lambda (loop2$91)
|
|
(set! loop2$91
|
|
(lambda (x$92)
|
|
(if (Cyc-fast-gte x$92 0)
|
|
((lambda ()
|
|
(vector-set!
|
|
(vector-ref matrix$86 x$92)
|
|
y$89
|
|
(count r$85 i$84 step$83 x$92 y$89))
|
|
(loop2$91 (Cyc-fast-sub x$92 1))))
|
|
(loop1$88 (Cyc-fast-sub y$89 1)))))
|
|
(loop2$91 x$90))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1))))
|
|
#f)))
|
|
(loop1$88 y$87))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1))))
|
|
(define test
|
|
(lambda (n$77)
|
|
((lambda (matrix$78)
|
|
((lambda (i$79)
|
|
((lambda (loop$80)
|
|
(set! loop$80
|
|
(lambda (i$81)
|
|
(if (Cyc-fast-gte i$81 0)
|
|
((lambda ()
|
|
(vector-set! matrix$78 i$81 (make-vector n$77))
|
|
(loop$80 (Cyc-fast-sub i$81 1))))
|
|
#f)))
|
|
(loop$80 i$79))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1))
|
|
(mbrot matrix$78 -1.0 -0.5 0.005 n$77)
|
|
(vector-ref (vector-ref matrix$78 0) 0))
|
|
(make-vector n$77))))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$70)
|
|
((lambda (input1$71)
|
|
((lambda (output$72)
|
|
((lambda (s2$73)
|
|
((lambda (s1$74)
|
|
((lambda (name$75)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name$75 ":" s1$74 ":" s2$73)
|
|
count$70
|
|
(lambda () (test (hide count$70 input1$71)))
|
|
(lambda (result$76)
|
|
(Cyc-fast-eq result$76 output$72))))))
|
|
"mbrot"))
|
|
(number->string input1$71)))
|
|
(number->string count$70)))
|
|
(read)))
|
|
(read)))
|
|
(read))))
|
|
(define hide
|
|
(lambda (r$66 x$65)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$69) x$69))
|
|
(if (Cyc-fast-lt r$66 100) 0 1)))
|
|
(lambda (v$68 i$67)
|
|
((vector-ref v$68 i$67) x$65)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47 count$46 thunk$45 ok?$44)
|
|
((lambda (rounded$49)
|
|
((lambda (rounded$50)
|
|
(set! rounded$49
|
|
(lambda (x$64)
|
|
(Cyc-fast-div
|
|
(round (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
(display "Running ")
|
|
(display name$47)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$51)
|
|
((lambda (t0$52)
|
|
((lambda (j0$53)
|
|
((lambda ()
|
|
((lambda (i$55 result$54)
|
|
((lambda (loop$56)
|
|
(set! loop$56
|
|
(lambda (i$58 result$57)
|
|
(if (Cyc-fast-lt i$58 count$46)
|
|
((lambda ()
|
|
(loop$56
|
|
(Cyc-fast-plus i$58 1)
|
|
(thunk$45))))
|
|
(if (ok?$44 result$57)
|
|
((lambda ()
|
|
((lambda (j1$59)
|
|
((lambda (t1$60)
|
|
((lambda (jifs$61)
|
|
((lambda (secs$62)
|
|
((lambda (secs2$63)
|
|
((lambda ()
|
|
(display
|
|
"Elapsed time: ")
|
|
(write secs$62)
|
|
(display " seconds (")
|
|
(write secs2$63)
|
|
(display ") for ")
|
|
(display name$47)
|
|
(newline)
|
|
(display
|
|
"+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47)
|
|
(display ",")
|
|
(display secs$62)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded$49
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52))))
|
|
(inexact
|
|
(Cyc-fast-div
|
|
jifs$61
|
|
j/s$51))))
|
|
(Cyc-fast-sub j1$59 j0$53)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$57))
|
|
((lambda ()
|
|
(display
|
|
"ERROR: returned incorrect result: ")
|
|
(write result$57)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port))
|
|
result$57))))))
|
|
(loop$56 i$55 result$54))
|
|
#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 count
|
|
(lambda (r$97 i$96 step$95 x$94 y$93)
|
|
((lambda (max-count$99 radius^2$98)
|
|
((lambda (cr$101 ci$100)
|
|
((lambda (zr$104 zi$103 c$102)
|
|
((lambda (loop$105)
|
|
(set! loop$105
|
|
(lambda (zr$108 zi$107 c$106)
|
|
(if (Cyc-fast-eq c$106 max-count$99)
|
|
c$106
|
|
((lambda (zr^2$110 zi^2$109)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus zr^2$110 zi^2$109)
|
|
radius^2$98)
|
|
c$106
|
|
((lambda (new-zr$112 new-zi$111)
|
|
(loop$105
|
|
new-zr$112
|
|
new-zi$111
|
|
(Cyc-fast-plus c$106 1)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
cr$101)
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
ci$100))))
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107)))))
|
|
(loop$105 zr$104 zi$103 c$102))
|
|
#f))
|
|
cr$101
|
|
ci$100
|
|
0))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))))
|
|
64
|
|
16.0)))
|
|
(define mbrot
|
|
(lambda (matrix$86 r$85 i$84 step$83 n$82)
|
|
((lambda (y$87)
|
|
((lambda (loop1$88)
|
|
(set! loop1$88
|
|
(lambda (y$89)
|
|
(if (Cyc-fast-gte y$89 0)
|
|
((lambda ()
|
|
((lambda (x$90)
|
|
((lambda (loop2$91)
|
|
(set! loop2$91
|
|
(lambda (x$92)
|
|
(if (Cyc-fast-gte x$92 0)
|
|
((lambda ()
|
|
(vector-set!
|
|
(vector-ref matrix$86 x$92)
|
|
y$89
|
|
(count r$85 i$84 step$83 x$92 y$89))
|
|
(loop2$91 (Cyc-fast-sub x$92 1))))
|
|
(loop1$88 (Cyc-fast-sub y$89 1)))))
|
|
(loop2$91 x$90))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1))))
|
|
#f)))
|
|
(loop1$88 y$87))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1))))
|
|
(define test
|
|
(lambda (n$77)
|
|
((lambda (matrix$78)
|
|
((lambda (i$79)
|
|
((lambda (loop$80)
|
|
(set! loop$80
|
|
(lambda (i$81)
|
|
(if (Cyc-fast-gte i$81 0)
|
|
((lambda ()
|
|
(vector-set! matrix$78 i$81 (make-vector n$77))
|
|
(loop$80 (Cyc-fast-sub i$81 1))))
|
|
#f)))
|
|
(loop$80 i$79))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1))
|
|
(mbrot matrix$78 -1.0 -0.5 0.005 n$77)
|
|
(vector-ref (vector-ref matrix$78 0) 0))
|
|
(make-vector n$77))))
|
|
(define main
|
|
(lambda ()
|
|
((lambda (count$70)
|
|
((lambda (input1$71)
|
|
((lambda (output$72)
|
|
((lambda (s2$73)
|
|
((lambda (s1$74)
|
|
((lambda (name$75)
|
|
((lambda ()
|
|
(run-r7rs-benchmark
|
|
(string-append name$75 ":" s1$74 ":" s2$73)
|
|
count$70
|
|
(lambda () (test (hide count$70 input1$71)))
|
|
(lambda (result$76)
|
|
(Cyc-fast-eq result$76 output$72))))))
|
|
"mbrot"))
|
|
(number->string input1$71)))
|
|
(number->string count$70)))
|
|
(read)))
|
|
(read)))
|
|
(read))))
|
|
(define hide
|
|
(lambda (r$66 x$65)
|
|
(call-with-values
|
|
(lambda ()
|
|
(values
|
|
(vector values (lambda (x$69) x$69))
|
|
(if (Cyc-fast-lt r$66 100) 0 1)))
|
|
(lambda (v$68 i$67)
|
|
((vector-ref v$68 i$67) x$65)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (name$47 count$46 thunk$45 ok?$44)
|
|
((lambda (rounded$49)
|
|
((lambda (rounded$50)
|
|
(set! rounded$49
|
|
(lambda (x$64)
|
|
(Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
(display "Running ")
|
|
(display name$47)
|
|
(newline)
|
|
(flush-output-port (current-output-port))
|
|
((lambda (j/s$51)
|
|
((lambda (t0$52)
|
|
((lambda (j0$53)
|
|
((lambda ()
|
|
((lambda (i$55 result$54)
|
|
((lambda (loop$56)
|
|
(set! loop$56
|
|
(lambda (i$58 result$57)
|
|
(if (Cyc-fast-lt i$58 count$46)
|
|
((lambda ()
|
|
(loop$56
|
|
(Cyc-fast-plus i$58 1)
|
|
(thunk$45))))
|
|
(if (ok?$44 result$57)
|
|
((lambda ()
|
|
((lambda (j1$59)
|
|
((lambda (t1$60)
|
|
((lambda (jifs$61)
|
|
((lambda (secs$62)
|
|
((lambda (secs2$63)
|
|
((lambda ()
|
|
(display
|
|
"Elapsed time: ")
|
|
(write secs$62)
|
|
(display " seconds (")
|
|
(write secs2$63)
|
|
(display ") for ")
|
|
(display name$47)
|
|
(newline)
|
|
(display
|
|
"+!CSVLINE!+")
|
|
(display
|
|
(this-scheme-implementation-name))
|
|
(display ",")
|
|
(display name$47)
|
|
(display ",")
|
|
(display secs$62)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port)))))
|
|
(rounded$49
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
jifs$61
|
|
j/s$51))))
|
|
(Cyc-fast-sub j1$59 j0$53)))
|
|
(current-second)))
|
|
(current-jiffy))
|
|
result$57))
|
|
((lambda ()
|
|
(display
|
|
"ERROR: returned incorrect result: ")
|
|
(write result$57)
|
|
(newline)
|
|
(flush-output-port
|
|
(current-output-port))
|
|
result$57))))))
|
|
(loop$56 i$55 result$54))
|
|
#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 count
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(167
|
|
(max-count$99 radius^2$98)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(166
|
|
(r$253)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(165
|
|
(r$252)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(164
|
|
(r$234)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(163
|
|
(r$251)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(162
|
|
(r$250)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(161
|
|
(r$235)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(160
|
|
(cr$101 ci$100)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(159
|
|
(zr$104
|
|
zi$103
|
|
c$102)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(143
|
|
(r$237)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105
|
|
k$233
|
|
zr$104
|
|
zi$103
|
|
c$102))
|
|
#f))
|
|
(set! loop$105
|
|
r$237)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(157
|
|
(k$238 zr$108
|
|
zi$107
|
|
c$106)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(156
|
|
(r$239)
|
|
((if r$239
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(155
|
|
(r$240)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(154
|
|
(r$241)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(153
|
|
(zr^2$110
|
|
zi^2$109)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(152
|
|
(r$249)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(151
|
|
(r$242)
|
|
((if r$242
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(150
|
|
(r$248)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(149
|
|
(r$243)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(148
|
|
(r$247)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(147
|
|
(r$246)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(146
|
|
(r$244)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(145
|
|
(new-zr$112
|
|
new-zi$111)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(144
|
|
(r$245)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
r$245))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
c$106
|
|
1)))
|
|
#f))
|
|
r$243
|
|
r$244))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$246
|
|
ci$100)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
2.0
|
|
r$247)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zi$107)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$248
|
|
cr$101)))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
zr^2$110
|
|
zi^2$109))))
|
|
#f))
|
|
(Cyc-fast-gt
|
|
r$249
|
|
radius^2$98)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
zr^2$110
|
|
zi^2$109)))
|
|
#f))
|
|
r$240
|
|
r$241))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zi$107
|
|
zi$107)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zr$108))))
|
|
#f))
|
|
(Cyc-fast-eq
|
|
c$106
|
|
max-count$99)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
cr$101
|
|
ci$100
|
|
0))
|
|
#f))
|
|
r$234
|
|
r$235))
|
|
#f))
|
|
(Cyc-fast-plus i$96 r$250)))
|
|
#f))
|
|
(Cyc-fast-mul r$251 step$95)))
|
|
#f))
|
|
(inexact__inline__ y$93)))
|
|
#f))
|
|
(Cyc-fast-plus r$97 r$252)))
|
|
#f))
|
|
(Cyc-fast-mul r$253 step$95)))
|
|
#f))
|
|
(inexact__inline__ x$94)))
|
|
#f))
|
|
64
|
|
16.0))
|
|
#t)))
|
|
(define mbrot
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(140
|
|
(r$216)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(139
|
|
(y$87)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(121
|
|
(r$218)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(120 (r$217) ((loop1$88 k$215 y$87)) #f))
|
|
(set! loop1$88 r$218)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(135
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(134
|
|
(r$221)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(133
|
|
(x$90)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(123
|
|
(r$223)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
x$90))
|
|
#f))
|
|
(set! loop2$91
|
|
r$223)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(128
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92)))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(129
|
|
(r$230)
|
|
((loop1$88
|
|
k$224
|
|
r$230))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte
|
|
x$92
|
|
0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$221))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f)))
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$216))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1)))
|
|
#t)))
|
|
(define test
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(118
|
|
(r$201)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(116
|
|
(r$205)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(107
|
|
(r$207)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(r$203)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(103
|
|
(r$204)
|
|
((k$200 (vector-ref
|
|
r$204
|
|
0)))
|
|
#f))
|
|
(vector-ref
|
|
matrix$78
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80 r$207)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(112
|
|
(r$209)
|
|
((if r$209
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(111
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$210)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(108
|
|
(r$211)
|
|
((loop$80
|
|
k$208
|
|
r$211))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
i$81
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
matrix$78
|
|
i$81
|
|
r$212)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#f)))
|
|
(k$208 #f)))
|
|
#f))
|
|
(Cyc-fast-gte i$81 0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$205))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
r$201))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
(define main
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(101
|
|
(r$187)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(99
|
|
(r$188)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(97
|
|
(r$189)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(95
|
|
(r$190)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(93
|
|
(r$191)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(name$75)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(86
|
|
(r$193)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(84
|
|
(r$194)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
r$193
|
|
r$194))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
name$75
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))))
|
|
#f))
|
|
"mbrot"))
|
|
#f))
|
|
r$191))
|
|
#f))
|
|
(number->string
|
|
input1$71)))
|
|
#f))
|
|
r$190))
|
|
#f))
|
|
(number->string
|
|
count$70)))
|
|
#f))
|
|
r$189))
|
|
#f))))
|
|
#f))
|
|
r$188))
|
|
#f))))
|
|
#f))
|
|
r$187))
|
|
#f))))
|
|
#t)))
|
|
(define hide
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(75
|
|
(r$173)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(72
|
|
(r$174)
|
|
((call-with-values k$172 r$173 r$174))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(73 (r$176) ((r$176 k$175 x$65)) #f))
|
|
(vector-ref v$68 i$67)))
|
|
#t))))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(80
|
|
(r$182)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(77
|
|
(r$181)
|
|
((if r$181 (k$180 0) (k$180 1)))
|
|
#f))
|
|
(Cyc-fast-lt r$66 100)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))))
|
|
#f))
|
|
values
|
|
r$182))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))))
|
|
#t)))
|
|
(define run-r7rs-benchmark
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(69
|
|
(rounded$50)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(65
|
|
(r$166)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(58
|
|
(r$126)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(56
|
|
(r$127)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(54
|
|
(r$128)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(52
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(51
|
|
(i$55 result$54)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(6
|
|
(r$130)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
i$55
|
|
result$54))
|
|
#f))
|
|
(set! loop$56
|
|
r$130)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(48
|
|
(r$132)
|
|
((if r$132
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(9
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(8
|
|
(r$133)
|
|
((thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
r$133
|
|
r$134))
|
|
#f))))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(40
|
|
()
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(39
|
|
(r$137)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(37
|
|
(r$138)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(35
|
|
(r$139)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(34
|
|
(jifs$61)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(33
|
|
(r$159)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(32
|
|
(r$140)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(31
|
|
(secs$62)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(30
|
|
(r$158)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(29
|
|
(r$141)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(27
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
secs$62))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
secs$62))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))))
|
|
#f))
|
|
r$141))
|
|
#f))
|
|
r$158))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))
|
|
r$140))
|
|
#f))
|
|
(inexact__inline__
|
|
r$159)))
|
|
#f))
|
|
(Cyc-fast-div
|
|
jifs$61
|
|
j/s$51)))
|
|
#f))
|
|
r$139))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)))
|
|
#f))
|
|
r$138))
|
|
#f))))
|
|
#f))
|
|
r$137))
|
|
#f))))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(46
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: "))
|
|
#f)))))
|
|
#f))
|
|
result$57)))
|
|
#f))
|
|
(Cyc-fast-lt
|
|
i$58
|
|
count$46)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
0
|
|
#f))
|
|
#f))))
|
|
#f))
|
|
r$128))
|
|
#f))))
|
|
#f))
|
|
r$127))
|
|
#f))))
|
|
#f))
|
|
r$126))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49 r$166)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(67
|
|
(r$169)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(66
|
|
(r$168)
|
|
((k$167 (Cyc-fast-div r$168 1000)))
|
|
#f))
|
|
(round__inline__ r$169)))
|
|
#f))
|
|
(Cyc-fast-mul 1000 x$64)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(2
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(1 (r$113) ((main %halt)) #f))
|
|
0))
|
|
#f))))
|
|
*/
|
|
/*
|
|
"---------------- cps analysis db:"
|
|
*/
|
|
/*
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(size hash compare associate entries))
|
|
#(399
|
|
#[procedure]
|
|
#[procedure]
|
|
#[procedure]
|
|
#(((r$146 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$147 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$148 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(2
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$149 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(3
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((4
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((count$46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f)))
|
|
(5
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((matrix$78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(110 105 104)
|
|
#f
|
|
r$201
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f)))
|
|
(6
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((7
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((8
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((9
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((10
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((11
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((12
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(max-count$99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 167 #f #t 64 1 (157) #f 64 0 1 #t #f #f))))
|
|
((13
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((14
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((15
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((16
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((17
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((s1$74 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 92 #f #f #f 1 (90) #f r$191 0 1 #t #f #f)))
|
|
(18
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((19
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((20
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((rounded$49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 70 #f #f #f 2 (65 30) #f r$166 1 0 #f #f #f)))
|
|
(21
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((22
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((23
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((24
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((25
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((26
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((27
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((28
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((29
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f)))
|
|
(Cyc-fast-eq
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (85 157) #f #f 2 0 #t #f #f))))
|
|
((30
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$150 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(read .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (98 100 102) #f #f 3 0 #f #f #f)))
|
|
(31
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$151 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(32
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((r$152 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(r$66 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f)))
|
|
(k$195 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t)))
|
|
(33
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$153 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(k$196 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #t)))
|
|
(34
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$154 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(35
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((r$155 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(36
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$156 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f)))
|
|
(37
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((r$157 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f)))
|
|
(current-jiffy
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (40 55) #f #f 2 0 #f #f #f)))
|
|
(38
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$158 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
30
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(30)
|
|
#f
|
|
(Cyc-fast-sub t1$60 t0$52)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(39
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #f))))
|
|
((r$159 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
33
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(33)
|
|
#f
|
|
(Cyc-fast-div jifs$61 j/s$51)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$200 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 119 #f #f #f 1 (103) #f #f 1 0 #t #f #t)))
|
|
(40
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((loop$80
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
114
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(108 107 106)
|
|
#f
|
|
r$207
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(41
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(cr$101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
160
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(160 150)
|
|
#f
|
|
r$234
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-mul
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
7
|
|
(68 166 163 156 155 149 148)
|
|
#f
|
|
#f
|
|
7
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(matrix$86
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (128) #f #f 0 1 #t #t #f))))
|
|
((42
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((43
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$208 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 113 #f #f #f 2 (112 108) #f #f 1 1 #f #f #t)))
|
|
(48
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((rounded$50
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 69 #f #t #f 0 () #f #f 0 0 #t #f #f)))
|
|
(49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$130 loop$56 r$130) #f))))
|
|
((50
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((52
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((53
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(radius^2$98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 167 #f #t 16.0 1 (152) #f 16.0 0 1 #t #f #f)))
|
|
(Cyc-fast-sub
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
9
|
|
(36 31 117 109 141 135 130 125 151)
|
|
#f
|
|
#f
|
|
9
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((54
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((55
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((58
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((59
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((60
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((64
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((65
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((66
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((67
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$160 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(68
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$166 rounded$49 r$166) #f))))
|
|
((r$161 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(69
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$162 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$163 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(make-vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (119 111) #f #f 2 0 #t #f #f)))
|
|
(71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$164 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f)))
|
|
(72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$165 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f)))
|
|
(73
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$166 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
65
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(65)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(67
|
|
(r$169)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(66
|
|
(r$168)
|
|
((k$167 (Cyc-fast-div r$168 1000)))
|
|
#f))
|
|
(round__inline__ r$169)))
|
|
#f))
|
|
(Cyc-fast-mul 1000 x$64)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(74
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$174) #f))))
|
|
((75
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$168 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
66
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(66)
|
|
#f
|
|
(round__inline__ r$169)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (k$180) #f))))
|
|
((r$169 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
67
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(67)
|
|
#f
|
|
(Cyc-fast-mul 1000 x$64)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(77
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((79
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((jifs$61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 34 #f #f #f 1 (34) #f r$139 0 1 #t #f #f)))
|
|
(80
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((81
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$182) #f))))
|
|
((82
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$173) #f)))
|
|
(k$215 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (120) #f #f 0 1 #f #f #t))))
|
|
((83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((84
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((85
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$194) #f))))
|
|
((Cyc-fast-div
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (66 34) #f #f 2 0 #t #f #f)))
|
|
(86
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(k$219 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 137 #f #f #f 2 (136 122) #f #f 1 1 #f #f #t))))
|
|
((87
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$193) #t))))
|
|
((89
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((90
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((93
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((97
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((99
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((Cyc-version
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f)))
|
|
(101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((103
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(Cyc-fast-gt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (152) #f #f 1 0 #t #f #f)))
|
|
(r$85 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
((107
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$173 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
75
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(72)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(80
|
|
(r$182)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(77
|
|
(r$181)
|
|
((if r$181 (k$180 0) (k$180 1)))
|
|
#f))
|
|
(Cyc-fast-lt r$66 100)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(76
|
|
(r$179)
|
|
((values k$177 r$178 r$179))
|
|
#f))))
|
|
#f))
|
|
values
|
|
r$182))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$174 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
72
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(72)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(73 (r$176) ((r$176 k$175 x$65)) #f))
|
|
(vector-ref v$68 i$67)))
|
|
#t))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((count$70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
100
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(96 88 84)
|
|
#f
|
|
r$187
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f)))
|
|
(110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$176 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
73
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(73)
|
|
#f
|
|
(vector-ref v$68 i$67)
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((thunk$45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (8) #f #f 1 0 #f #f #f)))
|
|
(r$178 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f)))
|
|
(113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$207 loop$80 r$207) #t))))
|
|
((r$179 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f)))
|
|
(114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((116
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((current-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f)))
|
|
(117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((k$224 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 131 #f #f #f 2 (129 124) #f #f 0 2 #f #f #t)))
|
|
(118
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((120
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((121
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((123
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((125
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((126
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((127
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((128
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((129
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((130
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((131
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$223 loop2$91 r$223) #t)))
|
|
(test .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
119
|
|
#f
|
|
#f
|
|
2
|
|
(87 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(118
|
|
(r$201)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(116
|
|
(r$205)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(107
|
|
(r$207)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(r$203)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(103
|
|
(r$204)
|
|
((k$200 (vector-ref
|
|
r$204
|
|
0)))
|
|
#f))
|
|
(vector-ref
|
|
matrix$78
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80
|
|
r$207)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(112
|
|
(r$209)
|
|
((if r$209
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(111
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$210)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(108
|
|
(r$211)
|
|
((loop$80
|
|
k$208
|
|
r$211))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
i$81
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
matrix$78
|
|
i$81
|
|
r$212)))
|
|
#f))
|
|
(make-vector
|
|
n$77)))
|
|
#f)))
|
|
(k$208 #f)))
|
|
#f))
|
|
(Cyc-fast-gte
|
|
i$81
|
|
0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$205))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
r$201))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((132
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((133
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((134
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((135
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((136
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((137
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$218 loop1$88 r$218) #t))))
|
|
((138
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((139
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((140
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#t ? () #t))))
|
|
((141
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((142
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$181 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
77
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(77)
|
|
#f
|
|
(Cyc-fast-lt r$66 100)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(143
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$182 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
80
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(80)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(144
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((145
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(r$97 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (165) #f #f 0 1 #t #f #f))))
|
|
((146
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((147
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((secs2$63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 28 #f #f #f 1 (24) #f r$141 0 1 #f #f #f)))
|
|
(148
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((newline
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(44 13 21 62)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(r$187 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 101 #f #f #f 1 (101) #f #f 0 1 #t #f #f)))
|
|
(149
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$188 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 99 #f #f #f 1 (99) #f #f 0 1 #t #f #f)))
|
|
(150
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$189 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 97 #f #f #f 1 (97) #f #f 0 1 #t #f #f)))
|
|
(151
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((152
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((153
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$233 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (142) #f #f 0 1 #f #f #t)))
|
|
(154
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((155
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((main .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
102
|
|
#f
|
|
#f
|
|
2
|
|
(1 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(101
|
|
(r$187)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(99
|
|
(r$188)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(97
|
|
(r$189)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(95
|
|
(r$190)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(93
|
|
(r$191)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(91
|
|
(name$75)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(90
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(86
|
|
(r$193)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(84
|
|
(r$194)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
r$193
|
|
r$194))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
name$75
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))))
|
|
#f))
|
|
"mbrot"))
|
|
#f))
|
|
r$191))
|
|
#f))
|
|
(number->string
|
|
input1$71)))
|
|
#f))
|
|
r$190))
|
|
#f))
|
|
(number->string
|
|
count$70)))
|
|
#f))
|
|
r$189))
|
|
#f))))
|
|
#f))
|
|
r$188))
|
|
#f))))
|
|
#f))
|
|
r$187))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(156
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((157
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (r$237 loop$105 r$237) #f))))
|
|
((158
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((159
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(k$238 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(144 151 156)
|
|
#f
|
|
#f
|
|
2
|
|
1
|
|
#f
|
|
#f
|
|
#t))))
|
|
((160
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((161
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((162
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((163
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((164
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((165
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((166
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((167
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((168
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$190 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
95
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(95)
|
|
#f
|
|
(number->string count$70)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$191 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
93
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(93)
|
|
#f
|
|
(number->string input1$71)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$192 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
89
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(84)
|
|
#f
|
|
(string-append name$75 ":" s1$74 ":" s2$73)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$193 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
86
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(84)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(87 (r$197) ((test k$196 r$197)) #f))
|
|
count$70
|
|
input1$71))
|
|
#t))
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(zr^2$110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
153
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(153 151)
|
|
#f
|
|
r$240
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$194 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
84
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(84)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq result$76 output$72)))
|
|
#t))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((current-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f))))
|
|
()
|
|
((r$197 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f)))
|
|
(loop2$91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
132
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(124 123 122)
|
|
#f
|
|
r$223
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((loop1$88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
138
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(129 121 120)
|
|
#f
|
|
r$218
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$201 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
118
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(118)
|
|
#f
|
|
(make-vector n$77)
|
|
0
|
|
1
|
|
#t
|
|
#t
|
|
#f))))
|
|
((r$202 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 105 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$203 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 104 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$204 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
103
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(103)
|
|
#f
|
|
(vector-ref matrix$78 0)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$205 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
116
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(116)
|
|
#f
|
|
(Cyc-fast-sub n$77 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$206 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
106
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$80 r$207)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$207 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
107
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(107)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(112
|
|
(r$209)
|
|
((if r$209
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(111
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(108
|
|
(r$211)
|
|
((loop$80 k$208 r$211))
|
|
#f))
|
|
(Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#f)))
|
|
(k$208 #f)))
|
|
#f))
|
|
(Cyc-fast-gte i$81 0)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$209 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
112
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(112)
|
|
#f
|
|
(Cyc-fast-gte i$81 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (80) #f #f 1 0 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((step$83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
((n$77 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
119
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(119 117 111 105)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((new-zi$111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 145 #f #f #f 1 (144) #f r$244 0 1 #f #f #f))))
|
|
((t1$60 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 36 #f #f #f 1 (31) #f r$138 0 1 #t #f #f)))
|
|
(t0$52 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 55 #f #f #f 1 (31) #f r$127 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((zi$103
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 159 #f #f #f 1 (142) #f ci$100 0 1 #f #f #f))))
|
|
()
|
|
((loop$105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
158
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(144 143 142)
|
|
#f
|
|
r$237
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((zi$107
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(155 155 149)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f))))
|
|
((number->string
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (96 94) #f #f 2 0 #t #f #f))))
|
|
((r$210 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
109
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(vector-set! matrix$78 i$81 r$212)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$211 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
108
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(108)
|
|
#f
|
|
(Cyc-fast-sub i$81 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$212 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
110
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(110)
|
|
#f
|
|
(make-vector n$77)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((call-with-values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (72) #f #f 1 0 #f #f #f))))
|
|
((this-scheme-implementation-name
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
4
|
|
#f
|
|
#f
|
|
2
|
|
(-1 19)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$216 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
140
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(140)
|
|
#f
|
|
(Cyc-fast-sub n$82 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((string-append
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (3 90) #f #f 2 0 #t #f #f)))
|
|
(r$217 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop1$88 r$218)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$218 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
121
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(121)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(135
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(134
|
|
(r$221)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(133
|
|
(x$90)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(123
|
|
(r$223)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
x$90))
|
|
#f))
|
|
(set! loop2$91
|
|
r$223)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(128
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92)))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(129
|
|
(r$230)
|
|
((loop1$88
|
|
k$224
|
|
r$230))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte
|
|
x$92
|
|
0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$221))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f)))
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((write .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f)))
|
|
(ok?$44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (48) #f #f 1 0 #f #f #f))))
|
|
((vector-set!
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (110 126) #f #f 2 0 #t #f #f)))
|
|
(n$82 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 2 (141 135) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((step$95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 2 (166 163) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
((k$116 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t))))
|
|
((result$54
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 51 #f #t #f 1 (5) #f #f 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
((result$57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
49
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(48 45 41 10)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((zi^2$109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
153
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(153 151)
|
|
#f
|
|
r$241
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$220 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
136
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(136)
|
|
#f
|
|
(Cyc-fast-gte y$89 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$221 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
134
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(134)
|
|
#f
|
|
(Cyc-fast-sub n$82 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$222 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
122
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop2$91 r$223)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$223 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
123
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(123)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(128
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92)))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(129 (r$230) ((loop1$88 k$224 r$230)) #f))
|
|
(Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$225 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
130
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(130)
|
|
#f
|
|
(Cyc-fast-gte x$92 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$226 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
125
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(vector-set! r$228 y$89 r$229)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$227 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
124
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(124)
|
|
#f
|
|
(Cyc-fast-sub x$92 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$228 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
127
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(126)
|
|
#f
|
|
(vector-ref matrix$86 x$92)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$229 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 126 #f #f #f 1 (126) #f #f 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((k$120 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (5) #f #f 0 1 #f #f #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((Cyc-fast-lt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (49 78) #f #f 2 0 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$230 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
129
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(129)
|
|
#f
|
|
(Cyc-fast-sub y$89 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((mbrot .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
141
|
|
#f
|
|
#f
|
|
2
|
|
(105 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(140
|
|
(r$216)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(139
|
|
(y$87)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(121
|
|
(r$218)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(120
|
|
(r$217)
|
|
((loop1$88 k$215 y$87))
|
|
#f))
|
|
(set! loop1$88 r$218)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(135
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(134
|
|
(r$221)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(133
|
|
(x$90)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(123
|
|
(r$223)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
x$90))
|
|
#f))
|
|
(set! loop2$91
|
|
r$223)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(128
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92)))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(129
|
|
(r$230)
|
|
((loop1$88
|
|
k$224
|
|
r$230))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte
|
|
x$92
|
|
0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$221))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
n$82
|
|
1)))
|
|
#f)))
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
r$216))
|
|
#f))
|
|
(Cyc-fast-sub n$82 1)))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((r$234 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
164
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(161)
|
|
#f
|
|
(Cyc-fast-plus r$97 r$252)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$235 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
161
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(161)
|
|
#f
|
|
(Cyc-fast-plus i$96 r$250)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$236 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
142
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$105 r$237)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$237 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
143
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(143)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(156
|
|
(r$239)
|
|
((if r$239
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(155
|
|
(r$240)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(154
|
|
(r$241)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(153
|
|
(zr^2$110 zi^2$109)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(152
|
|
(r$249)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(151
|
|
(r$242)
|
|
((if r$242
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(150
|
|
(r$248)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(149
|
|
(r$243)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(148
|
|
(r$247)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(147
|
|
(r$246)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(146
|
|
(r$244)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(145
|
|
(new-zr$112
|
|
new-zi$111)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(144
|
|
(r$245)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
r$245))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
c$106
|
|
1)))
|
|
#f))
|
|
r$243
|
|
r$244))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$246
|
|
ci$100)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
2.0
|
|
r$247)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zi$107)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$248
|
|
cr$101)))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
zr^2$110
|
|
zi^2$109))))
|
|
#f))
|
|
(Cyc-fast-gt
|
|
r$249
|
|
radius^2$98)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
zr^2$110
|
|
zi^2$109)))
|
|
#f))
|
|
r$240
|
|
r$241))
|
|
#f))
|
|
(Cyc-fast-mul zi$107 zi$107)))
|
|
#f))
|
|
(Cyc-fast-mul zr$108 zr$108))))
|
|
#f))
|
|
(Cyc-fast-eq c$106 max-count$99)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((i$55 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 51 #f #t 0 1 (5) #f 0 0 1 #f #f #f))))
|
|
((r$239 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
156
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(156)
|
|
#f
|
|
(Cyc-fast-eq c$106 max-count$99)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((i$58 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 49 #f #f #f 2 (49 9) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((%halt .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f))))
|
|
()
|
|
((name$47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f)))
|
|
(k$131 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #f #f #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((result$76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
|
|
()
|
|
((c$102 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 159 #f #t 0 1 (142) #f 0 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((x$64 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f)))
|
|
(c$106 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(157 145 151 156)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#t
|
|
#f
|
|
#f)))
|
|
(Cyc-fast-plus
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
7
|
|
(9 165 162 153 150 147 145)
|
|
#f
|
|
#f
|
|
7
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((x$65 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (73) #f #f 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
((hide .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
83
|
|
#f
|
|
#f
|
|
2
|
|
(-1 88)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(75
|
|
(r$173)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(72
|
|
(r$174)
|
|
((call-with-values k$172 r$173 r$174))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(73 (r$176) ((r$176 k$175 x$65)) #f))
|
|
(vector-ref v$68 i$67)))
|
|
#t))))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(80
|
|
(r$182)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(77
|
|
(r$181)
|
|
((if r$181
|
|
(k$180 0)
|
|
(k$180 1)))
|
|
#f))
|
|
(Cyc-fast-lt r$66 100)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(76
|
|
(r$179)
|
|
((values k$177 r$178 r$179))
|
|
#f))))
|
|
#f))
|
|
values
|
|
r$182))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((x$69 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f))))
|
|
((j/s$51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 57 #f #f #f 1 (34) #f r$126 0 1 #t #f #f)))
|
|
(r$240 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
155
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(154)
|
|
#f
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(new-zr$112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 145 #f #f #f 1 (144) #f r$243 0 1 #f #f #f))))
|
|
((j1$59 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 38 #f #f #f 1 (36) #f r$137 0 1 #t #f #f)))
|
|
(r$241 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
154
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(154)
|
|
#f
|
|
(Cyc-fast-mul zi$107 zi$107)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$242 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
151
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(151)
|
|
#f
|
|
(Cyc-fast-gt r$249 radius^2$98)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$243 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
149
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(146)
|
|
#f
|
|
(Cyc-fast-plus r$248 cr$101)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$244 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
146
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(146)
|
|
#f
|
|
(Cyc-fast-plus r$246 ci$100)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((zr$104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 159 #f #f #f 1 (142) #f cr$101 0 1 #f #f #f)))
|
|
(r$245 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
144
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(144)
|
|
#f
|
|
(Cyc-fast-plus c$106 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$246 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
147
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(147)
|
|
#f
|
|
(Cyc-fast-mul 2.0 r$247)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$247 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
148
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(148)
|
|
#f
|
|
(Cyc-fast-mul zr$108 zi$107)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$248 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
150
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(150)
|
|
#f
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((zr$108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(156 156 149)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$249 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
152
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(152)
|
|
#f
|
|
(Cyc-fast-plus zr^2$110 zi^2$109)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((i$67 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((flush-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((run-r7rs-benchmark
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
71
|
|
#f
|
|
#f
|
|
2
|
|
(-1 84)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(69
|
|
(rounded$50)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(65
|
|
(r$166)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(58
|
|
(r$126)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(56
|
|
(r$127)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(54
|
|
(r$128)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(52
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(51
|
|
(i$55 result$54)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(6
|
|
(r$130)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
i$55
|
|
result$54))
|
|
#f))
|
|
(set! loop$56
|
|
r$130)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(48
|
|
(r$132)
|
|
((if r$132
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(9
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(8
|
|
(r$133)
|
|
((thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
r$133
|
|
r$134))
|
|
#f))))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(40
|
|
()
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(39
|
|
(r$137)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(37
|
|
(r$138)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(35
|
|
(r$139)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(34
|
|
(jifs$61)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(33
|
|
(r$159)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(32
|
|
(r$140)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(31
|
|
(secs$62)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(30
|
|
(r$158)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(29
|
|
(r$141)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(27
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
secs$62))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
secs$62))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))))
|
|
#f))
|
|
r$141))
|
|
#f))
|
|
r$158))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))
|
|
r$140))
|
|
#f))
|
|
(inexact__inline__
|
|
r$159)))
|
|
#f))
|
|
(Cyc-fast-div
|
|
jifs$61
|
|
j/s$51)))
|
|
#f))
|
|
r$139))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)))
|
|
#f))
|
|
r$138))
|
|
#f))))
|
|
#f))
|
|
r$137))
|
|
#f))))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(46
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: "))
|
|
#f)))))
|
|
#f))
|
|
result$57)))
|
|
#f))
|
|
(Cyc-fast-lt
|
|
i$58
|
|
count$46)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
0
|
|
#f))
|
|
#f))))
|
|
#f))
|
|
r$128))
|
|
#f))))
|
|
#f))
|
|
r$127))
|
|
#f))))
|
|
#f))
|
|
r$126))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49 r$166)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(67
|
|
(r$169)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(66
|
|
(r$168)
|
|
((k$167 (Cyc-fast-div
|
|
r$168
|
|
1000)))
|
|
#f))
|
|
(round__inline__ r$169)))
|
|
#f))
|
|
(Cyc-fast-mul 1000 x$64)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((display
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
13
|
|
(46 14 15 16 17 18 20 22 23 25 27 63 64)
|
|
#f
|
|
#f
|
|
13
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((j0$53 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 53 #f #f #f 1 (36) #f r$128 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((y$87 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 139 #f #f #f 1 (120) #f r$216 0 1 #f #f #f))))
|
|
((r$250 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
162
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(162)
|
|
#f
|
|
(Cyc-fast-mul r$251 step$95)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$251 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
163
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(163)
|
|
#f
|
|
(inexact__inline__ y$93)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(y$89 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
137
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(137 130 127 126)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$252 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
165
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(165)
|
|
#f
|
|
(Cyc-fast-mul r$253 step$95)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$253 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
166
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(166)
|
|
#f
|
|
(inexact__inline__ x$94)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((i$79 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 115 #f #f #f 1 (106) #f r$205 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$113 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 1 #f #t 0 0 () #f 0 0 0 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((r$117 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f)))
|
|
(round__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (67) #f #f 1 0 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((v$68 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
|
|
((y$93 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (164) #f #f 0 1 #t #f #f))))
|
|
((input1$71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 98 #f #f #f 2 (94 88) #f r$188 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((i$81 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
113
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(113 110 109)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((i$84 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((name$75
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 91 #f #f #f 1 (90) #f "mbrot" 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
((ci$100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
160
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(160 147)
|
|
#f
|
|
r$235
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$121 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
64
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! rounded$49 r$166)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$122 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$123 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$124 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (80 76) #f #f 1 1 #f #f #f)))
|
|
(k$167 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 68 #f #f #f 1 (66) #f #f 1 0 #t #f #t))))
|
|
((r$125 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$126 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 58 #f #f #f 1 (58) #f #f 0 1 #t #f #f))))
|
|
((r$127 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 56 #f #f #f 1 (56) #f #f 0 1 #t #f #f))))
|
|
((r$128 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 54 #f #f #f 1 (54) #f #f 0 1 #t #f #f)))
|
|
(x$90 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 133 #f #f #f 1 (122) #f r$221 0 1 #f #f #f))))
|
|
((secs$62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 31 #f #f #f 2 (26 14) #f r$140 0 2 #f #f #f)))
|
|
(r$129 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
5
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$56 r$130)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((x$92 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
131
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(131 128 127 125)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#t
|
|
#f))))
|
|
((output$72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 96 #f #f #f 1 (85) #f r$189 0 1 #t #f #f))))
|
|
((x$94 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (167) #f #f 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((loop$56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 50 #f #f #f 3 (7 6 5) #f r$130 2 0 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((i$96 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (162) #f #f 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((inexact__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (33 167 164) #f #f 3 0 #t #f #f))))
|
|
()
|
|
()
|
|
((k$172 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (72) #f #f 0 1 #f #f #t))))
|
|
((r$130 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
6
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(6)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(49
|
|
(k$131 i$58 result$57)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(48
|
|
(r$132)
|
|
((if r$132
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(9
|
|
()
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(8
|
|
(r$133)
|
|
((thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56 k$131 r$133 r$134))
|
|
#f))))
|
|
#f))
|
|
(Cyc-fast-plus i$58 1)))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(40
|
|
()
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(39
|
|
(r$137)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(37
|
|
(r$138)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(35
|
|
(r$139)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(34
|
|
(jifs$61)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(33
|
|
(r$159)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(32
|
|
(r$140)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(31
|
|
(secs$62)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(30
|
|
(r$158)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(29
|
|
(r$141)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(27
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
secs$62))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
secs$62))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))))
|
|
#f))
|
|
r$141))
|
|
#f))
|
|
r$158))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))
|
|
r$140))
|
|
#f))
|
|
(inexact__inline__
|
|
r$159)))
|
|
#f))
|
|
(Cyc-fast-div
|
|
jifs$61
|
|
j/s$51)))
|
|
#f))
|
|
r$139))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)))
|
|
#f))
|
|
r$138))
|
|
#f))))
|
|
#f))
|
|
r$137))
|
|
#f))))
|
|
#f)))
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(46
|
|
()
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: "))
|
|
#f)))))
|
|
#f))
|
|
result$57)))
|
|
#f))
|
|
(Cyc-fast-lt i$58 count$46)))
|
|
#t))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$132 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
48
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(48)
|
|
#f
|
|
(Cyc-fast-lt i$58 count$46)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$175 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (73) #f #f 0 1 #f #f #t))))
|
|
((r$133 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
8
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(7)
|
|
#f
|
|
(Cyc-fast-plus i$58 1)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$134 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f)))
|
|
(k$177 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t))))
|
|
((r$135 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f))))
|
|
((r$136 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$137 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 39 #f #f #f 1 (39) #f #f 0 1 #t #f #f))))
|
|
((r$138 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 37 #f #f #f 1 (37) #f #f 0 1 #t #f #f))))
|
|
((r$139 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
35
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(35)
|
|
#f
|
|
(Cyc-fast-sub j1$59 j0$53)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((jiffies-per-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((count .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
168
|
|
#f
|
|
#f
|
|
2
|
|
(127 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(167
|
|
(max-count$99 radius^2$98)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(166
|
|
(r$253)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(165
|
|
(r$252)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(164
|
|
(r$234)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(163
|
|
(r$251)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(162
|
|
(r$250)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(161
|
|
(r$235)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(160
|
|
(cr$101
|
|
ci$100)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(159
|
|
(zr$104
|
|
zi$103
|
|
c$102)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(143
|
|
(r$237)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105
|
|
k$233
|
|
zr$104
|
|
zi$103
|
|
c$102))
|
|
#f))
|
|
(set! loop$105
|
|
r$237)))
|
|
#f))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(157
|
|
(k$238 zr$108
|
|
zi$107
|
|
c$106)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(156
|
|
(r$239)
|
|
((if r$239
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(155
|
|
(r$240)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(154
|
|
(r$241)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(153
|
|
(zr^2$110
|
|
zi^2$109)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(152
|
|
(r$249)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(151
|
|
(r$242)
|
|
((if r$242
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(150
|
|
(r$248)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(149
|
|
(r$243)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(148
|
|
(r$247)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(147
|
|
(r$246)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(146
|
|
(r$244)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(145
|
|
(new-zr$112
|
|
new-zi$111)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(144
|
|
(r$245)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
r$245))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
c$106
|
|
1)))
|
|
#f))
|
|
r$243
|
|
r$244))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$246
|
|
ci$100)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
2.0
|
|
r$247)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zi$107)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$248
|
|
cr$101)))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
zr^2$110
|
|
zi^2$109))))
|
|
#f))
|
|
(Cyc-fast-gt
|
|
r$249
|
|
radius^2$98)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
zr^2$110
|
|
zi^2$109)))
|
|
#f))
|
|
r$240
|
|
r$241))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zi$107
|
|
zi$107)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zr$108))))
|
|
#f))
|
|
(Cyc-fast-eq
|
|
c$106
|
|
max-count$99)))
|
|
#t))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
cr$101
|
|
ci$100
|
|
0))
|
|
#f))
|
|
r$234
|
|
r$235))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
r$250)))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
r$251
|
|
step$95)))
|
|
#f))
|
|
(inexact__inline__ y$93)))
|
|
#f))
|
|
(Cyc-fast-plus r$97 r$252)))
|
|
#f))
|
|
(Cyc-fast-mul r$253 step$95)))
|
|
#f))
|
|
(inexact__inline__ x$94)))
|
|
#f))
|
|
64
|
|
16.0))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((Cyc-fast-gte
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(113 137 131)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((s2$73 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 94 #f #f #f 1 (90) #f r$190 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector-ref
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(74 104 103 128)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$180 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
78
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(77 77)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#t))))
|
|
()
|
|
()
|
|
((r$140 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
32
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(32)
|
|
#f
|
|
(inexact__inline__ r$159)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$183 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t))))
|
|
((r$141 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 29 #f #f #f 1 (29) #f #f 0 1 #t #f #f))))
|
|
((r$142 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$143 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(k$186 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 102 #f #f #f 1 (84) #f #f 0 1 #f #f #t))))
|
|
((r$144 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$145 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f)))))))
|
|
*/
|
|
/*
|
|
"---------------- after cps optimizations (1):"
|
|
*/
|
|
/*
|
|
((define count
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(160
|
|
(cr$101 ci$100)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(159
|
|
(zr$104 zi$103)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105 k$233 zr$104 zi$103 0))
|
|
#f))
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(153
|
|
(zr^2$110 zi^2$109)
|
|
((if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
zr^2$110
|
|
zi^2$109)
|
|
16.0)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(145
|
|
(new-zr$112 new-zi$111)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
(Cyc-fast-plus c$106 1)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
cr$101)
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul
|
|
2.0
|
|
(Cyc-fast-mul zr$108 zi$107))
|
|
ci$100))))
|
|
#f))
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
cr$101
|
|
ci$100))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))))
|
|
#t)))
|
|
(define mbrot
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(120
|
|
(r$217)
|
|
((loop1$88 k$215 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define test
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(104
|
|
(r$203)
|
|
((k$200 (vector-ref
|
|
(vector-ref
|
|
matrix$78
|
|
0)
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80
|
|
k$208
|
|
(Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
(define main
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))
|
|
(number->string input1$71)))
|
|
#f))
|
|
(number->string count$70)))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#t)))
|
|
(define hide
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((call-with-values
|
|
k$172
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
(((vector-ref v$68 i$67) k$175 x$65))
|
|
#t))))
|
|
#t)))
|
|
(define run-r7rs-benchmark
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((if (Cyc-fast-lt
|
|
i$58
|
|
count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)
|
|
r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- cps analysis db:"
|
|
*/
|
|
/*
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(size hash compare associate entries))
|
|
#(255
|
|
#[procedure]
|
|
#[procedure]
|
|
#[procedure]
|
|
#(((r$146 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$147 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$148 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$149 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(3
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((4
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((count$46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f)))
|
|
(5
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((matrix$78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(110 105 104)
|
|
#f
|
|
(make-vector n$77)
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f))))
|
|
((7
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((zi^2$109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
153
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(153 153)
|
|
#f
|
|
(Cyc-fast-mul zi$107 zi$107)
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$220 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
136
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(136)
|
|
#f
|
|
(Cyc-fast-gte y$89 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((10
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$222 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
122
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92))
|
|
(loop1$88 k$224 (Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(11
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((12
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((13
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$225 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
130
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(130)
|
|
#f
|
|
(Cyc-fast-gte x$92 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(14
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$226 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
125
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(vector-set! r$228 y$89 r$229)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(15
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$227 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
124
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(124)
|
|
#f
|
|
(Cyc-fast-sub x$92 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(16
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$228 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
127
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(126)
|
|
#f
|
|
(vector-ref matrix$86 x$92)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(17
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((s1$74 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
92
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(92)
|
|
#f
|
|
(number->string input1$71)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$229 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 126 #f #f #f 1 (126) #f #f 0 1 #t #f #f)))
|
|
(18
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((19
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((20
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((rounded$49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
70
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(70 36)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t))
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(21
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((22
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((23
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((24
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$120 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (5) #f #f 0 1 #t #f #t)))
|
|
(25
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((26
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((28
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((Cyc-fast-eq
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (85 157) #f #f 2 0 #t #f #f))))
|
|
()
|
|
((r$150 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(read .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (98 100 102) #f #f 3 0 #f #f #f))))
|
|
((r$151 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$152 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(r$66 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f)))
|
|
(k$195 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t))))
|
|
((r$153 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(k$196 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #t))))
|
|
((r$154 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(Cyc-fast-lt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (49 78) #f #f 2 0 #t #f #f))))
|
|
((r$155 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(36
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$156 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f))))
|
|
((r$157 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f)))
|
|
(current-jiffy
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (47 55) #f #f 2 0 #f #f #f)))
|
|
(38
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((k$200 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 119 #f #f #f 1 (104) #f #f 1 0 #t #f #t))))
|
|
((loop$80
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
114
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(109 114 106)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80 k$208 (Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t))
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(matrix$86
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (130) #f #f 0 1 #t #t #f)))
|
|
(Cyc-fast-mul
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
7
|
|
(68 168 168 157 157 153 153)
|
|
#f
|
|
#f
|
|
7
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(41
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(cr$101
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
160
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(160 153)
|
|
#f
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
((42
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((43
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((mbrot .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
141
|
|
#f
|
|
#f
|
|
2
|
|
(105 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(120
|
|
(r$217)
|
|
((loop1$88 k$215 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub
|
|
n$82
|
|
1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte
|
|
x$92
|
|
0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$208 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 113 #f #f #f 2 (113 109) #f #f 1 1 #t #f #t))))
|
|
((49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$56) #f))))
|
|
((50
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((r$236 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
142
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(153
|
|
(zr^2$110 zi^2$109)
|
|
((if (Cyc-fast-gt
|
|
(Cyc-fast-plus zr^2$110 zi^2$109)
|
|
16.0)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(145
|
|
(new-zr$112 new-zi$111)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
(Cyc-fast-plus c$106 1)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
cr$101)
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul
|
|
2.0
|
|
(Cyc-fast-mul zr$108 zi$107))
|
|
ci$100))))
|
|
#f))
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((Cyc-fast-sub
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
10
|
|
(36 26 14 117 109 130 125 122 120 153)
|
|
#f
|
|
#f
|
|
10
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(53
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((55
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((i$58 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 49 #f #f #f 2 (7 49) #f #f 0 2 #t #f #f)))
|
|
(57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((59
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((60
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((%halt .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (-1) #f #f 0 1 #f #f #f)))
|
|
(61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((name$47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f)))
|
|
(63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(k$131 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #t #f #t))))
|
|
((64
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((r$160 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(68
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (rounded$49) #f))))
|
|
((r$161 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$162 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$163 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(result$76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))
|
|
(make-vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (119 113) #f #f 2 0 #t #f #f)))
|
|
(71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$164 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f))))
|
|
((r$165 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f))))
|
|
((74
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (k$180) #f))))
|
|
((x$64 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f)))
|
|
(Cyc-fast-plus
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
7
|
|
(7 168 168 153 153 145 153)
|
|
#f
|
|
#f
|
|
7
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(c$106 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(145 153 157 157)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#t
|
|
#f
|
|
#f))))
|
|
((x$65 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (74) #f #f 0 1 #f #f #f)))
|
|
(78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((79
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((81
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(hide .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
83
|
|
#f
|
|
#f
|
|
2
|
|
(-1 88)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((call-with-values
|
|
k$172
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((if (Cyc-fast-lt r$66 100)
|
|
(k$180 0)
|
|
(k$180 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(76
|
|
(r$179)
|
|
((values k$177 r$178 r$179))
|
|
#f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
(((vector-ref v$68 i$67) k$175 x$65))
|
|
#t))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((x$69 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f)))
|
|
(82
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(k$215 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (120) #f #f 0 1 #f #f #t))))
|
|
((j/s$51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 57 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))
|
|
(new-zr$112
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
145
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(145)
|
|
#f
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
cr$101)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((j1$59 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 38 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))))
|
|
((85
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((Cyc-fast-div
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (68 26 14) #f #f 3 0 #t #f #f)))
|
|
(k$219 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 137 #f #f #f 2 (136 122) #f #f 1 1 #f #f #t))))
|
|
((87
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(zr$104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 159 #f #f #f 1 (142) #f cr$101 0 1 #t #f #f))))
|
|
((89
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((zr$108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(157 157 153)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f)))
|
|
(92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((i$67 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
|
|
((94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((Cyc-version
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f))))
|
|
((102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((flush-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f)))
|
|
(105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$85 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))
|
|
(Cyc-fast-gt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (153) #f #f 1 0 #t #f #f)))
|
|
(106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(run-r7rs-benchmark
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
71
|
|
#f
|
|
#f
|
|
2
|
|
(-1 89)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((if (Cyc-fast-lt
|
|
i$58
|
|
count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)
|
|
r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__
|
|
(Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((count$70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
100
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(96 88 89)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f)))
|
|
(110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((display
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
13
|
|
(47 14 15 16 17 18 20 22 23 25 28 63 64)
|
|
#f
|
|
#f
|
|
13
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((j0$53 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 53 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))
|
|
(thunk$45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f)))
|
|
(r$178 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f)))
|
|
(113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$80) #t))))
|
|
((r$179 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f)))
|
|
(114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((current-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f)))
|
|
(117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((k$224 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 131 #f #f #f 2 (130 124) #f #f 0 2 #f #f #t))))
|
|
((119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((120
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((y$89 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
137
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(137 130 127 126)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
((122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((125
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((126
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((127
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((130
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((test .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
119
|
|
#f
|
|
#f
|
|
2
|
|
(87 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(r$203)
|
|
((k$200 (vector-ref
|
|
(vector-ref
|
|
matrix$78
|
|
0)
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80
|
|
k$208
|
|
(Cyc-fast-sub
|
|
i$81
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
matrix$78
|
|
i$81
|
|
r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(131
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop2$91) #t))))
|
|
((i$79 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
115
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(106)
|
|
#f
|
|
(Cyc-fast-sub n$77 1)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(132
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((136
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((137
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop1$88) #t))))
|
|
((138
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((141
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((142
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((145
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(r$97 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f))))
|
|
((r$117 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f)))
|
|
(round__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (68) #f #f 1 0 #t #f #f))))
|
|
()
|
|
((secs2$63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 28 #f #f #f 1 (24) #f #f 0 1 #f #f #f))))
|
|
((newline
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(44 13 21 62)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((v$68 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
|
|
((y$93 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f))))
|
|
((input1$71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 98 #f #f #f 2 (94 88) #f #f 0 2 #t #f #f)))
|
|
(153
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$233 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (142) #f #f 0 1 #t #f #t))))
|
|
()
|
|
((main .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
102
|
|
#f
|
|
#f
|
|
2
|
|
(-1 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))
|
|
(number->string
|
|
input1$71)))
|
|
#f))
|
|
(number->string
|
|
count$70)))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((157
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$105) #f))))
|
|
((158
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((k$238 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(145 153 157)
|
|
#f
|
|
#f
|
|
2
|
|
1
|
|
#t
|
|
#f
|
|
#t)))
|
|
(159
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((160
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((i$81 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
113
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(110 109 113)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((i$84 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((168
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((ci$100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
160
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(160 153)
|
|
#f
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$121 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
64
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$122 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$123 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$124 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (82 76) #f #f 1 1 #f #f #f)))
|
|
(k$167 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 68 #f #f #f 1 (68) #f #f 1 0 #t #f #t))))
|
|
((r$125 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(r$192 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
89
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(89)
|
|
#f
|
|
(string-append "mbrot" ":" s1$74 ":" s2$73)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((zr^2$110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
153
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(153 153)
|
|
#f
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
0
|
|
2
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((current-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f))))
|
|
((r$129 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
5
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(49
|
|
(k$131 i$58 result$57)
|
|
((if (Cyc-fast-lt i$58 count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub t1$60 t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$197 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f)))
|
|
(x$92 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
131
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(131 130 127 125)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#t
|
|
#f)))
|
|
(loop2$91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
132
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(124 132 122)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91 k$224 r$227))
|
|
#f))
|
|
(Cyc-fast-sub x$92 1)))
|
|
#f))
|
|
(vector-set! r$228 y$89 r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92))
|
|
(loop1$88 k$224 (Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t))
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((output$72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 96 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
|
|
((x$94 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
((loop1$88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
138
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(130 138 120)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91 k$219 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t))
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((loop$56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
50
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(7 50 5)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(49
|
|
(k$131 i$58 result$57)
|
|
((if (Cyc-fast-lt i$58 count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub t1$60 t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$202 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 105 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$203 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 104 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
()
|
|
()
|
|
((r$206 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
106
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80 k$208 (Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (82) #f #f 1 0 #f #f #f)))
|
|
(i$96 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (168) #f #f 0 1 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((step$83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
((inexact__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(26 14 168 168)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((n$77 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
119
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(119 117 113 105)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#t
|
|
#f))))
|
|
((k$172 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (83) #f #f 0 1 #t #f #t))))
|
|
()
|
|
()
|
|
((k$175 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #t))))
|
|
()
|
|
((r$134 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f)))
|
|
(new-zi$111
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
145
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(145)
|
|
#f
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
ci$100)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$177 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t))))
|
|
((t1$60 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 36 #f #f #f 1 (36) #f #f 0 1 #t #f #f)))
|
|
(r$135 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f)))
|
|
(t0$52 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 55 #f #f #f 1 (36) #f #f 0 1 #t #f #f))))
|
|
((r$136 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
()
|
|
()
|
|
((zi$103
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 159 #f #f #f 1 (142) #f ci$100 0 1 #t #f #f))))
|
|
()
|
|
((jiffies-per-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f)))
|
|
(loop$105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
158
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(145 158 142)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(153
|
|
(zr^2$110 zi^2$109)
|
|
((if (Cyc-fast-gt
|
|
(Cyc-fast-plus zr^2$110 zi^2$109)
|
|
16.0)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(145
|
|
(new-zr$112 new-zi$111)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
(Cyc-fast-plus c$106 1)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub zr^2$110 zi^2$109)
|
|
cr$101)
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
ci$100))))
|
|
#f))
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((zi$107
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(157 157 153)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f))))
|
|
((number->string
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (96 94) #f #f 2 0 #t #f #f))))
|
|
((r$210 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
109
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(vector-set! matrix$78 i$81 r$212)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(count .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
168
|
|
#f
|
|
#f
|
|
2
|
|
(127 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(160
|
|
(cr$101 ci$100)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(159
|
|
(zr$104 zi$103)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105
|
|
k$233
|
|
zr$104
|
|
zi$103
|
|
0))
|
|
#f))
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(153
|
|
(zr^2$110 zi^2$109)
|
|
((if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
zr^2$110
|
|
zi^2$109)
|
|
16.0)
|
|
(k$238 c$106)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(145
|
|
(new-zr$112
|
|
new-zi$111)
|
|
((loop$105
|
|
k$238
|
|
new-zr$112
|
|
new-zi$111
|
|
(Cyc-fast-plus
|
|
c$106
|
|
1)))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
zr^2$110
|
|
zi^2$109)
|
|
cr$101)
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul
|
|
2.0
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zi$107))
|
|
ci$100))))
|
|
#f))
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zr$108)
|
|
(Cyc-fast-mul
|
|
zi$107
|
|
zi$107))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
cr$101
|
|
ci$100))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$212 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
110
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(110)
|
|
#f
|
|
(make-vector n$77)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((call-with-values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (83) #f #f 1 0 #f #f #f)))
|
|
(Cyc-fast-gte
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(113 137 131)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((this-scheme-implementation-name
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
4
|
|
#f
|
|
#f
|
|
2
|
|
(-1 19)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((string-append
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (3 92) #f #f 2 0 #t #f #f)))
|
|
(r$217 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((s2$73 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
94
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(92)
|
|
#f
|
|
(number->string count$70)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
((write .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f)))
|
|
(ok?$44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))))
|
|
((vector-set!
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (110 126) #f #f 2 0 #t #f #f)))
|
|
(n$82 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 2 (122 120) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((vector-ref
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(74 104 104 130)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$180 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
78
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(78 78)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#t)))
|
|
(step$95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 2 (168 168) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
((k$183 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t)))
|
|
(k$116 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t))))
|
|
()
|
|
((r$142 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$143 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(k$186 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 102 #f #f #f 1 (89) #f #f 0 1 #f #f #t))))
|
|
((r$144 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(result$57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
49
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(49 45 41 10)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$145 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(-1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(? ? () #t)))))))
|
|
*/
|
|
/*
|
|
"---------------- after cps optimizations (2):"
|
|
*/
|
|
/*
|
|
((define count
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(159
|
|
(zr$104 zi$103)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105 k$233 zr$104 zi$103 0))
|
|
#f))
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
16.0)
|
|
(k$238 c$106)
|
|
(loop$105
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ x$94)
|
|
step$95)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul
|
|
2.0
|
|
(Cyc-fast-mul zr$108 zi$107))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ y$93)
|
|
step$95)))
|
|
(Cyc-fast-plus c$106 1)))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))))
|
|
#t)))
|
|
(define mbrot
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(120
|
|
(r$217)
|
|
((loop1$88 k$215 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define test
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(104
|
|
(r$203)
|
|
((k$200 (vector-ref
|
|
(vector-ref
|
|
matrix$78
|
|
0)
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80
|
|
k$208
|
|
(Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
(define main
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))
|
|
(number->string input1$71)))
|
|
#f))
|
|
(number->string count$70)))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#t)))
|
|
(define hide
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((call-with-values
|
|
k$172
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
(((vector-ref v$68 i$67) k$175 x$65))
|
|
#t))))
|
|
#t)))
|
|
(define run-r7rs-benchmark
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((if (Cyc-fast-lt
|
|
i$58
|
|
count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)
|
|
r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- cps analysis db:"
|
|
*/
|
|
/*
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(size hash compare associate entries))
|
|
#(246
|
|
#[procedure]
|
|
#[procedure]
|
|
#[procedure]
|
|
#(((r$146 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 22 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$147 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 21 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$148 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 20 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$149 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 19 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(3
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((4
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((count$46
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 0 1 #t #f #f)))
|
|
(5
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((matrix$78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
117
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(110 105 104)
|
|
#f
|
|
(make-vector n$77)
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f))))
|
|
((7
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((r$220 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
136
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(136)
|
|
#f
|
|
(Cyc-fast-gte y$89 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((10
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$222 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
122
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92))
|
|
(loop1$88 k$224 (Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(11
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((12
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((13
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$225 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
130
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(130)
|
|
#f
|
|
(Cyc-fast-gte x$92 0)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(14
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$226 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
125
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(vector-set! r$228 y$89 r$229)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(15
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$227 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
124
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(124)
|
|
#f
|
|
(Cyc-fast-sub x$92 1)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(16
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$228 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
127
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(126)
|
|
#f
|
|
(vector-ref matrix$86 x$92)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(17
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((s1$74 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
92
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(92)
|
|
#f
|
|
(number->string input1$71)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f)))
|
|
(r$229 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 126 #f #f #f 1 (126) #f #f 0 1 #t #f #f)))
|
|
(18
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((19
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((20
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((rounded$49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
70
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(70 36)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t))
|
|
1
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(21
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((22
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((23
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((24
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$120 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (5) #f #f 0 1 #t #f #t)))
|
|
(25
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((26
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((28
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((Cyc-fast-eq
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (85 157) #f #f 2 0 #t #f #f))))
|
|
()
|
|
((r$150 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 17 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(read .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (98 100 102) #f #f 3 0 #f #f #f))))
|
|
((r$151 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 16 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$152 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 15 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(r$66 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (78) #f #f 0 1 #t #f #f)))
|
|
(k$195 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 85 #f #f #f 1 (85) #f #f 1 0 #t #f #t))))
|
|
((r$153 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 14 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(k$196 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 88 #f #f #f 1 (87) #f #f 0 1 #f #f #t))))
|
|
((r$154 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 13 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(Cyc-fast-lt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (49 78) #f #f 2 0 #t #f #f))))
|
|
((r$155 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 12 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(36
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((r$156 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 11 #f #f #f 1 (11) #f #f 0 1 #t #f #f))))
|
|
((r$157 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 18 #f #f #f 1 (18) #f #f 0 1 #t #f #f)))
|
|
(current-jiffy
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (47 55) #f #f 2 0 #f #f #f)))
|
|
(38
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((k$200 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 119 #f #f #f 1 (104) #f #f 1 0 #t #f #t))))
|
|
((loop$80
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
114
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(109 114 106)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80 k$208 (Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t))
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(matrix$86
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (130) #f #f 0 1 #t #t #f)))
|
|
(Cyc-fast-mul
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
11
|
|
(68 168 168 157 157 157 157 157 157 157 157)
|
|
#f
|
|
#f
|
|
11
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(41
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((42
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((43
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((mbrot .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
141
|
|
#f
|
|
#f
|
|
2
|
|
(105 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(120
|
|
(r$217)
|
|
((loop1$88 k$215 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub
|
|
n$82
|
|
1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte
|
|
x$92
|
|
0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((k$208 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 113 #f #f #f 2 (113 109) #f #f 1 1 #t #f #t))))
|
|
((49
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$56) #f))))
|
|
((50
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((r$236 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
142
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
16.0)
|
|
(k$238 c$106)
|
|
(loop$105
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ x$94)
|
|
step$95)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ y$93)
|
|
step$95)))
|
|
(Cyc-fast-plus c$106 1)))))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((Cyc-fast-sub
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
10
|
|
(36 26 14 117 109 130 125 122 120 157)
|
|
#f
|
|
#f
|
|
10
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(53
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((55
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((i$58 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 49 #f #f #f 2 (7 49) #f #f 0 2 #t #f #f)))
|
|
(57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((59
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((60
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((%halt .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (-1) #f #f 0 1 #f #f #f)))
|
|
(61
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((62
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((name$47
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 3 (63 22 16) #f #f 0 3 #f #f #f)))
|
|
(63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(k$131 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 49 #f #f #f 3 (41 10 7) #f #f 2 1 #t #f #t))))
|
|
((64
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((r$160 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 45 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(68
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (rounded$49) #f))))
|
|
((r$161 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 44 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$162 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 43 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$163 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 41 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(result$76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f)))
|
|
(make-vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (119 113) #f #f 2 0 #t #f #f)))
|
|
(71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$164 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 42 #f #f #f 1 (42) #f #f 0 1 #t #f #f))))
|
|
((r$165 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 60 #f #f #f 1 (60) #f #f 0 1 #t #f #f))))
|
|
((74
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((76
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (k$180) #f))))
|
|
((x$64 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 68 #f #f #f 1 (68) #f #f 0 1 #t #f #f)))
|
|
(Cyc-fast-plus
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
9
|
|
(7 168 168 157 157 157 157 157 157)
|
|
#f
|
|
#f
|
|
9
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(c$106 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(157 157 157 157)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#t
|
|
#f
|
|
#f))))
|
|
((x$65 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (74) #f #f 0 1 #f #f #f)))
|
|
(78
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((79
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((81
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(hide .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
83
|
|
#f
|
|
#f
|
|
2
|
|
(-1 88)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((call-with-values
|
|
k$172
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((if (Cyc-fast-lt r$66 100)
|
|
(k$180 0)
|
|
(k$180 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(76
|
|
(r$179)
|
|
((values k$177 r$178 r$179))
|
|
#f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
(((vector-ref v$68 i$67) k$175 x$65))
|
|
#t))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((x$69 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 81 #f #f #f 1 (81) #f #f 0 1 #t #f #f)))
|
|
(82
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(k$215 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (120) #f #f 0 1 #f #f #t))))
|
|
((j/s$51
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 57 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))
|
|
(83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((j1$59 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 38 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f))))
|
|
((85
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((Cyc-fast-div
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (68 26 14) #f #f 3 0 #t #f #f)))
|
|
(k$219 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 137 #f #f #f 2 (136 122) #f #f 1 1 #f #f #t))))
|
|
((87
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(zr$104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
159
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(142)
|
|
#f
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((89
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((92
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t)))
|
|
(zr$108
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
5
|
|
(157 157 157 157 157)
|
|
#f
|
|
#f
|
|
0
|
|
5
|
|
#t
|
|
#f
|
|
#f))))
|
|
((i$67 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
|
|
((94
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((96
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((98
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((100
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((Cyc-version
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (4) #f #f 1 0 #f #f #f))))
|
|
((102
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((104
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((flush-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (42 11 60) #f #f 3 0 #f #f #f)))
|
|
(105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((r$85 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f)))
|
|
(Cyc-fast-gt
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (157) #f #f 1 0 #t #f #f)))
|
|
(106
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((109
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f)))
|
|
(run-r7rs-benchmark
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
71
|
|
#f
|
|
#f
|
|
2
|
|
(-1 89)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((if (Cyc-fast-lt
|
|
i$58
|
|
count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)
|
|
r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__
|
|
(Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((count$70
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
100
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(96 88 89)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#f
|
|
#f
|
|
#f)))
|
|
(110
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((display
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
13
|
|
(47 14 15 16 17 18 20 22 23 25 28 63 64)
|
|
#f
|
|
#f
|
|
13
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((j0$53 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 53 #f #f #f 2 (26 14) #f #f 0 2 #t #f #f)))
|
|
(thunk$45
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f)))
|
|
(r$178 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 79 #f #f #f 1 (76) #f #f 0 1 #f #f #f)))
|
|
(113
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$80) #t))))
|
|
((r$179 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 76 #f #f #f 1 (76) #f #f 0 1 #t #f #f)))
|
|
(114
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((115
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((current-output-port
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (43 12 61) #f #f 3 0 #f #f #f)))
|
|
(117
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((k$224 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 131 #f #f #f 2 (130 124) #f #f 0 2 #f #f #t))))
|
|
((119
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((120
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((y$89 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
137
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(137 130 127 126)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
((122
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
((124
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((125
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
((126
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((127
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((130
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((test .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
119
|
|
#f
|
|
#f
|
|
2
|
|
(87 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(104
|
|
(r$203)
|
|
((k$200 (vector-ref
|
|
(vector-ref
|
|
matrix$78
|
|
0)
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80
|
|
k$208
|
|
(Cyc-fast-sub
|
|
i$81
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
matrix$78
|
|
i$81
|
|
r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f)))
|
|
(131
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop2$91) #t))))
|
|
((i$79 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
115
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(106)
|
|
#f
|
|
(Cyc-fast-sub n$77 1)
|
|
0
|
|
1
|
|
#f
|
|
#f
|
|
#f)))
|
|
(132
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
((136
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((137
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop1$88) #t))))
|
|
((138
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
((141
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((142
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #f))))
|
|
()
|
|
()
|
|
((r$97 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f))))
|
|
((r$117 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 3 #f #f #f 1 (3) #f #f 0 1 #t #f #f)))
|
|
(round__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (68) #f #f 1 0 #t #f #f))))
|
|
()
|
|
((secs2$63
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 28 #f #f #f 1 (24) #f #f 0 1 #f #f #f))))
|
|
((newline
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(44 13 21 62)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((v$68 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #f))))
|
|
((y$93 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f))))
|
|
((input1$71
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 98 #f #f #f 2 (94 88) #f #f 0 2 #t #f #f))))
|
|
((k$233 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 1 (142) #f #f 0 1 #t #f #t))))
|
|
()
|
|
((main .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
102
|
|
#f
|
|
#f
|
|
2
|
|
(-1 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))
|
|
(number->string
|
|
input1$71)))
|
|
#f))
|
|
(number->string
|
|
count$70)))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((157
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? (loop$105) #f))))
|
|
((158
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
((k$238 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(157 157 157)
|
|
#f
|
|
#f
|
|
2
|
|
1
|
|
#t
|
|
#f
|
|
#t)))
|
|
(159
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
((i$81 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
113
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(110 109 113)
|
|
#f
|
|
#f
|
|
0
|
|
3
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((i$84 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((168
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(#f ? () #t))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((r$121 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
64
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$122 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 63 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$123 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 62 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$124 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 61 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (82 76) #f #f 1 1 #f #f #f)))
|
|
(k$167 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 68 #f #f #f 1 (68) #f #f 1 0 #t #f #t))))
|
|
((r$125 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 59 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(r$192 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
89
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(89)
|
|
#f
|
|
(string-append "mbrot" ":" s1$74 ":" s2$73)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((current-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (38 57) #f #f 2 0 #f #f #f))))
|
|
((r$129 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
5
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(49
|
|
(k$131 i$58 result$57)
|
|
((if (Cyc-fast-lt i$58 count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub t1$60 t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$197 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 87 #f #f #f 1 (87) #f #f 0 1 #t #f #f)))
|
|
(x$92 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
131
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(131 130 127 125)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#t
|
|
#f)))
|
|
(loop2$91
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
132
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(124 132 122)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91 k$224 r$227))
|
|
#f))
|
|
(Cyc-fast-sub x$92 1)))
|
|
#f))
|
|
(vector-set! r$228 y$89 r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92))
|
|
(loop1$88 k$224 (Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t))
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((output$72
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 96 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
|
|
((x$94 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
((loop1$88
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
138
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(130 138 120)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91 k$219 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref matrix$86 x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t))
|
|
2
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
((loop$56
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
50
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(7 50 5)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(49
|
|
(k$131 i$58 result$57)
|
|
((if (Cyc-fast-lt i$58 count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56 k$131 (Cyc-fast-plus i$58 1) r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub t1$60 t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((r$202 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 105 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$203 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 104 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
()
|
|
()
|
|
((r$206 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
106
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80 k$208 (Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((vector
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (82) #f #f 1 0 #f #f #f)))
|
|
(i$96 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 168 #f #f #f 2 (168 157) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
()
|
|
((step$83
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 1 (127) #f #f 0 1 #f #f #f))))
|
|
((inexact__inline__
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
6
|
|
(26 14 168 168 157 157)
|
|
#f
|
|
#f
|
|
6
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((n$77 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
119
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(119 117 113 105)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#t
|
|
#f))))
|
|
((k$172 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 83 #f #f #f 1 (83) #f #f 0 1 #t #f #t))))
|
|
()
|
|
()
|
|
((k$175 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 74 #f #f #f 1 (74) #f #f 0 1 #t #f #t))))
|
|
()
|
|
((r$134 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 7 #f #f #f 1 (7) #f #f 0 1 #t #f #f)))
|
|
(k$177 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 82 #f #f #f 1 (76) #f #f 0 1 #f #f #t))))
|
|
((t1$60 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 36 #f #f #f 1 (36) #f #f 0 1 #t #f #f)))
|
|
(r$135 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 47 #f #f #f 1 (47) #f #f 0 0 #t #f #f)))
|
|
(t0$52 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 55 #f #f #f 1 (36) #f #f 0 1 #t #f #f))))
|
|
((r$136 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 10 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
()
|
|
()
|
|
((zi$103
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
159
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(142)
|
|
#f
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((jiffies-per-second
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (59) #f #f 1 0 #f #f #f)))
|
|
(loop$105
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
158
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(157 158 142)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
16.0)
|
|
(k$238 c$106)
|
|
(loop$105
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95)))
|
|
(Cyc-fast-plus c$106 1)))))
|
|
#t))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
((zi$107
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
157
|
|
#f
|
|
#f
|
|
#f
|
|
5
|
|
(157 157 157 157 157)
|
|
#f
|
|
#f
|
|
0
|
|
5
|
|
#t
|
|
#f
|
|
#f))))
|
|
((number->string
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (96 94) #f #f 2 0 #t #f #f))))
|
|
((r$210 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
109
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(vector-set! matrix$78 i$81 r$212)
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(count .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
168
|
|
#f
|
|
#f
|
|
2
|
|
(127 -1)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(159
|
|
(zr$104 zi$103)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105 k$233 zr$104 zi$103 0))
|
|
#f))
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zr$108)
|
|
(Cyc-fast-mul
|
|
zi$107
|
|
zi$107))
|
|
16.0)
|
|
(k$238 c$106)
|
|
(loop$105
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zr$108)
|
|
(Cyc-fast-mul
|
|
zi$107
|
|
zi$107))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ x$94)
|
|
step$95)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul
|
|
2.0
|
|
(Cyc-fast-mul
|
|
zr$108
|
|
zi$107))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ y$93)
|
|
step$95)))
|
|
(Cyc-fast-plus c$106 1)))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
((r$212 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
110
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(110)
|
|
#f
|
|
(make-vector n$77)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
((call-with-values
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 1 (83) #f #f 1 0 #f #f #f)))
|
|
(Cyc-fast-gte
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
3
|
|
(113 137 131)
|
|
#f
|
|
#f
|
|
3
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
((this-scheme-implementation-name
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
-1
|
|
4
|
|
#f
|
|
#f
|
|
2
|
|
(-1 19)
|
|
#f
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
1
|
|
0
|
|
#f
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((string-append
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (3 92) #f #f 2 0 #t #f #f)))
|
|
(r$217 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
120
|
|
#f
|
|
#f
|
|
#f
|
|
0
|
|
()
|
|
#f
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub
|
|
y$89
|
|
1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))
|
|
0
|
|
0
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((s2$73 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
94
|
|
#f
|
|
#f
|
|
#f
|
|
1
|
|
(92)
|
|
#f
|
|
(number->string count$70)
|
|
0
|
|
1
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
()
|
|
((write .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 3 (45 24 26) #f #f 3 0 #f #f #f)))
|
|
(ok?$44
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 71 #f #f #f 1 (49) #f #f 1 0 #f #f #f))))
|
|
((vector-set!
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(? ? #f #f #f 2 (110 126) #f #f 2 0 #t #f #f)))
|
|
(n$82 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 141 #f #f #f 2 (122 120) #f #f 0 2 #t #f #f))))
|
|
()
|
|
()
|
|
()
|
|
((vector-ref
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(?
|
|
?
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(74 104 104 130)
|
|
#f
|
|
#f
|
|
4
|
|
0
|
|
#t
|
|
#f
|
|
#f)))
|
|
(k$180 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
78
|
|
#f
|
|
#f
|
|
#f
|
|
2
|
|
(78 78)
|
|
#f
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))
|
|
2
|
|
0
|
|
#t
|
|
#f
|
|
#t)))
|
|
(step$95
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
168
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(168 168 157 157)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#t
|
|
#f
|
|
#f))))
|
|
()
|
|
()
|
|
((k$183 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 81 #f #f #f 1 (81) #f #f 1 0 #t #f #t)))
|
|
(k$116 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 4 #f #f #f 1 (3) #f #f 1 0 #t #f #t))))
|
|
()
|
|
((r$142 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 26 #f #f #f 0 () #f #f 0 0 #t #f #f))))
|
|
((r$143 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 25 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(k$186 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 102 #f #f #f 1 (89) #f #f 0 1 #f #f #t))))
|
|
((r$144 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 24 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(result$57
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f
|
|
49
|
|
#f
|
|
#f
|
|
#f
|
|
4
|
|
(49 45 41 10)
|
|
#f
|
|
#f
|
|
0
|
|
4
|
|
#f
|
|
#f
|
|
#f))))
|
|
((r$145 .
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(global
|
|
defined-by
|
|
defines-lambda-id
|
|
const
|
|
const-value
|
|
ref-count
|
|
ref-by
|
|
reassigned
|
|
assigned-value
|
|
app-fnc-count
|
|
app-arg-count
|
|
inlinable
|
|
mutated-indirectly
|
|
cont))
|
|
#(#f 23 #f #f #f 0 () #f #f 0 0 #t #f #f)))
|
|
(-1
|
|
.
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(simple
|
|
unused-params
|
|
assigned-to-var
|
|
side-effects))
|
|
#(? ? () #t)))))))
|
|
*/
|
|
/*
|
|
"---------------- after cps optimizations (3):"
|
|
*/
|
|
/*
|
|
((define count
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(168
|
|
(k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(158
|
|
(loop$105)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(142
|
|
(r$236)
|
|
((loop$105
|
|
k$233
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))
|
|
0))
|
|
#f))
|
|
(set! loop$105
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(157
|
|
(k$238 zr$108 zi$107 c$106)
|
|
((if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
16.0)
|
|
(k$238 c$106)
|
|
(loop$105
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ x$94)
|
|
step$95)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ y$93)
|
|
step$95)))
|
|
(Cyc-fast-plus c$106 1)))))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define mbrot
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(141
|
|
(k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(138
|
|
(loop1$88)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(120
|
|
(r$217)
|
|
((loop1$88 k$215 (Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop1$88
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(137
|
|
(k$219 y$89)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(136
|
|
(r$220)
|
|
((if r$220
|
|
(#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(132
|
|
(loop2$91)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(122
|
|
(r$222)
|
|
((loop2$91
|
|
k$219
|
|
(Cyc-fast-sub n$82 1)))
|
|
#f))
|
|
(set! loop2$91
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(131
|
|
(k$224 x$92)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(130
|
|
(r$225)
|
|
((if r$225
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(127
|
|
(r$228)
|
|
((count #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(126
|
|
(r$229)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(125
|
|
(r$226)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(124
|
|
(r$227)
|
|
((loop2$91
|
|
k$224
|
|
r$227))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
x$92
|
|
1)))
|
|
#f))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
#f))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
#f))
|
|
(vector-ref
|
|
matrix$86
|
|
x$92))
|
|
(loop1$88
|
|
k$224
|
|
(Cyc-fast-sub y$89 1))))
|
|
#f))
|
|
(Cyc-fast-gte x$92 0)))
|
|
#t)))))
|
|
#f))
|
|
#f)
|
|
(k$219 #f)))
|
|
#f))
|
|
(Cyc-fast-gte y$89 0)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define test
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(119
|
|
(k$200 n$77)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(117
|
|
(matrix$78)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(115
|
|
(i$79)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(114
|
|
(loop$80)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(106
|
|
(r$206)
|
|
((loop$80
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(105
|
|
(r$202)
|
|
((mbrot #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(104
|
|
(r$203)
|
|
((k$200 (vector-ref
|
|
(vector-ref
|
|
matrix$78
|
|
0)
|
|
0)))
|
|
#f))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
#f))
|
|
i$79))
|
|
#f))
|
|
(set! loop$80
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(113
|
|
(k$208 i$81)
|
|
((if (Cyc-fast-gte i$81 0)
|
|
(#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(110
|
|
(r$212)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(109
|
|
(r$210)
|
|
((loop$80
|
|
k$208
|
|
(Cyc-fast-sub i$81 1)))
|
|
#f))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
#f))
|
|
(make-vector n$77))
|
|
(k$208 #f)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
#f))
|
|
(make-vector n$77)))
|
|
#t)))
|
|
(define main
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(102
|
|
(k$186)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(100
|
|
(count$70)
|
|
((read #((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(98
|
|
(input1$71)
|
|
((read #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(96
|
|
(output$72)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(94
|
|
(s2$73)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(92
|
|
(s1$74)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(89
|
|
(r$192)
|
|
((run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(88
|
|
(k$196)
|
|
((hide #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(87
|
|
(r$197)
|
|
((test k$196
|
|
r$197))
|
|
#f))
|
|
count$70
|
|
input1$71))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(85
|
|
(k$195 result$76)
|
|
((k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))
|
|
#t))))
|
|
#f))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
#f))
|
|
(number->string input1$71)))
|
|
#f))
|
|
(number->string count$70)))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#t)))
|
|
(define hide
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(83
|
|
(k$172 r$66 x$65)
|
|
((call-with-values
|
|
k$172
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(82
|
|
(k$177)
|
|
((vector
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(79
|
|
(r$178)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(78
|
|
(k$180)
|
|
((if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1)))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(76 (r$179) ((values k$177 r$178 r$179)) #f))))
|
|
#f))
|
|
values
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(81 (k$183 x$69) ((k$183 x$69)) #t))))
|
|
#t))
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(74
|
|
(k$175 v$68 i$67)
|
|
(((vector-ref v$68 i$67) k$175 x$65))
|
|
#t))))
|
|
#t)))
|
|
(define run-r7rs-benchmark
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(71
|
|
(k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(70
|
|
(rounded$49)
|
|
((#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(64
|
|
(r$121)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(63
|
|
(r$122)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(62
|
|
(r$123)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(61
|
|
(r$124)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(60
|
|
(r$165)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args body has-cont))
|
|
#(59
|
|
(r$125)
|
|
((jiffies-per-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(57
|
|
(j/s$51)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(55
|
|
(t0$52)
|
|
((current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(53
|
|
(j0$53)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(50
|
|
(loop$56)
|
|
((#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(5
|
|
(r$129)
|
|
((loop$56
|
|
k$120
|
|
0
|
|
#f))
|
|
#f))
|
|
(set! loop$56
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(49
|
|
(k$131 i$58
|
|
result$57)
|
|
((if (Cyc-fast-lt
|
|
i$58
|
|
count$46)
|
|
(thunk$45
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(7
|
|
(r$134)
|
|
((loop$56
|
|
k$131
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)
|
|
r$134))
|
|
#f)))
|
|
(ok?$44
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(47
|
|
(r$135)
|
|
((if r$135
|
|
(current-jiffy
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(38
|
|
(j1$59)
|
|
((current-second
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(36
|
|
(t1$60)
|
|
((rounded$49
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(28
|
|
(secs2$63)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(26
|
|
(r$142)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(25
|
|
(r$143)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(24
|
|
(r$144)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(23
|
|
(r$145)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(22
|
|
(r$146)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(21
|
|
(r$147)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(20
|
|
(r$148)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(19
|
|
(r$149)
|
|
((this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(18
|
|
(r$157)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(17
|
|
(r$150)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(16
|
|
(r$151)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(15
|
|
(r$152)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(14
|
|
(r$153)
|
|
((display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(13
|
|
(r$154)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(12
|
|
(r$155)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(11
|
|
(r$156)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(10
|
|
(r$136)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$156))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
","))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
","))
|
|
#f))
|
|
r$157))
|
|
#f))))
|
|
#f))
|
|
"+!CSVLINE!+"))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
") for "))
|
|
#f))
|
|
secs2$63))
|
|
#f))
|
|
" seconds ("))
|
|
#f))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
#f))
|
|
"Elapsed time: "))
|
|
#f))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52)))
|
|
#f))))
|
|
#f)))
|
|
(display
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(45
|
|
(r$160)
|
|
((write #((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(44
|
|
(r$161)
|
|
((newline
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(43
|
|
(r$162)
|
|
((current-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(42
|
|
(r$164)
|
|
((flush-output-port
|
|
#((record-marker)
|
|
#((record-marker)
|
|
#f
|
|
(id args
|
|
body
|
|
has-cont))
|
|
#(41
|
|
(r$163)
|
|
((k$131 result$57))
|
|
#f))
|
|
r$164))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
result$57))
|
|
#f))
|
|
"ERROR: returned incorrect result: ")))
|
|
#f))
|
|
result$57)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#f))))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
r$165))
|
|
#f))))
|
|
#f))))
|
|
#f))
|
|
name$47))
|
|
#f))
|
|
"Running "))
|
|
#f))
|
|
(set! rounded$49
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(68
|
|
(k$167 x$64)
|
|
((k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))
|
|
#t)))))
|
|
#f))
|
|
#f))
|
|
#t)))
|
|
(define this-scheme-implementation-name
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(4
|
|
(k$116)
|
|
((Cyc-version
|
|
#((record-marker)
|
|
#((record-marker) #f (id args body has-cont))
|
|
#(3
|
|
(r$117)
|
|
((k$116 (string-append "cyclone-" r$117)))
|
|
#f))))
|
|
#t)))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- after wrap-mutables:"
|
|
*/
|
|
/*
|
|
((define count
|
|
(lambda (k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((lambda (loop$105)
|
|
((lambda (loop$105)
|
|
((lambda (r$236)
|
|
((cell-get loop$105)
|
|
k$233
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95))
|
|
0))
|
|
(set-cell!
|
|
loop$105
|
|
(lambda (k$238 zr$108 zi$107 c$106)
|
|
(if (Cyc-fast-eq c$106 64)
|
|
(k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
16.0)
|
|
(k$238 c$106)
|
|
((cell-get loop$105)
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
(Cyc-fast-plus
|
|
r$97
|
|
(Cyc-fast-mul (inexact__inline__ x$94) step$95)))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
(Cyc-fast-plus
|
|
i$96
|
|
(Cyc-fast-mul (inexact__inline__ y$93) step$95)))
|
|
(Cyc-fast-plus c$106 1))))))))
|
|
(cell loop$105)))
|
|
#f)))
|
|
(define mbrot
|
|
(lambda (k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((lambda (loop1$88)
|
|
((lambda (loop1$88)
|
|
((lambda (r$217)
|
|
((cell-get loop1$88) k$215 (Cyc-fast-sub n$82 1)))
|
|
(set-cell!
|
|
loop1$88
|
|
(lambda (k$219 y$89)
|
|
((lambda (r$220)
|
|
(if r$220
|
|
((lambda (loop2$91)
|
|
((lambda (loop2$91)
|
|
((lambda (r$222)
|
|
((cell-get loop2$91) k$219 (Cyc-fast-sub n$82 1)))
|
|
(set-cell!
|
|
loop2$91
|
|
(lambda (k$224 x$92)
|
|
((lambda (r$225)
|
|
(if r$225
|
|
((lambda (r$228)
|
|
(count (lambda (r$229)
|
|
((lambda (r$226)
|
|
((lambda (r$227)
|
|
((cell-get loop2$91)
|
|
k$224
|
|
r$227))
|
|
(Cyc-fast-sub x$92 1)))
|
|
(vector-set!
|
|
r$228
|
|
y$89
|
|
r$229)))
|
|
r$85
|
|
i$84
|
|
step$83
|
|
x$92
|
|
y$89))
|
|
(vector-ref matrix$86 x$92))
|
|
((cell-get loop1$88)
|
|
k$224
|
|
(Cyc-fast-sub y$89 1))))
|
|
(Cyc-fast-gte x$92 0))))))
|
|
(cell loop2$91)))
|
|
#f)
|
|
(k$219 #f)))
|
|
(Cyc-fast-gte y$89 0))))))
|
|
(cell loop1$88)))
|
|
#f)))
|
|
(define test
|
|
(lambda (k$200 n$77)
|
|
((lambda (matrix$78)
|
|
((lambda (i$79)
|
|
((lambda (loop$80)
|
|
((lambda (loop$80)
|
|
((lambda (r$206)
|
|
((cell-get loop$80)
|
|
(lambda (r$202)
|
|
(mbrot (lambda (r$203)
|
|
(k$200 (vector-ref (vector-ref matrix$78 0) 0)))
|
|
matrix$78
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
n$77))
|
|
i$79))
|
|
(set-cell!
|
|
loop$80
|
|
(lambda (k$208 i$81)
|
|
(if (Cyc-fast-gte i$81 0)
|
|
((lambda (r$212)
|
|
((lambda (r$210)
|
|
((cell-get loop$80) k$208 (Cyc-fast-sub i$81 1)))
|
|
(vector-set! matrix$78 i$81 r$212)))
|
|
(make-vector n$77))
|
|
(k$208 #f))))))
|
|
(cell loop$80)))
|
|
#f))
|
|
(Cyc-fast-sub n$77 1)))
|
|
(make-vector n$77))))
|
|
(define main
|
|
(lambda (k$186)
|
|
(read (lambda (count$70)
|
|
(read (lambda (input1$71)
|
|
(read (lambda (output$72)
|
|
((lambda (s2$73)
|
|
((lambda (s1$74)
|
|
((lambda (r$192)
|
|
(run-r7rs-benchmark
|
|
k$186
|
|
r$192
|
|
count$70
|
|
(lambda (k$196)
|
|
(hide (lambda (r$197)
|
|
(test k$196 r$197))
|
|
count$70
|
|
input1$71))
|
|
(lambda (k$195 result$76)
|
|
(k$195 (Cyc-fast-eq
|
|
result$76
|
|
output$72)))))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
s2$73)))
|
|
(number->string input1$71)))
|
|
(number->string count$70))))))))))
|
|
(define hide
|
|
(lambda (k$172 r$66 x$65)
|
|
(call-with-values
|
|
k$172
|
|
(lambda (k$177)
|
|
(vector
|
|
(lambda (r$178)
|
|
((lambda (k$180)
|
|
(if (Cyc-fast-lt r$66 100) (k$180 0) (k$180 1)))
|
|
(lambda (r$179) (values k$177 r$178 r$179))))
|
|
values
|
|
(lambda (k$183 x$69) (k$183 x$69))))
|
|
(lambda (k$175 v$68 i$67)
|
|
((vector-ref v$68 i$67) k$175 x$65)))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((lambda (rounded$49)
|
|
((lambda (rounded$49)
|
|
((lambda (r$121)
|
|
(display
|
|
(lambda (r$122)
|
|
(display
|
|
(lambda (r$123)
|
|
(newline
|
|
(lambda (r$124)
|
|
(current-output-port
|
|
(lambda (r$165)
|
|
(flush-output-port
|
|
(lambda (r$125)
|
|
(jiffies-per-second
|
|
(lambda (j/s$51)
|
|
(current-second
|
|
(lambda (t0$52)
|
|
(current-jiffy
|
|
(lambda (j0$53)
|
|
((lambda (loop$56)
|
|
((lambda (loop$56)
|
|
((lambda (r$129)
|
|
((cell-get loop$56)
|
|
k$120
|
|
0
|
|
#f))
|
|
(set-cell!
|
|
loop$56
|
|
(lambda (k$131
|
|
i$58
|
|
result$57)
|
|
(if (Cyc-fast-lt
|
|
i$58
|
|
count$46)
|
|
(thunk$45
|
|
(lambda (r$134)
|
|
((cell-get
|
|
loop$56)
|
|
k$131
|
|
(Cyc-fast-plus
|
|
i$58
|
|
1)
|
|
r$134)))
|
|
(ok?$44
|
|
(lambda (r$135)
|
|
(if r$135
|
|
(current-jiffy
|
|
(lambda (j1$59)
|
|
(current-second
|
|
(lambda (t1$60)
|
|
((cell-get
|
|
rounded$49)
|
|
(lambda (secs2$63)
|
|
(display
|
|
(lambda (r$142)
|
|
(write (lambda (r$143)
|
|
(display
|
|
(lambda (r$144)
|
|
(write (lambda (r$145)
|
|
(display
|
|
(lambda (r$146)
|
|
(display
|
|
(lambda (r$147)
|
|
(newline
|
|
(lambda (r$148)
|
|
(display
|
|
(lambda (r$149)
|
|
(this-scheme-implementation-name
|
|
(lambda (r$157)
|
|
(display
|
|
(lambda (r$150)
|
|
(display
|
|
(lambda (r$151)
|
|
(display
|
|
(lambda (r$152)
|
|
(display
|
|
(lambda (r$153)
|
|
(display
|
|
(lambda (r$154)
|
|
(newline
|
|
(lambda (r$155)
|
|
(current-output-port
|
|
(lambda (r$156)
|
|
(flush-output-port
|
|
(lambda (r$136)
|
|
(k$131 result$57))
|
|
r$156))))))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
","))
|
|
name$47))
|
|
","))
|
|
r$157))))
|
|
"+!CSVLINE!+"))))
|
|
name$47))
|
|
") for "))
|
|
secs2$63))
|
|
" seconds ("))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
j1$59
|
|
j0$53)
|
|
j/s$51))))
|
|
"Elapsed time: "))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
t0$52))))))
|
|
(display
|
|
(lambda (r$160)
|
|
(write (lambda (r$161)
|
|
(newline
|
|
(lambda (r$162)
|
|
(current-output-port
|
|
(lambda (r$164)
|
|
(flush-output-port
|
|
(lambda (r$163)
|
|
(k$131 result$57))
|
|
r$164))))))
|
|
result$57))
|
|
"ERROR: returned incorrect result: ")))
|
|
result$57))))))
|
|
(cell loop$56)))
|
|
#f))))))))
|
|
r$165))))))
|
|
name$47))
|
|
"Running "))
|
|
(set-cell!
|
|
rounded$49
|
|
(lambda (k$167 x$64)
|
|
(k$167 (Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000))))))
|
|
(cell rounded$49)))
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda (k$116)
|
|
(Cyc-version
|
|
(lambda (r$117)
|
|
(k$116 (string-append "cyclone-" r$117))))))
|
|
(main %halt))
|
|
*/
|
|
/*
|
|
"---------------- after closure-convert:"
|
|
*/
|
|
/*
|
|
((define count
|
|
(lambda (k$233 r$97 i$96 step$95 x$94 y$93)
|
|
((%closure
|
|
(lambda (self$337 loop$105)
|
|
((%closure
|
|
(lambda (self$338 loop$105)
|
|
((%closure
|
|
(lambda (self$340 r$236)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$340 3))
|
|
0)
|
|
(cell-get (%closure-ref self$340 3))
|
|
(%closure-ref self$340 2)
|
|
(Cyc-fast-plus
|
|
(%closure-ref self$340 4)
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ (%closure-ref self$340 6))
|
|
(%closure-ref self$340 5)))
|
|
(Cyc-fast-plus
|
|
(%closure-ref self$340 1)
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ (%closure-ref self$340 7))
|
|
(%closure-ref self$340 5)))
|
|
0))
|
|
(%closure-ref self$338 1)
|
|
(%closure-ref self$338 2)
|
|
loop$105
|
|
(%closure-ref self$338 3)
|
|
(%closure-ref self$338 4)
|
|
(%closure-ref self$338 5)
|
|
(%closure-ref self$338 6))
|
|
(set-cell!
|
|
loop$105
|
|
(%closure
|
|
(lambda (self$339 k$238 zr$108 zi$107 c$106)
|
|
(if (Cyc-fast-eq c$106 64)
|
|
((%closure-ref k$238 0) k$238 c$106)
|
|
(if (Cyc-fast-gt
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
16.0)
|
|
((%closure-ref k$238 0) k$238 c$106)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$339 2))
|
|
0)
|
|
(cell-get (%closure-ref self$339 2))
|
|
k$238
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-sub
|
|
(Cyc-fast-mul zr$108 zr$108)
|
|
(Cyc-fast-mul zi$107 zi$107))
|
|
(Cyc-fast-plus
|
|
(%closure-ref self$339 3)
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ (%closure-ref self$339 5))
|
|
(%closure-ref self$339 4))))
|
|
(Cyc-fast-plus
|
|
(Cyc-fast-mul 2.0 (Cyc-fast-mul zr$108 zi$107))
|
|
(Cyc-fast-plus
|
|
(%closure-ref self$339 1)
|
|
(Cyc-fast-mul
|
|
(inexact__inline__ (%closure-ref self$339 6))
|
|
(%closure-ref self$339 4))))
|
|
(Cyc-fast-plus c$106 1)))))
|
|
(%closure-ref self$338 1)
|
|
loop$105
|
|
(%closure-ref self$338 3)
|
|
(%closure-ref self$338 4)
|
|
(%closure-ref self$338 5)
|
|
(%closure-ref self$338 6)))))
|
|
(%closure-ref self$337 1)
|
|
(%closure-ref self$337 2)
|
|
(%closure-ref self$337 3)
|
|
(%closure-ref self$337 4)
|
|
(%closure-ref self$337 5)
|
|
(%closure-ref self$337 6))
|
|
(cell loop$105)))
|
|
i$96
|
|
k$233
|
|
r$97
|
|
step$95
|
|
x$94
|
|
y$93)
|
|
#f)))
|
|
(define mbrot
|
|
(lambda (k$215 matrix$86 r$85 i$84 step$83 n$82)
|
|
((%closure
|
|
(lambda (self$323 loop1$88)
|
|
((%closure
|
|
(lambda (self$324 loop1$88)
|
|
((%closure
|
|
(lambda (self$336 r$217)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$336 2))
|
|
0)
|
|
(cell-get (%closure-ref self$336 2))
|
|
(%closure-ref self$336 1)
|
|
(Cyc-fast-sub (%closure-ref self$336 3) 1)))
|
|
(%closure-ref self$324 2)
|
|
loop1$88
|
|
(%closure-ref self$324 4))
|
|
(set-cell!
|
|
loop1$88
|
|
(%closure
|
|
(lambda (self$325 k$219 y$89)
|
|
((%closure
|
|
(lambda (self$326 r$220)
|
|
(if r$220
|
|
((%closure
|
|
(lambda (self$327 loop2$91)
|
|
((%closure
|
|
(lambda (self$328 loop2$91)
|
|
((%closure
|
|
(lambda (self$335 r$222)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref self$335 2))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref self$335 2))
|
|
(%closure-ref self$335 1)
|
|
(Cyc-fast-sub
|
|
(%closure-ref self$335 3)
|
|
1)))
|
|
(%closure-ref self$328 2)
|
|
loop2$91
|
|
(%closure-ref self$328 5))
|
|
(set-cell!
|
|
loop2$91
|
|
(%closure
|
|
(lambda (self$329 k$224 x$92)
|
|
((%closure
|
|
(lambda (self$330 r$225)
|
|
(if r$225
|
|
((%closure
|
|
(lambda (self$331 r$228)
|
|
((%closure-ref
|
|
count
|
|
0)
|
|
count
|
|
(%closure
|
|
(lambda (self$332
|
|
r$229)
|
|
((%closure
|
|
(lambda (self$333
|
|
r$226)
|
|
((%closure
|
|
(lambda (self$334
|
|
r$227)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$334
|
|
2))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$334
|
|
2))
|
|
(%closure-ref
|
|
self$334
|
|
1)
|
|
r$227))
|
|
(%closure-ref
|
|
self$333
|
|
1)
|
|
(%closure-ref
|
|
self$333
|
|
2))
|
|
(Cyc-fast-sub
|
|
(%closure-ref
|
|
self$333
|
|
3)
|
|
1)))
|
|
(%closure-ref
|
|
self$332
|
|
1)
|
|
(%closure-ref
|
|
self$332
|
|
2)
|
|
(%closure-ref
|
|
self$332
|
|
4))
|
|
(vector-set!
|
|
(%closure-ref
|
|
self$332
|
|
3)
|
|
(%closure-ref
|
|
self$332
|
|
5)
|
|
r$229)))
|
|
(%closure-ref
|
|
self$331
|
|
2)
|
|
(%closure-ref
|
|
self$331
|
|
3)
|
|
r$228
|
|
(%closure-ref
|
|
self$331
|
|
6)
|
|
(%closure-ref
|
|
self$331
|
|
7))
|
|
(%closure-ref
|
|
self$331
|
|
4)
|
|
(%closure-ref
|
|
self$331
|
|
1)
|
|
(%closure-ref
|
|
self$331
|
|
5)
|
|
(%closure-ref
|
|
self$331
|
|
6)
|
|
(%closure-ref
|
|
self$331
|
|
7)))
|
|
(%closure-ref
|
|
self$330
|
|
1)
|
|
(%closure-ref
|
|
self$330
|
|
2)
|
|
(%closure-ref
|
|
self$330
|
|
4)
|
|
(%closure-ref
|
|
self$330
|
|
6)
|
|
(%closure-ref
|
|
self$330
|
|
7)
|
|
(%closure-ref
|
|
self$330
|
|
8)
|
|
(%closure-ref
|
|
self$330
|
|
9))
|
|
(vector-ref
|
|
(%closure-ref
|
|
self$330
|
|
5)
|
|
(%closure-ref
|
|
self$330
|
|
8)))
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$330
|
|
3))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$330
|
|
3))
|
|
(%closure-ref self$330 2)
|
|
(Cyc-fast-sub
|
|
(%closure-ref
|
|
self$330
|
|
9)
|
|
1))))
|
|
(%closure-ref self$329 1)
|
|
k$224
|
|
(%closure-ref self$329 2)
|
|
(%closure-ref self$329 3)
|
|
(%closure-ref self$329 4)
|
|
(%closure-ref self$329 5)
|
|
(%closure-ref self$329 6)
|
|
x$92
|
|
(%closure-ref self$329 7))
|
|
(Cyc-fast-gte x$92 0)))
|
|
(%closure-ref self$328 1)
|
|
(%closure-ref self$328 3)
|
|
loop2$91
|
|
(%closure-ref self$328 4)
|
|
(%closure-ref self$328 6)
|
|
(%closure-ref self$328 7)
|
|
(%closure-ref self$328 8)))))
|
|
(%closure-ref self$327 1)
|
|
(%closure-ref self$327 2)
|
|
(%closure-ref self$327 3)
|
|
(%closure-ref self$327 4)
|
|
(%closure-ref self$327 5)
|
|
(%closure-ref self$327 6)
|
|
(%closure-ref self$327 7)
|
|
(%closure-ref self$327 8))
|
|
(cell loop2$91)))
|
|
(%closure-ref self$326 1)
|
|
(%closure-ref self$326 2)
|
|
(%closure-ref self$326 3)
|
|
(%closure-ref self$326 4)
|
|
(%closure-ref self$326 5)
|
|
(%closure-ref self$326 6)
|
|
(%closure-ref self$326 7)
|
|
(%closure-ref self$326 8))
|
|
#f)
|
|
((%closure-ref (%closure-ref self$326 2) 0)
|
|
(%closure-ref self$326 2)
|
|
#f)))
|
|
(%closure-ref self$325 1)
|
|
k$219
|
|
(%closure-ref self$325 2)
|
|
(%closure-ref self$325 3)
|
|
(%closure-ref self$325 4)
|
|
(%closure-ref self$325 5)
|
|
(%closure-ref self$325 6)
|
|
y$89)
|
|
(Cyc-fast-gte y$89 0)))
|
|
(%closure-ref self$324 1)
|
|
loop1$88
|
|
(%closure-ref self$324 3)
|
|
(%closure-ref self$324 4)
|
|
(%closure-ref self$324 5)
|
|
(%closure-ref self$324 6)))))
|
|
(%closure-ref self$323 1)
|
|
(%closure-ref self$323 2)
|
|
(%closure-ref self$323 3)
|
|
(%closure-ref self$323 4)
|
|
(%closure-ref self$323 5)
|
|
(%closure-ref self$323 6))
|
|
(cell loop1$88)))
|
|
i$84
|
|
k$215
|
|
matrix$86
|
|
n$82
|
|
r$85
|
|
step$83)
|
|
#f)))
|
|
(define test
|
|
(lambda (k$200 n$77)
|
|
((%closure
|
|
(lambda (self$313 matrix$78)
|
|
((%closure
|
|
(lambda (self$314 i$79)
|
|
((%closure
|
|
(lambda (self$315 loop$80)
|
|
((%closure
|
|
(lambda (self$316 loop$80)
|
|
((%closure
|
|
(lambda (self$320 r$206)
|
|
((%closure-ref
|
|
(cell-get (%closure-ref self$320 3))
|
|
0)
|
|
(cell-get (%closure-ref self$320 3))
|
|
(%closure
|
|
(lambda (self$321 r$202)
|
|
((%closure-ref mbrot 0)
|
|
mbrot
|
|
(%closure
|
|
(lambda (self$322 r$203)
|
|
((%closure-ref
|
|
(%closure-ref self$322 1)
|
|
0)
|
|
(%closure-ref self$322 1)
|
|
(vector-ref
|
|
(vector-ref
|
|
(%closure-ref self$322 2)
|
|
0)
|
|
0)))
|
|
(%closure-ref self$321 1)
|
|
(%closure-ref self$321 2))
|
|
(%closure-ref self$321 2)
|
|
-1.0
|
|
-0.5
|
|
0.005
|
|
(%closure-ref self$321 3)))
|
|
(%closure-ref self$320 2)
|
|
(%closure-ref self$320 4)
|
|
(%closure-ref self$320 5))
|
|
(%closure-ref self$320 1)))
|
|
(%closure-ref self$316 1)
|
|
(%closure-ref self$316 2)
|
|
loop$80
|
|
(%closure-ref self$316 3)
|
|
(%closure-ref self$316 4))
|
|
(set-cell!
|
|
loop$80
|
|
(%closure
|
|
(lambda (self$317 k$208 i$81)
|
|
(if (Cyc-fast-gte i$81 0)
|
|
((%closure
|
|
(lambda (self$318 r$212)
|
|
((%closure
|
|
(lambda (self$319 r$210)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref self$319 3))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref self$319 3))
|
|
(%closure-ref self$319 2)
|
|
(Cyc-fast-sub
|
|
(%closure-ref self$319 1)
|
|
1)))
|
|
(%closure-ref self$318 1)
|
|
(%closure-ref self$318 2)
|
|
(%closure-ref self$318 3))
|
|
(vector-set!
|
|
(%closure-ref self$318 4)
|
|
(%closure-ref self$318 1)
|
|
r$212)))
|
|
i$81
|
|
k$208
|
|
(%closure-ref self$317 1)
|
|
(%closure-ref self$317 2))
|
|
(make-vector (%closure-ref self$317 3)))
|
|
((%closure-ref k$208 0) k$208 #f)))
|
|
loop$80
|
|
(%closure-ref self$316 3)
|
|
(%closure-ref self$316 4)))))
|
|
(%closure-ref self$315 1)
|
|
(%closure-ref self$315 2)
|
|
(%closure-ref self$315 3)
|
|
(%closure-ref self$315 4))
|
|
(cell loop$80)))
|
|
i$79
|
|
(%closure-ref self$314 1)
|
|
(%closure-ref self$314 2)
|
|
(%closure-ref self$314 3))
|
|
#f))
|
|
(%closure-ref self$313 1)
|
|
matrix$78
|
|
(%closure-ref self$313 2))
|
|
(Cyc-fast-sub (%closure-ref self$313 2) 1)))
|
|
k$200
|
|
n$77)
|
|
(make-vector n$77))))
|
|
(define main
|
|
(lambda (k$186)
|
|
((%closure-ref read 0)
|
|
read
|
|
(%closure
|
|
(lambda (self$304 count$70)
|
|
((%closure-ref read 0)
|
|
read
|
|
(%closure
|
|
(lambda (self$305 input1$71)
|
|
((%closure-ref read 0)
|
|
read
|
|
(%closure
|
|
(lambda (self$306 output$72)
|
|
((%closure
|
|
(lambda (self$307 s2$73)
|
|
((%closure
|
|
(lambda (self$308 s1$74)
|
|
((%closure
|
|
(lambda (self$309 r$192)
|
|
((%closure-ref run-r7rs-benchmark 0)
|
|
run-r7rs-benchmark
|
|
(%closure-ref self$309 3)
|
|
r$192
|
|
(%closure-ref self$309 1)
|
|
(%closure
|
|
(lambda (self$311 k$196)
|
|
((%closure-ref hide 0)
|
|
hide
|
|
(%closure
|
|
(lambda (self$312 r$197)
|
|
((%closure-ref test 0)
|
|
test
|
|
(%closure-ref self$312 1)
|
|
r$197))
|
|
k$196)
|
|
(%closure-ref self$311 1)
|
|
(%closure-ref self$311 2)))
|
|
(%closure-ref self$309 1)
|
|
(%closure-ref self$309 2))
|
|
(%closure
|
|
(lambda (self$310 k$195 result$76)
|
|
((%closure-ref k$195 0)
|
|
k$195
|
|
(Cyc-fast-eq
|
|
result$76
|
|
(%closure-ref self$310 1))))
|
|
(%closure-ref self$309 4))))
|
|
(%closure-ref self$308 1)
|
|
(%closure-ref self$308 2)
|
|
(%closure-ref self$308 3)
|
|
(%closure-ref self$308 4))
|
|
(string-append
|
|
"mbrot"
|
|
":"
|
|
s1$74
|
|
":"
|
|
(%closure-ref self$308 5))))
|
|
(%closure-ref self$307 1)
|
|
(%closure-ref self$307 2)
|
|
(%closure-ref self$307 3)
|
|
(%closure-ref self$307 4)
|
|
s2$73)
|
|
(number->string (%closure-ref self$307 2))))
|
|
(%closure-ref self$306 1)
|
|
(%closure-ref self$306 2)
|
|
(%closure-ref self$306 3)
|
|
output$72)
|
|
(number->string (%closure-ref self$306 1))))
|
|
(%closure-ref self$305 1)
|
|
input1$71
|
|
(%closure-ref self$305 2))))
|
|
count$70
|
|
(%closure-ref self$304 1))))
|
|
k$186))))
|
|
(define hide
|
|
(lambda (k$172 r$66 x$65)
|
|
((%closure-ref call-with-values 0)
|
|
call-with-values
|
|
k$172
|
|
(%closure
|
|
(lambda (self$299 k$177)
|
|
((%closure-ref vector 0)
|
|
vector
|
|
(%closure
|
|
(lambda (self$301 r$178)
|
|
((%closure
|
|
(lambda (self$303 k$180)
|
|
(if (Cyc-fast-lt (%closure-ref self$303 1) 100)
|
|
((%closure-ref k$180 0) k$180 0)
|
|
((%closure-ref k$180 0) k$180 1)))
|
|
(%closure-ref self$301 2))
|
|
(%closure
|
|
(lambda (self$302 r$179)
|
|
((%closure-ref values 0)
|
|
values
|
|
(%closure-ref self$302 1)
|
|
(%closure-ref self$302 2)
|
|
r$179))
|
|
(%closure-ref self$301 1)
|
|
r$178)))
|
|
k$177
|
|
(%closure-ref self$299 1))
|
|
values
|
|
(%closure
|
|
(lambda (self$300 k$183 x$69)
|
|
((%closure-ref k$183 0) k$183 x$69)))))
|
|
r$66)
|
|
(%closure
|
|
(lambda (self$298 k$175 v$68 i$67)
|
|
((%closure-ref (vector-ref v$68 i$67) 0)
|
|
(vector-ref v$68 i$67)
|
|
k$175
|
|
(%closure-ref self$298 1)))
|
|
x$65))))
|
|
(define run-r7rs-benchmark
|
|
(lambda (k$120 name$47 count$46 thunk$45 ok?$44)
|
|
((%closure
|
|
(lambda (self$255 rounded$49)
|
|
((%closure
|
|
(lambda (self$256 rounded$49)
|
|
((%closure
|
|
(lambda (self$258 r$121)
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$259 r$122)
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$260 r$123)
|
|
((%closure-ref newline 0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$261 r$124)
|
|
((%closure-ref current-output-port 0)
|
|
current-output-port
|
|
(%closure
|
|
(lambda (self$262 r$165)
|
|
((%closure-ref flush-output-port 0)
|
|
flush-output-port
|
|
(%closure
|
|
(lambda (self$263 r$125)
|
|
((%closure-ref
|
|
jiffies-per-second
|
|
0)
|
|
jiffies-per-second
|
|
(%closure
|
|
(lambda (self$264 j/s$51)
|
|
((%closure-ref
|
|
current-second
|
|
0)
|
|
current-second
|
|
(%closure
|
|
(lambda (self$265 t0$52)
|
|
((%closure-ref
|
|
current-jiffy
|
|
0)
|
|
current-jiffy
|
|
(%closure
|
|
(lambda (self$266
|
|
j0$53)
|
|
((%closure
|
|
(lambda (self$267
|
|
loop$56)
|
|
((%closure
|
|
(lambda (self$268
|
|
loop$56)
|
|
((%closure
|
|
(lambda (self$297
|
|
r$129)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$297
|
|
2))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$297
|
|
2))
|
|
(%closure-ref
|
|
self$297
|
|
1)
|
|
0
|
|
#f))
|
|
(%closure-ref
|
|
self$268
|
|
4)
|
|
loop$56)
|
|
(set-cell!
|
|
loop$56
|
|
(%closure
|
|
(lambda (self$269
|
|
k$131
|
|
i$58
|
|
result$57)
|
|
(if (Cyc-fast-lt
|
|
i$58
|
|
(%closure-ref
|
|
self$269
|
|
1))
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$269
|
|
9)
|
|
0)
|
|
(%closure-ref
|
|
self$269
|
|
9)
|
|
(%closure
|
|
(lambda (self$296
|
|
r$134)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$296
|
|
3))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$296
|
|
3))
|
|
(%closure-ref
|
|
self$296
|
|
2)
|
|
(Cyc-fast-plus
|
|
(%closure-ref
|
|
self$296
|
|
1)
|
|
1)
|
|
r$134))
|
|
i$58
|
|
k$131
|
|
(%closure-ref
|
|
self$269
|
|
4)))
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$269
|
|
6)
|
|
0)
|
|
(%closure-ref
|
|
self$269
|
|
6)
|
|
(%closure
|
|
(lambda (self$270
|
|
r$135)
|
|
(if r$135
|
|
((%closure-ref
|
|
current-jiffy
|
|
0)
|
|
current-jiffy
|
|
(%closure
|
|
(lambda (self$276
|
|
j1$59)
|
|
((%closure-ref
|
|
current-second
|
|
0)
|
|
current-second
|
|
(%closure
|
|
(lambda (self$277
|
|
t1$60)
|
|
((%closure-ref
|
|
(cell-get
|
|
(%closure-ref
|
|
self$277
|
|
7))
|
|
0)
|
|
(cell-get
|
|
(%closure-ref
|
|
self$277
|
|
7))
|
|
(%closure
|
|
(lambda (self$278
|
|
secs2$63)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$279
|
|
r$142)
|
|
((%closure-ref
|
|
write
|
|
0)
|
|
write
|
|
(%closure
|
|
(lambda (self$280
|
|
r$143)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$281
|
|
r$144)
|
|
((%closure-ref
|
|
write
|
|
0)
|
|
write
|
|
(%closure
|
|
(lambda (self$282
|
|
r$145)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$283
|
|
r$146)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$284
|
|
r$147)
|
|
((%closure-ref
|
|
newline
|
|
0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$285
|
|
r$148)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$286
|
|
r$149)
|
|
((%closure-ref
|
|
this-scheme-implementation-name
|
|
0)
|
|
this-scheme-implementation-name
|
|
(%closure
|
|
(lambda (self$287
|
|
r$157)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$288
|
|
r$150)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$289
|
|
r$151)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$290
|
|
r$152)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$291
|
|
r$153)
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$292
|
|
r$154)
|
|
((%closure-ref
|
|
newline
|
|
0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$293
|
|
r$155)
|
|
((%closure-ref
|
|
current-output-port
|
|
0)
|
|
current-output-port
|
|
(%closure
|
|
(lambda (self$294
|
|
r$156)
|
|
((%closure-ref
|
|
flush-output-port
|
|
0)
|
|
flush-output-port
|
|
(%closure
|
|
(lambda (self$295
|
|
r$136)
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$295
|
|
1)
|
|
0)
|
|
(%closure-ref
|
|
self$295
|
|
1)
|
|
(%closure-ref
|
|
self$295
|
|
2)))
|
|
(%closure-ref
|
|
self$294
|
|
1)
|
|
(%closure-ref
|
|
self$294
|
|
2))
|
|
r$156))
|
|
(%closure-ref
|
|
self$293
|
|
1)
|
|
(%closure-ref
|
|
self$293
|
|
2))))
|
|
(%closure-ref
|
|
self$292
|
|
1)
|
|
(%closure-ref
|
|
self$292
|
|
2))))
|
|
(%closure-ref
|
|
self$291
|
|
4)
|
|
(%closure-ref
|
|
self$291
|
|
5))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
(%closure-ref
|
|
self$291
|
|
3)
|
|
(%closure-ref
|
|
self$291
|
|
2))
|
|
(%closure-ref
|
|
self$291
|
|
1)))))
|
|
(%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$289
|
|
1)
|
|
(%closure-ref
|
|
self$289
|
|
2)
|
|
(%closure-ref
|
|
self$289
|
|
3)
|
|
(%closure-ref
|
|
self$289
|
|
4)
|
|
(%closure-ref
|
|
self$289
|
|
6))
|
|
(%closure-ref
|
|
self$289
|
|
5)))
|
|
(%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))
|
|
r$157))
|
|
(%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))))
|
|
(%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))
|
|
"+!CSVLINE!+"))
|
|
(%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$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
|
|
5)))
|
|
(%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))
|
|
") for "))
|
|
(%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))
|
|
(%closure-ref
|
|
self$281
|
|
7)))
|
|
(%closure-ref
|
|
self$280
|
|
1)
|
|
(%closure-ref
|
|
self$280
|
|
2)
|
|
(%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))
|
|
" seconds ("))
|
|
(%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))
|
|
(inexact__inline__
|
|
(Cyc-fast-div
|
|
(Cyc-fast-sub
|
|
(%closure-ref
|
|
self$279
|
|
3)
|
|
(%closure-ref
|
|
self$279
|
|
2))
|
|
(%closure-ref
|
|
self$279
|
|
1)))))
|
|
(%closure-ref
|
|
self$278
|
|
1)
|
|
(%closure-ref
|
|
self$278
|
|
2)
|
|
(%closure-ref
|
|
self$278
|
|
3)
|
|
(%closure-ref
|
|
self$278
|
|
4)
|
|
(%closure-ref
|
|
self$278
|
|
5)
|
|
(%closure-ref
|
|
self$278
|
|
6)
|
|
secs2$63)
|
|
"Elapsed time: "))
|
|
(%closure-ref
|
|
self$277
|
|
1)
|
|
(%closure-ref
|
|
self$277
|
|
2)
|
|
(%closure-ref
|
|
self$277
|
|
3)
|
|
(%closure-ref
|
|
self$277
|
|
4)
|
|
(%closure-ref
|
|
self$277
|
|
5)
|
|
(%closure-ref
|
|
self$277
|
|
6))
|
|
(Cyc-fast-sub
|
|
t1$60
|
|
(%closure-ref
|
|
self$277
|
|
8))))
|
|
(%closure-ref
|
|
self$276
|
|
1)
|
|
(%closure-ref
|
|
self$276
|
|
2)
|
|
j1$59
|
|
(%closure-ref
|
|
self$276
|
|
3)
|
|
(%closure-ref
|
|
self$276
|
|
4)
|
|
(%closure-ref
|
|
self$276
|
|
5)
|
|
(%closure-ref
|
|
self$276
|
|
6)
|
|
(%closure-ref
|
|
self$276
|
|
7))))
|
|
(%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)
|
|
(%closure-ref
|
|
self$270
|
|
7)))
|
|
((%closure-ref
|
|
display
|
|
0)
|
|
display
|
|
(%closure
|
|
(lambda (self$271
|
|
r$160)
|
|
((%closure-ref
|
|
write
|
|
0)
|
|
write
|
|
(%closure
|
|
(lambda (self$272
|
|
r$161)
|
|
((%closure-ref
|
|
newline
|
|
0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$273
|
|
r$162)
|
|
((%closure-ref
|
|
current-output-port
|
|
0)
|
|
current-output-port
|
|
(%closure
|
|
(lambda (self$274
|
|
r$164)
|
|
((%closure-ref
|
|
flush-output-port
|
|
0)
|
|
flush-output-port
|
|
(%closure
|
|
(lambda (self$275
|
|
r$163)
|
|
((%closure-ref
|
|
(%closure-ref
|
|
self$275
|
|
1)
|
|
0)
|
|
(%closure-ref
|
|
self$275
|
|
1)
|
|
(%closure-ref
|
|
self$275
|
|
2)))
|
|
(%closure-ref
|
|
self$274
|
|
1)
|
|
(%closure-ref
|
|
self$274
|
|
2))
|
|
r$164))
|
|
(%closure-ref
|
|
self$273
|
|
1)
|
|
(%closure-ref
|
|
self$273
|
|
2))))
|
|
(%closure-ref
|
|
self$272
|
|
1)
|
|
(%closure-ref
|
|
self$272
|
|
2))))
|
|
(%closure-ref
|
|
self$271
|
|
1)
|
|
(%closure-ref
|
|
self$271
|
|
2))
|
|
(%closure-ref
|
|
self$271
|
|
2)))
|
|
(%closure-ref
|
|
self$270
|
|
3)
|
|
(%closure-ref
|
|
self$270
|
|
5))
|
|
"ERROR: returned incorrect result: ")))
|
|
(%closure-ref
|
|
self$269
|
|
2)
|
|
(%closure-ref
|
|
self$269
|
|
3)
|
|
k$131
|
|
(%closure-ref
|
|
self$269
|
|
5)
|
|
result$57
|
|
(%closure-ref
|
|
self$269
|
|
7)
|
|
(%closure-ref
|
|
self$269
|
|
8))
|
|
result$57)))
|
|
(%closure-ref
|
|
self$268
|
|
1)
|
|
(%closure-ref
|
|
self$268
|
|
2)
|
|
(%closure-ref
|
|
self$268
|
|
3)
|
|
loop$56
|
|
(%closure-ref
|
|
self$268
|
|
5)
|
|
(%closure-ref
|
|
self$268
|
|
6)
|
|
(%closure-ref
|
|
self$268
|
|
7)
|
|
(%closure-ref
|
|
self$268
|
|
8)
|
|
(%closure-ref
|
|
self$268
|
|
9)))))
|
|
(%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
|
|
7)
|
|
(%closure-ref
|
|
self$267
|
|
8)
|
|
(%closure-ref
|
|
self$267
|
|
9))
|
|
(cell loop$56)))
|
|
(%closure-ref
|
|
self$266
|
|
1)
|
|
(%closure-ref
|
|
self$266
|
|
2)
|
|
j0$53
|
|
(%closure-ref
|
|
self$266
|
|
3)
|
|
(%closure-ref
|
|
self$266
|
|
4)
|
|
(%closure-ref
|
|
self$266
|
|
5)
|
|
(%closure-ref
|
|
self$266
|
|
6)
|
|
(%closure-ref
|
|
self$266
|
|
7)
|
|
(%closure-ref
|
|
self$266
|
|
8))
|
|
#f))
|
|
(%closure-ref
|
|
self$265
|
|
1)
|
|
(%closure-ref
|
|
self$265
|
|
2)
|
|
(%closure-ref
|
|
self$265
|
|
3)
|
|
(%closure-ref
|
|
self$265
|
|
4)
|
|
(%closure-ref
|
|
self$265
|
|
5)
|
|
(%closure-ref
|
|
self$265
|
|
6)
|
|
t0$52
|
|
(%closure-ref
|
|
self$265
|
|
7))))
|
|
(%closure-ref self$264 1)
|
|
j/s$51
|
|
(%closure-ref self$264 2)
|
|
(%closure-ref self$264 3)
|
|
(%closure-ref self$264 4)
|
|
(%closure-ref self$264 5)
|
|
(%closure-ref
|
|
self$264
|
|
6))))
|
|
(%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)
|
|
(%closure-ref self$263 6))))
|
|
(%closure-ref self$262 1)
|
|
(%closure-ref self$262 2)
|
|
(%closure-ref self$262 3)
|
|
(%closure-ref self$262 4)
|
|
(%closure-ref self$262 5)
|
|
(%closure-ref self$262 6))
|
|
r$165))
|
|
(%closure-ref self$261 1)
|
|
(%closure-ref self$261 2)
|
|
(%closure-ref self$261 3)
|
|
(%closure-ref self$261 4)
|
|
(%closure-ref self$261 5)
|
|
(%closure-ref self$261 6))))
|
|
(%closure-ref self$260 1)
|
|
(%closure-ref self$260 2)
|
|
(%closure-ref self$260 3)
|
|
(%closure-ref self$260 4)
|
|
(%closure-ref self$260 5)
|
|
(%closure-ref self$260 6))))
|
|
(%closure-ref self$259 1)
|
|
(%closure-ref self$259 2)
|
|
(%closure-ref self$259 3)
|
|
(%closure-ref self$259 4)
|
|
(%closure-ref self$259 5)
|
|
(%closure-ref self$259 6))
|
|
(%closure-ref self$259 3)))
|
|
(%closure-ref self$258 1)
|
|
(%closure-ref self$258 2)
|
|
(%closure-ref self$258 3)
|
|
(%closure-ref self$258 4)
|
|
(%closure-ref self$258 5)
|
|
(%closure-ref self$258 6))
|
|
"Running "))
|
|
(%closure-ref self$256 1)
|
|
(%closure-ref self$256 2)
|
|
(%closure-ref self$256 3)
|
|
(%closure-ref self$256 4)
|
|
rounded$49
|
|
(%closure-ref self$256 5))
|
|
(set-cell!
|
|
rounded$49
|
|
(%closure
|
|
(lambda (self$257 k$167 x$64)
|
|
((%closure-ref k$167 0)
|
|
k$167
|
|
(Cyc-fast-div
|
|
(round__inline__ (Cyc-fast-mul 1000 x$64))
|
|
1000)))))))
|
|
(%closure-ref self$255 1)
|
|
(%closure-ref self$255 2)
|
|
(%closure-ref self$255 3)
|
|
(%closure-ref self$255 4)
|
|
(%closure-ref self$255 5))
|
|
(cell rounded$49)))
|
|
count$46
|
|
k$120
|
|
name$47
|
|
ok?$44
|
|
thunk$45)
|
|
#f)))
|
|
(define this-scheme-implementation-name
|
|
(lambda (k$116)
|
|
((%closure-ref Cyc-version 0)
|
|
Cyc-version
|
|
(%closure
|
|
(lambda (self$254 r$117)
|
|
((%closure-ref (%closure-ref self$254 1) 0)
|
|
(%closure-ref self$254 1)
|
|
(string-append "cyclone-" r$117)))
|
|
k$116))))
|
|
((%closure-ref main 0) main %halt))
|
|
*/
|
|
/*
|
|
"---------------- C headers: "
|
|
*/
|
|
/*
|
|
()
|
|
*/
|
|
/*
|
|
"---------------- module globals: "
|
|
*/
|
|
/*
|
|
(this-scheme-implementation-name
|
|
run-r7rs-benchmark
|
|
hide
|
|
main
|
|
test
|
|
mbrot
|
|
count)
|
|
*/
|
|
/*
|
|
"---------------- 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 closcall4(td, clo,a1,a2,a3,a4) \
|
|
if (type_is_pair_prim(clo)) { \
|
|
Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \
|
|
} else { \
|
|
((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\
|
|
}
|
|
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
|
|
GC(td, clo, buf, 4); \
|
|
return; \
|
|
} else {\
|
|
closcall4(td, (closure) (clo),a1,a2,a3,a4); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct4(td, _fn,a1,a2,a3,a4) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 4); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \
|
|
}}
|
|
|
|
#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); \
|
|
}}
|
|
|
|
#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \
|
|
if (type_is_pair_prim(clo)) { \
|
|
Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \
|
|
} else { \
|
|
((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\
|
|
}
|
|
#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\
|
|
GC(td, clo, buf, 6); \
|
|
return; \
|
|
} else {\
|
|
closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \
|
|
return;\
|
|
} \
|
|
}
|
|
|
|
#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \
|
|
char top; \
|
|
if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
|
|
object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \
|
|
mclosure0(c1, (function_type) _fn); \
|
|
GC(td, &c1, buf, 6); \
|
|
return; \
|
|
} else { \
|
|
(_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \
|
|
}}
|
|
|
|
#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_test = NULL;
|
|
object __glo_mbrot = NULL;
|
|
object __glo_count = 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_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_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_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_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_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_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_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_in_91port_117get_91buf_191_191inline_191_191_scheme_read;
|
|
extern object __glo_in_91port_117get_91lnum_191_191inline_191_191_scheme_read;
|
|
extern object __glo_in_91port_117get_91cnum_191_191inline_191_191_scheme_read;
|
|
#include "cyclone/runtime.h"
|
|
#include "cyclone/runtime-main.h"
|
|
static void __lambda_93(void *data, int argc, closure _,object k_73116) ;
|
|
static void __lambda_92(void *data, int argc, object self_73254, object r_73117) ;
|
|
static void __lambda_91(void *data, int argc, closure _,object k_73120, object name_7347, object count_7346, object thunk_7345, object ok_127_7344) ;
|
|
static void __lambda_90(void *data, int argc, object self_73255, object rounded_7349) ;
|
|
static void __lambda_89(void *data, int argc, object self_73256, object rounded_7349) ;
|
|
static void __lambda_88(void *data, int argc, object self_73257, object k_73167, object x_7364) ;
|
|
static void __lambda_87(void *data, int argc, object self_73258, object r_73121) ;
|
|
static void __lambda_86(void *data, int argc, object self_73259, object r_73122) ;
|
|
static void __lambda_85(void *data, int argc, object self_73260, object r_73123) ;
|
|
static void __lambda_84(void *data, int argc, object self_73261, object r_73124) ;
|
|
static void __lambda_83(void *data, int argc, object self_73262, object r_73165) ;
|
|
static void __lambda_82(void *data, int argc, object self_73263, object r_73125) ;
|
|
static void __lambda_81(void *data, int argc, object self_73264, object j_95s_7351) ;
|
|
static void __lambda_80(void *data, int argc, object self_73265, object t0_7352) ;
|
|
static void __lambda_79(void *data, int argc, object self_73266, object j0_7353) ;
|
|
static void __lambda_78(void *data, int argc, object self_73267, object loop_7356) ;
|
|
static void __lambda_77(void *data, int argc, object self_73268, object loop_7356) ;
|
|
static void __lambda_76(void *data, int argc, object self_73269, object k_73131, object i_7358, object result_7357) ;
|
|
static void __lambda_75(void *data, int argc, object self_73270, object r_73135) ;
|
|
static void __lambda_74(void *data, int argc, object self_73271, object r_73160) ;
|
|
static void __lambda_73(void *data, int argc, object self_73272, object r_73161) ;
|
|
static void __lambda_72(void *data, int argc, object self_73273, object r_73162) ;
|
|
static void __lambda_71(void *data, int argc, object self_73274, object r_73164) ;
|
|
static void __lambda_70(void *data, int argc, object self_73275, object r_73163) ;
|
|
static void __lambda_69(void *data, int argc, object self_73276, object j1_7359) ;
|
|
static void __lambda_68(void *data, int argc, object self_73277, object t1_7360) ;
|
|
static void __lambda_67(void *data, int argc, object self_73278, object secs2_7363) ;
|
|
static void __lambda_66(void *data, int argc, object self_73279, object r_73142) ;
|
|
static void __lambda_65(void *data, int argc, object self_73280, object r_73143) ;
|
|
static void __lambda_64(void *data, int argc, object self_73281, object r_73144) ;
|
|
static void __lambda_63(void *data, int argc, object self_73282, object r_73145) ;
|
|
static void __lambda_62(void *data, int argc, object self_73283, object r_73146) ;
|
|
static void __lambda_61(void *data, int argc, object self_73284, object r_73147) ;
|
|
static void __lambda_60(void *data, int argc, object self_73285, object r_73148) ;
|
|
static void __lambda_59(void *data, int argc, object self_73286, object r_73149) ;
|
|
static void __lambda_58(void *data, int argc, object self_73287, object r_73157) ;
|
|
static void __lambda_57(void *data, int argc, object self_73288, object r_73150) ;
|
|
static void __lambda_56(void *data, int argc, object self_73289, object r_73151) ;
|
|
static void __lambda_55(void *data, int argc, object self_73290, object r_73152) ;
|
|
static void __lambda_54(void *data, int argc, object self_73291, object r_73153) ;
|
|
static void __lambda_53(void *data, int argc, object self_73292, object r_73154) ;
|
|
static void __lambda_52(void *data, int argc, object self_73293, object r_73155) ;
|
|
static void __lambda_51(void *data, int argc, object self_73294, object r_73156) ;
|
|
static void __lambda_50(void *data, int argc, object self_73295, object r_73136) ;
|
|
static void __lambda_49(void *data, int argc, object self_73296, object r_73134) ;
|
|
static void __lambda_48(void *data, int argc, object self_73297, object r_73129) ;
|
|
static void __lambda_47(void *data, int argc, closure _,object k_73172, object r_7366, object x_7365) ;
|
|
static void __lambda_46(void *data, int argc, object self_73298, object k_73175, object v_7368, object i_7367) ;
|
|
static void __lambda_45(void *data, int argc, object self_73299, object k_73177) ;
|
|
static void __lambda_44(void *data, int argc, object self_73300, object k_73183, object x_7369) ;
|
|
static void __lambda_43(void *data, int argc, object self_73301, object r_73178) ;
|
|
static void __lambda_42(void *data, int argc, object self_73302, object r_73179) ;
|
|
static void __lambda_41(void *data, int argc, object self_73303, object k_73180) ;
|
|
static void __lambda_40(void *data, int argc, closure _,object k_73186) ;
|
|
static void __lambda_39(void *data, int argc, object self_73304, object count_7370) ;
|
|
static void __lambda_38(void *data, int argc, object self_73305, object input1_7371) ;
|
|
static void __lambda_37(void *data, int argc, object self_73306, object output_7372) ;
|
|
static void __lambda_36(void *data, int argc, object self_73307, object s2_7373) ;
|
|
static void __lambda_35(void *data, int argc, object self_73308, object s1_7374) ;
|
|
static void __lambda_34(void *data, int argc, object self_73309, object r_73192) ;
|
|
static void __lambda_33(void *data, int argc, object self_73310, object k_73195, object result_7376) ;
|
|
static void __lambda_32(void *data, int argc, object self_73311, object k_73196) ;
|
|
static void __lambda_31(void *data, int argc, object self_73312, object r_73197) ;
|
|
static void __lambda_30(void *data, int argc, closure _,object k_73200, object n_7377) ;
|
|
static void __lambda_29(void *data, int argc, object self_73313, object matrix_7378) ;
|
|
static void __lambda_28(void *data, int argc, object self_73314, object i_7379) ;
|
|
static void __lambda_27(void *data, int argc, object self_73315, object loop_7380) ;
|
|
static void __lambda_26(void *data, int argc, object self_73316, object loop_7380) ;
|
|
static void __lambda_25(void *data, int argc, object self_73317, object k_73208, object i_7381) ;
|
|
static void __lambda_24(void *data, int argc, object self_73318, object r_73212) ;
|
|
static void __lambda_23(void *data, int argc, object self_73319, object r_73210) ;
|
|
static void __lambda_22(void *data, int argc, object self_73320, object r_73206) ;
|
|
static void __lambda_21(void *data, int argc, object self_73321, object r_73202) ;
|
|
static void __lambda_20(void *data, int argc, object self_73322, object r_73203) ;
|
|
static void __lambda_19(void *data, int argc, closure _,object k_73215, object matrix_7386, object r_7385, object i_7384, object step_7383, object n_7382) ;
|
|
static void __lambda_18(void *data, int argc, object self_73323, object loop1_7388) ;
|
|
static void __lambda_17(void *data, int argc, object self_73324, object loop1_7388) ;
|
|
static void __lambda_16(void *data, int argc, object self_73325, object k_73219, object y_7389) ;
|
|
static void __lambda_15(void *data, int argc, object self_73326, object r_73220) ;
|
|
static void __lambda_14(void *data, int argc, object self_73327, object loop2_7391) ;
|
|
static void __lambda_13(void *data, int argc, object self_73328, object loop2_7391) ;
|
|
static void __lambda_12(void *data, int argc, object self_73329, object k_73224, object x_7392) ;
|
|
static void __lambda_11(void *data, int argc, object self_73330, object r_73225) ;
|
|
static void __lambda_10(void *data, int argc, object self_73331, object r_73228) ;
|
|
static void __lambda_9(void *data, int argc, object self_73332, object r_73229) ;
|
|
static void __lambda_8(void *data, int argc, object self_73333, object r_73226) ;
|
|
static void __lambda_7(void *data, int argc, object self_73334, object r_73227) ;
|
|
static void __lambda_6(void *data, int argc, object self_73335, object r_73222) ;
|
|
static void __lambda_5(void *data, int argc, object self_73336, object r_73217) ;
|
|
static void __lambda_4(void *data, int argc, closure _,object k_73233, object r_7397, object i_7396, object step_7395, object x_7394, object y_7393) ;
|
|
static void __lambda_3(void *data, int argc, object self_73337, object loop_73105) ;
|
|
static void __lambda_2(void *data, int argc, object self_73338, object loop_73105) ;
|
|
static void __lambda_1(void *data, int argc, object self_73339, object k_73238, object zr_73108, object zi_73107, object c_73106) ;
|
|
static void __lambda_0(void *data, int argc, object self_73340, object r_73236) ;
|
|
|
|
static void __lambda_93(void *data, int argc, closure _,object k_73116) {
|
|
Cyc_st_add(data, "mbrot.scm:this-scheme-implementation-name");
|
|
|
|
closureN_type c_73902;
|
|
c_73902.hdr.mark = gc_color_red;
|
|
c_73902.hdr.grayed = 0;
|
|
c_73902.tag = closureN_tag;
|
|
c_73902.fn = (function_type)__lambda_92;
|
|
c_73902.num_args = 1;
|
|
c_73902.num_elements = 1;
|
|
c_73902.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73902.elements[0] = k_73116;
|
|
|
|
return_closcall1(data, __glo_Cyc_91version_scheme_base, &c_73902);;
|
|
}
|
|
|
|
static void __lambda_92(void *data, int argc, object self_73254, object r_73117) {
|
|
|
|
make_string(c_73908, "cyclone-");
|
|
|
|
object c_73907 = Cyc_string_append(data, ((closureN)self_73254)->elements[0],2,&c_73908, r_73117);
|
|
return_closcall1(data, ((closureN)self_73254)->elements[0], c_73907);;
|
|
}
|
|
|
|
static void __lambda_91(void *data, int argc, closure _,object k_73120, object name_7347, object count_7346, object thunk_7345, object ok_127_7344) {
|
|
Cyc_st_add(data, "mbrot.scm:run-r7rs-benchmark");
|
|
|
|
closureN_type c_73716;
|
|
c_73716.hdr.mark = gc_color_red;
|
|
c_73716.hdr.grayed = 0;
|
|
c_73716.tag = closureN_tag;
|
|
c_73716.fn = (function_type)__lambda_90;
|
|
c_73716.num_args = 1;
|
|
c_73716.num_elements = 5;
|
|
c_73716.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73716.elements[0] = count_7346;
|
|
c_73716.elements[1] = k_73120;
|
|
c_73716.elements[2] = name_7347;
|
|
c_73716.elements[3] = ok_127_7344;
|
|
c_73716.elements[4] = thunk_7345;
|
|
|
|
return_closcall1(data,(closure)&c_73716, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_90(void *data, int argc, object self_73255, object rounded_7349) {
|
|
|
|
closureN_type c_73718;
|
|
c_73718.hdr.mark = gc_color_red;
|
|
c_73718.hdr.grayed = 0;
|
|
c_73718.tag = closureN_tag;
|
|
c_73718.fn = (function_type)__lambda_89;
|
|
c_73718.num_args = 1;
|
|
c_73718.num_elements = 5;
|
|
c_73718.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73718.elements[0] = ((closureN)self_73255)->elements[0];
|
|
c_73718.elements[1] = ((closureN)self_73255)->elements[1];
|
|
c_73718.elements[2] = ((closureN)self_73255)->elements[2];
|
|
c_73718.elements[3] = ((closureN)self_73255)->elements[3];
|
|
c_73718.elements[4] = ((closureN)self_73255)->elements[4];
|
|
|
|
|
|
make_cell(c_73899,rounded_7349);
|
|
return_closcall1(data,(closure)&c_73718, &c_73899);;
|
|
}
|
|
|
|
static void __lambda_89(void *data, int argc, object self_73256, object rounded_7349) {
|
|
|
|
closureN_type c_73720;
|
|
c_73720.hdr.mark = gc_color_red;
|
|
c_73720.hdr.grayed = 0;
|
|
c_73720.tag = closureN_tag;
|
|
c_73720.fn = (function_type)__lambda_87;
|
|
c_73720.num_args = 1;
|
|
c_73720.num_elements = 6;
|
|
c_73720.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73720.elements[0] = ((closureN)self_73256)->elements[0];
|
|
c_73720.elements[1] = ((closureN)self_73256)->elements[1];
|
|
c_73720.elements[2] = ((closureN)self_73256)->elements[2];
|
|
c_73720.elements[3] = ((closureN)self_73256)->elements[3];
|
|
c_73720.elements[4] = rounded_7349;
|
|
c_73720.elements[5] = ((closureN)self_73256)->elements[4];
|
|
|
|
|
|
mclosure0(c_73883, (function_type)__lambda_88);c_73883.num_args = 1;
|
|
return_closcall1(data,(closure)&c_73720, Cyc_set_cell(data, rounded_7349, &c_73883));;
|
|
}
|
|
|
|
static void __lambda_88(void *data, int argc, object self_73257, object k_73167, object x_7364) {
|
|
|
|
double_type local_73895; object c_73896 = Cyc_fast_mul(data,&local_73895,obj_int2obj(1000), x_7364);
|
|
|
|
double_type local_73891; object c_73892 = ((inline_function_type)
|
|
((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_73891,c_73896);
|
|
|
|
double_type local_73887; object c_73888 = Cyc_fast_div(data,&local_73887,c_73892, obj_int2obj(1000));
|
|
return_closcall1(data, k_73167, c_73888);;
|
|
}
|
|
|
|
static void __lambda_87(void *data, int argc, object self_73258, object r_73121) {
|
|
|
|
closureN_type c_73722;
|
|
c_73722.hdr.mark = gc_color_red;
|
|
c_73722.hdr.grayed = 0;
|
|
c_73722.tag = closureN_tag;
|
|
c_73722.fn = (function_type)__lambda_86;
|
|
c_73722.num_args = 1;
|
|
c_73722.num_elements = 6;
|
|
c_73722.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73722.elements[0] = ((closureN)self_73258)->elements[0];
|
|
c_73722.elements[1] = ((closureN)self_73258)->elements[1];
|
|
c_73722.elements[2] = ((closureN)self_73258)->elements[2];
|
|
c_73722.elements[3] = ((closureN)self_73258)->elements[3];
|
|
c_73722.elements[4] = ((closureN)self_73258)->elements[4];
|
|
c_73722.elements[5] = ((closureN)self_73258)->elements[5];
|
|
|
|
|
|
make_string(c_73880, "Running ");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73722, &c_73880);;
|
|
}
|
|
|
|
static void __lambda_86(void *data, int argc, object self_73259, object r_73122) {
|
|
|
|
closureN_type c_73724;
|
|
c_73724.hdr.mark = gc_color_red;
|
|
c_73724.hdr.grayed = 0;
|
|
c_73724.tag = closureN_tag;
|
|
c_73724.fn = (function_type)__lambda_85;
|
|
c_73724.num_args = 1;
|
|
c_73724.num_elements = 6;
|
|
c_73724.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73724.elements[0] = ((closureN)self_73259)->elements[0];
|
|
c_73724.elements[1] = ((closureN)self_73259)->elements[1];
|
|
c_73724.elements[2] = ((closureN)self_73259)->elements[2];
|
|
c_73724.elements[3] = ((closureN)self_73259)->elements[3];
|
|
c_73724.elements[4] = ((closureN)self_73259)->elements[4];
|
|
c_73724.elements[5] = ((closureN)self_73259)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73724, ((closureN)self_73259)->elements[2]);;
|
|
}
|
|
|
|
static void __lambda_85(void *data, int argc, object self_73260, object r_73123) {
|
|
|
|
closureN_type c_73726;
|
|
c_73726.hdr.mark = gc_color_red;
|
|
c_73726.hdr.grayed = 0;
|
|
c_73726.tag = closureN_tag;
|
|
c_73726.fn = (function_type)__lambda_84;
|
|
c_73726.num_args = 1;
|
|
c_73726.num_elements = 6;
|
|
c_73726.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73726.elements[0] = ((closureN)self_73260)->elements[0];
|
|
c_73726.elements[1] = ((closureN)self_73260)->elements[1];
|
|
c_73726.elements[2] = ((closureN)self_73260)->elements[2];
|
|
c_73726.elements[3] = ((closureN)self_73260)->elements[3];
|
|
c_73726.elements[4] = ((closureN)self_73260)->elements[4];
|
|
c_73726.elements[5] = ((closureN)self_73260)->elements[5];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73726);;
|
|
}
|
|
|
|
static void __lambda_84(void *data, int argc, object self_73261, object r_73124) {
|
|
|
|
closureN_type c_73728;
|
|
c_73728.hdr.mark = gc_color_red;
|
|
c_73728.hdr.grayed = 0;
|
|
c_73728.tag = closureN_tag;
|
|
c_73728.fn = (function_type)__lambda_83;
|
|
c_73728.num_args = 1;
|
|
c_73728.num_elements = 6;
|
|
c_73728.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73728.elements[0] = ((closureN)self_73261)->elements[0];
|
|
c_73728.elements[1] = ((closureN)self_73261)->elements[1];
|
|
c_73728.elements[2] = ((closureN)self_73261)->elements[2];
|
|
c_73728.elements[3] = ((closureN)self_73261)->elements[3];
|
|
c_73728.elements[4] = ((closureN)self_73261)->elements[4];
|
|
c_73728.elements[5] = ((closureN)self_73261)->elements[5];
|
|
|
|
return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73728);;
|
|
}
|
|
|
|
static void __lambda_83(void *data, int argc, object self_73262, object r_73165) {
|
|
|
|
closureN_type c_73730;
|
|
c_73730.hdr.mark = gc_color_red;
|
|
c_73730.hdr.grayed = 0;
|
|
c_73730.tag = closureN_tag;
|
|
c_73730.fn = (function_type)__lambda_82;
|
|
c_73730.num_args = 1;
|
|
c_73730.num_elements = 6;
|
|
c_73730.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73730.elements[0] = ((closureN)self_73262)->elements[0];
|
|
c_73730.elements[1] = ((closureN)self_73262)->elements[1];
|
|
c_73730.elements[2] = ((closureN)self_73262)->elements[2];
|
|
c_73730.elements[3] = ((closureN)self_73262)->elements[3];
|
|
c_73730.elements[4] = ((closureN)self_73262)->elements[4];
|
|
c_73730.elements[5] = ((closureN)self_73262)->elements[5];
|
|
|
|
return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73730, r_73165);;
|
|
}
|
|
|
|
static void __lambda_82(void *data, int argc, object self_73263, object r_73125) {
|
|
|
|
closureN_type c_73732;
|
|
c_73732.hdr.mark = gc_color_red;
|
|
c_73732.hdr.grayed = 0;
|
|
c_73732.tag = closureN_tag;
|
|
c_73732.fn = (function_type)__lambda_81;
|
|
c_73732.num_args = 1;
|
|
c_73732.num_elements = 6;
|
|
c_73732.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73732.elements[0] = ((closureN)self_73263)->elements[0];
|
|
c_73732.elements[1] = ((closureN)self_73263)->elements[1];
|
|
c_73732.elements[2] = ((closureN)self_73263)->elements[2];
|
|
c_73732.elements[3] = ((closureN)self_73263)->elements[3];
|
|
c_73732.elements[4] = ((closureN)self_73263)->elements[4];
|
|
c_73732.elements[5] = ((closureN)self_73263)->elements[5];
|
|
|
|
return_closcall1(data, __glo_jiffies_91per_91second_scheme_time, &c_73732);;
|
|
}
|
|
|
|
static void __lambda_81(void *data, int argc, object self_73264, object j_95s_7351) {
|
|
|
|
closureN_type c_73734;
|
|
c_73734.hdr.mark = gc_color_red;
|
|
c_73734.hdr.grayed = 0;
|
|
c_73734.tag = closureN_tag;
|
|
c_73734.fn = (function_type)__lambda_80;
|
|
c_73734.num_args = 1;
|
|
c_73734.num_elements = 7;
|
|
c_73734.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73734.elements[0] = ((closureN)self_73264)->elements[0];
|
|
c_73734.elements[1] = j_95s_7351;
|
|
c_73734.elements[2] = ((closureN)self_73264)->elements[1];
|
|
c_73734.elements[3] = ((closureN)self_73264)->elements[2];
|
|
c_73734.elements[4] = ((closureN)self_73264)->elements[3];
|
|
c_73734.elements[5] = ((closureN)self_73264)->elements[4];
|
|
c_73734.elements[6] = ((closureN)self_73264)->elements[5];
|
|
|
|
return_closcall1(data, __glo_current_91second_scheme_time, &c_73734);;
|
|
}
|
|
|
|
static void __lambda_80(void *data, int argc, object self_73265, object t0_7352) {
|
|
|
|
closureN_type c_73736;
|
|
c_73736.hdr.mark = gc_color_red;
|
|
c_73736.hdr.grayed = 0;
|
|
c_73736.tag = closureN_tag;
|
|
c_73736.fn = (function_type)__lambda_79;
|
|
c_73736.num_args = 1;
|
|
c_73736.num_elements = 8;
|
|
c_73736.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73736.elements[0] = ((closureN)self_73265)->elements[0];
|
|
c_73736.elements[1] = ((closureN)self_73265)->elements[1];
|
|
c_73736.elements[2] = ((closureN)self_73265)->elements[2];
|
|
c_73736.elements[3] = ((closureN)self_73265)->elements[3];
|
|
c_73736.elements[4] = ((closureN)self_73265)->elements[4];
|
|
c_73736.elements[5] = ((closureN)self_73265)->elements[5];
|
|
c_73736.elements[6] = t0_7352;
|
|
c_73736.elements[7] = ((closureN)self_73265)->elements[6];
|
|
|
|
return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73736);;
|
|
}
|
|
|
|
static void __lambda_79(void *data, int argc, object self_73266, object j0_7353) {
|
|
|
|
closureN_type c_73738;
|
|
c_73738.hdr.mark = gc_color_red;
|
|
c_73738.hdr.grayed = 0;
|
|
c_73738.tag = closureN_tag;
|
|
c_73738.fn = (function_type)__lambda_78;
|
|
c_73738.num_args = 1;
|
|
c_73738.num_elements = 9;
|
|
c_73738.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73738.elements[0] = ((closureN)self_73266)->elements[0];
|
|
c_73738.elements[1] = ((closureN)self_73266)->elements[1];
|
|
c_73738.elements[2] = j0_7353;
|
|
c_73738.elements[3] = ((closureN)self_73266)->elements[2];
|
|
c_73738.elements[4] = ((closureN)self_73266)->elements[3];
|
|
c_73738.elements[5] = ((closureN)self_73266)->elements[4];
|
|
c_73738.elements[6] = ((closureN)self_73266)->elements[5];
|
|
c_73738.elements[7] = ((closureN)self_73266)->elements[6];
|
|
c_73738.elements[8] = ((closureN)self_73266)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_73738, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_78(void *data, int argc, object self_73267, object loop_7356) {
|
|
|
|
closureN_type c_73740;
|
|
c_73740.hdr.mark = gc_color_red;
|
|
c_73740.hdr.grayed = 0;
|
|
c_73740.tag = closureN_tag;
|
|
c_73740.fn = (function_type)__lambda_77;
|
|
c_73740.num_args = 1;
|
|
c_73740.num_elements = 9;
|
|
c_73740.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73740.elements[0] = ((closureN)self_73267)->elements[0];
|
|
c_73740.elements[1] = ((closureN)self_73267)->elements[1];
|
|
c_73740.elements[2] = ((closureN)self_73267)->elements[2];
|
|
c_73740.elements[3] = ((closureN)self_73267)->elements[3];
|
|
c_73740.elements[4] = ((closureN)self_73267)->elements[4];
|
|
c_73740.elements[5] = ((closureN)self_73267)->elements[5];
|
|
c_73740.elements[6] = ((closureN)self_73267)->elements[6];
|
|
c_73740.elements[7] = ((closureN)self_73267)->elements[7];
|
|
c_73740.elements[8] = ((closureN)self_73267)->elements[8];
|
|
|
|
|
|
make_cell(c_73878,loop_7356);
|
|
return_closcall1(data,(closure)&c_73740, &c_73878);;
|
|
}
|
|
|
|
static void __lambda_77(void *data, int argc, object self_73268, object loop_7356) {
|
|
|
|
closureN_type c_73742;
|
|
c_73742.hdr.mark = gc_color_red;
|
|
c_73742.hdr.grayed = 0;
|
|
c_73742.tag = closureN_tag;
|
|
c_73742.fn = (function_type)__lambda_48;
|
|
c_73742.num_args = 1;
|
|
c_73742.num_elements = 2;
|
|
c_73742.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73742.elements[0] = ((closureN)self_73268)->elements[3];
|
|
c_73742.elements[1] = loop_7356;
|
|
|
|
|
|
closureN_type c_73750;
|
|
c_73750.hdr.mark = gc_color_red;
|
|
c_73750.hdr.grayed = 0;
|
|
c_73750.tag = closureN_tag;
|
|
c_73750.fn = (function_type)__lambda_76;
|
|
c_73750.num_args = 2;
|
|
c_73750.num_elements = 9;
|
|
c_73750.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73750.elements[0] = ((closureN)self_73268)->elements[0];
|
|
c_73750.elements[1] = ((closureN)self_73268)->elements[1];
|
|
c_73750.elements[2] = ((closureN)self_73268)->elements[2];
|
|
c_73750.elements[3] = loop_7356;
|
|
c_73750.elements[4] = ((closureN)self_73268)->elements[4];
|
|
c_73750.elements[5] = ((closureN)self_73268)->elements[5];
|
|
c_73750.elements[6] = ((closureN)self_73268)->elements[6];
|
|
c_73750.elements[7] = ((closureN)self_73268)->elements[7];
|
|
c_73750.elements[8] = ((closureN)self_73268)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_73742, Cyc_set_cell(data, loop_7356, &c_73750));;
|
|
}
|
|
|
|
static void __lambda_76(void *data, int argc, object self_73269, object k_73131, object i_7358, object result_7357) {
|
|
object c_73753 = Cyc_num_fast_lt_op(data,i_7358, ((closureN)self_73269)->elements[0]);
|
|
if( (boolean_f != c_73753) ){
|
|
|
|
closureN_type c_73757;
|
|
c_73757.hdr.mark = gc_color_red;
|
|
c_73757.hdr.grayed = 0;
|
|
c_73757.tag = closureN_tag;
|
|
c_73757.fn = (function_type)__lambda_49;
|
|
c_73757.num_args = 1;
|
|
c_73757.num_elements = 3;
|
|
c_73757.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73757.elements[0] = i_7358;
|
|
c_73757.elements[1] = k_73131;
|
|
c_73757.elements[2] = ((closureN)self_73269)->elements[3];
|
|
|
|
return_closcall1(data, ((closureN)self_73269)->elements[8], &c_73757);
|
|
} else {
|
|
|
|
closureN_type c_73770;
|
|
c_73770.hdr.mark = gc_color_red;
|
|
c_73770.hdr.grayed = 0;
|
|
c_73770.tag = closureN_tag;
|
|
c_73770.fn = (function_type)__lambda_75;
|
|
c_73770.num_args = 1;
|
|
c_73770.num_elements = 7;
|
|
c_73770.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73770.elements[0] = ((closureN)self_73269)->elements[1];
|
|
c_73770.elements[1] = ((closureN)self_73269)->elements[2];
|
|
c_73770.elements[2] = k_73131;
|
|
c_73770.elements[3] = ((closureN)self_73269)->elements[4];
|
|
c_73770.elements[4] = result_7357;
|
|
c_73770.elements[5] = ((closureN)self_73269)->elements[6];
|
|
c_73770.elements[6] = ((closureN)self_73269)->elements[7];
|
|
|
|
return_closcall2(data, ((closureN)self_73269)->elements[5], &c_73770, result_7357);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_75(void *data, int argc, object self_73270, object r_73135) {
|
|
if( (boolean_f != r_73135) ){
|
|
|
|
closureN_type c_73772;
|
|
c_73772.hdr.mark = gc_color_red;
|
|
c_73772.hdr.grayed = 0;
|
|
c_73772.tag = closureN_tag;
|
|
c_73772.fn = (function_type)__lambda_69;
|
|
c_73772.num_args = 1;
|
|
c_73772.num_elements = 7;
|
|
c_73772.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73772.elements[0] = ((closureN)self_73270)->elements[0];
|
|
c_73772.elements[1] = ((closureN)self_73270)->elements[1];
|
|
c_73772.elements[2] = ((closureN)self_73270)->elements[2];
|
|
c_73772.elements[3] = ((closureN)self_73270)->elements[3];
|
|
c_73772.elements[4] = ((closureN)self_73270)->elements[4];
|
|
c_73772.elements[5] = ((closureN)self_73270)->elements[5];
|
|
c_73772.elements[6] = ((closureN)self_73270)->elements[6];
|
|
|
|
return_closcall1(data, __glo_current_91jiffy_scheme_time, &c_73772);
|
|
} else {
|
|
|
|
closureN_type c_73862;
|
|
c_73862.hdr.mark = gc_color_red;
|
|
c_73862.hdr.grayed = 0;
|
|
c_73862.tag = closureN_tag;
|
|
c_73862.fn = (function_type)__lambda_74;
|
|
c_73862.num_args = 1;
|
|
c_73862.num_elements = 2;
|
|
c_73862.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73862.elements[0] = ((closureN)self_73270)->elements[2];
|
|
c_73862.elements[1] = ((closureN)self_73270)->elements[4];
|
|
|
|
|
|
make_string(c_73875, "ERROR: returned incorrect result: ");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73862, &c_73875);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_74(void *data, int argc, object self_73271, object r_73160) {
|
|
|
|
closureN_type c_73864;
|
|
c_73864.hdr.mark = gc_color_red;
|
|
c_73864.hdr.grayed = 0;
|
|
c_73864.tag = closureN_tag;
|
|
c_73864.fn = (function_type)__lambda_73;
|
|
c_73864.num_args = 1;
|
|
c_73864.num_elements = 2;
|
|
c_73864.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73864.elements[0] = ((closureN)self_73271)->elements[0];
|
|
c_73864.elements[1] = ((closureN)self_73271)->elements[1];
|
|
|
|
return_closcall2(data, __glo_write_scheme_write, &c_73864, ((closureN)self_73271)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_73(void *data, int argc, object self_73272, object r_73161) {
|
|
|
|
closureN_type c_73866;
|
|
c_73866.hdr.mark = gc_color_red;
|
|
c_73866.hdr.grayed = 0;
|
|
c_73866.tag = closureN_tag;
|
|
c_73866.fn = (function_type)__lambda_72;
|
|
c_73866.num_args = 1;
|
|
c_73866.num_elements = 2;
|
|
c_73866.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73866.elements[0] = ((closureN)self_73272)->elements[0];
|
|
c_73866.elements[1] = ((closureN)self_73272)->elements[1];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73866);;
|
|
}
|
|
|
|
static void __lambda_72(void *data, int argc, object self_73273, object r_73162) {
|
|
|
|
closureN_type c_73868;
|
|
c_73868.hdr.mark = gc_color_red;
|
|
c_73868.hdr.grayed = 0;
|
|
c_73868.tag = closureN_tag;
|
|
c_73868.fn = (function_type)__lambda_71;
|
|
c_73868.num_args = 1;
|
|
c_73868.num_elements = 2;
|
|
c_73868.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73868.elements[0] = ((closureN)self_73273)->elements[0];
|
|
c_73868.elements[1] = ((closureN)self_73273)->elements[1];
|
|
|
|
return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73868);;
|
|
}
|
|
|
|
static void __lambda_71(void *data, int argc, object self_73274, object r_73164) {
|
|
|
|
closureN_type c_73870;
|
|
c_73870.hdr.mark = gc_color_red;
|
|
c_73870.hdr.grayed = 0;
|
|
c_73870.tag = closureN_tag;
|
|
c_73870.fn = (function_type)__lambda_70;
|
|
c_73870.num_args = 1;
|
|
c_73870.num_elements = 2;
|
|
c_73870.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73870.elements[0] = ((closureN)self_73274)->elements[0];
|
|
c_73870.elements[1] = ((closureN)self_73274)->elements[1];
|
|
|
|
return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73870, r_73164);;
|
|
}
|
|
|
|
static void __lambda_70(void *data, int argc, object self_73275, object r_73163) {
|
|
return_closcall1(data, ((closureN)self_73275)->elements[0], ((closureN)self_73275)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_69(void *data, int argc, object self_73276, object j1_7359) {
|
|
|
|
closureN_type c_73774;
|
|
c_73774.hdr.mark = gc_color_red;
|
|
c_73774.hdr.grayed = 0;
|
|
c_73774.tag = closureN_tag;
|
|
c_73774.fn = (function_type)__lambda_68;
|
|
c_73774.num_args = 1;
|
|
c_73774.num_elements = 8;
|
|
c_73774.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73774.elements[0] = ((closureN)self_73276)->elements[0];
|
|
c_73774.elements[1] = ((closureN)self_73276)->elements[1];
|
|
c_73774.elements[2] = j1_7359;
|
|
c_73774.elements[3] = ((closureN)self_73276)->elements[2];
|
|
c_73774.elements[4] = ((closureN)self_73276)->elements[3];
|
|
c_73774.elements[5] = ((closureN)self_73276)->elements[4];
|
|
c_73774.elements[6] = ((closureN)self_73276)->elements[5];
|
|
c_73774.elements[7] = ((closureN)self_73276)->elements[6];
|
|
|
|
return_closcall1(data, __glo_current_91second_scheme_time, &c_73774);;
|
|
}
|
|
|
|
static void __lambda_68(void *data, int argc, object self_73277, object t1_7360) {
|
|
|
|
closureN_type c_73779;
|
|
c_73779.hdr.mark = gc_color_red;
|
|
c_73779.hdr.grayed = 0;
|
|
c_73779.tag = closureN_tag;
|
|
c_73779.fn = (function_type)__lambda_67;
|
|
c_73779.num_args = 1;
|
|
c_73779.num_elements = 6;
|
|
c_73779.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73779.elements[0] = ((closureN)self_73277)->elements[0];
|
|
c_73779.elements[1] = ((closureN)self_73277)->elements[1];
|
|
c_73779.elements[2] = ((closureN)self_73277)->elements[2];
|
|
c_73779.elements[3] = ((closureN)self_73277)->elements[3];
|
|
c_73779.elements[4] = ((closureN)self_73277)->elements[4];
|
|
c_73779.elements[5] = ((closureN)self_73277)->elements[5];
|
|
|
|
|
|
double_type local_73858; object c_73859 = Cyc_fast_sub(data,&local_73858,t1_7360, ((closureN)self_73277)->elements[7]);
|
|
return_closcall2(data, car(((closureN)self_73277)->elements[6]), &c_73779, c_73859);;
|
|
}
|
|
|
|
static void __lambda_67(void *data, int argc, object self_73278, object secs2_7363) {
|
|
|
|
closureN_type c_73781;
|
|
c_73781.hdr.mark = gc_color_red;
|
|
c_73781.hdr.grayed = 0;
|
|
c_73781.tag = closureN_tag;
|
|
c_73781.fn = (function_type)__lambda_66;
|
|
c_73781.num_args = 1;
|
|
c_73781.num_elements = 7;
|
|
c_73781.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73781.elements[0] = ((closureN)self_73278)->elements[0];
|
|
c_73781.elements[1] = ((closureN)self_73278)->elements[1];
|
|
c_73781.elements[2] = ((closureN)self_73278)->elements[2];
|
|
c_73781.elements[3] = ((closureN)self_73278)->elements[3];
|
|
c_73781.elements[4] = ((closureN)self_73278)->elements[4];
|
|
c_73781.elements[5] = ((closureN)self_73278)->elements[5];
|
|
c_73781.elements[6] = secs2_7363;
|
|
|
|
|
|
make_string(c_73855, "Elapsed time: ");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73781, &c_73855);;
|
|
}
|
|
|
|
static void __lambda_66(void *data, int argc, object self_73279, object r_73142) {
|
|
|
|
closureN_type c_73783;
|
|
c_73783.hdr.mark = gc_color_red;
|
|
c_73783.hdr.grayed = 0;
|
|
c_73783.tag = closureN_tag;
|
|
c_73783.fn = (function_type)__lambda_65;
|
|
c_73783.num_args = 1;
|
|
c_73783.num_elements = 7;
|
|
c_73783.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73783.elements[0] = ((closureN)self_73279)->elements[0];
|
|
c_73783.elements[1] = ((closureN)self_73279)->elements[1];
|
|
c_73783.elements[2] = ((closureN)self_73279)->elements[2];
|
|
c_73783.elements[3] = ((closureN)self_73279)->elements[3];
|
|
c_73783.elements[4] = ((closureN)self_73279)->elements[4];
|
|
c_73783.elements[5] = ((closureN)self_73279)->elements[5];
|
|
c_73783.elements[6] = ((closureN)self_73279)->elements[6];
|
|
|
|
|
|
double_type local_73850; object c_73851 = Cyc_fast_sub(data,&local_73850,((closureN)self_73279)->elements[2], ((closureN)self_73279)->elements[1]);
|
|
|
|
double_type local_73846; object c_73847 = Cyc_fast_div(data,&local_73846,c_73851, ((closureN)self_73279)->elements[0]);
|
|
|
|
double_type local_73842; object c_73843 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73842,c_73847);
|
|
return_closcall2(data, __glo_write_scheme_write, &c_73783, c_73843);;
|
|
}
|
|
|
|
static void __lambda_65(void *data, int argc, object self_73280, object r_73143) {
|
|
|
|
closureN_type c_73785;
|
|
c_73785.hdr.mark = gc_color_red;
|
|
c_73785.hdr.grayed = 0;
|
|
c_73785.tag = closureN_tag;
|
|
c_73785.fn = (function_type)__lambda_64;
|
|
c_73785.num_args = 1;
|
|
c_73785.num_elements = 7;
|
|
c_73785.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73785.elements[0] = ((closureN)self_73280)->elements[0];
|
|
c_73785.elements[1] = ((closureN)self_73280)->elements[1];
|
|
c_73785.elements[2] = ((closureN)self_73280)->elements[2];
|
|
c_73785.elements[3] = ((closureN)self_73280)->elements[3];
|
|
c_73785.elements[4] = ((closureN)self_73280)->elements[4];
|
|
c_73785.elements[5] = ((closureN)self_73280)->elements[5];
|
|
c_73785.elements[6] = ((closureN)self_73280)->elements[6];
|
|
|
|
|
|
make_string(c_73839, " seconds (");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73785, &c_73839);;
|
|
}
|
|
|
|
static void __lambda_64(void *data, int argc, object self_73281, object r_73144) {
|
|
|
|
closureN_type c_73787;
|
|
c_73787.hdr.mark = gc_color_red;
|
|
c_73787.hdr.grayed = 0;
|
|
c_73787.tag = closureN_tag;
|
|
c_73787.fn = (function_type)__lambda_63;
|
|
c_73787.num_args = 1;
|
|
c_73787.num_elements = 6;
|
|
c_73787.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73787.elements[0] = ((closureN)self_73281)->elements[0];
|
|
c_73787.elements[1] = ((closureN)self_73281)->elements[1];
|
|
c_73787.elements[2] = ((closureN)self_73281)->elements[2];
|
|
c_73787.elements[3] = ((closureN)self_73281)->elements[3];
|
|
c_73787.elements[4] = ((closureN)self_73281)->elements[4];
|
|
c_73787.elements[5] = ((closureN)self_73281)->elements[5];
|
|
|
|
return_closcall2(data, __glo_write_scheme_write, &c_73787, ((closureN)self_73281)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_63(void *data, int argc, object self_73282, object r_73145) {
|
|
|
|
closureN_type c_73789;
|
|
c_73789.hdr.mark = gc_color_red;
|
|
c_73789.hdr.grayed = 0;
|
|
c_73789.tag = closureN_tag;
|
|
c_73789.fn = (function_type)__lambda_62;
|
|
c_73789.num_args = 1;
|
|
c_73789.num_elements = 6;
|
|
c_73789.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73789.elements[0] = ((closureN)self_73282)->elements[0];
|
|
c_73789.elements[1] = ((closureN)self_73282)->elements[1];
|
|
c_73789.elements[2] = ((closureN)self_73282)->elements[2];
|
|
c_73789.elements[3] = ((closureN)self_73282)->elements[3];
|
|
c_73789.elements[4] = ((closureN)self_73282)->elements[4];
|
|
c_73789.elements[5] = ((closureN)self_73282)->elements[5];
|
|
|
|
|
|
make_string(c_73837, ") for ");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73789, &c_73837);;
|
|
}
|
|
|
|
static void __lambda_62(void *data, int argc, object self_73283, object r_73146) {
|
|
|
|
closureN_type c_73791;
|
|
c_73791.hdr.mark = gc_color_red;
|
|
c_73791.hdr.grayed = 0;
|
|
c_73791.tag = closureN_tag;
|
|
c_73791.fn = (function_type)__lambda_61;
|
|
c_73791.num_args = 1;
|
|
c_73791.num_elements = 6;
|
|
c_73791.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73791.elements[0] = ((closureN)self_73283)->elements[0];
|
|
c_73791.elements[1] = ((closureN)self_73283)->elements[1];
|
|
c_73791.elements[2] = ((closureN)self_73283)->elements[2];
|
|
c_73791.elements[3] = ((closureN)self_73283)->elements[3];
|
|
c_73791.elements[4] = ((closureN)self_73283)->elements[4];
|
|
c_73791.elements[5] = ((closureN)self_73283)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73791, ((closureN)self_73283)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_61(void *data, int argc, object self_73284, object r_73147) {
|
|
|
|
closureN_type c_73793;
|
|
c_73793.hdr.mark = gc_color_red;
|
|
c_73793.hdr.grayed = 0;
|
|
c_73793.tag = closureN_tag;
|
|
c_73793.fn = (function_type)__lambda_60;
|
|
c_73793.num_args = 1;
|
|
c_73793.num_elements = 6;
|
|
c_73793.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73793.elements[0] = ((closureN)self_73284)->elements[0];
|
|
c_73793.elements[1] = ((closureN)self_73284)->elements[1];
|
|
c_73793.elements[2] = ((closureN)self_73284)->elements[2];
|
|
c_73793.elements[3] = ((closureN)self_73284)->elements[3];
|
|
c_73793.elements[4] = ((closureN)self_73284)->elements[4];
|
|
c_73793.elements[5] = ((closureN)self_73284)->elements[5];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73793);;
|
|
}
|
|
|
|
static void __lambda_60(void *data, int argc, object self_73285, object r_73148) {
|
|
|
|
closureN_type c_73795;
|
|
c_73795.hdr.mark = gc_color_red;
|
|
c_73795.hdr.grayed = 0;
|
|
c_73795.tag = closureN_tag;
|
|
c_73795.fn = (function_type)__lambda_59;
|
|
c_73795.num_args = 1;
|
|
c_73795.num_elements = 6;
|
|
c_73795.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73795.elements[0] = ((closureN)self_73285)->elements[0];
|
|
c_73795.elements[1] = ((closureN)self_73285)->elements[1];
|
|
c_73795.elements[2] = ((closureN)self_73285)->elements[2];
|
|
c_73795.elements[3] = ((closureN)self_73285)->elements[3];
|
|
c_73795.elements[4] = ((closureN)self_73285)->elements[4];
|
|
c_73795.elements[5] = ((closureN)self_73285)->elements[5];
|
|
|
|
|
|
make_string(c_73835, "+!CSVLINE!+");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73795, &c_73835);;
|
|
}
|
|
|
|
static void __lambda_59(void *data, int argc, object self_73286, object r_73149) {
|
|
|
|
closureN_type c_73797;
|
|
c_73797.hdr.mark = gc_color_red;
|
|
c_73797.hdr.grayed = 0;
|
|
c_73797.tag = closureN_tag;
|
|
c_73797.fn = (function_type)__lambda_58;
|
|
c_73797.num_args = 1;
|
|
c_73797.num_elements = 6;
|
|
c_73797.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73797.elements[0] = ((closureN)self_73286)->elements[0];
|
|
c_73797.elements[1] = ((closureN)self_73286)->elements[1];
|
|
c_73797.elements[2] = ((closureN)self_73286)->elements[2];
|
|
c_73797.elements[3] = ((closureN)self_73286)->elements[3];
|
|
c_73797.elements[4] = ((closureN)self_73286)->elements[4];
|
|
c_73797.elements[5] = ((closureN)self_73286)->elements[5];
|
|
|
|
return_closcall1(data, __glo_this_91scheme_91implementation_91name, &c_73797);;
|
|
}
|
|
|
|
static void __lambda_58(void *data, int argc, object self_73287, object r_73157) {
|
|
|
|
closureN_type c_73799;
|
|
c_73799.hdr.mark = gc_color_red;
|
|
c_73799.hdr.grayed = 0;
|
|
c_73799.tag = closureN_tag;
|
|
c_73799.fn = (function_type)__lambda_57;
|
|
c_73799.num_args = 1;
|
|
c_73799.num_elements = 6;
|
|
c_73799.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73799.elements[0] = ((closureN)self_73287)->elements[0];
|
|
c_73799.elements[1] = ((closureN)self_73287)->elements[1];
|
|
c_73799.elements[2] = ((closureN)self_73287)->elements[2];
|
|
c_73799.elements[3] = ((closureN)self_73287)->elements[3];
|
|
c_73799.elements[4] = ((closureN)self_73287)->elements[4];
|
|
c_73799.elements[5] = ((closureN)self_73287)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73799, r_73157);;
|
|
}
|
|
|
|
static void __lambda_57(void *data, int argc, object self_73288, object r_73150) {
|
|
|
|
closureN_type c_73801;
|
|
c_73801.hdr.mark = gc_color_red;
|
|
c_73801.hdr.grayed = 0;
|
|
c_73801.tag = closureN_tag;
|
|
c_73801.fn = (function_type)__lambda_56;
|
|
c_73801.num_args = 1;
|
|
c_73801.num_elements = 6;
|
|
c_73801.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73801.elements[0] = ((closureN)self_73288)->elements[0];
|
|
c_73801.elements[1] = ((closureN)self_73288)->elements[1];
|
|
c_73801.elements[2] = ((closureN)self_73288)->elements[2];
|
|
c_73801.elements[3] = ((closureN)self_73288)->elements[3];
|
|
c_73801.elements[4] = ((closureN)self_73288)->elements[4];
|
|
c_73801.elements[5] = ((closureN)self_73288)->elements[5];
|
|
|
|
|
|
make_string(c_73834, ",");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73801, &c_73834);;
|
|
}
|
|
|
|
static void __lambda_56(void *data, int argc, object self_73289, object r_73151) {
|
|
|
|
closureN_type c_73803;
|
|
c_73803.hdr.mark = gc_color_red;
|
|
c_73803.hdr.grayed = 0;
|
|
c_73803.tag = closureN_tag;
|
|
c_73803.fn = (function_type)__lambda_55;
|
|
c_73803.num_args = 1;
|
|
c_73803.num_elements = 5;
|
|
c_73803.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73803.elements[0] = ((closureN)self_73289)->elements[0];
|
|
c_73803.elements[1] = ((closureN)self_73289)->elements[1];
|
|
c_73803.elements[2] = ((closureN)self_73289)->elements[2];
|
|
c_73803.elements[3] = ((closureN)self_73289)->elements[3];
|
|
c_73803.elements[4] = ((closureN)self_73289)->elements[5];
|
|
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73803, ((closureN)self_73289)->elements[4]);;
|
|
}
|
|
|
|
static void __lambda_55(void *data, int argc, object self_73290, object r_73152) {
|
|
|
|
closureN_type c_73805;
|
|
c_73805.hdr.mark = gc_color_red;
|
|
c_73805.hdr.grayed = 0;
|
|
c_73805.tag = closureN_tag;
|
|
c_73805.fn = (function_type)__lambda_54;
|
|
c_73805.num_args = 1;
|
|
c_73805.num_elements = 5;
|
|
c_73805.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73805.elements[0] = ((closureN)self_73290)->elements[0];
|
|
c_73805.elements[1] = ((closureN)self_73290)->elements[1];
|
|
c_73805.elements[2] = ((closureN)self_73290)->elements[2];
|
|
c_73805.elements[3] = ((closureN)self_73290)->elements[3];
|
|
c_73805.elements[4] = ((closureN)self_73290)->elements[4];
|
|
|
|
|
|
make_string(c_73832, ",");
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73805, &c_73832);;
|
|
}
|
|
|
|
static void __lambda_54(void *data, int argc, object self_73291, object r_73153) {
|
|
|
|
closureN_type c_73807;
|
|
c_73807.hdr.mark = gc_color_red;
|
|
c_73807.hdr.grayed = 0;
|
|
c_73807.tag = closureN_tag;
|
|
c_73807.fn = (function_type)__lambda_53;
|
|
c_73807.num_args = 1;
|
|
c_73807.num_elements = 2;
|
|
c_73807.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73807.elements[0] = ((closureN)self_73291)->elements[3];
|
|
c_73807.elements[1] = ((closureN)self_73291)->elements[4];
|
|
|
|
|
|
double_type local_73827; object c_73828 = Cyc_fast_sub(data,&local_73827,((closureN)self_73291)->elements[2], ((closureN)self_73291)->elements[1]);
|
|
|
|
double_type local_73823; object c_73824 = Cyc_fast_div(data,&local_73823,c_73828, ((closureN)self_73291)->elements[0]);
|
|
|
|
double_type local_73819; object c_73820 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73819,c_73824);
|
|
return_closcall2(data, __glo_display_scheme_write, &c_73807, c_73820);;
|
|
}
|
|
|
|
static void __lambda_53(void *data, int argc, object self_73292, object r_73154) {
|
|
|
|
closureN_type c_73809;
|
|
c_73809.hdr.mark = gc_color_red;
|
|
c_73809.hdr.grayed = 0;
|
|
c_73809.tag = closureN_tag;
|
|
c_73809.fn = (function_type)__lambda_52;
|
|
c_73809.num_args = 1;
|
|
c_73809.num_elements = 2;
|
|
c_73809.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73809.elements[0] = ((closureN)self_73292)->elements[0];
|
|
c_73809.elements[1] = ((closureN)self_73292)->elements[1];
|
|
|
|
return_closcall1(data, __glo_newline_scheme_base, &c_73809);;
|
|
}
|
|
|
|
static void __lambda_52(void *data, int argc, object self_73293, object r_73155) {
|
|
|
|
closureN_type c_73811;
|
|
c_73811.hdr.mark = gc_color_red;
|
|
c_73811.hdr.grayed = 0;
|
|
c_73811.tag = closureN_tag;
|
|
c_73811.fn = (function_type)__lambda_51;
|
|
c_73811.num_args = 1;
|
|
c_73811.num_elements = 2;
|
|
c_73811.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73811.elements[0] = ((closureN)self_73293)->elements[0];
|
|
c_73811.elements[1] = ((closureN)self_73293)->elements[1];
|
|
|
|
return_closcall1(data, __glo_current_91output_91port_scheme_base, &c_73811);;
|
|
}
|
|
|
|
static void __lambda_51(void *data, int argc, object self_73294, object r_73156) {
|
|
|
|
closureN_type c_73813;
|
|
c_73813.hdr.mark = gc_color_red;
|
|
c_73813.hdr.grayed = 0;
|
|
c_73813.tag = closureN_tag;
|
|
c_73813.fn = (function_type)__lambda_50;
|
|
c_73813.num_args = 1;
|
|
c_73813.num_elements = 2;
|
|
c_73813.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73813.elements[0] = ((closureN)self_73294)->elements[0];
|
|
c_73813.elements[1] = ((closureN)self_73294)->elements[1];
|
|
|
|
return_closcall2(data, __glo_flush_91output_91port_scheme_base, &c_73813, r_73156);;
|
|
}
|
|
|
|
static void __lambda_50(void *data, int argc, object self_73295, object r_73136) {
|
|
return_closcall1(data, ((closureN)self_73295)->elements[0], ((closureN)self_73295)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_49(void *data, int argc, object self_73296, object r_73134) {
|
|
|
|
double_type local_73765; object c_73766 = Cyc_fast_sum(data,&local_73765,((closureN)self_73296)->elements[0], obj_int2obj(1));
|
|
return_closcall3(data, car(((closureN)self_73296)->elements[2]), ((closureN)self_73296)->elements[1], c_73766, r_73134);;
|
|
}
|
|
|
|
static void __lambda_48(void *data, int argc, object self_73297, object r_73129) {
|
|
return_closcall3(data, car(((closureN)self_73297)->elements[1]), ((closureN)self_73297)->elements[0], obj_int2obj(0), boolean_f);;
|
|
}
|
|
|
|
static void __lambda_47(void *data, int argc, closure _,object k_73172, object r_7366, object x_7365) {
|
|
Cyc_st_add(data, "mbrot.scm:hide");
|
|
|
|
closureN_type c_73692;
|
|
c_73692.hdr.mark = gc_color_red;
|
|
c_73692.hdr.grayed = 0;
|
|
c_73692.tag = closureN_tag;
|
|
c_73692.fn = (function_type)__lambda_45;
|
|
c_73692.num_args = 0;
|
|
c_73692.num_elements = 1;
|
|
c_73692.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73692.elements[0] = r_7366;
|
|
|
|
|
|
closureN_type c_73709;
|
|
c_73709.hdr.mark = gc_color_red;
|
|
c_73709.hdr.grayed = 0;
|
|
c_73709.tag = closureN_tag;
|
|
c_73709.fn = (function_type)__lambda_46;
|
|
c_73709.num_args = 2;
|
|
c_73709.num_elements = 1;
|
|
c_73709.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73709.elements[0] = x_7365;
|
|
|
|
return_closcall3(data, __glo_call_91with_91values_scheme_base, k_73172, &c_73692, &c_73709);;
|
|
}
|
|
|
|
static void __lambda_46(void *data, int argc, object self_73298, object k_73175, object v_7368, object i_7367) {
|
|
return_closcall2(data, Cyc_vector_ref(data, v_7368, i_7367), k_73175, ((closureN)self_73298)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_45(void *data, int argc, object self_73299, object k_73177) {
|
|
|
|
closureN_type c_73694;
|
|
c_73694.hdr.mark = gc_color_red;
|
|
c_73694.hdr.grayed = 0;
|
|
c_73694.tag = closureN_tag;
|
|
c_73694.fn = (function_type)__lambda_43;
|
|
c_73694.num_args = 1;
|
|
c_73694.num_elements = 2;
|
|
c_73694.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73694.elements[0] = k_73177;
|
|
c_73694.elements[1] = ((closureN)self_73299)->elements[0];
|
|
|
|
|
|
mclosure0(c_73707, (function_type)__lambda_44);c_73707.num_args = 1;
|
|
return_closcall3(data, __glo_vector_scheme_base, &c_73694, __glo_values_scheme_base, &c_73707);;
|
|
}
|
|
|
|
static void __lambda_44(void *data, int argc, object self_73300, object k_73183, object x_7369) {
|
|
return_closcall1(data, k_73183, x_7369);;
|
|
}
|
|
|
|
static void __lambda_43(void *data, int argc, object self_73301, object r_73178) {
|
|
|
|
closureN_type c_73696;
|
|
c_73696.hdr.mark = gc_color_red;
|
|
c_73696.hdr.grayed = 0;
|
|
c_73696.tag = closureN_tag;
|
|
c_73696.fn = (function_type)__lambda_41;
|
|
c_73696.num_args = 0;
|
|
c_73696.num_elements = 1;
|
|
c_73696.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73696.elements[0] = ((closureN)self_73301)->elements[1];
|
|
|
|
|
|
closureN_type c_73703;
|
|
c_73703.hdr.mark = gc_color_red;
|
|
c_73703.hdr.grayed = 0;
|
|
c_73703.tag = closureN_tag;
|
|
c_73703.fn = (function_type)__lambda_42;
|
|
c_73703.num_args = 1;
|
|
c_73703.num_elements = 2;
|
|
c_73703.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73703.elements[0] = ((closureN)self_73301)->elements[0];
|
|
c_73703.elements[1] = r_73178;
|
|
|
|
return_closcall1(data,(closure)&c_73696, &c_73703);;
|
|
}
|
|
|
|
static void __lambda_42(void *data, int argc, object self_73302, object r_73179) {
|
|
return_closcall3(data, __glo_values_scheme_base, ((closureN)self_73302)->elements[0], ((closureN)self_73302)->elements[1], r_73179);;
|
|
}
|
|
|
|
static void __lambda_41(void *data, int argc, object self_73303, object k_73180) {
|
|
object c_73699 = Cyc_num_fast_lt_op(data,((closureN)self_73303)->elements[0], obj_int2obj(100));
|
|
if( (boolean_f != c_73699) ){
|
|
return_closcall1(data, k_73180, obj_int2obj(0));
|
|
} else {
|
|
return_closcall1(data, k_73180, obj_int2obj(1));}
|
|
;
|
|
}
|
|
|
|
static void __lambda_40(void *data, int argc, closure _,object k_73186) {
|
|
Cyc_st_add(data, "mbrot.scm:main");
|
|
|
|
closureN_type c_73648;
|
|
c_73648.hdr.mark = gc_color_red;
|
|
c_73648.hdr.grayed = 0;
|
|
c_73648.tag = closureN_tag;
|
|
c_73648.fn = (function_type)__lambda_39;
|
|
c_73648.num_args = 1;
|
|
c_73648.num_elements = 1;
|
|
c_73648.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73648.elements[0] = k_73186;
|
|
|
|
return_closcall1(data, __glo_read_scheme_read, &c_73648);;
|
|
}
|
|
|
|
static void __lambda_39(void *data, int argc, object self_73304, object count_7370) {
|
|
|
|
closureN_type c_73650;
|
|
c_73650.hdr.mark = gc_color_red;
|
|
c_73650.hdr.grayed = 0;
|
|
c_73650.tag = closureN_tag;
|
|
c_73650.fn = (function_type)__lambda_38;
|
|
c_73650.num_args = 1;
|
|
c_73650.num_elements = 2;
|
|
c_73650.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73650.elements[0] = count_7370;
|
|
c_73650.elements[1] = ((closureN)self_73304)->elements[0];
|
|
|
|
return_closcall1(data, __glo_read_scheme_read, &c_73650);;
|
|
}
|
|
|
|
static void __lambda_38(void *data, int argc, object self_73305, object input1_7371) {
|
|
|
|
closureN_type c_73652;
|
|
c_73652.hdr.mark = gc_color_red;
|
|
c_73652.hdr.grayed = 0;
|
|
c_73652.tag = closureN_tag;
|
|
c_73652.fn = (function_type)__lambda_37;
|
|
c_73652.num_args = 1;
|
|
c_73652.num_elements = 3;
|
|
c_73652.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73652.elements[0] = ((closureN)self_73305)->elements[0];
|
|
c_73652.elements[1] = input1_7371;
|
|
c_73652.elements[2] = ((closureN)self_73305)->elements[1];
|
|
|
|
return_closcall1(data, __glo_read_scheme_read, &c_73652);;
|
|
}
|
|
|
|
static void __lambda_37(void *data, int argc, object self_73306, object output_7372) {
|
|
|
|
closureN_type c_73654;
|
|
c_73654.hdr.mark = gc_color_red;
|
|
c_73654.hdr.grayed = 0;
|
|
c_73654.tag = closureN_tag;
|
|
c_73654.fn = (function_type)__lambda_36;
|
|
c_73654.num_args = 1;
|
|
c_73654.num_elements = 4;
|
|
c_73654.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73654.elements[0] = ((closureN)self_73306)->elements[0];
|
|
c_73654.elements[1] = ((closureN)self_73306)->elements[1];
|
|
c_73654.elements[2] = ((closureN)self_73306)->elements[2];
|
|
c_73654.elements[3] = output_7372;
|
|
|
|
|
|
object c_73688 = Cyc_number2string2(data,(closure)&c_73654,1,((closureN)self_73306)->elements[0]);
|
|
return_closcall1(data,(closure)&c_73654, c_73688);;
|
|
}
|
|
|
|
static void __lambda_36(void *data, int argc, object self_73307, object s2_7373) {
|
|
|
|
closureN_type c_73656;
|
|
c_73656.hdr.mark = gc_color_red;
|
|
c_73656.hdr.grayed = 0;
|
|
c_73656.tag = closureN_tag;
|
|
c_73656.fn = (function_type)__lambda_35;
|
|
c_73656.num_args = 1;
|
|
c_73656.num_elements = 5;
|
|
c_73656.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73656.elements[0] = ((closureN)self_73307)->elements[0];
|
|
c_73656.elements[1] = ((closureN)self_73307)->elements[1];
|
|
c_73656.elements[2] = ((closureN)self_73307)->elements[2];
|
|
c_73656.elements[3] = ((closureN)self_73307)->elements[3];
|
|
c_73656.elements[4] = s2_7373;
|
|
|
|
|
|
object c_73684 = Cyc_number2string2(data,(closure)&c_73656,1,((closureN)self_73307)->elements[1]);
|
|
return_closcall1(data,(closure)&c_73656, c_73684);;
|
|
}
|
|
|
|
static void __lambda_35(void *data, int argc, object self_73308, object s1_7374) {
|
|
|
|
closureN_type c_73658;
|
|
c_73658.hdr.mark = gc_color_red;
|
|
c_73658.hdr.grayed = 0;
|
|
c_73658.tag = closureN_tag;
|
|
c_73658.fn = (function_type)__lambda_34;
|
|
c_73658.num_args = 1;
|
|
c_73658.num_elements = 4;
|
|
c_73658.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73658.elements[0] = ((closureN)self_73308)->elements[0];
|
|
c_73658.elements[1] = ((closureN)self_73308)->elements[1];
|
|
c_73658.elements[2] = ((closureN)self_73308)->elements[2];
|
|
c_73658.elements[3] = ((closureN)self_73308)->elements[3];
|
|
|
|
|
|
make_string(c_73678, "mbrot");
|
|
|
|
make_string(c_73679, ":");
|
|
|
|
make_string(c_73680, ":");
|
|
|
|
object c_73677 = Cyc_string_append(data,(closure)&c_73658,5,&c_73678, &c_73679, s1_7374, &c_73680, ((closureN)self_73308)->elements[4]);
|
|
return_closcall1(data,(closure)&c_73658, c_73677);;
|
|
}
|
|
|
|
static void __lambda_34(void *data, int argc, object self_73309, object r_73192) {
|
|
|
|
closureN_type c_73662;
|
|
c_73662.hdr.mark = gc_color_red;
|
|
c_73662.hdr.grayed = 0;
|
|
c_73662.tag = closureN_tag;
|
|
c_73662.fn = (function_type)__lambda_32;
|
|
c_73662.num_args = 0;
|
|
c_73662.num_elements = 2;
|
|
c_73662.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73662.elements[0] = ((closureN)self_73309)->elements[0];
|
|
c_73662.elements[1] = ((closureN)self_73309)->elements[1];
|
|
|
|
|
|
closureN_type c_73669;
|
|
c_73669.hdr.mark = gc_color_red;
|
|
c_73669.hdr.grayed = 0;
|
|
c_73669.tag = closureN_tag;
|
|
c_73669.fn = (function_type)__lambda_33;
|
|
c_73669.num_args = 1;
|
|
c_73669.num_elements = 1;
|
|
c_73669.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73669.elements[0] = ((closureN)self_73309)->elements[3];
|
|
|
|
return_closcall5(data, __glo_run_91r7rs_91benchmark, ((closureN)self_73309)->elements[2], r_73192, ((closureN)self_73309)->elements[0], &c_73662, &c_73669);;
|
|
}
|
|
|
|
static void __lambda_33(void *data, int argc, object self_73310, object k_73195, object result_7376) {
|
|
|
|
object c_73673 = Cyc_num_fast_eq_op(data,result_7376, ((closureN)self_73310)->elements[0]);
|
|
return_closcall1(data, k_73195, c_73673);;
|
|
}
|
|
|
|
static void __lambda_32(void *data, int argc, object self_73311, object k_73196) {
|
|
|
|
closureN_type c_73664;
|
|
c_73664.hdr.mark = gc_color_red;
|
|
c_73664.hdr.grayed = 0;
|
|
c_73664.tag = closureN_tag;
|
|
c_73664.fn = (function_type)__lambda_31;
|
|
c_73664.num_args = 1;
|
|
c_73664.num_elements = 1;
|
|
c_73664.elements = (object *)alloca(sizeof(object) * 1);
|
|
c_73664.elements[0] = k_73196;
|
|
|
|
return_closcall3(data, __glo_hide, &c_73664, ((closureN)self_73311)->elements[0], ((closureN)self_73311)->elements[1]);;
|
|
}
|
|
|
|
static void __lambda_31(void *data, int argc, object self_73312, object r_73197) {
|
|
return_closcall2(data, __glo_test, ((closureN)self_73312)->elements[0], r_73197);;
|
|
}
|
|
|
|
static void __lambda_30(void *data, int argc, closure _,object k_73200, object n_7377) {
|
|
Cyc_st_add(data, "mbrot.scm:test");
|
|
|
|
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_29;
|
|
c_73577.num_args = 1;
|
|
c_73577.num_elements = 2;
|
|
c_73577.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73577.elements[0] = k_73200;
|
|
c_73577.elements[1] = n_7377;
|
|
|
|
|
|
object c_73645 = Cyc_make_vector(data,(closure)&c_73577,1,n_7377);
|
|
return_closcall1(data,(closure)&c_73577, c_73645);;
|
|
}
|
|
|
|
static void __lambda_29(void *data, int argc, object self_73313, object matrix_7378) {
|
|
|
|
closureN_type c_73579;
|
|
c_73579.hdr.mark = gc_color_red;
|
|
c_73579.hdr.grayed = 0;
|
|
c_73579.tag = closureN_tag;
|
|
c_73579.fn = (function_type)__lambda_28;
|
|
c_73579.num_args = 1;
|
|
c_73579.num_elements = 3;
|
|
c_73579.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73579.elements[0] = ((closureN)self_73313)->elements[0];
|
|
c_73579.elements[1] = matrix_7378;
|
|
c_73579.elements[2] = ((closureN)self_73313)->elements[1];
|
|
|
|
|
|
double_type local_73640; object c_73641 = Cyc_fast_sub(data,&local_73640,((closureN)self_73313)->elements[1], obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_73579, c_73641);;
|
|
}
|
|
|
|
static void __lambda_28(void *data, int argc, object self_73314, object i_7379) {
|
|
|
|
closureN_type c_73581;
|
|
c_73581.hdr.mark = gc_color_red;
|
|
c_73581.hdr.grayed = 0;
|
|
c_73581.tag = closureN_tag;
|
|
c_73581.fn = (function_type)__lambda_27;
|
|
c_73581.num_args = 1;
|
|
c_73581.num_elements = 4;
|
|
c_73581.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73581.elements[0] = i_7379;
|
|
c_73581.elements[1] = ((closureN)self_73314)->elements[0];
|
|
c_73581.elements[2] = ((closureN)self_73314)->elements[1];
|
|
c_73581.elements[3] = ((closureN)self_73314)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_73581, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_27(void *data, int argc, object self_73315, object loop_7380) {
|
|
|
|
closureN_type c_73583;
|
|
c_73583.hdr.mark = gc_color_red;
|
|
c_73583.hdr.grayed = 0;
|
|
c_73583.tag = closureN_tag;
|
|
c_73583.fn = (function_type)__lambda_26;
|
|
c_73583.num_args = 1;
|
|
c_73583.num_elements = 4;
|
|
c_73583.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73583.elements[0] = ((closureN)self_73315)->elements[0];
|
|
c_73583.elements[1] = ((closureN)self_73315)->elements[1];
|
|
c_73583.elements[2] = ((closureN)self_73315)->elements[2];
|
|
c_73583.elements[3] = ((closureN)self_73315)->elements[3];
|
|
|
|
|
|
make_cell(c_73637,loop_7380);
|
|
return_closcall1(data,(closure)&c_73583, &c_73637);;
|
|
}
|
|
|
|
static void __lambda_26(void *data, int argc, object self_73316, object loop_7380) {
|
|
|
|
closureN_type c_73585;
|
|
c_73585.hdr.mark = gc_color_red;
|
|
c_73585.hdr.grayed = 0;
|
|
c_73585.tag = closureN_tag;
|
|
c_73585.fn = (function_type)__lambda_22;
|
|
c_73585.num_args = 1;
|
|
c_73585.num_elements = 5;
|
|
c_73585.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73585.elements[0] = ((closureN)self_73316)->elements[0];
|
|
c_73585.elements[1] = ((closureN)self_73316)->elements[1];
|
|
c_73585.elements[2] = loop_7380;
|
|
c_73585.elements[3] = ((closureN)self_73316)->elements[2];
|
|
c_73585.elements[4] = ((closureN)self_73316)->elements[3];
|
|
|
|
|
|
closureN_type c_73608;
|
|
c_73608.hdr.mark = gc_color_red;
|
|
c_73608.hdr.grayed = 0;
|
|
c_73608.tag = closureN_tag;
|
|
c_73608.fn = (function_type)__lambda_25;
|
|
c_73608.num_args = 1;
|
|
c_73608.num_elements = 3;
|
|
c_73608.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73608.elements[0] = loop_7380;
|
|
c_73608.elements[1] = ((closureN)self_73316)->elements[2];
|
|
c_73608.elements[2] = ((closureN)self_73316)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_73585, Cyc_set_cell(data, loop_7380, &c_73608));;
|
|
}
|
|
|
|
static void __lambda_25(void *data, int argc, object self_73317, object k_73208, object i_7381) {
|
|
object c_73611 = Cyc_num_fast_gte_op(data,i_7381, obj_int2obj(0));
|
|
if( (boolean_f != c_73611) ){
|
|
|
|
closureN_type c_73613;
|
|
c_73613.hdr.mark = gc_color_red;
|
|
c_73613.hdr.grayed = 0;
|
|
c_73613.tag = closureN_tag;
|
|
c_73613.fn = (function_type)__lambda_24;
|
|
c_73613.num_args = 1;
|
|
c_73613.num_elements = 4;
|
|
c_73613.elements = (object *)alloca(sizeof(object) * 4);
|
|
c_73613.elements[0] = i_7381;
|
|
c_73613.elements[1] = k_73208;
|
|
c_73613.elements[2] = ((closureN)self_73317)->elements[0];
|
|
c_73613.elements[3] = ((closureN)self_73317)->elements[1];
|
|
|
|
|
|
object c_73632 = Cyc_make_vector(data,(closure)&c_73613,1,((closureN)self_73317)->elements[2]);
|
|
return_closcall1(data,(closure)&c_73613, c_73632);
|
|
} else {
|
|
return_closcall1(data, k_73208, boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_24(void *data, int argc, object self_73318, object r_73212) {
|
|
|
|
closureN_type c_73615;
|
|
c_73615.hdr.mark = gc_color_red;
|
|
c_73615.hdr.grayed = 0;
|
|
c_73615.tag = closureN_tag;
|
|
c_73615.fn = (function_type)__lambda_23;
|
|
c_73615.num_args = 1;
|
|
c_73615.num_elements = 3;
|
|
c_73615.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73615.elements[0] = ((closureN)self_73318)->elements[0];
|
|
c_73615.elements[1] = ((closureN)self_73318)->elements[1];
|
|
c_73615.elements[2] = ((closureN)self_73318)->elements[2];
|
|
|
|
return_closcall1(data,(closure)&c_73615, Cyc_vector_set(data, ((closureN)self_73318)->elements[3], ((closureN)self_73318)->elements[0], r_73212));;
|
|
}
|
|
|
|
static void __lambda_23(void *data, int argc, object self_73319, object r_73210) {
|
|
|
|
double_type local_73623; object c_73624 = Cyc_fast_sub(data,&local_73623,((closureN)self_73319)->elements[0], obj_int2obj(1));
|
|
return_closcall2(data, car(((closureN)self_73319)->elements[2]), ((closureN)self_73319)->elements[1], c_73624);;
|
|
}
|
|
|
|
static void __lambda_22(void *data, int argc, object self_73320, object r_73206) {
|
|
|
|
closureN_type c_73590;
|
|
c_73590.hdr.mark = gc_color_red;
|
|
c_73590.hdr.grayed = 0;
|
|
c_73590.tag = closureN_tag;
|
|
c_73590.fn = (function_type)__lambda_21;
|
|
c_73590.num_args = 1;
|
|
c_73590.num_elements = 3;
|
|
c_73590.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73590.elements[0] = ((closureN)self_73320)->elements[1];
|
|
c_73590.elements[1] = ((closureN)self_73320)->elements[3];
|
|
c_73590.elements[2] = ((closureN)self_73320)->elements[4];
|
|
|
|
return_closcall2(data, car(((closureN)self_73320)->elements[2]), &c_73590, ((closureN)self_73320)->elements[0]);;
|
|
}
|
|
|
|
static void __lambda_21(void *data, int argc, object self_73321, object r_73202) {
|
|
|
|
closureN_type c_73592;
|
|
c_73592.hdr.mark = gc_color_red;
|
|
c_73592.hdr.grayed = 0;
|
|
c_73592.tag = closureN_tag;
|
|
c_73592.fn = (function_type)__lambda_20;
|
|
c_73592.num_args = 1;
|
|
c_73592.num_elements = 2;
|
|
c_73592.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73592.elements[0] = ((closureN)self_73321)->elements[0];
|
|
c_73592.elements[1] = ((closureN)self_73321)->elements[1];
|
|
|
|
|
|
make_double(c_73601, -1.0);
|
|
|
|
make_double(c_73602, -0.5);
|
|
|
|
make_double(c_73603, 0.005);
|
|
return_closcall6(data, __glo_mbrot, &c_73592, ((closureN)self_73321)->elements[1], &c_73601, &c_73602, &c_73603, ((closureN)self_73321)->elements[2]);;
|
|
}
|
|
|
|
static void __lambda_20(void *data, int argc, object self_73322, object r_73203) {
|
|
return_closcall1(data, ((closureN)self_73322)->elements[0], Cyc_vector_ref(data, Cyc_vector_ref(data, ((closureN)self_73322)->elements[1], obj_int2obj(0)), obj_int2obj(0)));;
|
|
}
|
|
|
|
static void __lambda_19(void *data, int argc, closure _,object k_73215, object matrix_7386, object r_7385, object i_7384, object step_7383, object n_7382) {
|
|
Cyc_st_add(data, "mbrot.scm:mbrot");
|
|
|
|
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_18;
|
|
c_73479.num_args = 1;
|
|
c_73479.num_elements = 6;
|
|
c_73479.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73479.elements[0] = i_7384;
|
|
c_73479.elements[1] = k_73215;
|
|
c_73479.elements[2] = matrix_7386;
|
|
c_73479.elements[3] = n_7382;
|
|
c_73479.elements[4] = r_7385;
|
|
c_73479.elements[5] = step_7383;
|
|
|
|
return_closcall1(data,(closure)&c_73479, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_18(void *data, int argc, object self_73323, object loop1_7388) {
|
|
|
|
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_17;
|
|
c_73481.num_args = 1;
|
|
c_73481.num_elements = 6;
|
|
c_73481.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73481.elements[0] = ((closureN)self_73323)->elements[0];
|
|
c_73481.elements[1] = ((closureN)self_73323)->elements[1];
|
|
c_73481.elements[2] = ((closureN)self_73323)->elements[2];
|
|
c_73481.elements[3] = ((closureN)self_73323)->elements[3];
|
|
c_73481.elements[4] = ((closureN)self_73323)->elements[4];
|
|
c_73481.elements[5] = ((closureN)self_73323)->elements[5];
|
|
|
|
|
|
make_cell(c_73574,loop1_7388);
|
|
return_closcall1(data,(closure)&c_73481, &c_73574);;
|
|
}
|
|
|
|
static void __lambda_17(void *data, int argc, object self_73324, object loop1_7388) {
|
|
|
|
closureN_type c_73483;
|
|
c_73483.hdr.mark = gc_color_red;
|
|
c_73483.hdr.grayed = 0;
|
|
c_73483.tag = closureN_tag;
|
|
c_73483.fn = (function_type)__lambda_5;
|
|
c_73483.num_args = 1;
|
|
c_73483.num_elements = 3;
|
|
c_73483.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73483.elements[0] = ((closureN)self_73324)->elements[1];
|
|
c_73483.elements[1] = loop1_7388;
|
|
c_73483.elements[2] = ((closureN)self_73324)->elements[3];
|
|
|
|
|
|
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_16;
|
|
c_73496.num_args = 1;
|
|
c_73496.num_elements = 6;
|
|
c_73496.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73496.elements[0] = ((closureN)self_73324)->elements[0];
|
|
c_73496.elements[1] = loop1_7388;
|
|
c_73496.elements[2] = ((closureN)self_73324)->elements[2];
|
|
c_73496.elements[3] = ((closureN)self_73324)->elements[3];
|
|
c_73496.elements[4] = ((closureN)self_73324)->elements[4];
|
|
c_73496.elements[5] = ((closureN)self_73324)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_73483, Cyc_set_cell(data, loop1_7388, &c_73496));;
|
|
}
|
|
|
|
static void __lambda_16(void *data, int argc, object self_73325, object k_73219, object y_7389) {
|
|
|
|
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_15;
|
|
c_73498.num_args = 1;
|
|
c_73498.num_elements = 8;
|
|
c_73498.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73498.elements[0] = ((closureN)self_73325)->elements[0];
|
|
c_73498.elements[1] = k_73219;
|
|
c_73498.elements[2] = ((closureN)self_73325)->elements[1];
|
|
c_73498.elements[3] = ((closureN)self_73325)->elements[2];
|
|
c_73498.elements[4] = ((closureN)self_73325)->elements[3];
|
|
c_73498.elements[5] = ((closureN)self_73325)->elements[4];
|
|
c_73498.elements[6] = ((closureN)self_73325)->elements[5];
|
|
c_73498.elements[7] = y_7389;
|
|
|
|
|
|
object c_73571 = Cyc_num_fast_gte_op(data,y_7389, obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_73498, c_73571);;
|
|
}
|
|
|
|
static void __lambda_15(void *data, int argc, object self_73326, object r_73220) {
|
|
if( (boolean_f != r_73220) ){
|
|
|
|
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_14;
|
|
c_73500.num_args = 1;
|
|
c_73500.num_elements = 8;
|
|
c_73500.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73500.elements[0] = ((closureN)self_73326)->elements[0];
|
|
c_73500.elements[1] = ((closureN)self_73326)->elements[1];
|
|
c_73500.elements[2] = ((closureN)self_73326)->elements[2];
|
|
c_73500.elements[3] = ((closureN)self_73326)->elements[3];
|
|
c_73500.elements[4] = ((closureN)self_73326)->elements[4];
|
|
c_73500.elements[5] = ((closureN)self_73326)->elements[5];
|
|
c_73500.elements[6] = ((closureN)self_73326)->elements[6];
|
|
c_73500.elements[7] = ((closureN)self_73326)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_73500, boolean_f);
|
|
} else {
|
|
return_closcall1(data, ((closureN)self_73326)->elements[1], boolean_f);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_14(void *data, int argc, object self_73327, object loop2_7391) {
|
|
|
|
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_13;
|
|
c_73502.num_args = 1;
|
|
c_73502.num_elements = 8;
|
|
c_73502.elements = (object *)alloca(sizeof(object) * 8);
|
|
c_73502.elements[0] = ((closureN)self_73327)->elements[0];
|
|
c_73502.elements[1] = ((closureN)self_73327)->elements[1];
|
|
c_73502.elements[2] = ((closureN)self_73327)->elements[2];
|
|
c_73502.elements[3] = ((closureN)self_73327)->elements[3];
|
|
c_73502.elements[4] = ((closureN)self_73327)->elements[4];
|
|
c_73502.elements[5] = ((closureN)self_73327)->elements[5];
|
|
c_73502.elements[6] = ((closureN)self_73327)->elements[6];
|
|
c_73502.elements[7] = ((closureN)self_73327)->elements[7];
|
|
|
|
|
|
make_cell(c_73566,loop2_7391);
|
|
return_closcall1(data,(closure)&c_73502, &c_73566);;
|
|
}
|
|
|
|
static void __lambda_13(void *data, int argc, object self_73328, object loop2_7391) {
|
|
|
|
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_6;
|
|
c_73504.num_args = 1;
|
|
c_73504.num_elements = 3;
|
|
c_73504.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73504.elements[0] = ((closureN)self_73328)->elements[1];
|
|
c_73504.elements[1] = loop2_7391;
|
|
c_73504.elements[2] = ((closureN)self_73328)->elements[4];
|
|
|
|
|
|
closureN_type c_73517;
|
|
c_73517.hdr.mark = gc_color_red;
|
|
c_73517.hdr.grayed = 0;
|
|
c_73517.tag = closureN_tag;
|
|
c_73517.fn = (function_type)__lambda_12;
|
|
c_73517.num_args = 1;
|
|
c_73517.num_elements = 7;
|
|
c_73517.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73517.elements[0] = ((closureN)self_73328)->elements[0];
|
|
c_73517.elements[1] = ((closureN)self_73328)->elements[2];
|
|
c_73517.elements[2] = loop2_7391;
|
|
c_73517.elements[3] = ((closureN)self_73328)->elements[3];
|
|
c_73517.elements[4] = ((closureN)self_73328)->elements[5];
|
|
c_73517.elements[5] = ((closureN)self_73328)->elements[6];
|
|
c_73517.elements[6] = ((closureN)self_73328)->elements[7];
|
|
|
|
return_closcall1(data,(closure)&c_73504, Cyc_set_cell(data, loop2_7391, &c_73517));;
|
|
}
|
|
|
|
static void __lambda_12(void *data, int argc, object self_73329, object k_73224, object x_7392) {
|
|
|
|
closureN_type c_73519;
|
|
c_73519.hdr.mark = gc_color_red;
|
|
c_73519.hdr.grayed = 0;
|
|
c_73519.tag = closureN_tag;
|
|
c_73519.fn = (function_type)__lambda_11;
|
|
c_73519.num_args = 1;
|
|
c_73519.num_elements = 9;
|
|
c_73519.elements = (object *)alloca(sizeof(object) * 9);
|
|
c_73519.elements[0] = ((closureN)self_73329)->elements[0];
|
|
c_73519.elements[1] = k_73224;
|
|
c_73519.elements[2] = ((closureN)self_73329)->elements[1];
|
|
c_73519.elements[3] = ((closureN)self_73329)->elements[2];
|
|
c_73519.elements[4] = ((closureN)self_73329)->elements[3];
|
|
c_73519.elements[5] = ((closureN)self_73329)->elements[4];
|
|
c_73519.elements[6] = ((closureN)self_73329)->elements[5];
|
|
c_73519.elements[7] = x_7392;
|
|
c_73519.elements[8] = ((closureN)self_73329)->elements[6];
|
|
|
|
|
|
object c_73563 = Cyc_num_fast_gte_op(data,x_7392, obj_int2obj(0));
|
|
return_closcall1(data,(closure)&c_73519, c_73563);;
|
|
}
|
|
|
|
static void __lambda_11(void *data, int argc, object self_73330, object r_73225) {
|
|
if( (boolean_f != r_73225) ){
|
|
|
|
closureN_type c_73521;
|
|
c_73521.hdr.mark = gc_color_red;
|
|
c_73521.hdr.grayed = 0;
|
|
c_73521.tag = closureN_tag;
|
|
c_73521.fn = (function_type)__lambda_10;
|
|
c_73521.num_args = 1;
|
|
c_73521.num_elements = 7;
|
|
c_73521.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73521.elements[0] = ((closureN)self_73330)->elements[0];
|
|
c_73521.elements[1] = ((closureN)self_73330)->elements[1];
|
|
c_73521.elements[2] = ((closureN)self_73330)->elements[3];
|
|
c_73521.elements[3] = ((closureN)self_73330)->elements[5];
|
|
c_73521.elements[4] = ((closureN)self_73330)->elements[6];
|
|
c_73521.elements[5] = ((closureN)self_73330)->elements[7];
|
|
c_73521.elements[6] = ((closureN)self_73330)->elements[8];
|
|
|
|
return_closcall1(data,(closure)&c_73521, Cyc_vector_ref(data, ((closureN)self_73330)->elements[4], ((closureN)self_73330)->elements[7]));
|
|
} else {
|
|
|
|
double_type local_73558; object c_73559 = Cyc_fast_sub(data,&local_73558,((closureN)self_73330)->elements[8], obj_int2obj(1));
|
|
return_closcall2(data, car(((closureN)self_73330)->elements[2]), ((closureN)self_73330)->elements[1], c_73559);}
|
|
;
|
|
}
|
|
|
|
static void __lambda_10(void *data, int argc, object self_73331, object r_73228) {
|
|
|
|
closureN_type c_73523;
|
|
c_73523.hdr.mark = gc_color_red;
|
|
c_73523.hdr.grayed = 0;
|
|
c_73523.tag = closureN_tag;
|
|
c_73523.fn = (function_type)__lambda_9;
|
|
c_73523.num_args = 1;
|
|
c_73523.num_elements = 5;
|
|
c_73523.elements = (object *)alloca(sizeof(object) * 5);
|
|
c_73523.elements[0] = ((closureN)self_73331)->elements[1];
|
|
c_73523.elements[1] = ((closureN)self_73331)->elements[2];
|
|
c_73523.elements[2] = r_73228;
|
|
c_73523.elements[3] = ((closureN)self_73331)->elements[5];
|
|
c_73523.elements[4] = ((closureN)self_73331)->elements[6];
|
|
|
|
return_closcall6(data, __glo_count, &c_73523, ((closureN)self_73331)->elements[3], ((closureN)self_73331)->elements[0], ((closureN)self_73331)->elements[4], ((closureN)self_73331)->elements[5], ((closureN)self_73331)->elements[6]);;
|
|
}
|
|
|
|
static void __lambda_9(void *data, int argc, object self_73332, object r_73229) {
|
|
|
|
closureN_type c_73525;
|
|
c_73525.hdr.mark = gc_color_red;
|
|
c_73525.hdr.grayed = 0;
|
|
c_73525.tag = closureN_tag;
|
|
c_73525.fn = (function_type)__lambda_8;
|
|
c_73525.num_args = 1;
|
|
c_73525.num_elements = 3;
|
|
c_73525.elements = (object *)alloca(sizeof(object) * 3);
|
|
c_73525.elements[0] = ((closureN)self_73332)->elements[0];
|
|
c_73525.elements[1] = ((closureN)self_73332)->elements[1];
|
|
c_73525.elements[2] = ((closureN)self_73332)->elements[3];
|
|
|
|
return_closcall1(data,(closure)&c_73525, Cyc_vector_set(data, ((closureN)self_73332)->elements[2], ((closureN)self_73332)->elements[4], r_73229));;
|
|
}
|
|
|
|
static void __lambda_8(void *data, int argc, object self_73333, object r_73226) {
|
|
|
|
closureN_type c_73527;
|
|
c_73527.hdr.mark = gc_color_red;
|
|
c_73527.hdr.grayed = 0;
|
|
c_73527.tag = closureN_tag;
|
|
c_73527.fn = (function_type)__lambda_7;
|
|
c_73527.num_args = 1;
|
|
c_73527.num_elements = 2;
|
|
c_73527.elements = (object *)alloca(sizeof(object) * 2);
|
|
c_73527.elements[0] = ((closureN)self_73333)->elements[0];
|
|
c_73527.elements[1] = ((closureN)self_73333)->elements[1];
|
|
|
|
|
|
double_type local_73535; object c_73536 = Cyc_fast_sub(data,&local_73535,((closureN)self_73333)->elements[2], obj_int2obj(1));
|
|
return_closcall1(data,(closure)&c_73527, c_73536);;
|
|
}
|
|
|
|
static void __lambda_7(void *data, int argc, object self_73334, object r_73227) {
|
|
return_closcall2(data, car(((closureN)self_73334)->elements[1]), ((closureN)self_73334)->elements[0], r_73227);;
|
|
}
|
|
|
|
static void __lambda_6(void *data, int argc, object self_73335, object r_73222) {
|
|
|
|
double_type local_73512; object c_73513 = Cyc_fast_sub(data,&local_73512,((closureN)self_73335)->elements[2], obj_int2obj(1));
|
|
return_closcall2(data, car(((closureN)self_73335)->elements[1]), ((closureN)self_73335)->elements[0], c_73513);;
|
|
}
|
|
|
|
static void __lambda_5(void *data, int argc, object self_73336, object r_73217) {
|
|
|
|
double_type local_73491; object c_73492 = Cyc_fast_sub(data,&local_73491,((closureN)self_73336)->elements[2], obj_int2obj(1));
|
|
return_closcall2(data, car(((closureN)self_73336)->elements[1]), ((closureN)self_73336)->elements[0], c_73492);;
|
|
}
|
|
|
|
static void __lambda_4(void *data, int argc, closure _,object k_73233, object r_7397, object i_7396, object step_7395, object x_7394, object y_7393) {
|
|
Cyc_st_add(data, "mbrot.scm:count");
|
|
|
|
closureN_type c_73343;
|
|
c_73343.hdr.mark = gc_color_red;
|
|
c_73343.hdr.grayed = 0;
|
|
c_73343.tag = closureN_tag;
|
|
c_73343.fn = (function_type)__lambda_3;
|
|
c_73343.num_args = 1;
|
|
c_73343.num_elements = 6;
|
|
c_73343.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73343.elements[0] = i_7396;
|
|
c_73343.elements[1] = k_73233;
|
|
c_73343.elements[2] = r_7397;
|
|
c_73343.elements[3] = step_7395;
|
|
c_73343.elements[4] = x_7394;
|
|
c_73343.elements[5] = y_7393;
|
|
|
|
return_closcall1(data,(closure)&c_73343, boolean_f);;
|
|
}
|
|
|
|
static void __lambda_3(void *data, int argc, object self_73337, object loop_73105) {
|
|
|
|
closureN_type c_73345;
|
|
c_73345.hdr.mark = gc_color_red;
|
|
c_73345.hdr.grayed = 0;
|
|
c_73345.tag = closureN_tag;
|
|
c_73345.fn = (function_type)__lambda_2;
|
|
c_73345.num_args = 1;
|
|
c_73345.num_elements = 6;
|
|
c_73345.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73345.elements[0] = ((closureN)self_73337)->elements[0];
|
|
c_73345.elements[1] = ((closureN)self_73337)->elements[1];
|
|
c_73345.elements[2] = ((closureN)self_73337)->elements[2];
|
|
c_73345.elements[3] = ((closureN)self_73337)->elements[3];
|
|
c_73345.elements[4] = ((closureN)self_73337)->elements[4];
|
|
c_73345.elements[5] = ((closureN)self_73337)->elements[5];
|
|
|
|
|
|
make_cell(c_73476,loop_73105);
|
|
return_closcall1(data,(closure)&c_73345, &c_73476);;
|
|
}
|
|
|
|
static void __lambda_2(void *data, int argc, object self_73338, object loop_73105) {
|
|
|
|
closureN_type c_73347;
|
|
c_73347.hdr.mark = gc_color_red;
|
|
c_73347.hdr.grayed = 0;
|
|
c_73347.tag = closureN_tag;
|
|
c_73347.fn = (function_type)__lambda_0;
|
|
c_73347.num_args = 1;
|
|
c_73347.num_elements = 7;
|
|
c_73347.elements = (object *)alloca(sizeof(object) * 7);
|
|
c_73347.elements[0] = ((closureN)self_73338)->elements[0];
|
|
c_73347.elements[1] = ((closureN)self_73338)->elements[1];
|
|
c_73347.elements[2] = loop_73105;
|
|
c_73347.elements[3] = ((closureN)self_73338)->elements[2];
|
|
c_73347.elements[4] = ((closureN)self_73338)->elements[3];
|
|
c_73347.elements[5] = ((closureN)self_73338)->elements[4];
|
|
c_73347.elements[6] = ((closureN)self_73338)->elements[5];
|
|
|
|
|
|
closureN_type c_73385;
|
|
c_73385.hdr.mark = gc_color_red;
|
|
c_73385.hdr.grayed = 0;
|
|
c_73385.tag = closureN_tag;
|
|
c_73385.fn = (function_type)__lambda_1;
|
|
c_73385.num_args = 3;
|
|
c_73385.num_elements = 6;
|
|
c_73385.elements = (object *)alloca(sizeof(object) * 6);
|
|
c_73385.elements[0] = ((closureN)self_73338)->elements[0];
|
|
c_73385.elements[1] = loop_73105;
|
|
c_73385.elements[2] = ((closureN)self_73338)->elements[2];
|
|
c_73385.elements[3] = ((closureN)self_73338)->elements[3];
|
|
c_73385.elements[4] = ((closureN)self_73338)->elements[4];
|
|
c_73385.elements[5] = ((closureN)self_73338)->elements[5];
|
|
|
|
return_closcall1(data,(closure)&c_73347, Cyc_set_cell(data, loop_73105, &c_73385));;
|
|
}
|
|
|
|
static void __lambda_1(void *data, int argc, object self_73339, object k_73238, object zr_73108, object zi_73107, object c_73106) {
|
|
object c_73388 = Cyc_num_fast_eq_op(data,c_73106, obj_int2obj(64));
|
|
if( (boolean_f != c_73388) ){
|
|
return_closcall1(data, k_73238, c_73106);
|
|
} else {
|
|
double_type local_73399; object c_73400 = Cyc_fast_mul(data,&local_73399,zr_73108, zr_73108);
|
|
double_type local_73403; object c_73404 = Cyc_fast_mul(data,&local_73403,zi_73107, zi_73107);
|
|
double_type local_73395; object c_73396 = Cyc_fast_sum(data,&local_73395,c_73400, c_73404);
|
|
make_double(c_73405, 16.0);
|
|
object c_73392 = Cyc_num_fast_gt_op(data,c_73396, &c_73405);
|
|
if( (boolean_f != c_73392) ){
|
|
return_closcall1(data, k_73238, c_73106);
|
|
} else {
|
|
|
|
double_type local_73421; object c_73422 = Cyc_fast_mul(data,&local_73421,zr_73108, zr_73108);
|
|
|
|
double_type local_73425; object c_73426 = Cyc_fast_mul(data,&local_73425,zi_73107, zi_73107);
|
|
|
|
double_type local_73417; object c_73418 = Cyc_fast_sub(data,&local_73417,c_73422, c_73426);
|
|
|
|
double_type local_73438; object c_73439 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73438,((closureN)self_73339)->elements[4]);
|
|
|
|
double_type local_73434; object c_73435 = Cyc_fast_mul(data,&local_73434,c_73439, ((closureN)self_73339)->elements[3]);
|
|
|
|
double_type local_73429; object c_73430 = Cyc_fast_sum(data,&local_73429,((closureN)self_73339)->elements[2], c_73435);
|
|
|
|
double_type local_73413; object c_73414 = Cyc_fast_sum(data,&local_73413,c_73418, c_73430);
|
|
|
|
make_double(c_73450, 2.0);
|
|
|
|
double_type local_73453; object c_73454 = Cyc_fast_mul(data,&local_73453,zr_73108, zi_73107);
|
|
|
|
double_type local_73448; object c_73449 = Cyc_fast_mul(data,&local_73448,&c_73450, c_73454);
|
|
|
|
double_type local_73466; object c_73467 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73466,((closureN)self_73339)->elements[5]);
|
|
|
|
double_type local_73462; object c_73463 = Cyc_fast_mul(data,&local_73462,c_73467, ((closureN)self_73339)->elements[3]);
|
|
|
|
double_type local_73457; object c_73458 = Cyc_fast_sum(data,&local_73457,((closureN)self_73339)->elements[0], c_73463);
|
|
|
|
double_type local_73444; object c_73445 = Cyc_fast_sum(data,&local_73444,c_73449, c_73458);
|
|
|
|
double_type local_73472; object c_73473 = Cyc_fast_sum(data,&local_73472,c_73106, obj_int2obj(1));
|
|
return_closcall4(data, car(((closureN)self_73339)->elements[1]), k_73238, c_73414, c_73445, c_73473);}
|
|
}
|
|
;
|
|
}
|
|
|
|
static void __lambda_0(void *data, int argc, object self_73340, object r_73236) {
|
|
|
|
double_type local_73364; object c_73365 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73364,((closureN)self_73340)->elements[5]);
|
|
|
|
double_type local_73360; object c_73361 = Cyc_fast_mul(data,&local_73360,c_73365, ((closureN)self_73340)->elements[4]);
|
|
|
|
double_type local_73355; object c_73356 = Cyc_fast_sum(data,&local_73355,((closureN)self_73340)->elements[3], c_73361);
|
|
|
|
double_type local_73379; object c_73380 = ((inline_function_type)
|
|
((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_73379,((closureN)self_73340)->elements[6]);
|
|
|
|
double_type local_73375; object c_73376 = Cyc_fast_mul(data,&local_73375,c_73380, ((closureN)self_73340)->elements[4]);
|
|
|
|
double_type local_73370; object c_73371 = Cyc_fast_sum(data,&local_73370,((closureN)self_73340)->elements[0], c_73376);
|
|
return_closcall4(data, car(((closureN)self_73340)->elements[2]), ((closureN)self_73340)->elements[1], c_73356, c_73371, obj_int2obj(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_test);
|
|
add_global((object *) &__glo_mbrot);
|
|
add_global((object *) &__glo_count);
|
|
mclosure0(c_73900, (function_type)__lambda_93);c_73900.num_args = 0;
|
|
__glo_this_91scheme_91implementation_91name = &c_73900;
|
|
mclosure0(c_73714, (function_type)__lambda_91);c_73714.num_args = 4;
|
|
__glo_run_91r7rs_91benchmark = &c_73714;
|
|
mclosure0(c_73690, (function_type)__lambda_47);c_73690.num_args = 2;
|
|
__glo_hide = &c_73690;
|
|
mclosure0(c_73646, (function_type)__lambda_40);c_73646.num_args = 0;
|
|
__glo_main = &c_73646;
|
|
mclosure0(c_73575, (function_type)__lambda_30);c_73575.num_args = 1;
|
|
__glo_test = &c_73575;
|
|
mclosure0(c_73477, (function_type)__lambda_19);c_73477.num_args = 5;
|
|
__glo_mbrot = &c_73477;
|
|
mclosure0(c_73341, (function_type)__lambda_4);c_73341.num_args = 5;
|
|
__glo_count = &c_73341;
|
|
|
|
make_cvar(cvar_73910, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_73911, find_or_add_symbol("this-scheme-implementation-name"), &cvar_73910);
|
|
make_cvar(cvar_73912, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_73913, find_or_add_symbol("run-r7rs-benchmark"), &cvar_73912);
|
|
make_cvar(cvar_73914, (object *)&__glo_hide);make_pair(pair_73915, find_or_add_symbol("hide"), &cvar_73914);
|
|
make_cvar(cvar_73916, (object *)&__glo_main);make_pair(pair_73917, find_or_add_symbol("main"), &cvar_73916);
|
|
make_cvar(cvar_73918, (object *)&__glo_test);make_pair(pair_73919, find_or_add_symbol("test"), &cvar_73918);
|
|
make_cvar(cvar_73920, (object *)&__glo_mbrot);make_pair(pair_73921, find_or_add_symbol("mbrot"), &cvar_73920);
|
|
make_cvar(cvar_73922, (object *)&__glo_count);make_pair(pair_73923, find_or_add_symbol("count"), &cvar_73922);
|
|
make_pair(c_73924, &pair_73911,Cyc_global_variables);
|
|
make_pair(c_73925, &pair_73913, &c_73924);
|
|
make_pair(c_73926, &pair_73915, &c_73925);
|
|
make_pair(c_73927, &pair_73917, &c_73926);
|
|
make_pair(c_73928, &pair_73919, &c_73927);
|
|
make_pair(c_73929, &pair_73921, &c_73928);
|
|
make_pair(c_73930, &pair_73923, &c_73929);
|
|
Cyc_global_variables = &c_73930;
|
|
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
|
|
mclosure1(c_73931, c_schemeread_entry_pt, &c_done);
|
|
mclosure1(c_73932, c_scheme_char_entry_pt, &c_73931);
|
|
mclosure1(c_73933, c_schemewrite_entry_pt, &c_73932);
|
|
mclosure1(c_73934, c_schemetime_entry_pt, &c_73933);
|
|
mclosure1(c_73935, c_schemebase_entry_pt, &c_73934);
|
|
mclosure1(c_73936, c_schemecyclonecommon_entry_pt, &c_73935);
|
|
(c_73936.fn)(data, 0, &c_73936, &c_73936);
|
|
}
|
|
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;}
|