gistfile1.txt

[samth@huor:~/sw/pycket/pycket/test (master) plt] raco decomp -n 120 bubble.rkt 
(begin
  (module bubble ....
    (require (lib "racket/main.rkt"))
    (module configure-runtime ....
      (require '#%kernel (lib "racket/runtime-config.rkt"))
      (|_configure:p@(lib "racket/runtime-config.rkt")| '#f))
    (define-values (_SIZE) '10000)
    (define-values (_vec) (make-vector '10000))
    (define-values
     (_bubble-sort)
     (lambda (arg0-26)
       '#(bubble-sort #<path:/home/samth/sw/pycket/pycket/test/bubble.rkt> 7 0 124 488 #f)
       '(captures: (val/ref #%modvars) (_bubble-sort))
       (if ((#%closed
             loop23
             (lambda (arg0-30 arg1-31 arg2-32)
               '#(loop #<path:/home/samth/sw/pycket/pycket/test/bubble.rkt> 9 6 185 392 #f)
               (if (= arg2-32 '9999)
                 arg1-31
                 (let ((local35 (vector-ref arg0-30 arg2-32)))
                   (let ((local38 (vector-ref arg0-30 (+ '1 arg2-32))))
                     (if (> local35 local38)
                       (begin
                         (#%sfs-clear arg1-31)
                         (begin
                           (vector-set! arg0-30 arg2-32 (#%sfs-clear local38))
                           (vector-set! arg0-30 (+ '1 arg2-32) (#%sfs-clear local35))
                           (loop23 arg0-30 '#t (+ arg2-32 '1))))
                       (loop23 arg0-30 arg1-31 (+ '1 arg2-32))))))))
            arg0-26
            '#f
            '0)
         (_bubble-sort arg0-26)
         '#f)))
    (#%apply-values
     |_print-values:p@(lib "racket/private/modbeg.rkt")|
     (let ((loop64 ?))
       (begin
         (#%set!-rec-values
          (loop64)
          (lambda (arg0-65)
            '#(loop #<path:/home/samth/sw/pycket/pycket/test/bubble.rkt> 22 0 613 121 #f)
            '(captures: (val/ref loop64) (val/ref #%modvars) (_vec))
            (if (< arg0-65 '10000) (begin (vector-set! _vec arg0-65 (- '10000 arg0-65)) (loop64 (+ '1 arg0-65))) '#f)))
         ((#%sfs-clear loop64) '0))))
    (#%apply-values |_print-values:p@(lib "racket/private/modbeg.rkt")| (_bubble-sort _vec))))