mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
a5e95abe9b
* module/ice-9/psyntax.scm (syntax-rules, identifier-syntax): * module/ice-9/boot-9.scm (define-macro): Embed metadata into the macro transformer for use by documentation tools and the like. * module/ice-9/psyntax-pp.scm: Regenerated.
15292 lines
1,005 KiB
Scheme
15292 lines
1,005 KiB
Scheme
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
|
|
(if #f #f)
|
|
|
|
(letrec ((#{and-map*\ 8874}#
|
|
(lambda (#{f\ 8936}# #{first\ 8937}# . #{rest\ 8938}#)
|
|
(let ((#{t\ 8944}# (null? #{first\ 8937}#)))
|
|
(if #{t\ 8944}#
|
|
#{t\ 8944}#
|
|
(if (null? #{rest\ 8938}#)
|
|
(letrec ((#{andmap\ 8948}#
|
|
(lambda (#{first\ 8949}#)
|
|
(let ((#{x\ 8952}# (car #{first\ 8949}#))
|
|
(#{first\ 8953}# (cdr #{first\ 8949}#)))
|
|
(if (null? #{first\ 8953}#)
|
|
(#{f\ 8936}# #{x\ 8952}#)
|
|
(if (#{f\ 8936}# #{x\ 8952}#)
|
|
(#{andmap\ 8948}# #{first\ 8953}#)
|
|
#f))))))
|
|
(#{andmap\ 8948}# #{first\ 8937}#))
|
|
(letrec ((#{andmap\ 8959}#
|
|
(lambda (#{first\ 8960}# #{rest\ 8961}#)
|
|
(let ((#{x\ 8966}# (car #{first\ 8960}#))
|
|
(#{xr\ 8967}# (map car #{rest\ 8961}#))
|
|
(#{first\ 8968}# (cdr #{first\ 8960}#))
|
|
(#{rest\ 8969}#
|
|
(map cdr #{rest\ 8961}#)))
|
|
(if (null? #{first\ 8968}#)
|
|
(apply #{f\ 8936}#
|
|
(cons #{x\ 8966}# #{xr\ 8967}#))
|
|
(if (apply #{f\ 8936}#
|
|
(cons #{x\ 8966}# #{xr\ 8967}#))
|
|
(#{andmap\ 8959}#
|
|
#{first\ 8968}#
|
|
#{rest\ 8969}#)
|
|
#f))))))
|
|
(#{andmap\ 8959}# #{first\ 8937}# #{rest\ 8938}#))))))))
|
|
(letrec ((#{lambda-var-list\ 9191}#
|
|
(lambda (#{vars\ 9406}#)
|
|
(letrec ((#{lvl\ 9412}#
|
|
(lambda (#{vars\ 9413}# #{ls\ 9414}# #{w\ 9415}#)
|
|
(if (pair? #{vars\ 9413}#)
|
|
(#{lvl\ 9412}#
|
|
(cdr #{vars\ 9413}#)
|
|
(cons (#{wrap\ 9145}#
|
|
(car #{vars\ 9413}#)
|
|
#{w\ 9415}#
|
|
#f)
|
|
#{ls\ 9414}#)
|
|
#{w\ 9415}#)
|
|
(if (#{id?\ 9076}# #{vars\ 9413}#)
|
|
(cons (#{wrap\ 9145}#
|
|
#{vars\ 9413}#
|
|
#{w\ 9415}#
|
|
#f)
|
|
#{ls\ 9414}#)
|
|
(if (null? #{vars\ 9413}#)
|
|
#{ls\ 9414}#
|
|
(if (#{syntax-object?\ 9040}# #{vars\ 9413}#)
|
|
(#{lvl\ 9412}#
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{vars\ 9413}#)
|
|
#{ls\ 9414}#
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 9415}#
|
|
(#{syntax-object-wrap\ 9044}#
|
|
#{vars\ 9413}#)))
|
|
(cons #{vars\ 9413}# #{ls\ 9414}#))))))))
|
|
(#{lvl\ 9412}#
|
|
#{vars\ 9406}#
|
|
'()
|
|
'(())))))
|
|
(#{gen-var\ 9189}#
|
|
(lambda (#{id\ 9426}#)
|
|
(let ((#{id\ 9429}#
|
|
(if (#{syntax-object?\ 9040}# #{id\ 9426}#)
|
|
(#{syntax-object-expression\ 9042}# #{id\ 9426}#)
|
|
#{id\ 9426}#)))
|
|
(gensym
|
|
(string-append (symbol->string #{id\ 9429}#) " ")))))
|
|
(#{strip\ 9187}#
|
|
(lambda (#{x\ 9431}# #{w\ 9432}#)
|
|
(if (memq 'top
|
|
(#{wrap-marks\ 9083}# #{w\ 9432}#))
|
|
#{x\ 9431}#
|
|
(letrec ((#{f\ 9438}#
|
|
(lambda (#{x\ 9439}#)
|
|
(if (#{syntax-object?\ 9040}# #{x\ 9439}#)
|
|
(#{strip\ 9187}#
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{x\ 9439}#)
|
|
(#{syntax-object-wrap\ 9044}# #{x\ 9439}#))
|
|
(if (pair? #{x\ 9439}#)
|
|
(let ((#{a\ 9446}#
|
|
(#{f\ 9438}# (car #{x\ 9439}#)))
|
|
(#{d\ 9447}#
|
|
(#{f\ 9438}# (cdr #{x\ 9439}#))))
|
|
(if (if (eq? #{a\ 9446}# (car #{x\ 9439}#))
|
|
(eq? #{d\ 9447}# (cdr #{x\ 9439}#))
|
|
#f)
|
|
#{x\ 9439}#
|
|
(cons #{a\ 9446}# #{d\ 9447}#)))
|
|
(if (vector? #{x\ 9439}#)
|
|
(let ((#{old\ 9453}#
|
|
(vector->list #{x\ 9439}#)))
|
|
(let ((#{new\ 9455}#
|
|
(map #{f\ 9438}# #{old\ 9453}#)))
|
|
(if (#{and-map*\ 8874}#
|
|
eq?
|
|
#{old\ 9453}#
|
|
#{new\ 9455}#)
|
|
#{x\ 9439}#
|
|
(list->vector #{new\ 9455}#))))
|
|
#{x\ 9439}#))))))
|
|
(#{f\ 9438}# #{x\ 9431}#)))))
|
|
(#{chi-lambda-case\ 9185}#
|
|
(lambda (#{e\ 9457}#
|
|
#{r\ 9458}#
|
|
#{w\ 9459}#
|
|
#{s\ 9460}#
|
|
#{mod\ 9461}#
|
|
#{get-formals\ 9462}#
|
|
#{clauses\ 9463}#)
|
|
(letrec ((#{expand-body\ 9478}#
|
|
(lambda (#{req\ 9479}#
|
|
#{opt\ 9480}#
|
|
#{rest\ 9481}#
|
|
#{kw\ 9482}#
|
|
#{body\ 9483}#
|
|
#{vars\ 9484}#
|
|
#{r*\ 9485}#
|
|
#{w*\ 9486}#
|
|
#{inits\ 9487}#
|
|
#{meta\ 9488}#)
|
|
((lambda (#{tmp\ 9499}#)
|
|
((lambda (#{tmp\ 9500}#)
|
|
(if (if #{tmp\ 9500}#
|
|
(apply (lambda (#{docstring\ 9504}#
|
|
#{e1\ 9505}#
|
|
#{e2\ 9506}#)
|
|
(string?
|
|
(syntax->datum
|
|
#{docstring\ 9504}#)))
|
|
#{tmp\ 9500}#)
|
|
#f)
|
|
(apply (lambda (#{docstring\ 9510}#
|
|
#{e1\ 9511}#
|
|
#{e2\ 9512}#)
|
|
(#{expand-body\ 9478}#
|
|
#{req\ 9479}#
|
|
#{opt\ 9480}#
|
|
#{rest\ 9481}#
|
|
#{kw\ 9482}#
|
|
(cons #{e1\ 9511}# #{e2\ 9512}#)
|
|
#{vars\ 9484}#
|
|
#{r*\ 9485}#
|
|
#{w*\ 9486}#
|
|
#{inits\ 9487}#
|
|
(append
|
|
#{meta\ 9488}#
|
|
(list (cons 'documentation
|
|
(syntax->datum
|
|
#{docstring\ 9510}#))))))
|
|
#{tmp\ 9500}#)
|
|
((lambda (#{tmp\ 9515}#)
|
|
(if #{tmp\ 9515}#
|
|
(apply (lambda (#{k\ 9520}#
|
|
#{v\ 9521}#
|
|
#{e1\ 9522}#
|
|
#{e2\ 9523}#)
|
|
(#{expand-body\ 9478}#
|
|
#{req\ 9479}#
|
|
#{opt\ 9480}#
|
|
#{rest\ 9481}#
|
|
#{kw\ 9482}#
|
|
(cons #{e1\ 9522}#
|
|
#{e2\ 9523}#)
|
|
#{vars\ 9484}#
|
|
#{r*\ 9485}#
|
|
#{w*\ 9486}#
|
|
#{inits\ 9487}#
|
|
(append
|
|
#{meta\ 9488}#
|
|
(syntax->datum
|
|
(map cons
|
|
#{k\ 9520}#
|
|
#{v\ 9521}#)))))
|
|
#{tmp\ 9515}#)
|
|
((lambda (#{tmp\ 9527}#)
|
|
(if #{tmp\ 9527}#
|
|
(apply (lambda (#{e1\ 9530}#
|
|
#{e2\ 9531}#)
|
|
(values
|
|
#{meta\ 9488}#
|
|
#{req\ 9479}#
|
|
#{opt\ 9480}#
|
|
#{rest\ 9481}#
|
|
#{kw\ 9482}#
|
|
#{inits\ 9487}#
|
|
#{vars\ 9484}#
|
|
(#{chi-body\ 9169}#
|
|
(cons #{e1\ 9530}#
|
|
#{e2\ 9531}#)
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 9457}#
|
|
#{w\ 9459}#
|
|
#{s\ 9460}#
|
|
#{mod\ 9461}#)
|
|
#{r*\ 9485}#
|
|
#{w*\ 9486}#
|
|
#{mod\ 9461}#)))
|
|
#{tmp\ 9527}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9499}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9499}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9499}#
|
|
'(#(vector #(each (any . any)))
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9499}#
|
|
'(any any . each-any))))
|
|
#{body\ 9483}#)))
|
|
(#{expand-kw\ 9476}#
|
|
(lambda (#{req\ 9533}#
|
|
#{opt\ 9534}#
|
|
#{rest\ 9535}#
|
|
#{kw\ 9536}#
|
|
#{body\ 9537}#
|
|
#{vars\ 9538}#
|
|
#{r*\ 9539}#
|
|
#{w*\ 9540}#
|
|
#{aok\ 9541}#
|
|
#{out\ 9542}#
|
|
#{inits\ 9543}#)
|
|
(if (pair? #{kw\ 9536}#)
|
|
((lambda (#{tmp\ 9557}#)
|
|
((lambda (#{tmp\ 9558}#)
|
|
(if #{tmp\ 9558}#
|
|
(apply (lambda (#{k\ 9562}#
|
|
#{id\ 9563}#
|
|
#{i\ 9564}#)
|
|
(let ((#{v\ 9567}#
|
|
(#{gen-var\ 9189}#
|
|
#{id\ 9563}#)))
|
|
(let ((#{l\ 9569}#
|
|
(#{gen-labels\ 9094}#
|
|
(list #{v\ 9567}#))))
|
|
(let ((#{r**\ 9571}#
|
|
(#{extend-var-env\ 9066}#
|
|
#{l\ 9569}#
|
|
(list #{v\ 9567}#)
|
|
#{r*\ 9539}#)))
|
|
(let ((#{w**\ 9573}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
(list #{id\ 9563}#)
|
|
#{l\ 9569}#
|
|
#{w*\ 9540}#)))
|
|
(#{expand-kw\ 9476}#
|
|
#{req\ 9533}#
|
|
#{opt\ 9534}#
|
|
#{rest\ 9535}#
|
|
(cdr #{kw\ 9536}#)
|
|
#{body\ 9537}#
|
|
(cons #{v\ 9567}#
|
|
#{vars\ 9538}#)
|
|
#{r**\ 9571}#
|
|
#{w**\ 9573}#
|
|
#{aok\ 9541}#
|
|
(cons (list (syntax->datum
|
|
#{k\ 9562}#)
|
|
(syntax->datum
|
|
#{id\ 9563}#)
|
|
#{v\ 9567}#)
|
|
#{out\ 9542}#)
|
|
(cons (#{chi\ 9161}#
|
|
#{i\ 9564}#
|
|
#{r*\ 9539}#
|
|
#{w*\ 9540}#
|
|
#{mod\ 9461}#)
|
|
#{inits\ 9543}#)))))))
|
|
#{tmp\ 9558}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9557}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9557}#
|
|
'(any any any))))
|
|
(car #{kw\ 9536}#))
|
|
(#{expand-body\ 9478}#
|
|
#{req\ 9533}#
|
|
#{opt\ 9534}#
|
|
#{rest\ 9535}#
|
|
(if (let ((#{t\ 9577}# #{aok\ 9541}#))
|
|
(if #{t\ 9577}#
|
|
#{t\ 9577}#
|
|
(pair? #{out\ 9542}#)))
|
|
(cons #{aok\ 9541}# (reverse #{out\ 9542}#))
|
|
#f)
|
|
#{body\ 9537}#
|
|
(reverse #{vars\ 9538}#)
|
|
#{r*\ 9539}#
|
|
#{w*\ 9540}#
|
|
(reverse #{inits\ 9543}#)
|
|
'()))))
|
|
(#{expand-opt\ 9474}#
|
|
(lambda (#{req\ 9579}#
|
|
#{opt\ 9580}#
|
|
#{rest\ 9581}#
|
|
#{kw\ 9582}#
|
|
#{body\ 9583}#
|
|
#{vars\ 9584}#
|
|
#{r*\ 9585}#
|
|
#{w*\ 9586}#
|
|
#{out\ 9587}#
|
|
#{inits\ 9588}#)
|
|
(if (pair? #{opt\ 9580}#)
|
|
((lambda (#{tmp\ 9601}#)
|
|
((lambda (#{tmp\ 9602}#)
|
|
(if #{tmp\ 9602}#
|
|
(apply (lambda (#{id\ 9605}# #{i\ 9606}#)
|
|
(let ((#{v\ 9609}#
|
|
(#{gen-var\ 9189}#
|
|
#{id\ 9605}#)))
|
|
(let ((#{l\ 9611}#
|
|
(#{gen-labels\ 9094}#
|
|
(list #{v\ 9609}#))))
|
|
(let ((#{r**\ 9613}#
|
|
(#{extend-var-env\ 9066}#
|
|
#{l\ 9611}#
|
|
(list #{v\ 9609}#)
|
|
#{r*\ 9585}#)))
|
|
(let ((#{w**\ 9615}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
(list #{id\ 9605}#)
|
|
#{l\ 9611}#
|
|
#{w*\ 9586}#)))
|
|
(#{expand-opt\ 9474}#
|
|
#{req\ 9579}#
|
|
(cdr #{opt\ 9580}#)
|
|
#{rest\ 9581}#
|
|
#{kw\ 9582}#
|
|
#{body\ 9583}#
|
|
(cons #{v\ 9609}#
|
|
#{vars\ 9584}#)
|
|
#{r**\ 9613}#
|
|
#{w**\ 9615}#
|
|
(cons (syntax->datum
|
|
#{id\ 9605}#)
|
|
#{out\ 9587}#)
|
|
(cons (#{chi\ 9161}#
|
|
#{i\ 9606}#
|
|
#{r*\ 9585}#
|
|
#{w*\ 9586}#
|
|
#{mod\ 9461}#)
|
|
#{inits\ 9588}#)))))))
|
|
#{tmp\ 9602}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9601}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9601}#
|
|
'(any any))))
|
|
(car #{opt\ 9580}#))
|
|
(if #{rest\ 9581}#
|
|
(let ((#{v\ 9620}#
|
|
(#{gen-var\ 9189}# #{rest\ 9581}#)))
|
|
(let ((#{l\ 9622}#
|
|
(#{gen-labels\ 9094}#
|
|
(list #{v\ 9620}#))))
|
|
(let ((#{r*\ 9624}#
|
|
(#{extend-var-env\ 9066}#
|
|
#{l\ 9622}#
|
|
(list #{v\ 9620}#)
|
|
#{r*\ 9585}#)))
|
|
(let ((#{w*\ 9626}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
(list #{rest\ 9581}#)
|
|
#{l\ 9622}#
|
|
#{w*\ 9586}#)))
|
|
(#{expand-kw\ 9476}#
|
|
#{req\ 9579}#
|
|
(if (pair? #{out\ 9587}#)
|
|
(reverse #{out\ 9587}#)
|
|
#f)
|
|
(syntax->datum #{rest\ 9581}#)
|
|
(if (pair? #{kw\ 9582}#)
|
|
(cdr #{kw\ 9582}#)
|
|
#{kw\ 9582}#)
|
|
#{body\ 9583}#
|
|
(cons #{v\ 9620}# #{vars\ 9584}#)
|
|
#{r*\ 9624}#
|
|
#{w*\ 9626}#
|
|
(if (pair? #{kw\ 9582}#)
|
|
(car #{kw\ 9582}#)
|
|
#f)
|
|
'()
|
|
#{inits\ 9588}#)))))
|
|
(#{expand-kw\ 9476}#
|
|
#{req\ 9579}#
|
|
(if (pair? #{out\ 9587}#)
|
|
(reverse #{out\ 9587}#)
|
|
#f)
|
|
#f
|
|
(if (pair? #{kw\ 9582}#)
|
|
(cdr #{kw\ 9582}#)
|
|
#{kw\ 9582}#)
|
|
#{body\ 9583}#
|
|
#{vars\ 9584}#
|
|
#{r*\ 9585}#
|
|
#{w*\ 9586}#
|
|
(if (pair? #{kw\ 9582}#)
|
|
(car #{kw\ 9582}#)
|
|
#f)
|
|
'()
|
|
#{inits\ 9588}#)))))
|
|
(#{expand-req\ 9472}#
|
|
(lambda (#{req\ 9628}#
|
|
#{opt\ 9629}#
|
|
#{rest\ 9630}#
|
|
#{kw\ 9631}#
|
|
#{body\ 9632}#)
|
|
(let ((#{vars\ 9640}#
|
|
(map #{gen-var\ 9189}# #{req\ 9628}#))
|
|
(#{labels\ 9641}#
|
|
(#{gen-labels\ 9094}# #{req\ 9628}#)))
|
|
(let ((#{r*\ 9644}#
|
|
(#{extend-var-env\ 9066}#
|
|
#{labels\ 9641}#
|
|
#{vars\ 9640}#
|
|
#{r\ 9458}#))
|
|
(#{w*\ 9645}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
#{req\ 9628}#
|
|
#{labels\ 9641}#
|
|
#{w\ 9459}#)))
|
|
(#{expand-opt\ 9474}#
|
|
(map syntax->datum #{req\ 9628}#)
|
|
#{opt\ 9629}#
|
|
#{rest\ 9630}#
|
|
#{kw\ 9631}#
|
|
#{body\ 9632}#
|
|
(reverse #{vars\ 9640}#)
|
|
#{r*\ 9644}#
|
|
#{w*\ 9645}#
|
|
'()
|
|
'()))))))
|
|
((lambda (#{tmp\ 9646}#)
|
|
((lambda (#{tmp\ 9647}#)
|
|
(if #{tmp\ 9647}#
|
|
(apply (lambda () (values (quote ()) #f))
|
|
#{tmp\ 9647}#)
|
|
((lambda (#{tmp\ 9648}#)
|
|
(if #{tmp\ 9648}#
|
|
(apply (lambda (#{args\ 9655}#
|
|
#{e1\ 9656}#
|
|
#{e2\ 9657}#
|
|
#{args*\ 9658}#
|
|
#{e1*\ 9659}#
|
|
#{e2*\ 9660}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{get-formals\ 9462}#
|
|
#{args\ 9655}#))
|
|
(lambda (#{req\ 9661}#
|
|
#{opt\ 9662}#
|
|
#{rest\ 9663}#
|
|
#{kw\ 9664}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{expand-req\ 9472}#
|
|
#{req\ 9661}#
|
|
#{opt\ 9662}#
|
|
#{rest\ 9663}#
|
|
#{kw\ 9664}#
|
|
(cons #{e1\ 9656}#
|
|
#{e2\ 9657}#)))
|
|
(lambda (#{meta\ 9670}#
|
|
#{req\ 9671}#
|
|
#{opt\ 9672}#
|
|
#{rest\ 9673}#
|
|
#{kw\ 9674}#
|
|
#{inits\ 9675}#
|
|
#{vars\ 9676}#
|
|
#{body\ 9677}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9185}#
|
|
#{e\ 9457}#
|
|
#{r\ 9458}#
|
|
#{w\ 9459}#
|
|
#{s\ 9460}#
|
|
#{mod\ 9461}#
|
|
#{get-formals\ 9462}#
|
|
(map (lambda (#{tmp\ 9688}#
|
|
#{tmp\ 9687}#
|
|
#{tmp\ 9686}#)
|
|
(cons #{tmp\ 9686}#
|
|
(cons #{tmp\ 9687}#
|
|
#{tmp\ 9688}#)))
|
|
#{e2*\ 9660}#
|
|
#{e1*\ 9659}#
|
|
#{args*\ 9658}#)))
|
|
(lambda (#{meta*\ 9690}#
|
|
#{else*\ 9691}#)
|
|
(values
|
|
(append
|
|
#{meta\ 9670}#
|
|
#{meta*\ 9690}#)
|
|
(#{build-lambda-case\ 9022}#
|
|
#{s\ 9460}#
|
|
#{req\ 9671}#
|
|
#{opt\ 9672}#
|
|
#{rest\ 9673}#
|
|
#{kw\ 9674}#
|
|
#{inits\ 9675}#
|
|
#{vars\ 9676}#
|
|
#{body\ 9677}#
|
|
#{else*\ 9691}#)))))))))
|
|
#{tmp\ 9648}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9646}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9646}#
|
|
'((any any . each-any)
|
|
.
|
|
#(each (any any . each-any)))))))
|
|
($sc-dispatch #{tmp\ 9646}# (quote ()))))
|
|
#{clauses\ 9463}#))))
|
|
(#{lambda*-formals\ 9183}#
|
|
(lambda (#{orig-args\ 9694}#)
|
|
(letrec ((#{check\ 9705}#
|
|
(lambda (#{req\ 9706}#
|
|
#{opt\ 9707}#
|
|
#{rest\ 9708}#
|
|
#{kw\ 9709}#)
|
|
(if (#{distinct-bound-ids?\ 9141}#
|
|
(append
|
|
#{req\ 9706}#
|
|
(map car #{opt\ 9707}#)
|
|
(if #{rest\ 9708}#
|
|
(list #{rest\ 9708}#)
|
|
'())
|
|
(if (pair? #{kw\ 9709}#)
|
|
(map cadr (cdr #{kw\ 9709}#))
|
|
'())))
|
|
(values
|
|
#{req\ 9706}#
|
|
#{opt\ 9707}#
|
|
#{rest\ 9708}#
|
|
#{kw\ 9709}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 9694}#))))
|
|
(#{rest\ 9703}#
|
|
(lambda (#{args\ 9717}#
|
|
#{req\ 9718}#
|
|
#{opt\ 9719}#
|
|
#{kw\ 9720}#)
|
|
((lambda (#{tmp\ 9725}#)
|
|
((lambda (#{tmp\ 9726}#)
|
|
(if (if #{tmp\ 9726}#
|
|
(apply (lambda (#{r\ 9728}#)
|
|
(#{id?\ 9076}# #{r\ 9728}#))
|
|
#{tmp\ 9726}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 9730}#)
|
|
(#{check\ 9705}#
|
|
#{req\ 9718}#
|
|
#{opt\ 9719}#
|
|
#{r\ 9730}#
|
|
#{kw\ 9720}#))
|
|
#{tmp\ 9726}#)
|
|
((lambda (#{else\ 9732}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid rest argument"
|
|
#{orig-args\ 9694}#
|
|
#{args\ 9717}#))
|
|
#{tmp\ 9725}#)))
|
|
(list #{tmp\ 9725}#)))
|
|
#{args\ 9717}#)))
|
|
(#{key\ 9701}#
|
|
(lambda (#{args\ 9733}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
#{rkey\ 9736}#)
|
|
((lambda (#{tmp\ 9741}#)
|
|
((lambda (#{tmp\ 9742}#)
|
|
(if #{tmp\ 9742}#
|
|
(apply (lambda ()
|
|
(#{check\ 9705}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
#f
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 9736}#))))
|
|
#{tmp\ 9742}#)
|
|
((lambda (#{tmp\ 9743}#)
|
|
(if (if #{tmp\ 9743}#
|
|
(apply (lambda (#{a\ 9746}#
|
|
#{b\ 9747}#)
|
|
(#{id?\ 9076}#
|
|
#{a\ 9746}#))
|
|
#{tmp\ 9743}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9750}#
|
|
#{b\ 9751}#)
|
|
((lambda (#{tmp\ 9753}#)
|
|
((lambda (#{k\ 9755}#)
|
|
(#{key\ 9701}#
|
|
#{b\ 9751}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons (cons #{k\ 9755}#
|
|
(cons #{a\ 9750}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(k)
|
|
#((top))
|
|
#("i9754"))
|
|
#(ribcage
|
|
#(a
|
|
b)
|
|
#((top)
|
|
(top))
|
|
#("i9748"
|
|
"i9749"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
opt
|
|
rkey)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i9737"
|
|
"i9738"
|
|
"i9739"
|
|
"i9740"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9704"
|
|
"i9702"
|
|
"i9700"
|
|
"i9698"
|
|
"i9696"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i9695"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i8875"
|
|
"i8873")))
|
|
(hygiene
|
|
guile)))))
|
|
#{rkey\ 9736}#)))
|
|
#{tmp\ 9753}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 9750}#))))
|
|
#{tmp\ 9743}#)
|
|
((lambda (#{tmp\ 9756}#)
|
|
(if (if #{tmp\ 9756}#
|
|
(apply (lambda (#{a\ 9760}#
|
|
#{init\ 9761}#
|
|
#{b\ 9762}#)
|
|
(#{id?\ 9076}#
|
|
#{a\ 9760}#))
|
|
#{tmp\ 9756}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9766}#
|
|
#{init\ 9767}#
|
|
#{b\ 9768}#)
|
|
((lambda (#{tmp\ 9770}#)
|
|
((lambda (#{k\ 9772}#)
|
|
(#{key\ 9701}#
|
|
#{b\ 9768}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons (list #{k\ 9772}#
|
|
#{a\ 9766}#
|
|
#{init\ 9767}#)
|
|
#{rkey\ 9736}#)))
|
|
#{tmp\ 9770}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 9766}#))))
|
|
#{tmp\ 9756}#)
|
|
((lambda (#{tmp\ 9773}#)
|
|
(if (if #{tmp\ 9773}#
|
|
(apply (lambda (#{a\ 9778}#
|
|
#{init\ 9779}#
|
|
#{k\ 9780}#
|
|
#{b\ 9781}#)
|
|
(if (#{id?\ 9076}#
|
|
#{a\ 9778}#)
|
|
(keyword?
|
|
(syntax->datum
|
|
#{k\ 9780}#))
|
|
#f))
|
|
#{tmp\ 9773}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9788}#
|
|
#{init\ 9789}#
|
|
#{k\ 9790}#
|
|
#{b\ 9791}#)
|
|
(#{key\ 9701}#
|
|
#{b\ 9791}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons (list #{k\ 9790}#
|
|
#{a\ 9788}#
|
|
#{init\ 9789}#)
|
|
#{rkey\ 9736}#)))
|
|
#{tmp\ 9773}#)
|
|
((lambda (#{tmp\ 9792}#)
|
|
(if (if #{tmp\ 9792}#
|
|
(apply (lambda (#{aok\ 9794}#)
|
|
(eq? (syntax->datum
|
|
#{aok\ 9794}#)
|
|
#:allow-other-keys))
|
|
#{tmp\ 9792}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 9796}#)
|
|
(#{check\ 9705}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
#f
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 9736}#))))
|
|
#{tmp\ 9792}#)
|
|
((lambda (#{tmp\ 9797}#)
|
|
(if (if #{tmp\ 9797}#
|
|
(apply (lambda (#{aok\ 9801}#
|
|
#{a\ 9802}#
|
|
#{b\ 9803}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 9801}#)
|
|
#:allow-other-keys)
|
|
(eq? (syntax->datum
|
|
#{a\ 9802}#)
|
|
#:rest)
|
|
#f))
|
|
#{tmp\ 9797}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 9809}#
|
|
#{a\ 9810}#
|
|
#{b\ 9811}#)
|
|
(#{rest\ 9703}#
|
|
#{b\ 9811}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 9736}#))))
|
|
#{tmp\ 9797}#)
|
|
((lambda (#{tmp\ 9812}#)
|
|
(if (if #{tmp\ 9812}#
|
|
(apply (lambda (#{aok\ 9815}#
|
|
#{r\ 9816}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 9815}#)
|
|
#:allow-other-keys)
|
|
(#{id?\ 9076}#
|
|
#{r\ 9816}#)
|
|
#f))
|
|
#{tmp\ 9812}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 9821}#
|
|
#{r\ 9822}#)
|
|
(#{rest\ 9703}#
|
|
#{r\ 9822}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 9736}#))))
|
|
#{tmp\ 9812}#)
|
|
((lambda (#{tmp\ 9823}#)
|
|
(if (if #{tmp\ 9823}#
|
|
(apply (lambda (#{a\ 9826}#
|
|
#{b\ 9827}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 9826}#)
|
|
#:rest))
|
|
#{tmp\ 9823}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9830}#
|
|
#{b\ 9831}#)
|
|
(#{rest\ 9703}#
|
|
#{b\ 9831}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 9736}#))))
|
|
#{tmp\ 9823}#)
|
|
((lambda (#{tmp\ 9832}#)
|
|
(if (if #{tmp\ 9832}#
|
|
(apply (lambda (#{r\ 9834}#)
|
|
(#{id?\ 9076}#
|
|
#{r\ 9834}#))
|
|
#{tmp\ 9832}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 9836}#)
|
|
(#{rest\ 9703}#
|
|
#{r\ 9836}#
|
|
#{req\ 9734}#
|
|
#{opt\ 9735}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 9736}#))))
|
|
#{tmp\ 9832}#)
|
|
((lambda (#{else\ 9838}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid keyword argument list"
|
|
#{orig-args\ 9694}#
|
|
#{args\ 9733}#))
|
|
#{tmp\ 9741}#)))
|
|
(list #{tmp\ 9741}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'(any .
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'((any any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9741}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 9741}# (quote ()))))
|
|
#{args\ 9733}#)))
|
|
(#{opt\ 9699}#
|
|
(lambda (#{args\ 9839}# #{req\ 9840}# #{ropt\ 9841}#)
|
|
((lambda (#{tmp\ 9845}#)
|
|
((lambda (#{tmp\ 9846}#)
|
|
(if #{tmp\ 9846}#
|
|
(apply (lambda ()
|
|
(#{check\ 9705}#
|
|
#{req\ 9840}#
|
|
(reverse #{ropt\ 9841}#)
|
|
#f
|
|
'()))
|
|
#{tmp\ 9846}#)
|
|
((lambda (#{tmp\ 9847}#)
|
|
(if (if #{tmp\ 9847}#
|
|
(apply (lambda (#{a\ 9850}#
|
|
#{b\ 9851}#)
|
|
(#{id?\ 9076}#
|
|
#{a\ 9850}#))
|
|
#{tmp\ 9847}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9854}#
|
|
#{b\ 9855}#)
|
|
(#{opt\ 9699}#
|
|
#{b\ 9855}#
|
|
#{req\ 9840}#
|
|
(cons (cons #{a\ 9854}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(a b)
|
|
#((top)
|
|
(top))
|
|
#("i9852"
|
|
"i9853"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
ropt)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i9842"
|
|
"i9843"
|
|
"i9844"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9704"
|
|
"i9702"
|
|
"i9700"
|
|
"i9698"
|
|
"i9696"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i9695"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i8875"
|
|
"i8873")))
|
|
(hygiene
|
|
guile))))
|
|
#{ropt\ 9841}#)))
|
|
#{tmp\ 9847}#)
|
|
((lambda (#{tmp\ 9856}#)
|
|
(if (if #{tmp\ 9856}#
|
|
(apply (lambda (#{a\ 9860}#
|
|
#{init\ 9861}#
|
|
#{b\ 9862}#)
|
|
(#{id?\ 9076}#
|
|
#{a\ 9860}#))
|
|
#{tmp\ 9856}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9866}#
|
|
#{init\ 9867}#
|
|
#{b\ 9868}#)
|
|
(#{opt\ 9699}#
|
|
#{b\ 9868}#
|
|
#{req\ 9840}#
|
|
(cons (list #{a\ 9866}#
|
|
#{init\ 9867}#)
|
|
#{ropt\ 9841}#)))
|
|
#{tmp\ 9856}#)
|
|
((lambda (#{tmp\ 9869}#)
|
|
(if (if #{tmp\ 9869}#
|
|
(apply (lambda (#{a\ 9872}#
|
|
#{b\ 9873}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 9872}#)
|
|
#:key))
|
|
#{tmp\ 9869}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9876}#
|
|
#{b\ 9877}#)
|
|
(#{key\ 9701}#
|
|
#{b\ 9877}#
|
|
#{req\ 9840}#
|
|
(reverse
|
|
#{ropt\ 9841}#)
|
|
'()))
|
|
#{tmp\ 9869}#)
|
|
((lambda (#{tmp\ 9878}#)
|
|
(if (if #{tmp\ 9878}#
|
|
(apply (lambda (#{a\ 9881}#
|
|
#{b\ 9882}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 9881}#)
|
|
#:rest))
|
|
#{tmp\ 9878}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9885}#
|
|
#{b\ 9886}#)
|
|
(#{rest\ 9703}#
|
|
#{b\ 9886}#
|
|
#{req\ 9840}#
|
|
(reverse
|
|
#{ropt\ 9841}#)
|
|
'()))
|
|
#{tmp\ 9878}#)
|
|
((lambda (#{tmp\ 9887}#)
|
|
(if (if #{tmp\ 9887}#
|
|
(apply (lambda (#{r\ 9889}#)
|
|
(#{id?\ 9076}#
|
|
#{r\ 9889}#))
|
|
#{tmp\ 9887}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 9891}#)
|
|
(#{rest\ 9703}#
|
|
#{r\ 9891}#
|
|
#{req\ 9840}#
|
|
(reverse
|
|
#{ropt\ 9841}#)
|
|
'()))
|
|
#{tmp\ 9887}#)
|
|
((lambda (#{else\ 9893}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid optional argument list"
|
|
#{orig-args\ 9694}#
|
|
#{args\ 9839}#))
|
|
#{tmp\ 9845}#)))
|
|
(list #{tmp\ 9845}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 9845}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9845}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9845}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9845}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 9845}# (quote ()))))
|
|
#{args\ 9839}#)))
|
|
(#{req\ 9697}#
|
|
(lambda (#{args\ 9894}# #{rreq\ 9895}#)
|
|
((lambda (#{tmp\ 9898}#)
|
|
((lambda (#{tmp\ 9899}#)
|
|
(if #{tmp\ 9899}#
|
|
(apply (lambda ()
|
|
(#{check\ 9705}#
|
|
(reverse #{rreq\ 9895}#)
|
|
'()
|
|
#f
|
|
'()))
|
|
#{tmp\ 9899}#)
|
|
((lambda (#{tmp\ 9900}#)
|
|
(if (if #{tmp\ 9900}#
|
|
(apply (lambda (#{a\ 9903}#
|
|
#{b\ 9904}#)
|
|
(#{id?\ 9076}#
|
|
#{a\ 9903}#))
|
|
#{tmp\ 9900}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9907}#
|
|
#{b\ 9908}#)
|
|
(#{req\ 9697}#
|
|
#{b\ 9908}#
|
|
(cons #{a\ 9907}#
|
|
#{rreq\ 9895}#)))
|
|
#{tmp\ 9900}#)
|
|
((lambda (#{tmp\ 9909}#)
|
|
(if (if #{tmp\ 9909}#
|
|
(apply (lambda (#{a\ 9912}#
|
|
#{b\ 9913}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 9912}#)
|
|
#:optional))
|
|
#{tmp\ 9909}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9916}#
|
|
#{b\ 9917}#)
|
|
(#{opt\ 9699}#
|
|
#{b\ 9917}#
|
|
(reverse
|
|
#{rreq\ 9895}#)
|
|
'()))
|
|
#{tmp\ 9909}#)
|
|
((lambda (#{tmp\ 9918}#)
|
|
(if (if #{tmp\ 9918}#
|
|
(apply (lambda (#{a\ 9921}#
|
|
#{b\ 9922}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 9921}#)
|
|
#:key))
|
|
#{tmp\ 9918}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9925}#
|
|
#{b\ 9926}#)
|
|
(#{key\ 9701}#
|
|
#{b\ 9926}#
|
|
(reverse
|
|
#{rreq\ 9895}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 9918}#)
|
|
((lambda (#{tmp\ 9927}#)
|
|
(if (if #{tmp\ 9927}#
|
|
(apply (lambda (#{a\ 9930}#
|
|
#{b\ 9931}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 9930}#)
|
|
#:rest))
|
|
#{tmp\ 9927}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9934}#
|
|
#{b\ 9935}#)
|
|
(#{rest\ 9703}#
|
|
#{b\ 9935}#
|
|
(reverse
|
|
#{rreq\ 9895}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 9927}#)
|
|
((lambda (#{tmp\ 9936}#)
|
|
(if (if #{tmp\ 9936}#
|
|
(apply (lambda (#{r\ 9938}#)
|
|
(#{id?\ 9076}#
|
|
#{r\ 9938}#))
|
|
#{tmp\ 9936}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 9940}#)
|
|
(#{rest\ 9703}#
|
|
#{r\ 9940}#
|
|
(reverse
|
|
#{rreq\ 9895}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 9936}#)
|
|
((lambda (#{else\ 9942}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid argument list"
|
|
#{orig-args\ 9694}#
|
|
#{args\ 9894}#))
|
|
#{tmp\ 9898}#)))
|
|
(list #{tmp\ 9898}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 9898}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9898}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9898}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9898}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 9898}# (quote ()))))
|
|
#{args\ 9894}#))))
|
|
(#{req\ 9697}# #{orig-args\ 9694}# (quote ())))))
|
|
(#{chi-simple-lambda\ 9181}#
|
|
(lambda (#{e\ 9943}#
|
|
#{r\ 9944}#
|
|
#{w\ 9945}#
|
|
#{s\ 9946}#
|
|
#{mod\ 9947}#
|
|
#{req\ 9948}#
|
|
#{rest\ 9949}#
|
|
#{meta\ 9950}#
|
|
#{body\ 9951}#)
|
|
(let ((#{ids\ 9963}#
|
|
(if #{rest\ 9949}#
|
|
(append #{req\ 9948}# (list #{rest\ 9949}#))
|
|
#{req\ 9948}#)))
|
|
(let ((#{vars\ 9965}#
|
|
(map #{gen-var\ 9189}# #{ids\ 9963}#)))
|
|
(let ((#{labels\ 9967}#
|
|
(#{gen-labels\ 9094}# #{ids\ 9963}#)))
|
|
(#{build-simple-lambda\ 9018}#
|
|
#{s\ 9946}#
|
|
(map syntax->datum #{req\ 9948}#)
|
|
(if #{rest\ 9949}#
|
|
(syntax->datum #{rest\ 9949}#)
|
|
#f)
|
|
#{vars\ 9965}#
|
|
#{meta\ 9950}#
|
|
(#{chi-body\ 9169}#
|
|
#{body\ 9951}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 9943}#
|
|
#{w\ 9945}#
|
|
#{s\ 9946}#
|
|
#{mod\ 9947}#)
|
|
(#{extend-var-env\ 9066}#
|
|
#{labels\ 9967}#
|
|
#{vars\ 9965}#
|
|
#{r\ 9944}#)
|
|
(#{make-binding-wrap\ 9123}#
|
|
#{ids\ 9963}#
|
|
#{labels\ 9967}#
|
|
#{w\ 9945}#)
|
|
#{mod\ 9947}#)))))))
|
|
(#{lambda-formals\ 9179}#
|
|
(lambda (#{orig-args\ 9970}#)
|
|
(letrec ((#{check\ 9975}#
|
|
(lambda (#{req\ 9976}# #{rest\ 9977}#)
|
|
(if (#{distinct-bound-ids?\ 9141}#
|
|
(if #{rest\ 9977}#
|
|
(cons #{rest\ 9977}# #{req\ 9976}#)
|
|
#{req\ 9976}#))
|
|
(values #{req\ 9976}# #f #{rest\ 9977}# #f)
|
|
(syntax-violation
|
|
'lambda
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 9970}#))))
|
|
(#{req\ 9973}#
|
|
(lambda (#{args\ 9983}# #{rreq\ 9984}#)
|
|
((lambda (#{tmp\ 9987}#)
|
|
((lambda (#{tmp\ 9988}#)
|
|
(if #{tmp\ 9988}#
|
|
(apply (lambda ()
|
|
(#{check\ 9975}#
|
|
(reverse #{rreq\ 9984}#)
|
|
#f))
|
|
#{tmp\ 9988}#)
|
|
((lambda (#{tmp\ 9989}#)
|
|
(if (if #{tmp\ 9989}#
|
|
(apply (lambda (#{a\ 9992}#
|
|
#{b\ 9993}#)
|
|
(#{id?\ 9076}#
|
|
#{a\ 9992}#))
|
|
#{tmp\ 9989}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 9996}#
|
|
#{b\ 9997}#)
|
|
(#{req\ 9973}#
|
|
#{b\ 9997}#
|
|
(cons #{a\ 9996}#
|
|
#{rreq\ 9984}#)))
|
|
#{tmp\ 9989}#)
|
|
((lambda (#{tmp\ 9998}#)
|
|
(if (if #{tmp\ 9998}#
|
|
(apply (lambda (#{r\ 10000}#)
|
|
(#{id?\ 9076}#
|
|
#{r\ 10000}#))
|
|
#{tmp\ 9998}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 10002}#)
|
|
(#{check\ 9975}#
|
|
(reverse
|
|
#{rreq\ 9984}#)
|
|
#{r\ 10002}#))
|
|
#{tmp\ 9998}#)
|
|
((lambda (#{else\ 10004}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"invalid argument list"
|
|
#{orig-args\ 9970}#
|
|
#{args\ 9983}#))
|
|
#{tmp\ 9987}#)))
|
|
(list #{tmp\ 9987}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 9987}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 9987}# (quote ()))))
|
|
#{args\ 9983}#))))
|
|
(#{req\ 9973}# #{orig-args\ 9970}# (quote ())))))
|
|
(#{ellipsis?\ 9177}#
|
|
(lambda (#{x\ 10005}#)
|
|
(if (#{nonsymbol-id?\ 9074}# #{x\ 10005}#)
|
|
(#{free-id=?\ 9135}#
|
|
#{x\ 10005}#
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i10006"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile)))
|
|
#f)))
|
|
(#{chi-void\ 9175}#
|
|
(lambda () (#{build-void\ 8996}# #f)))
|
|
(#{eval-local-transformer\ 9173}#
|
|
(lambda (#{expanded\ 10010}# #{mod\ 10011}#)
|
|
(let ((#{p\ 10015}#
|
|
(#{local-eval-hook\ 8987}#
|
|
#{expanded\ 10010}#
|
|
#{mod\ 10011}#)))
|
|
(if (procedure? #{p\ 10015}#)
|
|
(cons #{p\ 10015}#
|
|
(module-name (current-module)))
|
|
(syntax-violation
|
|
#f
|
|
"nonprocedure transformer"
|
|
#{p\ 10015}#)))))
|
|
(#{chi-local-syntax\ 9171}#
|
|
(lambda (#{rec?\ 10016}#
|
|
#{e\ 10017}#
|
|
#{r\ 10018}#
|
|
#{w\ 10019}#
|
|
#{s\ 10020}#
|
|
#{mod\ 10021}#
|
|
#{k\ 10022}#)
|
|
((lambda (#{tmp\ 10030}#)
|
|
((lambda (#{tmp\ 10031}#)
|
|
(if #{tmp\ 10031}#
|
|
(apply (lambda (#{_\ 10037}#
|
|
#{id\ 10038}#
|
|
#{val\ 10039}#
|
|
#{e1\ 10040}#
|
|
#{e2\ 10041}#)
|
|
(let ((#{ids\ 10043}# #{id\ 10038}#))
|
|
(if (not (#{valid-bound-ids?\ 9139}#
|
|
#{ids\ 10043}#))
|
|
(syntax-violation
|
|
#f
|
|
"duplicate bound keyword"
|
|
#{e\ 10017}#)
|
|
(let ((#{labels\ 10046}#
|
|
(#{gen-labels\ 9094}#
|
|
#{ids\ 10043}#)))
|
|
(let ((#{new-w\ 10048}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
#{ids\ 10043}#
|
|
#{labels\ 10046}#
|
|
#{w\ 10019}#)))
|
|
(#{k\ 10022}#
|
|
(cons #{e1\ 10040}# #{e2\ 10041}#)
|
|
(#{extend-env\ 9064}#
|
|
#{labels\ 10046}#
|
|
(let ((#{w\ 10052}#
|
|
(if #{rec?\ 10016}#
|
|
#{new-w\ 10048}#
|
|
#{w\ 10019}#))
|
|
(#{trans-r\ 10053}#
|
|
(#{macros-only-env\ 9068}#
|
|
#{r\ 10018}#)))
|
|
(map (lambda (#{x\ 10054}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 9173}#
|
|
(#{chi\ 9161}#
|
|
#{x\ 10054}#
|
|
#{trans-r\ 10053}#
|
|
#{w\ 10052}#
|
|
#{mod\ 10021}#)
|
|
#{mod\ 10021}#)))
|
|
#{val\ 10039}#))
|
|
#{r\ 10018}#)
|
|
#{new-w\ 10048}#
|
|
#{s\ 10020}#
|
|
#{mod\ 10021}#))))))
|
|
#{tmp\ 10031}#)
|
|
((lambda (#{_\ 10059}#)
|
|
(syntax-violation
|
|
#f
|
|
"bad local syntax definition"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10017}#
|
|
#{w\ 10019}#
|
|
#{s\ 10020}#
|
|
#{mod\ 10021}#)))
|
|
#{tmp\ 10030}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10030}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 10017}#)))
|
|
(#{chi-body\ 9169}#
|
|
(lambda (#{body\ 10060}#
|
|
#{outer-form\ 10061}#
|
|
#{r\ 10062}#
|
|
#{w\ 10063}#
|
|
#{mod\ 10064}#)
|
|
(let ((#{r\ 10072}#
|
|
(cons '("placeholder" placeholder)
|
|
#{r\ 10062}#)))
|
|
(let ((#{ribcage\ 10074}#
|
|
(#{make-ribcage\ 9097}#
|
|
'()
|
|
'()
|
|
'())))
|
|
(let ((#{w\ 10077}#
|
|
(#{make-wrap\ 9081}#
|
|
(#{wrap-marks\ 9083}# #{w\ 10063}#)
|
|
(cons #{ribcage\ 10074}#
|
|
(#{wrap-subst\ 9085}# #{w\ 10063}#)))))
|
|
(letrec ((#{parse\ 10086}#
|
|
(lambda (#{body\ 10087}#
|
|
#{ids\ 10088}#
|
|
#{labels\ 10089}#
|
|
#{var-ids\ 10090}#
|
|
#{vars\ 10091}#
|
|
#{vals\ 10092}#
|
|
#{bindings\ 10093}#)
|
|
(if (null? #{body\ 10087}#)
|
|
(syntax-violation
|
|
#f
|
|
"no expressions in body"
|
|
#{outer-form\ 10061}#)
|
|
(let ((#{e\ 10098}# (cdar #{body\ 10087}#))
|
|
(#{er\ 10099}#
|
|
(caar #{body\ 10087}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9157}#
|
|
#{e\ 10098}#
|
|
#{er\ 10099}#
|
|
'(())
|
|
(#{source-annotation\ 9055}#
|
|
#{er\ 10099}#)
|
|
#{ribcage\ 10074}#
|
|
#{mod\ 10064}#
|
|
#f))
|
|
(lambda (#{type\ 10101}#
|
|
#{value\ 10102}#
|
|
#{e\ 10103}#
|
|
#{w\ 10104}#
|
|
#{s\ 10105}#
|
|
#{mod\ 10106}#)
|
|
(if (memv #{type\ 10101}#
|
|
'(define-form))
|
|
(let ((#{id\ 10116}#
|
|
(#{wrap\ 9145}#
|
|
#{value\ 10102}#
|
|
#{w\ 10104}#
|
|
#{mod\ 10106}#))
|
|
(#{label\ 10117}#
|
|
(#{gen-label\ 9092}#)))
|
|
(let ((#{var\ 10119}#
|
|
(#{gen-var\ 9189}#
|
|
#{id\ 10116}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 9121}#
|
|
#{ribcage\ 10074}#
|
|
#{id\ 10116}#
|
|
#{label\ 10117}#)
|
|
(#{parse\ 10086}#
|
|
(cdr #{body\ 10087}#)
|
|
(cons #{id\ 10116}#
|
|
#{ids\ 10088}#)
|
|
(cons #{label\ 10117}#
|
|
#{labels\ 10089}#)
|
|
(cons #{id\ 10116}#
|
|
#{var-ids\ 10090}#)
|
|
(cons #{var\ 10119}#
|
|
#{vars\ 10091}#)
|
|
(cons (cons #{er\ 10099}#
|
|
(#{wrap\ 9145}#
|
|
#{e\ 10103}#
|
|
#{w\ 10104}#
|
|
#{mod\ 10106}#))
|
|
#{vals\ 10092}#)
|
|
(cons (cons 'lexical
|
|
#{var\ 10119}#)
|
|
#{bindings\ 10093}#)))))
|
|
(if (memv #{type\ 10101}#
|
|
'(define-syntax-form))
|
|
(let ((#{id\ 10124}#
|
|
(#{wrap\ 9145}#
|
|
#{value\ 10102}#
|
|
#{w\ 10104}#
|
|
#{mod\ 10106}#))
|
|
(#{label\ 10125}#
|
|
(#{gen-label\ 9092}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 9121}#
|
|
#{ribcage\ 10074}#
|
|
#{id\ 10124}#
|
|
#{label\ 10125}#)
|
|
(#{parse\ 10086}#
|
|
(cdr #{body\ 10087}#)
|
|
(cons #{id\ 10124}#
|
|
#{ids\ 10088}#)
|
|
(cons #{label\ 10125}#
|
|
#{labels\ 10089}#)
|
|
#{var-ids\ 10090}#
|
|
#{vars\ 10091}#
|
|
#{vals\ 10092}#
|
|
(cons (cons 'macro
|
|
(cons #{er\ 10099}#
|
|
(#{wrap\ 9145}#
|
|
#{e\ 10103}#
|
|
#{w\ 10104}#
|
|
#{mod\ 10106}#)))
|
|
#{bindings\ 10093}#))))
|
|
(if (memv #{type\ 10101}#
|
|
'(begin-form))
|
|
((lambda (#{tmp\ 10128}#)
|
|
((lambda (#{tmp\ 10129}#)
|
|
(if #{tmp\ 10129}#
|
|
(apply (lambda (#{_\ 10132}#
|
|
#{e1\ 10133}#)
|
|
(#{parse\ 10086}#
|
|
(letrec ((#{f\ 10136}#
|
|
(lambda (#{forms\ 10137}#)
|
|
(if (null? #{forms\ 10137}#)
|
|
(cdr #{body\ 10087}#)
|
|
(cons (cons #{er\ 10099}#
|
|
(#{wrap\ 9145}#
|
|
(car #{forms\ 10137}#)
|
|
#{w\ 10104}#
|
|
#{mod\ 10106}#))
|
|
(#{f\ 10136}#
|
|
(cdr #{forms\ 10137}#)))))))
|
|
(#{f\ 10136}#
|
|
#{e1\ 10133}#))
|
|
#{ids\ 10088}#
|
|
#{labels\ 10089}#
|
|
#{var-ids\ 10090}#
|
|
#{vars\ 10091}#
|
|
#{vals\ 10092}#
|
|
#{bindings\ 10093}#))
|
|
#{tmp\ 10129}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10128}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10128}#
|
|
'(any . each-any))))
|
|
#{e\ 10103}#)
|
|
(if (memv #{type\ 10101}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 9171}#
|
|
#{value\ 10102}#
|
|
#{e\ 10103}#
|
|
#{er\ 10099}#
|
|
#{w\ 10104}#
|
|
#{s\ 10105}#
|
|
#{mod\ 10106}#
|
|
(lambda (#{forms\ 10140}#
|
|
#{er\ 10141}#
|
|
#{w\ 10142}#
|
|
#{s\ 10143}#
|
|
#{mod\ 10144}#)
|
|
(#{parse\ 10086}#
|
|
(letrec ((#{f\ 10152}#
|
|
(lambda (#{forms\ 10153}#)
|
|
(if (null? #{forms\ 10153}#)
|
|
(cdr #{body\ 10087}#)
|
|
(cons (cons #{er\ 10141}#
|
|
(#{wrap\ 9145}#
|
|
(car #{forms\ 10153}#)
|
|
#{w\ 10142}#
|
|
#{mod\ 10144}#))
|
|
(#{f\ 10152}#
|
|
(cdr #{forms\ 10153}#)))))))
|
|
(#{f\ 10152}#
|
|
#{forms\ 10140}#))
|
|
#{ids\ 10088}#
|
|
#{labels\ 10089}#
|
|
#{var-ids\ 10090}#
|
|
#{vars\ 10091}#
|
|
#{vals\ 10092}#
|
|
#{bindings\ 10093}#)))
|
|
(if (null? #{ids\ 10088}#)
|
|
(#{build-sequence\ 9028}#
|
|
#f
|
|
(map (lambda (#{x\ 10156}#)
|
|
(#{chi\ 9161}#
|
|
(cdr #{x\ 10156}#)
|
|
(car #{x\ 10156}#)
|
|
'(())
|
|
#{mod\ 10106}#))
|
|
(cons (cons #{er\ 10099}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10103}#
|
|
#{w\ 10104}#
|
|
#{s\ 10105}#
|
|
#{mod\ 10106}#))
|
|
(cdr #{body\ 10087}#))))
|
|
(begin
|
|
(if (not (#{valid-bound-ids?\ 9139}#
|
|
#{ids\ 10088}#))
|
|
(syntax-violation
|
|
#f
|
|
"invalid or duplicate identifier in definition"
|
|
#{outer-form\ 10061}#))
|
|
(letrec ((#{loop\ 10163}#
|
|
(lambda (#{bs\ 10164}#
|
|
#{er-cache\ 10165}#
|
|
#{r-cache\ 10166}#)
|
|
(if (not (null? #{bs\ 10164}#))
|
|
(let ((#{b\ 10169}#
|
|
(car #{bs\ 10164}#)))
|
|
(if (eq? (car #{b\ 10169}#)
|
|
'macro)
|
|
(let ((#{er\ 10172}#
|
|
(cadr #{b\ 10169}#)))
|
|
(let ((#{r-cache\ 10174}#
|
|
(if (eq? #{er\ 10172}#
|
|
#{er-cache\ 10165}#)
|
|
#{r-cache\ 10166}#
|
|
(#{macros-only-env\ 9068}#
|
|
#{er\ 10172}#))))
|
|
(begin
|
|
(set-cdr!
|
|
#{b\ 10169}#
|
|
(#{eval-local-transformer\ 9173}#
|
|
(#{chi\ 9161}#
|
|
(cddr #{b\ 10169}#)
|
|
#{r-cache\ 10174}#
|
|
'(())
|
|
#{mod\ 10106}#)
|
|
#{mod\ 10106}#))
|
|
(#{loop\ 10163}#
|
|
(cdr #{bs\ 10164}#)
|
|
#{er\ 10172}#
|
|
#{r-cache\ 10174}#))))
|
|
(#{loop\ 10163}#
|
|
(cdr #{bs\ 10164}#)
|
|
#{er-cache\ 10165}#
|
|
#{r-cache\ 10166}#)))))))
|
|
(#{loop\ 10163}#
|
|
#{bindings\ 10093}#
|
|
#f
|
|
#f))
|
|
(set-cdr!
|
|
#{r\ 10072}#
|
|
(#{extend-env\ 9064}#
|
|
#{labels\ 10089}#
|
|
#{bindings\ 10093}#
|
|
(cdr #{r\ 10072}#)))
|
|
(#{build-letrec\ 9034}#
|
|
#f
|
|
(map syntax->datum
|
|
#{var-ids\ 10090}#)
|
|
#{vars\ 10091}#
|
|
(map (lambda (#{x\ 10177}#)
|
|
(#{chi\ 9161}#
|
|
(cdr #{x\ 10177}#)
|
|
(car #{x\ 10177}#)
|
|
'(())
|
|
#{mod\ 10106}#))
|
|
#{vals\ 10092}#)
|
|
(#{build-sequence\ 9028}#
|
|
#f
|
|
(map (lambda (#{x\ 10181}#)
|
|
(#{chi\ 9161}#
|
|
(cdr #{x\ 10181}#)
|
|
(car #{x\ 10181}#)
|
|
'(())
|
|
#{mod\ 10106}#))
|
|
(cons (cons #{er\ 10099}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10103}#
|
|
#{w\ 10104}#
|
|
#{s\ 10105}#
|
|
#{mod\ 10106}#))
|
|
(cdr #{body\ 10087}#))))))))))))))))))
|
|
(#{parse\ 10086}#
|
|
(map (lambda (#{x\ 10094}#)
|
|
(cons #{r\ 10072}#
|
|
(#{wrap\ 9145}#
|
|
#{x\ 10094}#
|
|
#{w\ 10077}#
|
|
#{mod\ 10064}#)))
|
|
#{body\ 10060}#)
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'())))))))
|
|
(#{chi-macro\ 9167}#
|
|
(lambda (#{p\ 10184}#
|
|
#{e\ 10185}#
|
|
#{r\ 10186}#
|
|
#{w\ 10187}#
|
|
#{rib\ 10188}#
|
|
#{mod\ 10189}#)
|
|
(letrec ((#{rebuild-macro-output\ 10197}#
|
|
(lambda (#{x\ 10198}# #{m\ 10199}#)
|
|
(if (pair? #{x\ 10198}#)
|
|
(cons (#{rebuild-macro-output\ 10197}#
|
|
(car #{x\ 10198}#)
|
|
#{m\ 10199}#)
|
|
(#{rebuild-macro-output\ 10197}#
|
|
(cdr #{x\ 10198}#)
|
|
#{m\ 10199}#))
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10198}#)
|
|
(let ((#{w\ 10207}#
|
|
(#{syntax-object-wrap\ 9044}#
|
|
#{x\ 10198}#)))
|
|
(let ((#{ms\ 10210}#
|
|
(#{wrap-marks\ 9083}# #{w\ 10207}#))
|
|
(#{s\ 10211}#
|
|
(#{wrap-subst\ 9085}# #{w\ 10207}#)))
|
|
(if (if (pair? #{ms\ 10210}#)
|
|
(eq? (car #{ms\ 10210}#) #f)
|
|
#f)
|
|
(#{make-syntax-object\ 9038}#
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{x\ 10198}#)
|
|
(#{make-wrap\ 9081}#
|
|
(cdr #{ms\ 10210}#)
|
|
(if #{rib\ 10188}#
|
|
(cons #{rib\ 10188}#
|
|
(cdr #{s\ 10211}#))
|
|
(cdr #{s\ 10211}#)))
|
|
(#{syntax-object-module\ 9046}#
|
|
#{x\ 10198}#))
|
|
(#{make-syntax-object\ 9038}#
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{x\ 10198}#)
|
|
(#{make-wrap\ 9081}#
|
|
(cons #{m\ 10199}# #{ms\ 10210}#)
|
|
(if #{rib\ 10188}#
|
|
(cons #{rib\ 10188}#
|
|
(cons 'shift
|
|
#{s\ 10211}#))
|
|
(cons (quote shift) #{s\ 10211}#)))
|
|
(cons 'hygiene
|
|
(cdr #{p\ 10184}#))))))
|
|
(if (vector? #{x\ 10198}#)
|
|
(let ((#{n\ 10219}#
|
|
(vector-length #{x\ 10198}#)))
|
|
(let ((#{v\ 10221}#
|
|
(make-vector #{n\ 10219}#)))
|
|
(letrec ((#{loop\ 10224}#
|
|
(lambda (#{i\ 10225}#)
|
|
(if (#{fx=\ 8981}#
|
|
#{i\ 10225}#
|
|
#{n\ 10219}#)
|
|
(begin
|
|
(if #f #f)
|
|
#{v\ 10221}#)
|
|
(begin
|
|
(vector-set!
|
|
#{v\ 10221}#
|
|
#{i\ 10225}#
|
|
(#{rebuild-macro-output\ 10197}#
|
|
(vector-ref
|
|
#{x\ 10198}#
|
|
#{i\ 10225}#)
|
|
#{m\ 10199}#))
|
|
(#{loop\ 10224}#
|
|
(#{fx+\ 8977}#
|
|
#{i\ 10225}#
|
|
1)))))))
|
|
(#{loop\ 10224}# 0))))
|
|
(if (symbol? #{x\ 10198}#)
|
|
(syntax-violation
|
|
#f
|
|
"encountered raw symbol in macro output"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10185}#
|
|
#{w\ 10187}#
|
|
(#{wrap-subst\ 9085}# #{w\ 10187}#)
|
|
#{mod\ 10189}#)
|
|
#{x\ 10198}#)
|
|
#{x\ 10198}#)))))))
|
|
(#{rebuild-macro-output\ 10197}#
|
|
((car #{p\ 10184}#)
|
|
(#{wrap\ 9145}#
|
|
#{e\ 10185}#
|
|
(#{anti-mark\ 9117}# #{w\ 10187}#)
|
|
#{mod\ 10189}#))
|
|
(gensym "m")))))
|
|
(#{chi-application\ 9165}#
|
|
(lambda (#{x\ 10232}#
|
|
#{e\ 10233}#
|
|
#{r\ 10234}#
|
|
#{w\ 10235}#
|
|
#{s\ 10236}#
|
|
#{mod\ 10237}#)
|
|
((lambda (#{tmp\ 10244}#)
|
|
((lambda (#{tmp\ 10245}#)
|
|
(if #{tmp\ 10245}#
|
|
(apply (lambda (#{e0\ 10248}# #{e1\ 10249}#)
|
|
(#{build-application\ 8998}#
|
|
#{s\ 10236}#
|
|
#{x\ 10232}#
|
|
(map (lambda (#{e\ 10250}#)
|
|
(#{chi\ 9161}#
|
|
#{e\ 10250}#
|
|
#{r\ 10234}#
|
|
#{w\ 10235}#
|
|
#{mod\ 10237}#))
|
|
#{e1\ 10249}#)))
|
|
#{tmp\ 10245}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10244}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10244}#
|
|
'(any . each-any))))
|
|
#{e\ 10233}#)))
|
|
(#{chi-expr\ 9163}#
|
|
(lambda (#{type\ 10253}#
|
|
#{value\ 10254}#
|
|
#{e\ 10255}#
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
(if (memv #{type\ 10253}# (quote (lexical)))
|
|
(#{build-lexical-reference\ 9004}#
|
|
'value
|
|
#{s\ 10258}#
|
|
#{e\ 10255}#
|
|
#{value\ 10254}#)
|
|
(if (memv #{type\ 10253}# (quote (core core-form)))
|
|
(#{value\ 10254}#
|
|
#{e\ 10255}#
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
(if (memv #{type\ 10253}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{value\ 10254}# #{e\ 10255}#))
|
|
(lambda (#{id\ 10270}# #{mod\ 10271}#)
|
|
(#{build-global-reference\ 9010}#
|
|
#{s\ 10258}#
|
|
#{id\ 10270}#
|
|
#{mod\ 10271}#)))
|
|
(if (memv #{type\ 10253}# (quote (lexical-call)))
|
|
(#{chi-application\ 9165}#
|
|
(#{build-lexical-reference\ 9004}#
|
|
'fun
|
|
(#{source-annotation\ 9055}# (car #{e\ 10255}#))
|
|
(car #{e\ 10255}#)
|
|
#{value\ 10254}#)
|
|
#{e\ 10255}#
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
(if (memv #{type\ 10253}# (quote (global-call)))
|
|
(#{chi-application\ 9165}#
|
|
(#{build-global-reference\ 9010}#
|
|
(#{source-annotation\ 9055}# (car #{e\ 10255}#))
|
|
(if (#{syntax-object?\ 9040}# #{value\ 10254}#)
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{value\ 10254}#)
|
|
#{value\ 10254}#)
|
|
(if (#{syntax-object?\ 9040}# #{value\ 10254}#)
|
|
(#{syntax-object-module\ 9046}#
|
|
#{value\ 10254}#)
|
|
#{mod\ 10259}#))
|
|
#{e\ 10255}#
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
(if (memv #{type\ 10253}# (quote (constant)))
|
|
(#{build-data\ 9026}#
|
|
#{s\ 10258}#
|
|
(#{strip\ 9187}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10255}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
'(())))
|
|
(if (memv #{type\ 10253}# (quote (global)))
|
|
(#{build-global-reference\ 9010}#
|
|
#{s\ 10258}#
|
|
#{value\ 10254}#
|
|
#{mod\ 10259}#)
|
|
(if (memv #{type\ 10253}# (quote (call)))
|
|
(#{chi-application\ 9165}#
|
|
(#{chi\ 9161}#
|
|
(car #{e\ 10255}#)
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{mod\ 10259}#)
|
|
#{e\ 10255}#
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
(if (memv #{type\ 10253}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 10281}#)
|
|
((lambda (#{tmp\ 10282}#)
|
|
(if #{tmp\ 10282}#
|
|
(apply (lambda (#{_\ 10286}#
|
|
#{e1\ 10287}#
|
|
#{e2\ 10288}#)
|
|
(#{chi-sequence\ 9149}#
|
|
(cons #{e1\ 10287}#
|
|
#{e2\ 10288}#)
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#))
|
|
#{tmp\ 10282}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10281}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10281}#
|
|
'(any any . each-any))))
|
|
#{e\ 10255}#)
|
|
(if (memv #{type\ 10253}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 9171}#
|
|
#{value\ 10254}#
|
|
#{e\ 10255}#
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#
|
|
#{chi-sequence\ 9149}#)
|
|
(if (memv #{type\ 10253}#
|
|
'(eval-when-form))
|
|
((lambda (#{tmp\ 10292}#)
|
|
((lambda (#{tmp\ 10293}#)
|
|
(if #{tmp\ 10293}#
|
|
(apply (lambda (#{_\ 10298}#
|
|
#{x\ 10299}#
|
|
#{e1\ 10300}#
|
|
#{e2\ 10301}#)
|
|
(let ((#{when-list\ 10303}#
|
|
(#{chi-when-list\ 9155}#
|
|
#{e\ 10255}#
|
|
#{x\ 10299}#
|
|
#{w\ 10257}#)))
|
|
(if (memq 'eval
|
|
#{when-list\ 10303}#)
|
|
(#{chi-sequence\ 9149}#
|
|
(cons #{e1\ 10300}#
|
|
#{e2\ 10301}#)
|
|
#{r\ 10256}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#)
|
|
(#{chi-void\ 9175}#))))
|
|
#{tmp\ 10293}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10292}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10292}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 10255}#)
|
|
(if (memv #{type\ 10253}#
|
|
'(define-form
|
|
define-syntax-form))
|
|
(syntax-violation
|
|
#f
|
|
"definition in expression context"
|
|
#{e\ 10255}#
|
|
(#{wrap\ 9145}#
|
|
#{value\ 10254}#
|
|
#{w\ 10257}#
|
|
#{mod\ 10259}#))
|
|
(if (memv #{type\ 10253}#
|
|
'(syntax))
|
|
(syntax-violation
|
|
#f
|
|
"reference to pattern variable outside syntax form"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10255}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#))
|
|
(if (memv #{type\ 10253}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"reference to identifier outside its scope"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10255}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#))
|
|
(syntax-violation
|
|
#f
|
|
"unexpected syntax"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 10255}#
|
|
#{w\ 10257}#
|
|
#{s\ 10258}#
|
|
#{mod\ 10259}#))))))))))))))))))
|
|
(#{chi\ 9161}#
|
|
(lambda (#{e\ 10310}#
|
|
#{r\ 10311}#
|
|
#{w\ 10312}#
|
|
#{mod\ 10313}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9157}#
|
|
#{e\ 10310}#
|
|
#{r\ 10311}#
|
|
#{w\ 10312}#
|
|
(#{source-annotation\ 9055}# #{e\ 10310}#)
|
|
#f
|
|
#{mod\ 10313}#
|
|
#f))
|
|
(lambda (#{type\ 10318}#
|
|
#{value\ 10319}#
|
|
#{e\ 10320}#
|
|
#{w\ 10321}#
|
|
#{s\ 10322}#
|
|
#{mod\ 10323}#)
|
|
(#{chi-expr\ 9163}#
|
|
#{type\ 10318}#
|
|
#{value\ 10319}#
|
|
#{e\ 10320}#
|
|
#{r\ 10311}#
|
|
#{w\ 10321}#
|
|
#{s\ 10322}#
|
|
#{mod\ 10323}#)))))
|
|
(#{chi-top\ 9159}#
|
|
(lambda (#{e\ 10330}#
|
|
#{r\ 10331}#
|
|
#{w\ 10332}#
|
|
#{m\ 10333}#
|
|
#{esew\ 10334}#
|
|
#{mod\ 10335}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9157}#
|
|
#{e\ 10330}#
|
|
#{r\ 10331}#
|
|
#{w\ 10332}#
|
|
(#{source-annotation\ 9055}# #{e\ 10330}#)
|
|
#f
|
|
#{mod\ 10335}#
|
|
#f))
|
|
(lambda (#{type\ 10356}#
|
|
#{value\ 10357}#
|
|
#{e\ 10358}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
#{mod\ 10361}#)
|
|
(if (memv #{type\ 10356}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 10369}#)
|
|
((lambda (#{tmp\ 10370}#)
|
|
(if #{tmp\ 10370}#
|
|
(apply (lambda (#{_\ 10372}#)
|
|
(#{chi-void\ 9175}#))
|
|
#{tmp\ 10370}#)
|
|
((lambda (#{tmp\ 10373}#)
|
|
(if #{tmp\ 10373}#
|
|
(apply (lambda (#{_\ 10377}#
|
|
#{e1\ 10378}#
|
|
#{e2\ 10379}#)
|
|
(#{chi-top-sequence\ 9151}#
|
|
(cons #{e1\ 10378}# #{e2\ 10379}#)
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
#{m\ 10333}#
|
|
#{esew\ 10334}#
|
|
#{mod\ 10361}#))
|
|
#{tmp\ 10373}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10369}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10369}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch #{tmp\ 10369}# (quote (any)))))
|
|
#{e\ 10358}#)
|
|
(if (memv #{type\ 10356}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 9171}#
|
|
#{value\ 10357}#
|
|
#{e\ 10358}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
#{mod\ 10361}#
|
|
(lambda (#{body\ 10382}#
|
|
#{r\ 10383}#
|
|
#{w\ 10384}#
|
|
#{s\ 10385}#
|
|
#{mod\ 10386}#)
|
|
(#{chi-top-sequence\ 9151}#
|
|
#{body\ 10382}#
|
|
#{r\ 10383}#
|
|
#{w\ 10384}#
|
|
#{s\ 10385}#
|
|
#{m\ 10333}#
|
|
#{esew\ 10334}#
|
|
#{mod\ 10386}#)))
|
|
(if (memv #{type\ 10356}# (quote (eval-when-form)))
|
|
((lambda (#{tmp\ 10393}#)
|
|
((lambda (#{tmp\ 10394}#)
|
|
(if #{tmp\ 10394}#
|
|
(apply (lambda (#{_\ 10399}#
|
|
#{x\ 10400}#
|
|
#{e1\ 10401}#
|
|
#{e2\ 10402}#)
|
|
(let ((#{when-list\ 10405}#
|
|
(#{chi-when-list\ 9155}#
|
|
#{e\ 10358}#
|
|
#{x\ 10400}#
|
|
#{w\ 10359}#))
|
|
(#{body\ 10406}#
|
|
(cons #{e1\ 10401}#
|
|
#{e2\ 10402}#)))
|
|
(if (eq? #{m\ 10333}# (quote e))
|
|
(if (memq 'eval
|
|
#{when-list\ 10405}#)
|
|
(#{chi-top-sequence\ 9151}#
|
|
#{body\ 10406}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 10361}#)
|
|
(#{chi-void\ 9175}#))
|
|
(if (memq 'load
|
|
#{when-list\ 10405}#)
|
|
(if (let ((#{t\ 10415}#
|
|
(memq 'compile
|
|
#{when-list\ 10405}#)))
|
|
(if #{t\ 10415}#
|
|
#{t\ 10415}#
|
|
(if (eq? #{m\ 10333}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 10405}#)
|
|
#f)))
|
|
(#{chi-top-sequence\ 9151}#
|
|
#{body\ 10406}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
'c&e
|
|
'(compile load)
|
|
#{mod\ 10361}#)
|
|
(if (memq #{m\ 10333}#
|
|
'(c c&e))
|
|
(#{chi-top-sequence\ 9151}#
|
|
#{body\ 10406}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
'c
|
|
'(load)
|
|
#{mod\ 10361}#)
|
|
(#{chi-void\ 9175}#)))
|
|
(if (let ((#{t\ 10423}#
|
|
(memq 'compile
|
|
#{when-list\ 10405}#)))
|
|
(if #{t\ 10423}#
|
|
#{t\ 10423}#
|
|
(if (eq? #{m\ 10333}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 10405}#)
|
|
#f)))
|
|
(begin
|
|
(#{top-level-eval-hook\ 8985}#
|
|
(#{chi-top-sequence\ 9151}#
|
|
#{body\ 10406}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 10361}#)
|
|
#{mod\ 10361}#)
|
|
(#{chi-void\ 9175}#))
|
|
(#{chi-void\ 9175}#))))))
|
|
#{tmp\ 10394}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10393}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10393}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 10358}#)
|
|
(if (memv #{type\ 10356}#
|
|
'(define-syntax-form))
|
|
(let ((#{n\ 10431}#
|
|
(#{id-var-name\ 9133}#
|
|
#{value\ 10357}#
|
|
#{w\ 10359}#))
|
|
(#{r\ 10432}#
|
|
(#{macros-only-env\ 9068}# #{r\ 10331}#)))
|
|
(if (memv #{m\ 10333}# (quote (c)))
|
|
(if (memq (quote compile) #{esew\ 10334}#)
|
|
(let ((#{e\ 10435}#
|
|
(#{chi-install-global\ 9153}#
|
|
#{n\ 10431}#
|
|
(#{chi\ 9161}#
|
|
#{e\ 10358}#
|
|
#{r\ 10432}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 8985}#
|
|
#{e\ 10435}#
|
|
#{mod\ 10361}#)
|
|
(if (memq (quote load) #{esew\ 10334}#)
|
|
#{e\ 10435}#
|
|
(#{chi-void\ 9175}#))))
|
|
(if (memq (quote load) #{esew\ 10334}#)
|
|
(#{chi-install-global\ 9153}#
|
|
#{n\ 10431}#
|
|
(#{chi\ 9161}#
|
|
#{e\ 10358}#
|
|
#{r\ 10432}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))
|
|
(#{chi-void\ 9175}#)))
|
|
(if (memv #{m\ 10333}# (quote (c&e)))
|
|
(let ((#{e\ 10438}#
|
|
(#{chi-install-global\ 9153}#
|
|
#{n\ 10431}#
|
|
(#{chi\ 9161}#
|
|
#{e\ 10358}#
|
|
#{r\ 10432}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 8985}#
|
|
#{e\ 10438}#
|
|
#{mod\ 10361}#)
|
|
#{e\ 10438}#))
|
|
(begin
|
|
(if (memq (quote eval) #{esew\ 10334}#)
|
|
(#{top-level-eval-hook\ 8985}#
|
|
(#{chi-install-global\ 9153}#
|
|
#{n\ 10431}#
|
|
(#{chi\ 9161}#
|
|
#{e\ 10358}#
|
|
#{r\ 10432}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))
|
|
#{mod\ 10361}#))
|
|
(#{chi-void\ 9175}#)))))
|
|
(if (memv #{type\ 10356}# (quote (define-form)))
|
|
(let ((#{n\ 10443}#
|
|
(#{id-var-name\ 9133}#
|
|
#{value\ 10357}#
|
|
#{w\ 10359}#)))
|
|
(let ((#{type\ 10445}#
|
|
(#{binding-type\ 9059}#
|
|
(#{lookup\ 9070}#
|
|
#{n\ 10443}#
|
|
#{r\ 10331}#
|
|
#{mod\ 10361}#))))
|
|
(if (memv #{type\ 10445}#
|
|
'(global core macro module-ref))
|
|
(begin
|
|
(if (if (not (module-local-variable
|
|
(current-module)
|
|
#{n\ 10443}#))
|
|
(current-module)
|
|
#f)
|
|
(let ((#{old\ 10450}#
|
|
(module-variable
|
|
(current-module)
|
|
#{n\ 10443}#)))
|
|
(module-define!
|
|
(current-module)
|
|
#{n\ 10443}#
|
|
(if (variable? #{old\ 10450}#)
|
|
(variable-ref #{old\ 10450}#)
|
|
#f))))
|
|
(let ((#{x\ 10453}#
|
|
(#{build-global-definition\ 9016}#
|
|
#{s\ 10360}#
|
|
#{n\ 10443}#
|
|
(#{chi\ 9161}#
|
|
#{e\ 10358}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))))
|
|
(begin
|
|
(if (eq? #{m\ 10333}# (quote c&e))
|
|
(#{top-level-eval-hook\ 8985}#
|
|
#{x\ 10453}#
|
|
#{mod\ 10361}#))
|
|
#{x\ 10453}#)))
|
|
(if (memv #{type\ 10445}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"identifier out of context"
|
|
#{e\ 10358}#
|
|
(#{wrap\ 9145}#
|
|
#{value\ 10357}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))
|
|
(syntax-violation
|
|
#f
|
|
"cannot define keyword at top level"
|
|
#{e\ 10358}#
|
|
(#{wrap\ 9145}#
|
|
#{value\ 10357}#
|
|
#{w\ 10359}#
|
|
#{mod\ 10361}#))))))
|
|
(let ((#{x\ 10459}#
|
|
(#{chi-expr\ 9163}#
|
|
#{type\ 10356}#
|
|
#{value\ 10357}#
|
|
#{e\ 10358}#
|
|
#{r\ 10331}#
|
|
#{w\ 10359}#
|
|
#{s\ 10360}#
|
|
#{mod\ 10361}#)))
|
|
(begin
|
|
(if (eq? #{m\ 10333}# (quote c&e))
|
|
(#{top-level-eval-hook\ 8985}#
|
|
#{x\ 10459}#
|
|
#{mod\ 10361}#))
|
|
#{x\ 10459}#)))))))))))
|
|
(#{syntax-type\ 9157}#
|
|
(lambda (#{e\ 10460}#
|
|
#{r\ 10461}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10465}#
|
|
#{for-car?\ 10466}#)
|
|
(if (symbol? #{e\ 10460}#)
|
|
(let ((#{n\ 10478}#
|
|
(#{id-var-name\ 9133}# #{e\ 10460}# #{w\ 10462}#)))
|
|
(let ((#{b\ 10480}#
|
|
(#{lookup\ 9070}#
|
|
#{n\ 10478}#
|
|
#{r\ 10461}#
|
|
#{mod\ 10465}#)))
|
|
(let ((#{type\ 10482}#
|
|
(#{binding-type\ 9059}# #{b\ 10480}#)))
|
|
(if (memv #{type\ 10482}# (quote (lexical)))
|
|
(values
|
|
#{type\ 10482}#
|
|
(#{binding-value\ 9061}# #{b\ 10480}#)
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{type\ 10482}# (quote (global)))
|
|
(values
|
|
#{type\ 10482}#
|
|
#{n\ 10478}#
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{type\ 10482}# (quote (macro)))
|
|
(if #{for-car?\ 10466}#
|
|
(values
|
|
#{type\ 10482}#
|
|
(#{binding-value\ 9061}# #{b\ 10480}#)
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(#{syntax-type\ 9157}#
|
|
(#{chi-macro\ 9167}#
|
|
(#{binding-value\ 9061}# #{b\ 10480}#)
|
|
#{e\ 10460}#
|
|
#{r\ 10461}#
|
|
#{w\ 10462}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10465}#)
|
|
#{r\ 10461}#
|
|
'(())
|
|
#{s\ 10463}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10465}#
|
|
#f))
|
|
(values
|
|
#{type\ 10482}#
|
|
(#{binding-value\ 9061}# #{b\ 10480}#)
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)))))))
|
|
(if (pair? #{e\ 10460}#)
|
|
(let ((#{first\ 10491}# (car #{e\ 10460}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9157}#
|
|
#{first\ 10491}#
|
|
#{r\ 10461}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10465}#
|
|
#t))
|
|
(lambda (#{ftype\ 10492}#
|
|
#{fval\ 10493}#
|
|
#{fe\ 10494}#
|
|
#{fw\ 10495}#
|
|
#{fs\ 10496}#
|
|
#{fmod\ 10497}#)
|
|
(if (memv #{ftype\ 10492}# (quote (lexical)))
|
|
(values
|
|
'lexical-call
|
|
#{fval\ 10493}#
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{ftype\ 10492}# (quote (global)))
|
|
(values
|
|
'global-call
|
|
(#{make-syntax-object\ 9038}#
|
|
#{fval\ 10493}#
|
|
#{w\ 10462}#
|
|
#{fmod\ 10497}#)
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{ftype\ 10492}# (quote (macro)))
|
|
(#{syntax-type\ 9157}#
|
|
(#{chi-macro\ 9167}#
|
|
#{fval\ 10493}#
|
|
#{e\ 10460}#
|
|
#{r\ 10461}#
|
|
#{w\ 10462}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10465}#)
|
|
#{r\ 10461}#
|
|
'(())
|
|
#{s\ 10463}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10465}#
|
|
#{for-car?\ 10466}#)
|
|
(if (memv #{ftype\ 10492}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{fval\ 10493}# #{e\ 10460}#))
|
|
(lambda (#{sym\ 10509}# #{mod\ 10510}#)
|
|
(#{syntax-type\ 9157}#
|
|
#{sym\ 10509}#
|
|
#{r\ 10461}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{rib\ 10464}#
|
|
#{mod\ 10510}#
|
|
#{for-car?\ 10466}#)))
|
|
(if (memv #{ftype\ 10492}# (quote (core)))
|
|
(values
|
|
'core-form
|
|
#{fval\ 10493}#
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{ftype\ 10492}#
|
|
'(local-syntax))
|
|
(values
|
|
'local-syntax-form
|
|
#{fval\ 10493}#
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{ftype\ 10492}#
|
|
'(begin))
|
|
(values
|
|
'begin-form
|
|
#f
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{ftype\ 10492}#
|
|
'(eval-when))
|
|
(values
|
|
'eval-when-form
|
|
#f
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(if (memv #{ftype\ 10492}#
|
|
'(define))
|
|
((lambda (#{tmp\ 10518}#)
|
|
((lambda (#{tmp\ 10519}#)
|
|
(if (if #{tmp\ 10519}#
|
|
(apply (lambda (#{_\ 10523}#
|
|
#{name\ 10524}#
|
|
#{val\ 10525}#)
|
|
(#{id?\ 9076}#
|
|
#{name\ 10524}#))
|
|
#{tmp\ 10519}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10529}#
|
|
#{name\ 10530}#
|
|
#{val\ 10531}#)
|
|
(values
|
|
'define-form
|
|
#{name\ 10530}#
|
|
#{val\ 10531}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#))
|
|
#{tmp\ 10519}#)
|
|
((lambda (#{tmp\ 10532}#)
|
|
(if (if #{tmp\ 10532}#
|
|
(apply (lambda (#{_\ 10538}#
|
|
#{name\ 10539}#
|
|
#{args\ 10540}#
|
|
#{e1\ 10541}#
|
|
#{e2\ 10542}#)
|
|
(if (#{id?\ 9076}#
|
|
#{name\ 10539}#)
|
|
(#{valid-bound-ids?\ 9139}#
|
|
(#{lambda-var-list\ 9191}#
|
|
#{args\ 10540}#))
|
|
#f))
|
|
#{tmp\ 10532}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10550}#
|
|
#{name\ 10551}#
|
|
#{args\ 10552}#
|
|
#{e1\ 10553}#
|
|
#{e2\ 10554}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 9145}#
|
|
#{name\ 10551}#
|
|
#{w\ 10462}#
|
|
#{mod\ 10465}#)
|
|
(#{decorate-source\ 8994}#
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name
|
|
args
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10545"
|
|
"i10546"
|
|
"i10547"
|
|
"i10548"
|
|
"i10549"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10498"
|
|
"i10499"
|
|
"i10500"
|
|
"i10501"
|
|
"i10502"
|
|
"i10503"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10490"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10467"
|
|
"i10468"
|
|
"i10469"
|
|
"i10470"
|
|
"i10471"
|
|
"i10472"
|
|
"i10473"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i8875"
|
|
"i8873")))
|
|
(hygiene
|
|
guile))
|
|
(#{wrap\ 9145}#
|
|
(cons #{args\ 10552}#
|
|
(cons #{e1\ 10553}#
|
|
#{e2\ 10554}#))
|
|
#{w\ 10462}#
|
|
#{mod\ 10465}#))
|
|
#{s\ 10463}#)
|
|
'(())
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#))
|
|
#{tmp\ 10532}#)
|
|
((lambda (#{tmp\ 10557}#)
|
|
(if (if #{tmp\ 10557}#
|
|
(apply (lambda (#{_\ 10560}#
|
|
#{name\ 10561}#)
|
|
(#{id?\ 9076}#
|
|
#{name\ 10561}#))
|
|
#{tmp\ 10557}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10564}#
|
|
#{name\ 10565}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 9145}#
|
|
#{name\ 10565}#
|
|
#{w\ 10462}#
|
|
#{mod\ 10465}#)
|
|
'(#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i10562"
|
|
"i10563"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10498"
|
|
"i10499"
|
|
"i10500"
|
|
"i10501"
|
|
"i10502"
|
|
"i10503"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10490"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10467"
|
|
"i10468"
|
|
"i10469"
|
|
"i10470"
|
|
"i10471"
|
|
"i10472"
|
|
"i10473"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i8875"
|
|
"i8873")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i10562"
|
|
"i10563"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10498"
|
|
"i10499"
|
|
"i10500"
|
|
"i10501"
|
|
"i10502"
|
|
"i10503"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10490"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10467"
|
|
"i10468"
|
|
"i10469"
|
|
"i10470"
|
|
"i10471"
|
|
"i10472"
|
|
"i10473"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i8875"
|
|
"i8873")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i10562"
|
|
"i10563"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10498"
|
|
"i10499"
|
|
"i10500"
|
|
"i10501"
|
|
"i10502"
|
|
"i10503"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10490"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10467"
|
|
"i10468"
|
|
"i10469"
|
|
"i10470"
|
|
"i10471"
|
|
"i10472"
|
|
"i10473"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i8875"
|
|
"i8873")))
|
|
(hygiene
|
|
guile)))
|
|
'(())
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#))
|
|
#{tmp\ 10557}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10518}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10518}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10518}#
|
|
'(any (any . any)
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10518}#
|
|
'(any any any))))
|
|
#{e\ 10460}#)
|
|
(if (memv #{ftype\ 10492}#
|
|
'(define-syntax))
|
|
((lambda (#{tmp\ 10568}#)
|
|
((lambda (#{tmp\ 10569}#)
|
|
(if (if #{tmp\ 10569}#
|
|
(apply (lambda (#{_\ 10573}#
|
|
#{name\ 10574}#
|
|
#{val\ 10575}#)
|
|
(#{id?\ 9076}#
|
|
#{name\ 10574}#))
|
|
#{tmp\ 10569}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10579}#
|
|
#{name\ 10580}#
|
|
#{val\ 10581}#)
|
|
(values
|
|
'define-syntax-form
|
|
#{name\ 10580}#
|
|
#{val\ 10581}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#))
|
|
#{tmp\ 10569}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10568}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10568}#
|
|
'(any any any))))
|
|
#{e\ 10460}#)
|
|
(values
|
|
'call
|
|
#f
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#))))))))))))))
|
|
(if (#{syntax-object?\ 9040}# #{e\ 10460}#)
|
|
(#{syntax-type\ 9157}#
|
|
(#{syntax-object-expression\ 9042}# #{e\ 10460}#)
|
|
#{r\ 10461}#
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 10462}#
|
|
(#{syntax-object-wrap\ 9044}# #{e\ 10460}#))
|
|
#{s\ 10463}#
|
|
#{rib\ 10464}#
|
|
(let ((#{t\ 10587}#
|
|
(#{syntax-object-module\ 9046}# #{e\ 10460}#)))
|
|
(if #{t\ 10587}# #{t\ 10587}# #{mod\ 10465}#))
|
|
#{for-car?\ 10466}#)
|
|
(if (self-evaluating? #{e\ 10460}#)
|
|
(values
|
|
'constant
|
|
#f
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)
|
|
(values
|
|
'other
|
|
#f
|
|
#{e\ 10460}#
|
|
#{w\ 10462}#
|
|
#{s\ 10463}#
|
|
#{mod\ 10465}#)))))))
|
|
(#{chi-when-list\ 9155}#
|
|
(lambda (#{e\ 10592}# #{when-list\ 10593}# #{w\ 10594}#)
|
|
(letrec ((#{f\ 10601}#
|
|
(lambda (#{when-list\ 10602}# #{situations\ 10603}#)
|
|
(if (null? #{when-list\ 10602}#)
|
|
#{situations\ 10603}#
|
|
(#{f\ 10601}#
|
|
(cdr #{when-list\ 10602}#)
|
|
(cons (let ((#{x\ 10605}#
|
|
(car #{when-list\ 10602}#)))
|
|
(if (#{free-id=?\ 9135}#
|
|
#{x\ 10605}#
|
|
'#(syntax-object
|
|
compile
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i10604"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i10598"
|
|
"i10599"
|
|
"i10600"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i10595"
|
|
"i10596"
|
|
"i10597"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile)))
|
|
'compile
|
|
(if (#{free-id=?\ 9135}#
|
|
#{x\ 10605}#
|
|
'#(syntax-object
|
|
load
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i10604"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i10598"
|
|
"i10599"
|
|
"i10600"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i10595"
|
|
"i10596"
|
|
"i10597"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile)))
|
|
'load
|
|
(if (#{free-id=?\ 9135}#
|
|
#{x\ 10605}#
|
|
'#(syntax-object
|
|
eval
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i10604"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
when-list
|
|
situations)
|
|
#((top) (top) (top))
|
|
#("i10598"
|
|
"i10599"
|
|
"i10600"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i10595"
|
|
"i10596"
|
|
"i10597"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile)))
|
|
'eval
|
|
(syntax-violation
|
|
'eval-when
|
|
"invalid situation"
|
|
#{e\ 10592}#
|
|
(#{wrap\ 9145}#
|
|
#{x\ 10605}#
|
|
#{w\ 10594}#
|
|
#f))))))
|
|
#{situations\ 10603}#))))))
|
|
(#{f\ 10601}# #{when-list\ 10593}# (quote ())))))
|
|
(#{chi-install-global\ 9153}#
|
|
(lambda (#{name\ 10613}# #{e\ 10614}#)
|
|
(#{build-global-definition\ 9016}#
|
|
#f
|
|
#{name\ 10613}#
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
'make-syntax-transformer)
|
|
(list (#{build-data\ 9026}# #f #{name\ 10613}#)
|
|
(#{build-data\ 9026}# #f (quote macro))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}# #f (quote cons))
|
|
(list #{e\ 10614}#
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
'module-name)
|
|
(list (#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
'current-module)
|
|
'()))))))))))
|
|
(#{chi-top-sequence\ 9151}#
|
|
(lambda (#{body\ 10628}#
|
|
#{r\ 10629}#
|
|
#{w\ 10630}#
|
|
#{s\ 10631}#
|
|
#{m\ 10632}#
|
|
#{esew\ 10633}#
|
|
#{mod\ 10634}#)
|
|
(#{build-sequence\ 9028}#
|
|
#{s\ 10631}#
|
|
(letrec ((#{dobody\ 10651}#
|
|
(lambda (#{body\ 10652}#
|
|
#{r\ 10653}#
|
|
#{w\ 10654}#
|
|
#{m\ 10655}#
|
|
#{esew\ 10656}#
|
|
#{mod\ 10657}#
|
|
#{module\ 10658}#
|
|
#{out\ 10659}#)
|
|
(if (null? #{body\ 10652}#)
|
|
(reverse #{out\ 10659}#)
|
|
(let ((#{first\ 10662}#
|
|
(#{chi-top\ 9159}#
|
|
(car #{body\ 10652}#)
|
|
#{r\ 10653}#
|
|
#{w\ 10654}#
|
|
#{m\ 10655}#
|
|
#{esew\ 10656}#
|
|
#{mod\ 10657}#)))
|
|
(let ((#{new-module\ 10664}#
|
|
(current-module)))
|
|
(#{dobody\ 10651}#
|
|
(cdr #{body\ 10652}#)
|
|
#{r\ 10653}#
|
|
#{w\ 10654}#
|
|
#{m\ 10655}#
|
|
#{esew\ 10656}#
|
|
(if (eq? #{module\ 10658}#
|
|
#{new-module\ 10664}#)
|
|
#{mod\ 10657}#
|
|
(cons 'hygiene
|
|
(module-name
|
|
#{new-module\ 10664}#)))
|
|
#{new-module\ 10664}#
|
|
(cons #{first\ 10662}#
|
|
#{out\ 10659}#))))))))
|
|
(#{dobody\ 10651}#
|
|
#{body\ 10628}#
|
|
#{r\ 10629}#
|
|
#{w\ 10630}#
|
|
#{m\ 10632}#
|
|
#{esew\ 10633}#
|
|
#{mod\ 10634}#
|
|
(current-module)
|
|
'())))))
|
|
(#{chi-sequence\ 9149}#
|
|
(lambda (#{body\ 10665}#
|
|
#{r\ 10666}#
|
|
#{w\ 10667}#
|
|
#{s\ 10668}#
|
|
#{mod\ 10669}#)
|
|
(#{build-sequence\ 9028}#
|
|
#{s\ 10668}#
|
|
(letrec ((#{dobody\ 10680}#
|
|
(lambda (#{body\ 10681}#
|
|
#{r\ 10682}#
|
|
#{w\ 10683}#
|
|
#{mod\ 10684}#)
|
|
(if (null? #{body\ 10681}#)
|
|
'()
|
|
(let ((#{first\ 10686}#
|
|
(#{chi\ 9161}#
|
|
(car #{body\ 10681}#)
|
|
#{r\ 10682}#
|
|
#{w\ 10683}#
|
|
#{mod\ 10684}#)))
|
|
(cons #{first\ 10686}#
|
|
(#{dobody\ 10680}#
|
|
(cdr #{body\ 10681}#)
|
|
#{r\ 10682}#
|
|
#{w\ 10683}#
|
|
#{mod\ 10684}#)))))))
|
|
(#{dobody\ 10680}#
|
|
#{body\ 10665}#
|
|
#{r\ 10666}#
|
|
#{w\ 10667}#
|
|
#{mod\ 10669}#)))))
|
|
(#{source-wrap\ 9147}#
|
|
(lambda (#{x\ 10687}#
|
|
#{w\ 10688}#
|
|
#{s\ 10689}#
|
|
#{defmod\ 10690}#)
|
|
(#{wrap\ 9145}#
|
|
(#{decorate-source\ 8994}#
|
|
#{x\ 10687}#
|
|
#{s\ 10689}#)
|
|
#{w\ 10688}#
|
|
#{defmod\ 10690}#)))
|
|
(#{wrap\ 9145}#
|
|
(lambda (#{x\ 10695}# #{w\ 10696}# #{defmod\ 10697}#)
|
|
(if (if (null? (#{wrap-marks\ 9083}# #{w\ 10696}#))
|
|
(null? (#{wrap-subst\ 9085}# #{w\ 10696}#))
|
|
#f)
|
|
#{x\ 10695}#
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10695}#)
|
|
(#{make-syntax-object\ 9038}#
|
|
(#{syntax-object-expression\ 9042}# #{x\ 10695}#)
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 10696}#
|
|
(#{syntax-object-wrap\ 9044}# #{x\ 10695}#))
|
|
(#{syntax-object-module\ 9046}# #{x\ 10695}#))
|
|
(if (null? #{x\ 10695}#)
|
|
#{x\ 10695}#
|
|
(#{make-syntax-object\ 9038}#
|
|
#{x\ 10695}#
|
|
#{w\ 10696}#
|
|
#{defmod\ 10697}#))))))
|
|
(#{bound-id-member?\ 9143}#
|
|
(lambda (#{x\ 10710}# #{list\ 10711}#)
|
|
(if (not (null? #{list\ 10711}#))
|
|
(let ((#{t\ 10718}#
|
|
(#{bound-id=?\ 9137}#
|
|
#{x\ 10710}#
|
|
(car #{list\ 10711}#))))
|
|
(if #{t\ 10718}#
|
|
#{t\ 10718}#
|
|
(#{bound-id-member?\ 9143}#
|
|
#{x\ 10710}#
|
|
(cdr #{list\ 10711}#))))
|
|
#f)))
|
|
(#{distinct-bound-ids?\ 9141}#
|
|
(lambda (#{ids\ 10720}#)
|
|
(letrec ((#{distinct?\ 10724}#
|
|
(lambda (#{ids\ 10725}#)
|
|
(let ((#{t\ 10728}# (null? #{ids\ 10725}#)))
|
|
(if #{t\ 10728}#
|
|
#{t\ 10728}#
|
|
(if (not (#{bound-id-member?\ 9143}#
|
|
(car #{ids\ 10725}#)
|
|
(cdr #{ids\ 10725}#)))
|
|
(#{distinct?\ 10724}# (cdr #{ids\ 10725}#))
|
|
#f))))))
|
|
(#{distinct?\ 10724}# #{ids\ 10720}#))))
|
|
(#{valid-bound-ids?\ 9139}#
|
|
(lambda (#{ids\ 10732}#)
|
|
(if (letrec ((#{all-ids?\ 10737}#
|
|
(lambda (#{ids\ 10738}#)
|
|
(let ((#{t\ 10741}# (null? #{ids\ 10738}#)))
|
|
(if #{t\ 10741}#
|
|
#{t\ 10741}#
|
|
(if (#{id?\ 9076}# (car #{ids\ 10738}#))
|
|
(#{all-ids?\ 10737}#
|
|
(cdr #{ids\ 10738}#))
|
|
#f))))))
|
|
(#{all-ids?\ 10737}# #{ids\ 10732}#))
|
|
(#{distinct-bound-ids?\ 9141}# #{ids\ 10732}#)
|
|
#f)))
|
|
(#{bound-id=?\ 9137}#
|
|
(lambda (#{i\ 10746}# #{j\ 10747}#)
|
|
(if (if (#{syntax-object?\ 9040}# #{i\ 10746}#)
|
|
(#{syntax-object?\ 9040}# #{j\ 10747}#)
|
|
#f)
|
|
(if (eq? (#{syntax-object-expression\ 9042}# #{i\ 10746}#)
|
|
(#{syntax-object-expression\ 9042}# #{j\ 10747}#))
|
|
(#{same-marks?\ 9131}#
|
|
(#{wrap-marks\ 9083}#
|
|
(#{syntax-object-wrap\ 9044}# #{i\ 10746}#))
|
|
(#{wrap-marks\ 9083}#
|
|
(#{syntax-object-wrap\ 9044}# #{j\ 10747}#)))
|
|
#f)
|
|
(eq? #{i\ 10746}# #{j\ 10747}#))))
|
|
(#{free-id=?\ 9135}#
|
|
(lambda (#{i\ 10754}# #{j\ 10755}#)
|
|
(if (eq? (let ((#{x\ 10761}# #{i\ 10754}#))
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10761}#)
|
|
(#{syntax-object-expression\ 9042}# #{x\ 10761}#)
|
|
#{x\ 10761}#))
|
|
(let ((#{x\ 10764}# #{j\ 10755}#))
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10764}#)
|
|
(#{syntax-object-expression\ 9042}# #{x\ 10764}#)
|
|
#{x\ 10764}#)))
|
|
(eq? (#{id-var-name\ 9133}# #{i\ 10754}# (quote (())))
|
|
(#{id-var-name\ 9133}# #{j\ 10755}# (quote (()))))
|
|
#f)))
|
|
(#{id-var-name\ 9133}#
|
|
(lambda (#{id\ 10768}# #{w\ 10769}#)
|
|
(letrec ((#{search-vector-rib\ 10778}#
|
|
(lambda (#{sym\ 10790}#
|
|
#{subst\ 10791}#
|
|
#{marks\ 10792}#
|
|
#{symnames\ 10793}#
|
|
#{ribcage\ 10794}#)
|
|
(let ((#{n\ 10801}#
|
|
(vector-length #{symnames\ 10793}#)))
|
|
(letrec ((#{f\ 10804}#
|
|
(lambda (#{i\ 10805}#)
|
|
(if (#{fx=\ 8981}#
|
|
#{i\ 10805}#
|
|
#{n\ 10801}#)
|
|
(#{search\ 10774}#
|
|
#{sym\ 10790}#
|
|
(cdr #{subst\ 10791}#)
|
|
#{marks\ 10792}#)
|
|
(if (if (eq? (vector-ref
|
|
#{symnames\ 10793}#
|
|
#{i\ 10805}#)
|
|
#{sym\ 10790}#)
|
|
(#{same-marks?\ 9131}#
|
|
#{marks\ 10792}#
|
|
(vector-ref
|
|
(#{ribcage-marks\ 9103}#
|
|
#{ribcage\ 10794}#)
|
|
#{i\ 10805}#))
|
|
#f)
|
|
(values
|
|
(vector-ref
|
|
(#{ribcage-labels\ 9105}#
|
|
#{ribcage\ 10794}#)
|
|
#{i\ 10805}#)
|
|
#{marks\ 10792}#)
|
|
(#{f\ 10804}#
|
|
(#{fx+\ 8977}#
|
|
#{i\ 10805}#
|
|
1)))))))
|
|
(#{f\ 10804}# 0)))))
|
|
(#{search-list-rib\ 10776}#
|
|
(lambda (#{sym\ 10813}#
|
|
#{subst\ 10814}#
|
|
#{marks\ 10815}#
|
|
#{symnames\ 10816}#
|
|
#{ribcage\ 10817}#)
|
|
(letrec ((#{f\ 10826}#
|
|
(lambda (#{symnames\ 10827}#
|
|
#{i\ 10828}#)
|
|
(if (null? #{symnames\ 10827}#)
|
|
(#{search\ 10774}#
|
|
#{sym\ 10813}#
|
|
(cdr #{subst\ 10814}#)
|
|
#{marks\ 10815}#)
|
|
(if (if (eq? (car #{symnames\ 10827}#)
|
|
#{sym\ 10813}#)
|
|
(#{same-marks?\ 9131}#
|
|
#{marks\ 10815}#
|
|
(list-ref
|
|
(#{ribcage-marks\ 9103}#
|
|
#{ribcage\ 10817}#)
|
|
#{i\ 10828}#))
|
|
#f)
|
|
(values
|
|
(list-ref
|
|
(#{ribcage-labels\ 9105}#
|
|
#{ribcage\ 10817}#)
|
|
#{i\ 10828}#)
|
|
#{marks\ 10815}#)
|
|
(#{f\ 10826}#
|
|
(cdr #{symnames\ 10827}#)
|
|
(#{fx+\ 8977}#
|
|
#{i\ 10828}#
|
|
1)))))))
|
|
(#{f\ 10826}# #{symnames\ 10816}# 0))))
|
|
(#{search\ 10774}#
|
|
(lambda (#{sym\ 10836}#
|
|
#{subst\ 10837}#
|
|
#{marks\ 10838}#)
|
|
(if (null? #{subst\ 10837}#)
|
|
(values #f #{marks\ 10838}#)
|
|
(let ((#{fst\ 10843}# (car #{subst\ 10837}#)))
|
|
(if (eq? #{fst\ 10843}# (quote shift))
|
|
(#{search\ 10774}#
|
|
#{sym\ 10836}#
|
|
(cdr #{subst\ 10837}#)
|
|
(cdr #{marks\ 10838}#))
|
|
(let ((#{symnames\ 10845}#
|
|
(#{ribcage-symnames\ 9101}#
|
|
#{fst\ 10843}#)))
|
|
(if (vector? #{symnames\ 10845}#)
|
|
(#{search-vector-rib\ 10778}#
|
|
#{sym\ 10836}#
|
|
#{subst\ 10837}#
|
|
#{marks\ 10838}#
|
|
#{symnames\ 10845}#
|
|
#{fst\ 10843}#)
|
|
(#{search-list-rib\ 10776}#
|
|
#{sym\ 10836}#
|
|
#{subst\ 10837}#
|
|
#{marks\ 10838}#
|
|
#{symnames\ 10845}#
|
|
#{fst\ 10843}#)))))))))
|
|
(if (symbol? #{id\ 10768}#)
|
|
(let ((#{t\ 10848}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 10774}#
|
|
#{id\ 10768}#
|
|
(#{wrap-subst\ 9085}# #{w\ 10769}#)
|
|
(#{wrap-marks\ 9083}# #{w\ 10769}#)))
|
|
(lambda (#{x\ 10850}# . #{ignore\ 10851}#)
|
|
#{x\ 10850}#))))
|
|
(if #{t\ 10848}# #{t\ 10848}# #{id\ 10768}#))
|
|
(if (#{syntax-object?\ 9040}# #{id\ 10768}#)
|
|
(let ((#{id\ 10859}#
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{id\ 10768}#))
|
|
(#{w1\ 10860}#
|
|
(#{syntax-object-wrap\ 9044}# #{id\ 10768}#)))
|
|
(let ((#{marks\ 10862}#
|
|
(#{join-marks\ 9129}#
|
|
(#{wrap-marks\ 9083}# #{w\ 10769}#)
|
|
(#{wrap-marks\ 9083}# #{w1\ 10860}#))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 10774}#
|
|
#{id\ 10859}#
|
|
(#{wrap-subst\ 9085}# #{w\ 10769}#)
|
|
#{marks\ 10862}#))
|
|
(lambda (#{new-id\ 10863}# #{marks\ 10864}#)
|
|
(let ((#{t\ 10869}# #{new-id\ 10863}#))
|
|
(if #{t\ 10869}#
|
|
#{t\ 10869}#
|
|
(let ((#{t\ 10872}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 10774}#
|
|
#{id\ 10859}#
|
|
(#{wrap-subst\ 9085}#
|
|
#{w1\ 10860}#)
|
|
#{marks\ 10864}#))
|
|
(lambda (#{x\ 10874}#
|
|
.
|
|
#{ignore\ 10875}#)
|
|
#{x\ 10874}#))))
|
|
(if #{t\ 10872}#
|
|
#{t\ 10872}#
|
|
#{id\ 10859}#))))))))
|
|
(syntax-violation
|
|
'id-var-name
|
|
"invalid id"
|
|
#{id\ 10768}#))))))
|
|
(#{same-marks?\ 9131}#
|
|
(lambda (#{x\ 10880}# #{y\ 10881}#)
|
|
(let ((#{t\ 10886}# (eq? #{x\ 10880}# #{y\ 10881}#)))
|
|
(if #{t\ 10886}#
|
|
#{t\ 10886}#
|
|
(if (not (null? #{x\ 10880}#))
|
|
(if (not (null? #{y\ 10881}#))
|
|
(if (eq? (car #{x\ 10880}#) (car #{y\ 10881}#))
|
|
(#{same-marks?\ 9131}#
|
|
(cdr #{x\ 10880}#)
|
|
(cdr #{y\ 10881}#))
|
|
#f)
|
|
#f)
|
|
#f)))))
|
|
(#{join-marks\ 9129}#
|
|
(lambda (#{m1\ 10892}# #{m2\ 10893}#)
|
|
(#{smart-append\ 9125}#
|
|
#{m1\ 10892}#
|
|
#{m2\ 10893}#)))
|
|
(#{join-wraps\ 9127}#
|
|
(lambda (#{w1\ 10896}# #{w2\ 10897}#)
|
|
(let ((#{m1\ 10902}#
|
|
(#{wrap-marks\ 9083}# #{w1\ 10896}#))
|
|
(#{s1\ 10903}#
|
|
(#{wrap-subst\ 9085}# #{w1\ 10896}#)))
|
|
(if (null? #{m1\ 10902}#)
|
|
(if (null? #{s1\ 10903}#)
|
|
#{w2\ 10897}#
|
|
(#{make-wrap\ 9081}#
|
|
(#{wrap-marks\ 9083}# #{w2\ 10897}#)
|
|
(#{smart-append\ 9125}#
|
|
#{s1\ 10903}#
|
|
(#{wrap-subst\ 9085}# #{w2\ 10897}#))))
|
|
(#{make-wrap\ 9081}#
|
|
(#{smart-append\ 9125}#
|
|
#{m1\ 10902}#
|
|
(#{wrap-marks\ 9083}# #{w2\ 10897}#))
|
|
(#{smart-append\ 9125}#
|
|
#{s1\ 10903}#
|
|
(#{wrap-subst\ 9085}# #{w2\ 10897}#)))))))
|
|
(#{smart-append\ 9125}#
|
|
(lambda (#{m1\ 10904}# #{m2\ 10905}#)
|
|
(if (null? #{m2\ 10905}#)
|
|
#{m1\ 10904}#
|
|
(append #{m1\ 10904}# #{m2\ 10905}#))))
|
|
(#{make-binding-wrap\ 9123}#
|
|
(lambda (#{ids\ 10908}# #{labels\ 10909}# #{w\ 10910}#)
|
|
(if (null? #{ids\ 10908}#)
|
|
#{w\ 10910}#
|
|
(#{make-wrap\ 9081}#
|
|
(#{wrap-marks\ 9083}# #{w\ 10910}#)
|
|
(cons (let ((#{labelvec\ 10915}#
|
|
(list->vector #{labels\ 10909}#)))
|
|
(let ((#{n\ 10917}#
|
|
(vector-length #{labelvec\ 10915}#)))
|
|
(let ((#{symnamevec\ 10920}#
|
|
(make-vector #{n\ 10917}#))
|
|
(#{marksvec\ 10921}#
|
|
(make-vector #{n\ 10917}#)))
|
|
(begin
|
|
(letrec ((#{f\ 10925}#
|
|
(lambda (#{ids\ 10926}#
|
|
#{i\ 10927}#)
|
|
(if (not (null? #{ids\ 10926}#))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{id-sym-name&marks\ 9079}#
|
|
(car #{ids\ 10926}#)
|
|
#{w\ 10910}#))
|
|
(lambda (#{symname\ 10928}#
|
|
#{marks\ 10929}#)
|
|
(begin
|
|
(vector-set!
|
|
#{symnamevec\ 10920}#
|
|
#{i\ 10927}#
|
|
#{symname\ 10928}#)
|
|
(vector-set!
|
|
#{marksvec\ 10921}#
|
|
#{i\ 10927}#
|
|
#{marks\ 10929}#)
|
|
(#{f\ 10925}#
|
|
(cdr #{ids\ 10926}#)
|
|
(#{fx+\ 8977}#
|
|
#{i\ 10927}#
|
|
1)))))))))
|
|
(#{f\ 10925}# #{ids\ 10908}# 0))
|
|
(#{make-ribcage\ 9097}#
|
|
#{symnamevec\ 10920}#
|
|
#{marksvec\ 10921}#
|
|
#{labelvec\ 10915}#)))))
|
|
(#{wrap-subst\ 9085}# #{w\ 10910}#))))))
|
|
(#{extend-ribcage!\ 9121}#
|
|
(lambda (#{ribcage\ 10932}#
|
|
#{id\ 10933}#
|
|
#{label\ 10934}#)
|
|
(begin
|
|
(#{set-ribcage-symnames!\ 9107}#
|
|
#{ribcage\ 10932}#
|
|
(cons (#{syntax-object-expression\ 9042}#
|
|
#{id\ 10933}#)
|
|
(#{ribcage-symnames\ 9101}# #{ribcage\ 10932}#)))
|
|
(#{set-ribcage-marks!\ 9109}#
|
|
#{ribcage\ 10932}#
|
|
(cons (#{wrap-marks\ 9083}#
|
|
(#{syntax-object-wrap\ 9044}# #{id\ 10933}#))
|
|
(#{ribcage-marks\ 9103}# #{ribcage\ 10932}#)))
|
|
(#{set-ribcage-labels!\ 9111}#
|
|
#{ribcage\ 10932}#
|
|
(cons #{label\ 10934}#
|
|
(#{ribcage-labels\ 9105}# #{ribcage\ 10932}#))))))
|
|
(#{anti-mark\ 9117}#
|
|
(lambda (#{w\ 10938}#)
|
|
(#{make-wrap\ 9081}#
|
|
(cons #f (#{wrap-marks\ 9083}# #{w\ 10938}#))
|
|
(cons 'shift
|
|
(#{wrap-subst\ 9085}# #{w\ 10938}#)))))
|
|
(#{set-ribcage-labels!\ 9111}#
|
|
(lambda (#{x\ 10941}# #{update\ 10942}#)
|
|
(vector-set! #{x\ 10941}# 3 #{update\ 10942}#)))
|
|
(#{set-ribcage-marks!\ 9109}#
|
|
(lambda (#{x\ 10945}# #{update\ 10946}#)
|
|
(vector-set! #{x\ 10945}# 2 #{update\ 10946}#)))
|
|
(#{set-ribcage-symnames!\ 9107}#
|
|
(lambda (#{x\ 10949}# #{update\ 10950}#)
|
|
(vector-set! #{x\ 10949}# 1 #{update\ 10950}#)))
|
|
(#{ribcage-labels\ 9105}#
|
|
(lambda (#{x\ 10953}#)
|
|
(vector-ref #{x\ 10953}# 3)))
|
|
(#{ribcage-marks\ 9103}#
|
|
(lambda (#{x\ 10955}#)
|
|
(vector-ref #{x\ 10955}# 2)))
|
|
(#{ribcage-symnames\ 9101}#
|
|
(lambda (#{x\ 10957}#)
|
|
(vector-ref #{x\ 10957}# 1)))
|
|
(#{ribcage?\ 9099}#
|
|
(lambda (#{x\ 10959}#)
|
|
(if (vector? #{x\ 10959}#)
|
|
(if (= (vector-length #{x\ 10959}#) 4)
|
|
(eq? (vector-ref #{x\ 10959}# 0) (quote ribcage))
|
|
#f)
|
|
#f)))
|
|
(#{make-ribcage\ 9097}#
|
|
(lambda (#{symnames\ 10964}#
|
|
#{marks\ 10965}#
|
|
#{labels\ 10966}#)
|
|
(vector
|
|
'ribcage
|
|
#{symnames\ 10964}#
|
|
#{marks\ 10965}#
|
|
#{labels\ 10966}#)))
|
|
(#{gen-labels\ 9094}#
|
|
(lambda (#{ls\ 10970}#)
|
|
(if (null? #{ls\ 10970}#)
|
|
'()
|
|
(cons (#{gen-label\ 9092}#)
|
|
(#{gen-labels\ 9094}# (cdr #{ls\ 10970}#))))))
|
|
(#{gen-label\ 9092}#
|
|
(lambda () (symbol->string (gensym "i"))))
|
|
(#{wrap-subst\ 9085}# cdr)
|
|
(#{wrap-marks\ 9083}# car)
|
|
(#{make-wrap\ 9081}# cons)
|
|
(#{id-sym-name&marks\ 9079}#
|
|
(lambda (#{x\ 10972}# #{w\ 10973}#)
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10972}#)
|
|
(values
|
|
(#{syntax-object-expression\ 9042}# #{x\ 10972}#)
|
|
(#{join-marks\ 9129}#
|
|
(#{wrap-marks\ 9083}# #{w\ 10973}#)
|
|
(#{wrap-marks\ 9083}#
|
|
(#{syntax-object-wrap\ 9044}# #{x\ 10972}#))))
|
|
(values
|
|
#{x\ 10972}#
|
|
(#{wrap-marks\ 9083}# #{w\ 10973}#)))))
|
|
(#{id?\ 9076}#
|
|
(lambda (#{x\ 10976}#)
|
|
(if (symbol? #{x\ 10976}#)
|
|
#t
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10976}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 9042}# #{x\ 10976}#))
|
|
#f))))
|
|
(#{nonsymbol-id?\ 9074}#
|
|
(lambda (#{x\ 10983}#)
|
|
(if (#{syntax-object?\ 9040}# #{x\ 10983}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 9042}# #{x\ 10983}#))
|
|
#f)))
|
|
(#{global-extend\ 9072}#
|
|
(lambda (#{type\ 10987}# #{sym\ 10988}# #{val\ 10989}#)
|
|
(#{put-global-definition-hook\ 8990}#
|
|
#{sym\ 10988}#
|
|
#{type\ 10987}#
|
|
#{val\ 10989}#)))
|
|
(#{lookup\ 9070}#
|
|
(lambda (#{x\ 10993}# #{r\ 10994}# #{mod\ 10995}#)
|
|
(let ((#{t\ 11001}# (assq #{x\ 10993}# #{r\ 10994}#)))
|
|
(if #{t\ 11001}#
|
|
(cdr #{t\ 11001}#)
|
|
(if (symbol? #{x\ 10993}#)
|
|
(let ((#{t\ 11007}#
|
|
(#{get-global-definition-hook\ 8992}#
|
|
#{x\ 10993}#
|
|
#{mod\ 10995}#)))
|
|
(if #{t\ 11007}# #{t\ 11007}# (quote (global))))
|
|
'(displaced-lexical))))))
|
|
(#{macros-only-env\ 9068}#
|
|
(lambda (#{r\ 11012}#)
|
|
(if (null? #{r\ 11012}#)
|
|
'()
|
|
(let ((#{a\ 11015}# (car #{r\ 11012}#)))
|
|
(if (eq? (cadr #{a\ 11015}#) (quote macro))
|
|
(cons #{a\ 11015}#
|
|
(#{macros-only-env\ 9068}# (cdr #{r\ 11012}#)))
|
|
(#{macros-only-env\ 9068}# (cdr #{r\ 11012}#)))))))
|
|
(#{extend-var-env\ 9066}#
|
|
(lambda (#{labels\ 11016}# #{vars\ 11017}# #{r\ 11018}#)
|
|
(if (null? #{labels\ 11016}#)
|
|
#{r\ 11018}#
|
|
(#{extend-var-env\ 9066}#
|
|
(cdr #{labels\ 11016}#)
|
|
(cdr #{vars\ 11017}#)
|
|
(cons (cons (car #{labels\ 11016}#)
|
|
(cons (quote lexical) (car #{vars\ 11017}#)))
|
|
#{r\ 11018}#)))))
|
|
(#{extend-env\ 9064}#
|
|
(lambda (#{labels\ 11023}#
|
|
#{bindings\ 11024}#
|
|
#{r\ 11025}#)
|
|
(if (null? #{labels\ 11023}#)
|
|
#{r\ 11025}#
|
|
(#{extend-env\ 9064}#
|
|
(cdr #{labels\ 11023}#)
|
|
(cdr #{bindings\ 11024}#)
|
|
(cons (cons (car #{labels\ 11023}#)
|
|
(car #{bindings\ 11024}#))
|
|
#{r\ 11025}#)))))
|
|
(#{binding-value\ 9061}# cdr)
|
|
(#{binding-type\ 9059}# car)
|
|
(#{source-annotation\ 9055}#
|
|
(lambda (#{x\ 11029}#)
|
|
(if (#{syntax-object?\ 9040}# #{x\ 11029}#)
|
|
(#{source-annotation\ 9055}#
|
|
(#{syntax-object-expression\ 9042}# #{x\ 11029}#))
|
|
(if (pair? #{x\ 11029}#)
|
|
(let ((#{props\ 11036}#
|
|
(source-properties #{x\ 11029}#)))
|
|
(if (pair? #{props\ 11036}#) #{props\ 11036}# #f))
|
|
#f))))
|
|
(#{set-syntax-object-module!\ 9052}#
|
|
(lambda (#{x\ 11038}# #{update\ 11039}#)
|
|
(vector-set! #{x\ 11038}# 3 #{update\ 11039}#)))
|
|
(#{set-syntax-object-wrap!\ 9050}#
|
|
(lambda (#{x\ 11042}# #{update\ 11043}#)
|
|
(vector-set! #{x\ 11042}# 2 #{update\ 11043}#)))
|
|
(#{set-syntax-object-expression!\ 9048}#
|
|
(lambda (#{x\ 11046}# #{update\ 11047}#)
|
|
(vector-set! #{x\ 11046}# 1 #{update\ 11047}#)))
|
|
(#{syntax-object-module\ 9046}#
|
|
(lambda (#{x\ 11050}#)
|
|
(vector-ref #{x\ 11050}# 3)))
|
|
(#{syntax-object-wrap\ 9044}#
|
|
(lambda (#{x\ 11052}#)
|
|
(vector-ref #{x\ 11052}# 2)))
|
|
(#{syntax-object-expression\ 9042}#
|
|
(lambda (#{x\ 11054}#)
|
|
(vector-ref #{x\ 11054}# 1)))
|
|
(#{syntax-object?\ 9040}#
|
|
(lambda (#{x\ 11056}#)
|
|
(if (vector? #{x\ 11056}#)
|
|
(if (= (vector-length #{x\ 11056}#) 4)
|
|
(eq? (vector-ref #{x\ 11056}# 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)))
|
|
(#{make-syntax-object\ 9038}#
|
|
(lambda (#{expression\ 11061}#
|
|
#{wrap\ 11062}#
|
|
#{module\ 11063}#)
|
|
(vector
|
|
'syntax-object
|
|
#{expression\ 11061}#
|
|
#{wrap\ 11062}#
|
|
#{module\ 11063}#)))
|
|
(#{build-letrec\ 9034}#
|
|
(lambda (#{src\ 11067}#
|
|
#{ids\ 11068}#
|
|
#{vars\ 11069}#
|
|
#{val-exps\ 11070}#
|
|
#{body-exp\ 11071}#)
|
|
(if (null? #{vars\ 11069}#)
|
|
#{body-exp\ 11071}#
|
|
(let ((#{atom-key\ 11079}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11079}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 9014}#
|
|
#{ids\ 11068}#
|
|
#{val-exps\ 11070}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 11067}#
|
|
#{ids\ 11068}#
|
|
#{vars\ 11069}#
|
|
#{val-exps\ 11070}#
|
|
#{body-exp\ 11071}#))
|
|
(#{decorate-source\ 8994}#
|
|
(list 'letrec
|
|
(map list #{vars\ 11069}# #{val-exps\ 11070}#)
|
|
#{body-exp\ 11071}#)
|
|
#{src\ 11067}#))))))
|
|
(#{build-named-let\ 9032}#
|
|
(lambda (#{src\ 11083}#
|
|
#{ids\ 11084}#
|
|
#{vars\ 11085}#
|
|
#{val-exps\ 11086}#
|
|
#{body-exp\ 11087}#)
|
|
(let ((#{f\ 11097}# (car #{vars\ 11085}#))
|
|
(#{f-name\ 11098}# (car #{ids\ 11084}#))
|
|
(#{vars\ 11099}# (cdr #{vars\ 11085}#))
|
|
(#{ids\ 11100}# (cdr #{ids\ 11084}#)))
|
|
(let ((#{atom-key\ 11103}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11103}# (quote (c)))
|
|
(let ((#{proc\ 11106}#
|
|
(#{build-simple-lambda\ 9018}#
|
|
#{src\ 11083}#
|
|
#{ids\ 11100}#
|
|
#f
|
|
#{vars\ 11099}#
|
|
'()
|
|
#{body-exp\ 11087}#)))
|
|
(begin
|
|
(#{maybe-name-value!\ 9014}#
|
|
#{f-name\ 11098}#
|
|
#{proc\ 11106}#)
|
|
(for-each
|
|
#{maybe-name-value!\ 9014}#
|
|
#{ids\ 11100}#
|
|
#{val-exps\ 11086}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 11083}#
|
|
(list #{f-name\ 11098}#)
|
|
(list #{f\ 11097}#)
|
|
(list #{proc\ 11106}#)
|
|
(#{build-application\ 8998}#
|
|
#{src\ 11083}#
|
|
(#{build-lexical-reference\ 9004}#
|
|
'fun
|
|
#{src\ 11083}#
|
|
#{f-name\ 11098}#
|
|
#{f\ 11097}#)
|
|
#{val-exps\ 11086}#))))
|
|
(#{decorate-source\ 8994}#
|
|
(list 'letrec
|
|
(list (list #{f\ 11097}#
|
|
(list 'lambda
|
|
#{vars\ 11099}#
|
|
#{body-exp\ 11087}#)))
|
|
(cons #{f\ 11097}# #{val-exps\ 11086}#))
|
|
#{src\ 11083}#))))))
|
|
(#{build-let\ 9030}#
|
|
(lambda (#{src\ 11109}#
|
|
#{ids\ 11110}#
|
|
#{vars\ 11111}#
|
|
#{val-exps\ 11112}#
|
|
#{body-exp\ 11113}#)
|
|
(if (null? #{vars\ 11111}#)
|
|
#{body-exp\ 11113}#
|
|
(let ((#{atom-key\ 11121}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11121}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 9014}#
|
|
#{ids\ 11110}#
|
|
#{val-exps\ 11112}#)
|
|
((@ (language tree-il) make-let)
|
|
#{src\ 11109}#
|
|
#{ids\ 11110}#
|
|
#{vars\ 11111}#
|
|
#{val-exps\ 11112}#
|
|
#{body-exp\ 11113}#))
|
|
(#{decorate-source\ 8994}#
|
|
(list 'let
|
|
(map list #{vars\ 11111}# #{val-exps\ 11112}#)
|
|
#{body-exp\ 11113}#)
|
|
#{src\ 11109}#))))))
|
|
(#{build-sequence\ 9028}#
|
|
(lambda (#{src\ 11125}# #{exps\ 11126}#)
|
|
(if (null? (cdr #{exps\ 11126}#))
|
|
(car #{exps\ 11126}#)
|
|
(let ((#{atom-key\ 11131}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11131}# (quote (c)))
|
|
((@ (language tree-il) make-sequence)
|
|
#{src\ 11125}#
|
|
#{exps\ 11126}#)
|
|
(#{decorate-source\ 8994}#
|
|
(cons (quote begin) #{exps\ 11126}#)
|
|
#{src\ 11125}#))))))
|
|
(#{build-data\ 9026}#
|
|
(lambda (#{src\ 11135}# #{exp\ 11136}#)
|
|
(let ((#{atom-key\ 11141}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11141}# (quote (c)))
|
|
((@ (language tree-il) make-const)
|
|
#{src\ 11135}#
|
|
#{exp\ 11136}#)
|
|
(#{decorate-source\ 8994}#
|
|
(if (if (self-evaluating? #{exp\ 11136}#)
|
|
(not (vector? #{exp\ 11136}#))
|
|
#f)
|
|
#{exp\ 11136}#
|
|
(list (quote quote) #{exp\ 11136}#))
|
|
#{src\ 11135}#)))))
|
|
(#{build-primref\ 9024}#
|
|
(lambda (#{src\ 11146}# #{name\ 11147}#)
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(let ((#{atom-key\ 11152}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11152}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{src\ 11146}#
|
|
#{name\ 11147}#)
|
|
(#{decorate-source\ 8994}#
|
|
#{name\ 11147}#
|
|
#{src\ 11146}#)))
|
|
(let ((#{atom-key\ 11157}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11157}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{src\ 11146}#
|
|
'(guile)
|
|
#{name\ 11147}#
|
|
#f)
|
|
(#{decorate-source\ 8994}#
|
|
(list (quote @@) (quote (guile)) #{name\ 11147}#)
|
|
#{src\ 11146}#))))))
|
|
(#{build-lambda-case\ 9022}#
|
|
(lambda (#{src\ 11161}#
|
|
#{req\ 11162}#
|
|
#{opt\ 11163}#
|
|
#{rest\ 11164}#
|
|
#{kw\ 11165}#
|
|
#{inits\ 11166}#
|
|
#{vars\ 11167}#
|
|
#{body\ 11168}#
|
|
#{else-case\ 11169}#)
|
|
(let ((#{atom-key\ 11181}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11181}# (quote (c)))
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 11161}#
|
|
#{req\ 11162}#
|
|
#{opt\ 11163}#
|
|
#{rest\ 11164}#
|
|
#{kw\ 11165}#
|
|
#{inits\ 11166}#
|
|
#{vars\ 11167}#
|
|
#{body\ 11168}#
|
|
#{else-case\ 11169}#)
|
|
(let ((#{nreq\ 11186}# (length #{req\ 11162}#)))
|
|
(let ((#{nopt\ 11188}#
|
|
(if #{opt\ 11163}# (length #{opt\ 11163}#) 0)))
|
|
(let ((#{rest-idx\ 11190}#
|
|
(if #{rest\ 11164}#
|
|
(+ #{nreq\ 11186}# #{nopt\ 11188}#)
|
|
#f)))
|
|
(let ((#{allow-other-keys?\ 11194}#
|
|
(if #{kw\ 11165}# (car #{kw\ 11165}#) #f)))
|
|
(let ((#{kw-indices\ 11196}#
|
|
(map (lambda (#{x\ 11197}#)
|
|
(cons (car #{x\ 11197}#)
|
|
(list-index
|
|
#{vars\ 11167}#
|
|
(caddr #{x\ 11197}#))))
|
|
(if #{kw\ 11165}#
|
|
(cdr #{kw\ 11165}#)
|
|
'()))))
|
|
(let ((#{nargs\ 11200}#
|
|
(apply max
|
|
(+ #{nreq\ 11186}#
|
|
#{nopt\ 11188}#
|
|
(if #{rest\ 11164}# 1 0))
|
|
(map 1+
|
|
(map cdr
|
|
#{kw-indices\ 11196}#)))))
|
|
(begin
|
|
(let ((#{t\ 11203}#
|
|
(= #{nargs\ 11200}#
|
|
(length #{vars\ 11167}#)
|
|
(+ #{nreq\ 11186}#
|
|
(length #{inits\ 11166}#)
|
|
(if #{rest\ 11164}# 1 0)))))
|
|
(if #{t\ 11203}#
|
|
#{t\ 11203}#
|
|
(error "something went wrong"
|
|
#{req\ 11162}#
|
|
#{opt\ 11163}#
|
|
#{rest\ 11164}#
|
|
#{kw\ 11165}#
|
|
#{inits\ 11166}#
|
|
#{vars\ 11167}#
|
|
#{nreq\ 11186}#
|
|
#{nopt\ 11188}#
|
|
#{kw-indices\ 11196}#
|
|
#{nargs\ 11200}#)))
|
|
(#{decorate-source\ 8994}#
|
|
(cons (list (cons '(@@ (ice-9 optargs)
|
|
parse-lambda-case)
|
|
(cons (list 'quote
|
|
(list #{nreq\ 11186}#
|
|
#{nopt\ 11188}#
|
|
#{rest-idx\ 11190}#
|
|
#{nargs\ 11200}#
|
|
#{allow-other-keys?\ 11194}#
|
|
#{kw-indices\ 11196}#))
|
|
(cons (cons 'list
|
|
(map (lambda (#{i\ 11206}#)
|
|
(list 'lambda
|
|
#{vars\ 11167}#
|
|
#{i\ 11206}#))
|
|
#{inits\ 11166}#))
|
|
'(%%args))))
|
|
'=>
|
|
(list 'lambda
|
|
'(%%args)
|
|
(cons 'apply
|
|
(cons (list 'lambda
|
|
#{vars\ 11167}#
|
|
#{body\ 11168}#)
|
|
'(%%args)))))
|
|
(let ((#{t\ 11211}#
|
|
#{else-case\ 11169}#))
|
|
(if #{t\ 11211}#
|
|
#{t\ 11211}#
|
|
'((%%args
|
|
(scm-error
|
|
'wrong-number-of-args
|
|
#f
|
|
"Wrong number of arguments"
|
|
'()
|
|
%%args))))))
|
|
#{src\ 11161}#))))))))))))
|
|
(#{build-case-lambda\ 9020}#
|
|
(lambda (#{src\ 11214}# #{meta\ 11215}# #{body\ 11216}#)
|
|
(let ((#{atom-key\ 11222}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11222}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 11214}#
|
|
#{meta\ 11215}#
|
|
#{body\ 11216}#)
|
|
(#{decorate-source\ 8994}#
|
|
(list 'lambda
|
|
'%%args
|
|
(cons (quote cond) #{body\ 11216}#))
|
|
#{src\ 11214}#)))))
|
|
(#{build-simple-lambda\ 9018}#
|
|
(lambda (#{src\ 11226}#
|
|
#{req\ 11227}#
|
|
#{rest\ 11228}#
|
|
#{vars\ 11229}#
|
|
#{meta\ 11230}#
|
|
#{exp\ 11231}#)
|
|
(let ((#{atom-key\ 11240}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11240}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 11226}#
|
|
#{meta\ 11230}#
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 11226}#
|
|
#{req\ 11227}#
|
|
#f
|
|
#{rest\ 11228}#
|
|
#f
|
|
'()
|
|
#{vars\ 11229}#
|
|
#{exp\ 11231}#
|
|
#f))
|
|
(#{decorate-source\ 8994}#
|
|
(list 'lambda
|
|
(if #{rest\ 11228}#
|
|
(apply cons* #{vars\ 11229}#)
|
|
#{vars\ 11229}#)
|
|
#{exp\ 11231}#)
|
|
#{src\ 11226}#)))))
|
|
(#{build-global-definition\ 9016}#
|
|
(lambda (#{source\ 11244}# #{var\ 11245}# #{exp\ 11246}#)
|
|
(let ((#{atom-key\ 11252}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11252}# (quote (c)))
|
|
(begin
|
|
(#{maybe-name-value!\ 9014}#
|
|
#{var\ 11245}#
|
|
#{exp\ 11246}#)
|
|
((@ (language tree-il) make-toplevel-define)
|
|
#{source\ 11244}#
|
|
#{var\ 11245}#
|
|
#{exp\ 11246}#))
|
|
(#{decorate-source\ 8994}#
|
|
(list 'define
|
|
#{var\ 11245}#
|
|
#{exp\ 11246}#)
|
|
#{source\ 11244}#)))))
|
|
(#{maybe-name-value!\ 9014}#
|
|
(lambda (#{name\ 11256}# #{val\ 11257}#)
|
|
(if ((@ (language tree-il) lambda?) #{val\ 11257}#)
|
|
(let ((#{meta\ 11263}#
|
|
((@ (language tree-il) lambda-meta)
|
|
#{val\ 11257}#)))
|
|
(if (not (assq (quote name) #{meta\ 11263}#))
|
|
((setter (@ (language tree-il) lambda-meta))
|
|
#{val\ 11257}#
|
|
(acons 'name
|
|
#{name\ 11256}#
|
|
#{meta\ 11263}#)))))))
|
|
(#{build-global-assignment\ 9012}#
|
|
(lambda (#{source\ 11264}#
|
|
#{var\ 11265}#
|
|
#{exp\ 11266}#
|
|
#{mod\ 11267}#)
|
|
(#{analyze-variable\ 9008}#
|
|
#{mod\ 11267}#
|
|
#{var\ 11265}#
|
|
(lambda (#{mod\ 11272}#
|
|
#{var\ 11273}#
|
|
#{public?\ 11274}#)
|
|
(let ((#{atom-key\ 11280}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11280}# (quote (c)))
|
|
((@ (language tree-il) make-module-set)
|
|
#{source\ 11264}#
|
|
#{mod\ 11272}#
|
|
#{var\ 11273}#
|
|
#{public?\ 11274}#
|
|
#{exp\ 11266}#)
|
|
(#{decorate-source\ 8994}#
|
|
(list 'set!
|
|
(list (if #{public?\ 11274}#
|
|
'@
|
|
'@@)
|
|
#{mod\ 11272}#
|
|
#{var\ 11273}#)
|
|
#{exp\ 11266}#)
|
|
#{source\ 11264}#))))
|
|
(lambda (#{var\ 11284}#)
|
|
(let ((#{atom-key\ 11288}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11288}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-set)
|
|
#{source\ 11264}#
|
|
#{var\ 11284}#
|
|
#{exp\ 11266}#)
|
|
(#{decorate-source\ 8994}#
|
|
(list (quote set!) #{var\ 11284}# #{exp\ 11266}#)
|
|
#{source\ 11264}#)))))))
|
|
(#{build-global-reference\ 9010}#
|
|
(lambda (#{source\ 11292}# #{var\ 11293}# #{mod\ 11294}#)
|
|
(#{analyze-variable\ 9008}#
|
|
#{mod\ 11294}#
|
|
#{var\ 11293}#
|
|
(lambda (#{mod\ 11298}#
|
|
#{var\ 11299}#
|
|
#{public?\ 11300}#)
|
|
(let ((#{atom-key\ 11306}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11306}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{source\ 11292}#
|
|
#{mod\ 11298}#
|
|
#{var\ 11299}#
|
|
#{public?\ 11300}#)
|
|
(#{decorate-source\ 8994}#
|
|
(list (if #{public?\ 11300}# (quote @) (quote @@))
|
|
#{mod\ 11298}#
|
|
#{var\ 11299}#)
|
|
#{source\ 11292}#))))
|
|
(lambda (#{var\ 11309}#)
|
|
(let ((#{atom-key\ 11313}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11313}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{source\ 11292}#
|
|
#{var\ 11309}#)
|
|
(#{decorate-source\ 8994}#
|
|
#{var\ 11309}#
|
|
#{source\ 11292}#)))))))
|
|
(#{analyze-variable\ 9008}#
|
|
(lambda (#{mod\ 11316}#
|
|
#{var\ 11317}#
|
|
#{modref-cont\ 11318}#
|
|
#{bare-cont\ 11319}#)
|
|
(if (not #{mod\ 11316}#)
|
|
(#{bare-cont\ 11319}# #{var\ 11317}#)
|
|
(let ((#{kind\ 11326}# (car #{mod\ 11316}#))
|
|
(#{mod\ 11327}# (cdr #{mod\ 11316}#)))
|
|
(if (memv #{kind\ 11326}# (quote (public)))
|
|
(#{modref-cont\ 11318}#
|
|
#{mod\ 11327}#
|
|
#{var\ 11317}#
|
|
#t)
|
|
(if (memv #{kind\ 11326}# (quote (private)))
|
|
(if (not (equal?
|
|
#{mod\ 11327}#
|
|
(module-name (current-module))))
|
|
(#{modref-cont\ 11318}#
|
|
#{mod\ 11327}#
|
|
#{var\ 11317}#
|
|
#f)
|
|
(#{bare-cont\ 11319}# #{var\ 11317}#))
|
|
(if (memv #{kind\ 11326}# (quote (bare)))
|
|
(#{bare-cont\ 11319}# #{var\ 11317}#)
|
|
(if (memv #{kind\ 11326}# (quote (hygiene)))
|
|
(if (if (not (equal?
|
|
#{mod\ 11327}#
|
|
(module-name (current-module))))
|
|
(module-variable
|
|
(resolve-module #{mod\ 11327}#)
|
|
#{var\ 11317}#)
|
|
#f)
|
|
(#{modref-cont\ 11318}#
|
|
#{mod\ 11327}#
|
|
#{var\ 11317}#
|
|
#f)
|
|
(#{bare-cont\ 11319}# #{var\ 11317}#))
|
|
(syntax-violation
|
|
#f
|
|
"bad module kind"
|
|
#{var\ 11317}#
|
|
#{mod\ 11327}#)))))))))
|
|
(#{build-lexical-assignment\ 9006}#
|
|
(lambda (#{source\ 11335}#
|
|
#{name\ 11336}#
|
|
#{var\ 11337}#
|
|
#{exp\ 11338}#)
|
|
(let ((#{atom-key\ 11345}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11345}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-set)
|
|
#{source\ 11335}#
|
|
#{name\ 11336}#
|
|
#{var\ 11337}#
|
|
#{exp\ 11338}#)
|
|
(#{decorate-source\ 8994}#
|
|
(list (quote set!) #{var\ 11337}# #{exp\ 11338}#)
|
|
#{source\ 11335}#)))))
|
|
(#{build-lexical-reference\ 9004}#
|
|
(lambda (#{type\ 11349}#
|
|
#{source\ 11350}#
|
|
#{name\ 11351}#
|
|
#{var\ 11352}#)
|
|
(let ((#{atom-key\ 11359}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11359}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-ref)
|
|
#{source\ 11350}#
|
|
#{name\ 11351}#
|
|
#{var\ 11352}#)
|
|
(#{decorate-source\ 8994}#
|
|
#{var\ 11352}#
|
|
#{source\ 11350}#)))))
|
|
(#{build-dynlet\ 9002}#
|
|
(lambda (#{source\ 11362}#
|
|
#{fluids\ 11363}#
|
|
#{vals\ 11364}#
|
|
#{body\ 11365}#)
|
|
(let ((#{atom-key\ 11372}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11372}# (quote (c)))
|
|
((@ (language tree-il) make-dynlet)
|
|
#{source\ 11362}#
|
|
#{fluids\ 11363}#
|
|
#{vals\ 11364}#
|
|
#{body\ 11365}#)
|
|
(#{decorate-source\ 8994}#
|
|
(list 'with-fluids
|
|
(map list #{fluids\ 11363}# #{vals\ 11364}#)
|
|
#{body\ 11365}#)
|
|
#{source\ 11362}#)))))
|
|
(#{build-conditional\ 9000}#
|
|
(lambda (#{source\ 11376}#
|
|
#{test-exp\ 11377}#
|
|
#{then-exp\ 11378}#
|
|
#{else-exp\ 11379}#)
|
|
(let ((#{atom-key\ 11386}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11386}# (quote (c)))
|
|
((@ (language tree-il) make-conditional)
|
|
#{source\ 11376}#
|
|
#{test-exp\ 11377}#
|
|
#{then-exp\ 11378}#
|
|
#{else-exp\ 11379}#)
|
|
(#{decorate-source\ 8994}#
|
|
(if (equal? #{else-exp\ 11379}# (quote (if #f #f)))
|
|
(list 'if
|
|
#{test-exp\ 11377}#
|
|
#{then-exp\ 11378}#)
|
|
(list 'if
|
|
#{test-exp\ 11377}#
|
|
#{then-exp\ 11378}#
|
|
#{else-exp\ 11379}#))
|
|
#{source\ 11376}#)))))
|
|
(#{build-application\ 8998}#
|
|
(lambda (#{source\ 11391}#
|
|
#{fun-exp\ 11392}#
|
|
#{arg-exps\ 11393}#)
|
|
(let ((#{atom-key\ 11399}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11399}# (quote (c)))
|
|
((@ (language tree-il) make-application)
|
|
#{source\ 11391}#
|
|
#{fun-exp\ 11392}#
|
|
#{arg-exps\ 11393}#)
|
|
(#{decorate-source\ 8994}#
|
|
(cons #{fun-exp\ 11392}# #{arg-exps\ 11393}#)
|
|
#{source\ 11391}#)))))
|
|
(#{build-void\ 8996}#
|
|
(lambda (#{source\ 11403}#)
|
|
(let ((#{atom-key\ 11407}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11407}# (quote (c)))
|
|
((@ (language tree-il) make-void)
|
|
#{source\ 11403}#)
|
|
(#{decorate-source\ 8994}#
|
|
'(if #f #f)
|
|
#{source\ 11403}#)))))
|
|
(#{decorate-source\ 8994}#
|
|
(lambda (#{e\ 11410}# #{s\ 11411}#)
|
|
(begin
|
|
(if (if (pair? #{e\ 11410}#) #{s\ 11411}# #f)
|
|
(set-source-properties!
|
|
#{e\ 11410}#
|
|
#{s\ 11411}#))
|
|
#{e\ 11410}#)))
|
|
(#{get-global-definition-hook\ 8992}#
|
|
(lambda (#{symbol\ 11416}# #{module\ 11417}#)
|
|
(begin
|
|
(if (if (not #{module\ 11417}#) (current-module) #f)
|
|
(warn "module system is booted, we should have a module"
|
|
#{symbol\ 11416}#))
|
|
(let ((#{v\ 11423}#
|
|
(module-variable
|
|
(if #{module\ 11417}#
|
|
(resolve-module (cdr #{module\ 11417}#))
|
|
(current-module))
|
|
#{symbol\ 11416}#)))
|
|
(if #{v\ 11423}#
|
|
(if (variable-bound? #{v\ 11423}#)
|
|
(let ((#{val\ 11428}# (variable-ref #{v\ 11423}#)))
|
|
(if (macro? #{val\ 11428}#)
|
|
(if (macro-type #{val\ 11428}#)
|
|
(cons (macro-type #{val\ 11428}#)
|
|
(macro-binding #{val\ 11428}#))
|
|
#f)
|
|
#f))
|
|
#f)
|
|
#f)))))
|
|
(#{put-global-definition-hook\ 8990}#
|
|
(lambda (#{symbol\ 11432}#
|
|
#{type\ 11433}#
|
|
#{val\ 11434}#)
|
|
(module-define!
|
|
(current-module)
|
|
#{symbol\ 11432}#
|
|
(make-syntax-transformer
|
|
#{symbol\ 11432}#
|
|
#{type\ 11433}#
|
|
#{val\ 11434}#))))
|
|
(#{local-eval-hook\ 8987}#
|
|
(lambda (#{x\ 11438}# #{mod\ 11439}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 8973}#
|
|
(let ((#{atom-key\ 11445}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11445}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 11438}#)
|
|
#{x\ 11438}#))))))
|
|
(#{top-level-eval-hook\ 8985}#
|
|
(lambda (#{x\ 11448}# #{mod\ 11449}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 8973}#
|
|
(let ((#{atom-key\ 11455}#
|
|
(fluid-ref #{*mode*\ 8975}#)))
|
|
(if (memv #{atom-key\ 11455}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 11448}#)
|
|
#{x\ 11448}#))))))
|
|
(#{fx<\ 8983}# <)
|
|
(#{fx=\ 8981}# =)
|
|
(#{fx-\ 8979}# -)
|
|
(#{fx+\ 8977}# +)
|
|
(#{*mode*\ 8975}# (make-fluid))
|
|
(#{noexpand\ 8973}# "noexpand"))
|
|
(begin
|
|
(#{global-extend\ 9072}#
|
|
'local-syntax
|
|
'letrec-syntax
|
|
#t)
|
|
(#{global-extend\ 9072}#
|
|
'local-syntax
|
|
'let-syntax
|
|
#f)
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (#{e\ 11458}#
|
|
#{r\ 11459}#
|
|
#{w\ 11460}#
|
|
#{s\ 11461}#
|
|
#{mod\ 11462}#)
|
|
((lambda (#{tmp\ 11468}#)
|
|
((lambda (#{tmp\ 11469}#)
|
|
(if (if #{tmp\ 11469}#
|
|
(apply (lambda (#{_\ 11475}#
|
|
#{var\ 11476}#
|
|
#{val\ 11477}#
|
|
#{e1\ 11478}#
|
|
#{e2\ 11479}#)
|
|
(#{valid-bound-ids?\ 9139}# #{var\ 11476}#))
|
|
#{tmp\ 11469}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 11486}#
|
|
#{var\ 11487}#
|
|
#{val\ 11488}#
|
|
#{e1\ 11489}#
|
|
#{e2\ 11490}#)
|
|
(let ((#{names\ 11492}#
|
|
(map (lambda (#{x\ 11493}#)
|
|
(#{id-var-name\ 9133}#
|
|
#{x\ 11493}#
|
|
#{w\ 11460}#))
|
|
#{var\ 11487}#)))
|
|
(begin
|
|
(for-each
|
|
(lambda (#{id\ 11496}# #{n\ 11497}#)
|
|
(let ((#{atom-key\ 11502}#
|
|
(#{binding-type\ 9059}#
|
|
(#{lookup\ 9070}#
|
|
#{n\ 11497}#
|
|
#{r\ 11459}#
|
|
#{mod\ 11462}#))))
|
|
(if (memv #{atom-key\ 11502}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"identifier out of context"
|
|
#{e\ 11458}#
|
|
(#{source-wrap\ 9147}#
|
|
#{id\ 11496}#
|
|
#{w\ 11460}#
|
|
#{s\ 11461}#
|
|
#{mod\ 11462}#)))))
|
|
#{var\ 11487}#
|
|
#{names\ 11492}#)
|
|
(#{chi-body\ 9169}#
|
|
(cons #{e1\ 11489}# #{e2\ 11490}#)
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 11458}#
|
|
#{w\ 11460}#
|
|
#{s\ 11461}#
|
|
#{mod\ 11462}#)
|
|
(#{extend-env\ 9064}#
|
|
#{names\ 11492}#
|
|
(let ((#{trans-r\ 11507}#
|
|
(#{macros-only-env\ 9068}#
|
|
#{r\ 11459}#)))
|
|
(map (lambda (#{x\ 11508}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 9173}#
|
|
(#{chi\ 9161}#
|
|
#{x\ 11508}#
|
|
#{trans-r\ 11507}#
|
|
#{w\ 11460}#
|
|
#{mod\ 11462}#)
|
|
#{mod\ 11462}#)))
|
|
#{val\ 11488}#))
|
|
#{r\ 11459}#)
|
|
#{w\ 11460}#
|
|
#{mod\ 11462}#))))
|
|
#{tmp\ 11469}#)
|
|
((lambda (#{_\ 11513}#)
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"bad syntax"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 11458}#
|
|
#{w\ 11460}#
|
|
#{s\ 11461}#
|
|
#{mod\ 11462}#)))
|
|
#{tmp\ 11468}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11468}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 11458}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'quote
|
|
(lambda (#{e\ 11514}#
|
|
#{r\ 11515}#
|
|
#{w\ 11516}#
|
|
#{s\ 11517}#
|
|
#{mod\ 11518}#)
|
|
((lambda (#{tmp\ 11524}#)
|
|
((lambda (#{tmp\ 11525}#)
|
|
(if #{tmp\ 11525}#
|
|
(apply (lambda (#{_\ 11528}# #{e\ 11529}#)
|
|
(#{build-data\ 9026}#
|
|
#{s\ 11517}#
|
|
(#{strip\ 9187}# #{e\ 11529}# #{w\ 11516}#)))
|
|
#{tmp\ 11525}#)
|
|
((lambda (#{_\ 11531}#)
|
|
(syntax-violation
|
|
'quote
|
|
"bad syntax"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 11514}#
|
|
#{w\ 11516}#
|
|
#{s\ 11517}#
|
|
#{mod\ 11518}#)))
|
|
#{tmp\ 11524}#)))
|
|
($sc-dispatch #{tmp\ 11524}# (quote (any any)))))
|
|
#{e\ 11514}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'syntax
|
|
(letrec ((#{regen\ 11547}#
|
|
(lambda (#{x\ 11548}#)
|
|
(let ((#{atom-key\ 11552}# (car #{x\ 11548}#)))
|
|
(if (memv #{atom-key\ 11552}# (quote (ref)))
|
|
(#{build-lexical-reference\ 9004}#
|
|
'value
|
|
#f
|
|
(cadr #{x\ 11548}#)
|
|
(cadr #{x\ 11548}#))
|
|
(if (memv #{atom-key\ 11552}# (quote (primitive)))
|
|
(#{build-primref\ 9024}# #f (cadr #{x\ 11548}#))
|
|
(if (memv #{atom-key\ 11552}# (quote (quote)))
|
|
(#{build-data\ 9026}# #f (cadr #{x\ 11548}#))
|
|
(if (memv #{atom-key\ 11552}# (quote (lambda)))
|
|
(if (list? (cadr #{x\ 11548}#))
|
|
(#{build-simple-lambda\ 9018}#
|
|
#f
|
|
(cadr #{x\ 11548}#)
|
|
#f
|
|
(cadr #{x\ 11548}#)
|
|
'()
|
|
(#{regen\ 11547}# (caddr #{x\ 11548}#)))
|
|
(error "how did we get here" #{x\ 11548}#))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
(car #{x\ 11548}#))
|
|
(map #{regen\ 11547}#
|
|
(cdr #{x\ 11548}#))))))))))
|
|
(#{gen-vector\ 11545}#
|
|
(lambda (#{x\ 11564}#)
|
|
(if (eq? (car #{x\ 11564}#) (quote list))
|
|
(cons (quote vector) (cdr #{x\ 11564}#))
|
|
(if (eq? (car #{x\ 11564}#) (quote quote))
|
|
(list 'quote
|
|
(list->vector (cadr #{x\ 11564}#)))
|
|
(list (quote list->vector) #{x\ 11564}#)))))
|
|
(#{gen-append\ 11543}#
|
|
(lambda (#{x\ 11574}# #{y\ 11575}#)
|
|
(if (equal? #{y\ 11575}# (quote (quote ())))
|
|
#{x\ 11574}#
|
|
(list (quote append) #{x\ 11574}# #{y\ 11575}#))))
|
|
(#{gen-cons\ 11541}#
|
|
(lambda (#{x\ 11579}# #{y\ 11580}#)
|
|
(let ((#{atom-key\ 11585}# (car #{y\ 11580}#)))
|
|
(if (memv #{atom-key\ 11585}# (quote (quote)))
|
|
(if (eq? (car #{x\ 11579}#) (quote quote))
|
|
(list 'quote
|
|
(cons (cadr #{x\ 11579}#)
|
|
(cadr #{y\ 11580}#)))
|
|
(if (eq? (cadr #{y\ 11580}#) (quote ()))
|
|
(list (quote list) #{x\ 11579}#)
|
|
(list (quote cons) #{x\ 11579}# #{y\ 11580}#)))
|
|
(if (memv #{atom-key\ 11585}# (quote (list)))
|
|
(cons 'list
|
|
(cons #{x\ 11579}# (cdr #{y\ 11580}#)))
|
|
(list (quote cons) #{x\ 11579}# #{y\ 11580}#))))))
|
|
(#{gen-map\ 11539}#
|
|
(lambda (#{e\ 11594}# #{map-env\ 11595}#)
|
|
(let ((#{formals\ 11600}# (map cdr #{map-env\ 11595}#))
|
|
(#{actuals\ 11601}#
|
|
(map (lambda (#{x\ 11602}#)
|
|
(list (quote ref) (car #{x\ 11602}#)))
|
|
#{map-env\ 11595}#)))
|
|
(if (eq? (car #{e\ 11594}#) (quote ref))
|
|
(car #{actuals\ 11601}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 11609}#)
|
|
(if (eq? (car #{x\ 11609}#) (quote ref))
|
|
(memq (cadr #{x\ 11609}#)
|
|
#{formals\ 11600}#)
|
|
#f))
|
|
(cdr #{e\ 11594}#))
|
|
(cons 'map
|
|
(cons (list 'primitive
|
|
(car #{e\ 11594}#))
|
|
(map (let ((#{r\ 11615}#
|
|
(map cons
|
|
#{formals\ 11600}#
|
|
#{actuals\ 11601}#)))
|
|
(lambda (#{x\ 11616}#)
|
|
(cdr (assq (cadr #{x\ 11616}#)
|
|
#{r\ 11615}#))))
|
|
(cdr #{e\ 11594}#))))
|
|
(cons 'map
|
|
(cons (list 'lambda
|
|
#{formals\ 11600}#
|
|
#{e\ 11594}#)
|
|
#{actuals\ 11601}#)))))))
|
|
(#{gen-mappend\ 11537}#
|
|
(lambda (#{e\ 11620}# #{map-env\ 11621}#)
|
|
(list 'apply
|
|
'(primitive append)
|
|
(#{gen-map\ 11539}#
|
|
#{e\ 11620}#
|
|
#{map-env\ 11621}#))))
|
|
(#{gen-ref\ 11535}#
|
|
(lambda (#{src\ 11625}#
|
|
#{var\ 11626}#
|
|
#{level\ 11627}#
|
|
#{maps\ 11628}#)
|
|
(if (#{fx=\ 8981}# #{level\ 11627}# 0)
|
|
(values #{var\ 11626}# #{maps\ 11628}#)
|
|
(if (null? #{maps\ 11628}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"missing ellipsis"
|
|
#{src\ 11625}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-ref\ 11535}#
|
|
#{src\ 11625}#
|
|
#{var\ 11626}#
|
|
(#{fx-\ 8979}# #{level\ 11627}# 1)
|
|
(cdr #{maps\ 11628}#)))
|
|
(lambda (#{outer-var\ 11633}# #{outer-maps\ 11634}#)
|
|
(let ((#{b\ 11638}#
|
|
(assq #{outer-var\ 11633}#
|
|
(car #{maps\ 11628}#))))
|
|
(if #{b\ 11638}#
|
|
(values (cdr #{b\ 11638}#) #{maps\ 11628}#)
|
|
(let ((#{inner-var\ 11640}#
|
|
(#{gen-var\ 9189}# (quote tmp))))
|
|
(values
|
|
#{inner-var\ 11640}#
|
|
(cons (cons (cons #{outer-var\ 11633}#
|
|
#{inner-var\ 11640}#)
|
|
(car #{maps\ 11628}#))
|
|
#{outer-maps\ 11634}#)))))))))))
|
|
(#{gen-syntax\ 11533}#
|
|
(lambda (#{src\ 11641}#
|
|
#{e\ 11642}#
|
|
#{r\ 11643}#
|
|
#{maps\ 11644}#
|
|
#{ellipsis?\ 11645}#
|
|
#{mod\ 11646}#)
|
|
(if (#{id?\ 9076}# #{e\ 11642}#)
|
|
(let ((#{label\ 11654}#
|
|
(#{id-var-name\ 9133}#
|
|
#{e\ 11642}#
|
|
'(()))))
|
|
(let ((#{b\ 11657}#
|
|
(#{lookup\ 9070}#
|
|
#{label\ 11654}#
|
|
#{r\ 11643}#
|
|
#{mod\ 11646}#)))
|
|
(if (eq? (#{binding-type\ 9059}# #{b\ 11657}#)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((#{var.lev\ 11659}#
|
|
(#{binding-value\ 9061}#
|
|
#{b\ 11657}#)))
|
|
(#{gen-ref\ 11535}#
|
|
#{src\ 11641}#
|
|
(car #{var.lev\ 11659}#)
|
|
(cdr #{var.lev\ 11659}#)
|
|
#{maps\ 11644}#)))
|
|
(lambda (#{var\ 11660}# #{maps\ 11661}#)
|
|
(values
|
|
(list (quote ref) #{var\ 11660}#)
|
|
#{maps\ 11661}#)))
|
|
(if (#{ellipsis?\ 11645}# #{e\ 11642}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"misplaced ellipsis"
|
|
#{src\ 11641}#)
|
|
(values
|
|
(list (quote quote) #{e\ 11642}#)
|
|
#{maps\ 11644}#)))))
|
|
((lambda (#{tmp\ 11666}#)
|
|
((lambda (#{tmp\ 11667}#)
|
|
(if (if #{tmp\ 11667}#
|
|
(apply (lambda (#{dots\ 11670}#
|
|
#{e\ 11671}#)
|
|
(#{ellipsis?\ 11645}#
|
|
#{dots\ 11670}#))
|
|
#{tmp\ 11667}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 11674}# #{e\ 11675}#)
|
|
(#{gen-syntax\ 11533}#
|
|
#{src\ 11641}#
|
|
#{e\ 11675}#
|
|
#{r\ 11643}#
|
|
#{maps\ 11644}#
|
|
(lambda (#{x\ 11676}#) #f)
|
|
#{mod\ 11646}#))
|
|
#{tmp\ 11667}#)
|
|
((lambda (#{tmp\ 11678}#)
|
|
(if (if #{tmp\ 11678}#
|
|
(apply (lambda (#{x\ 11682}#
|
|
#{dots\ 11683}#
|
|
#{y\ 11684}#)
|
|
(#{ellipsis?\ 11645}#
|
|
#{dots\ 11683}#))
|
|
#{tmp\ 11678}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 11688}#
|
|
#{dots\ 11689}#
|
|
#{y\ 11690}#)
|
|
(letrec ((#{f\ 11694}#
|
|
(lambda (#{y\ 11695}#
|
|
#{k\ 11696}#)
|
|
((lambda (#{tmp\ 11703}#)
|
|
((lambda (#{tmp\ 11704}#)
|
|
(if (if #{tmp\ 11704}#
|
|
(apply (lambda (#{dots\ 11707}#
|
|
#{y\ 11708}#)
|
|
(#{ellipsis?\ 11645}#
|
|
#{dots\ 11707}#))
|
|
#{tmp\ 11704}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 11711}#
|
|
#{y\ 11712}#)
|
|
(#{f\ 11694}#
|
|
#{y\ 11712}#
|
|
(lambda (#{maps\ 11713}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 11696}#
|
|
(cons '()
|
|
#{maps\ 11713}#)))
|
|
(lambda (#{x\ 11715}#
|
|
#{maps\ 11716}#)
|
|
(if (null? (car #{maps\ 11716}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 11641}#)
|
|
(values
|
|
(#{gen-mappend\ 11537}#
|
|
#{x\ 11715}#
|
|
(car #{maps\ 11716}#))
|
|
(cdr #{maps\ 11716}#))))))))
|
|
#{tmp\ 11704}#)
|
|
((lambda (#{_\ 11720}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11533}#
|
|
#{src\ 11641}#
|
|
#{y\ 11695}#
|
|
#{r\ 11643}#
|
|
#{maps\ 11644}#
|
|
#{ellipsis?\ 11645}#
|
|
#{mod\ 11646}#))
|
|
(lambda (#{y\ 11721}#
|
|
#{maps\ 11722}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 11696}#
|
|
#{maps\ 11722}#))
|
|
(lambda (#{x\ 11725}#
|
|
#{maps\ 11726}#)
|
|
(values
|
|
(#{gen-append\ 11543}#
|
|
#{x\ 11725}#
|
|
#{y\ 11721}#)
|
|
#{maps\ 11726}#))))))
|
|
#{tmp\ 11703}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11703}#
|
|
'(any . any))))
|
|
#{y\ 11695}#))))
|
|
(#{f\ 11694}#
|
|
#{y\ 11690}#
|
|
(lambda (#{maps\ 11697}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11533}#
|
|
#{src\ 11641}#
|
|
#{x\ 11688}#
|
|
#{r\ 11643}#
|
|
(cons '()
|
|
#{maps\ 11697}#)
|
|
#{ellipsis?\ 11645}#
|
|
#{mod\ 11646}#))
|
|
(lambda (#{x\ 11699}#
|
|
#{maps\ 11700}#)
|
|
(if (null? (car #{maps\ 11700}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 11641}#)
|
|
(values
|
|
(#{gen-map\ 11539}#
|
|
#{x\ 11699}#
|
|
(car #{maps\ 11700}#))
|
|
(cdr #{maps\ 11700}#)))))))))
|
|
#{tmp\ 11678}#)
|
|
((lambda (#{tmp\ 11729}#)
|
|
(if #{tmp\ 11729}#
|
|
(apply (lambda (#{x\ 11732}#
|
|
#{y\ 11733}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11533}#
|
|
#{src\ 11641}#
|
|
#{x\ 11732}#
|
|
#{r\ 11643}#
|
|
#{maps\ 11644}#
|
|
#{ellipsis?\ 11645}#
|
|
#{mod\ 11646}#))
|
|
(lambda (#{x\ 11734}#
|
|
#{maps\ 11735}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11533}#
|
|
#{src\ 11641}#
|
|
#{y\ 11733}#
|
|
#{r\ 11643}#
|
|
#{maps\ 11735}#
|
|
#{ellipsis?\ 11645}#
|
|
#{mod\ 11646}#))
|
|
(lambda (#{y\ 11738}#
|
|
#{maps\ 11739}#)
|
|
(values
|
|
(#{gen-cons\ 11541}#
|
|
#{x\ 11734}#
|
|
#{y\ 11738}#)
|
|
#{maps\ 11739}#))))))
|
|
#{tmp\ 11729}#)
|
|
((lambda (#{tmp\ 11742}#)
|
|
(if #{tmp\ 11742}#
|
|
(apply (lambda (#{e1\ 11745}#
|
|
#{e2\ 11746}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11533}#
|
|
#{src\ 11641}#
|
|
(cons #{e1\ 11745}#
|
|
#{e2\ 11746}#)
|
|
#{r\ 11643}#
|
|
#{maps\ 11644}#
|
|
#{ellipsis?\ 11645}#
|
|
#{mod\ 11646}#))
|
|
(lambda (#{e\ 11748}#
|
|
#{maps\ 11749}#)
|
|
(values
|
|
(#{gen-vector\ 11545}#
|
|
#{e\ 11748}#)
|
|
#{maps\ 11749}#))))
|
|
#{tmp\ 11742}#)
|
|
((lambda (#{_\ 11753}#)
|
|
(values
|
|
(list 'quote
|
|
#{e\ 11642}#)
|
|
#{maps\ 11644}#))
|
|
#{tmp\ 11666}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11666}#
|
|
'#(vector (any . each-any))))))
|
|
($sc-dispatch
|
|
#{tmp\ 11666}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 11666}#
|
|
'(any any . any)))))
|
|
($sc-dispatch #{tmp\ 11666}# (quote (any any)))))
|
|
#{e\ 11642}#)))))
|
|
(lambda (#{e\ 11755}#
|
|
#{r\ 11756}#
|
|
#{w\ 11757}#
|
|
#{s\ 11758}#
|
|
#{mod\ 11759}#)
|
|
(let ((#{e\ 11766}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 11755}#
|
|
#{w\ 11757}#
|
|
#{s\ 11758}#
|
|
#{mod\ 11759}#)))
|
|
((lambda (#{tmp\ 11767}#)
|
|
((lambda (#{tmp\ 11768}#)
|
|
(if #{tmp\ 11768}#
|
|
(apply (lambda (#{_\ 11771}# #{x\ 11772}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11533}#
|
|
#{e\ 11766}#
|
|
#{x\ 11772}#
|
|
#{r\ 11756}#
|
|
'()
|
|
#{ellipsis?\ 9177}#
|
|
#{mod\ 11759}#))
|
|
(lambda (#{e\ 11773}# #{maps\ 11774}#)
|
|
(#{regen\ 11547}# #{e\ 11773}#))))
|
|
#{tmp\ 11768}#)
|
|
((lambda (#{_\ 11778}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"bad `syntax' form"
|
|
#{e\ 11766}#))
|
|
#{tmp\ 11767}#)))
|
|
($sc-dispatch #{tmp\ 11767}# (quote (any any)))))
|
|
#{e\ 11766}#)))))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'lambda
|
|
(lambda (#{e\ 11779}#
|
|
#{r\ 11780}#
|
|
#{w\ 11781}#
|
|
#{s\ 11782}#
|
|
#{mod\ 11783}#)
|
|
((lambda (#{tmp\ 11789}#)
|
|
((lambda (#{tmp\ 11790}#)
|
|
(if #{tmp\ 11790}#
|
|
(apply (lambda (#{_\ 11795}#
|
|
#{args\ 11796}#
|
|
#{e1\ 11797}#
|
|
#{e2\ 11798}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 9179}# #{args\ 11796}#))
|
|
(lambda (#{req\ 11799}#
|
|
#{opt\ 11800}#
|
|
#{rest\ 11801}#
|
|
#{kw\ 11802}#)
|
|
(letrec ((#{lp\ 11810}#
|
|
(lambda (#{body\ 11811}#
|
|
#{meta\ 11812}#)
|
|
((lambda (#{tmp\ 11814}#)
|
|
((lambda (#{tmp\ 11815}#)
|
|
(if (if #{tmp\ 11815}#
|
|
(apply (lambda (#{docstring\ 11819}#
|
|
#{e1\ 11820}#
|
|
#{e2\ 11821}#)
|
|
(string?
|
|
(syntax->datum
|
|
#{docstring\ 11819}#)))
|
|
#{tmp\ 11815}#)
|
|
#f)
|
|
(apply (lambda (#{docstring\ 11825}#
|
|
#{e1\ 11826}#
|
|
#{e2\ 11827}#)
|
|
(#{lp\ 11810}#
|
|
(cons #{e1\ 11826}#
|
|
#{e2\ 11827}#)
|
|
(append
|
|
#{meta\ 11812}#
|
|
(list (cons 'documentation
|
|
(syntax->datum
|
|
#{docstring\ 11825}#))))))
|
|
#{tmp\ 11815}#)
|
|
((lambda (#{tmp\ 11830}#)
|
|
(if #{tmp\ 11830}#
|
|
(apply (lambda (#{k\ 11835}#
|
|
#{v\ 11836}#
|
|
#{e1\ 11837}#
|
|
#{e2\ 11838}#)
|
|
(#{lp\ 11810}#
|
|
(cons #{e1\ 11837}#
|
|
#{e2\ 11838}#)
|
|
(append
|
|
#{meta\ 11812}#
|
|
(syntax->datum
|
|
(map cons
|
|
#{k\ 11835}#
|
|
#{v\ 11836}#)))))
|
|
#{tmp\ 11830}#)
|
|
((lambda (#{_\ 11843}#)
|
|
(#{chi-simple-lambda\ 9181}#
|
|
#{e\ 11779}#
|
|
#{r\ 11780}#
|
|
#{w\ 11781}#
|
|
#{s\ 11782}#
|
|
#{mod\ 11783}#
|
|
#{req\ 11799}#
|
|
#{rest\ 11801}#
|
|
#{meta\ 11812}#
|
|
#{body\ 11811}#))
|
|
#{tmp\ 11814}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11814}#
|
|
'(#(vector
|
|
#(each (any . any)))
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 11814}#
|
|
'(any any . each-any))))
|
|
#{body\ 11811}#))))
|
|
(#{lp\ 11810}#
|
|
(cons #{e1\ 11797}# #{e2\ 11798}#)
|
|
'())))))
|
|
#{tmp\ 11790}#)
|
|
((lambda (#{_\ 11845}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda"
|
|
#{e\ 11779}#))
|
|
#{tmp\ 11789}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11789}#
|
|
'(any any any . each-any))))
|
|
#{e\ 11779}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'lambda*
|
|
(lambda (#{e\ 11846}#
|
|
#{r\ 11847}#
|
|
#{w\ 11848}#
|
|
#{s\ 11849}#
|
|
#{mod\ 11850}#)
|
|
((lambda (#{tmp\ 11856}#)
|
|
((lambda (#{tmp\ 11857}#)
|
|
(if #{tmp\ 11857}#
|
|
(apply (lambda (#{_\ 11862}#
|
|
#{args\ 11863}#
|
|
#{e1\ 11864}#
|
|
#{e2\ 11865}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9185}#
|
|
#{e\ 11846}#
|
|
#{r\ 11847}#
|
|
#{w\ 11848}#
|
|
#{s\ 11849}#
|
|
#{mod\ 11850}#
|
|
#{lambda*-formals\ 9183}#
|
|
(list (cons #{args\ 11863}#
|
|
(cons #{e1\ 11864}#
|
|
#{e2\ 11865}#)))))
|
|
(lambda (#{meta\ 11867}# #{lcase\ 11868}#)
|
|
(#{build-case-lambda\ 9020}#
|
|
#{s\ 11849}#
|
|
#{meta\ 11867}#
|
|
#{lcase\ 11868}#))))
|
|
#{tmp\ 11857}#)
|
|
((lambda (#{_\ 11872}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda*"
|
|
#{e\ 11846}#))
|
|
#{tmp\ 11856}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11856}#
|
|
'(any any any . each-any))))
|
|
#{e\ 11846}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'case-lambda
|
|
(lambda (#{e\ 11873}#
|
|
#{r\ 11874}#
|
|
#{w\ 11875}#
|
|
#{s\ 11876}#
|
|
#{mod\ 11877}#)
|
|
((lambda (#{tmp\ 11883}#)
|
|
((lambda (#{tmp\ 11884}#)
|
|
(if #{tmp\ 11884}#
|
|
(apply (lambda (#{_\ 11892}#
|
|
#{args\ 11893}#
|
|
#{e1\ 11894}#
|
|
#{e2\ 11895}#
|
|
#{args*\ 11896}#
|
|
#{e1*\ 11897}#
|
|
#{e2*\ 11898}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9185}#
|
|
#{e\ 11873}#
|
|
#{r\ 11874}#
|
|
#{w\ 11875}#
|
|
#{s\ 11876}#
|
|
#{mod\ 11877}#
|
|
#{lambda-formals\ 9179}#
|
|
(cons (cons #{args\ 11893}#
|
|
(cons #{e1\ 11894}#
|
|
#{e2\ 11895}#))
|
|
(map (lambda (#{tmp\ 11902}#
|
|
#{tmp\ 11901}#
|
|
#{tmp\ 11900}#)
|
|
(cons #{tmp\ 11900}#
|
|
(cons #{tmp\ 11901}#
|
|
#{tmp\ 11902}#)))
|
|
#{e2*\ 11898}#
|
|
#{e1*\ 11897}#
|
|
#{args*\ 11896}#))))
|
|
(lambda (#{meta\ 11904}# #{lcase\ 11905}#)
|
|
(#{build-case-lambda\ 9020}#
|
|
#{s\ 11876}#
|
|
#{meta\ 11904}#
|
|
#{lcase\ 11905}#))))
|
|
#{tmp\ 11884}#)
|
|
((lambda (#{_\ 11909}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda"
|
|
#{e\ 11873}#))
|
|
#{tmp\ 11883}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11883}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 11873}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'case-lambda*
|
|
(lambda (#{e\ 11910}#
|
|
#{r\ 11911}#
|
|
#{w\ 11912}#
|
|
#{s\ 11913}#
|
|
#{mod\ 11914}#)
|
|
((lambda (#{tmp\ 11920}#)
|
|
((lambda (#{tmp\ 11921}#)
|
|
(if #{tmp\ 11921}#
|
|
(apply (lambda (#{_\ 11929}#
|
|
#{args\ 11930}#
|
|
#{e1\ 11931}#
|
|
#{e2\ 11932}#
|
|
#{args*\ 11933}#
|
|
#{e1*\ 11934}#
|
|
#{e2*\ 11935}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9185}#
|
|
#{e\ 11910}#
|
|
#{r\ 11911}#
|
|
#{w\ 11912}#
|
|
#{s\ 11913}#
|
|
#{mod\ 11914}#
|
|
#{lambda*-formals\ 9183}#
|
|
(cons (cons #{args\ 11930}#
|
|
(cons #{e1\ 11931}#
|
|
#{e2\ 11932}#))
|
|
(map (lambda (#{tmp\ 11939}#
|
|
#{tmp\ 11938}#
|
|
#{tmp\ 11937}#)
|
|
(cons #{tmp\ 11937}#
|
|
(cons #{tmp\ 11938}#
|
|
#{tmp\ 11939}#)))
|
|
#{e2*\ 11935}#
|
|
#{e1*\ 11934}#
|
|
#{args*\ 11933}#))))
|
|
(lambda (#{meta\ 11941}# #{lcase\ 11942}#)
|
|
(#{build-case-lambda\ 9020}#
|
|
#{s\ 11913}#
|
|
#{meta\ 11941}#
|
|
#{lcase\ 11942}#))))
|
|
#{tmp\ 11921}#)
|
|
((lambda (#{_\ 11946}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda*"
|
|
#{e\ 11910}#))
|
|
#{tmp\ 11920}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11920}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 11910}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'let
|
|
(letrec ((#{chi-let\ 11948}#
|
|
(lambda (#{e\ 11949}#
|
|
#{r\ 11950}#
|
|
#{w\ 11951}#
|
|
#{s\ 11952}#
|
|
#{mod\ 11953}#
|
|
#{constructor\ 11954}#
|
|
#{ids\ 11955}#
|
|
#{vals\ 11956}#
|
|
#{exps\ 11957}#)
|
|
(if (not (#{valid-bound-ids?\ 9139}# #{ids\ 11955}#))
|
|
(syntax-violation
|
|
'let
|
|
"duplicate bound variable"
|
|
#{e\ 11949}#)
|
|
(let ((#{labels\ 11969}#
|
|
(#{gen-labels\ 9094}# #{ids\ 11955}#))
|
|
(#{new-vars\ 11970}#
|
|
(map #{gen-var\ 9189}# #{ids\ 11955}#)))
|
|
(let ((#{nw\ 11973}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
#{ids\ 11955}#
|
|
#{labels\ 11969}#
|
|
#{w\ 11951}#))
|
|
(#{nr\ 11974}#
|
|
(#{extend-var-env\ 9066}#
|
|
#{labels\ 11969}#
|
|
#{new-vars\ 11970}#
|
|
#{r\ 11950}#)))
|
|
(#{constructor\ 11954}#
|
|
#{s\ 11952}#
|
|
(map syntax->datum #{ids\ 11955}#)
|
|
#{new-vars\ 11970}#
|
|
(map (lambda (#{x\ 11975}#)
|
|
(#{chi\ 9161}#
|
|
#{x\ 11975}#
|
|
#{r\ 11950}#
|
|
#{w\ 11951}#
|
|
#{mod\ 11953}#))
|
|
#{vals\ 11956}#)
|
|
(#{chi-body\ 9169}#
|
|
#{exps\ 11957}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 11949}#
|
|
#{nw\ 11973}#
|
|
#{s\ 11952}#
|
|
#{mod\ 11953}#)
|
|
#{nr\ 11974}#
|
|
#{nw\ 11973}#
|
|
#{mod\ 11953}#))))))))
|
|
(lambda (#{e\ 11977}#
|
|
#{r\ 11978}#
|
|
#{w\ 11979}#
|
|
#{s\ 11980}#
|
|
#{mod\ 11981}#)
|
|
((lambda (#{tmp\ 11987}#)
|
|
((lambda (#{tmp\ 11988}#)
|
|
(if (if #{tmp\ 11988}#
|
|
(apply (lambda (#{_\ 11994}#
|
|
#{id\ 11995}#
|
|
#{val\ 11996}#
|
|
#{e1\ 11997}#
|
|
#{e2\ 11998}#)
|
|
(and-map #{id?\ 9076}# #{id\ 11995}#))
|
|
#{tmp\ 11988}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12005}#
|
|
#{id\ 12006}#
|
|
#{val\ 12007}#
|
|
#{e1\ 12008}#
|
|
#{e2\ 12009}#)
|
|
(#{chi-let\ 11948}#
|
|
#{e\ 11977}#
|
|
#{r\ 11978}#
|
|
#{w\ 11979}#
|
|
#{s\ 11980}#
|
|
#{mod\ 11981}#
|
|
#{build-let\ 9030}#
|
|
#{id\ 12006}#
|
|
#{val\ 12007}#
|
|
(cons #{e1\ 12008}# #{e2\ 12009}#)))
|
|
#{tmp\ 11988}#)
|
|
((lambda (#{tmp\ 12013}#)
|
|
(if (if #{tmp\ 12013}#
|
|
(apply (lambda (#{_\ 12020}#
|
|
#{f\ 12021}#
|
|
#{id\ 12022}#
|
|
#{val\ 12023}#
|
|
#{e1\ 12024}#
|
|
#{e2\ 12025}#)
|
|
(if (#{id?\ 9076}# #{f\ 12021}#)
|
|
(and-map #{id?\ 9076}# #{id\ 12022}#)
|
|
#f))
|
|
#{tmp\ 12013}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12035}#
|
|
#{f\ 12036}#
|
|
#{id\ 12037}#
|
|
#{val\ 12038}#
|
|
#{e1\ 12039}#
|
|
#{e2\ 12040}#)
|
|
(#{chi-let\ 11948}#
|
|
#{e\ 11977}#
|
|
#{r\ 11978}#
|
|
#{w\ 11979}#
|
|
#{s\ 11980}#
|
|
#{mod\ 11981}#
|
|
#{build-named-let\ 9032}#
|
|
(cons #{f\ 12036}# #{id\ 12037}#)
|
|
#{val\ 12038}#
|
|
(cons #{e1\ 12039}# #{e2\ 12040}#)))
|
|
#{tmp\ 12013}#)
|
|
((lambda (#{_\ 12045}#)
|
|
(syntax-violation
|
|
'let
|
|
"bad let"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 11977}#
|
|
#{w\ 11979}#
|
|
#{s\ 11980}#
|
|
#{mod\ 11981}#)))
|
|
#{tmp\ 11987}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11987}#
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 11987}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 11977}#))))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'letrec
|
|
(lambda (#{e\ 12046}#
|
|
#{r\ 12047}#
|
|
#{w\ 12048}#
|
|
#{s\ 12049}#
|
|
#{mod\ 12050}#)
|
|
((lambda (#{tmp\ 12056}#)
|
|
((lambda (#{tmp\ 12057}#)
|
|
(if (if #{tmp\ 12057}#
|
|
(apply (lambda (#{_\ 12063}#
|
|
#{id\ 12064}#
|
|
#{val\ 12065}#
|
|
#{e1\ 12066}#
|
|
#{e2\ 12067}#)
|
|
(and-map #{id?\ 9076}# #{id\ 12064}#))
|
|
#{tmp\ 12057}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12074}#
|
|
#{id\ 12075}#
|
|
#{val\ 12076}#
|
|
#{e1\ 12077}#
|
|
#{e2\ 12078}#)
|
|
(let ((#{ids\ 12080}# #{id\ 12075}#))
|
|
(if (not (#{valid-bound-ids?\ 9139}#
|
|
#{ids\ 12080}#))
|
|
(syntax-violation
|
|
'letrec
|
|
"duplicate bound variable"
|
|
#{e\ 12046}#)
|
|
(let ((#{labels\ 12084}#
|
|
(#{gen-labels\ 9094}# #{ids\ 12080}#))
|
|
(#{new-vars\ 12085}#
|
|
(map #{gen-var\ 9189}# #{ids\ 12080}#)))
|
|
(let ((#{w\ 12088}#
|
|
(#{make-binding-wrap\ 9123}#
|
|
#{ids\ 12080}#
|
|
#{labels\ 12084}#
|
|
#{w\ 12048}#))
|
|
(#{r\ 12089}#
|
|
(#{extend-var-env\ 9066}#
|
|
#{labels\ 12084}#
|
|
#{new-vars\ 12085}#
|
|
#{r\ 12047}#)))
|
|
(#{build-letrec\ 9034}#
|
|
#{s\ 12049}#
|
|
(map syntax->datum #{ids\ 12080}#)
|
|
#{new-vars\ 12085}#
|
|
(map (lambda (#{x\ 12090}#)
|
|
(#{chi\ 9161}#
|
|
#{x\ 12090}#
|
|
#{r\ 12089}#
|
|
#{w\ 12088}#
|
|
#{mod\ 12050}#))
|
|
#{val\ 12076}#)
|
|
(#{chi-body\ 9169}#
|
|
(cons #{e1\ 12077}# #{e2\ 12078}#)
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 12046}#
|
|
#{w\ 12088}#
|
|
#{s\ 12049}#
|
|
#{mod\ 12050}#)
|
|
#{r\ 12089}#
|
|
#{w\ 12088}#
|
|
#{mod\ 12050}#)))))))
|
|
#{tmp\ 12057}#)
|
|
((lambda (#{_\ 12095}#)
|
|
(syntax-violation
|
|
'letrec
|
|
"bad letrec"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 12046}#
|
|
#{w\ 12048}#
|
|
#{s\ 12049}#
|
|
#{mod\ 12050}#)))
|
|
#{tmp\ 12056}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12056}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 12046}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'set!
|
|
(lambda (#{e\ 12096}#
|
|
#{r\ 12097}#
|
|
#{w\ 12098}#
|
|
#{s\ 12099}#
|
|
#{mod\ 12100}#)
|
|
((lambda (#{tmp\ 12106}#)
|
|
((lambda (#{tmp\ 12107}#)
|
|
(if (if #{tmp\ 12107}#
|
|
(apply (lambda (#{_\ 12111}#
|
|
#{id\ 12112}#
|
|
#{val\ 12113}#)
|
|
(#{id?\ 9076}# #{id\ 12112}#))
|
|
#{tmp\ 12107}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12117}# #{id\ 12118}# #{val\ 12119}#)
|
|
(let ((#{val\ 12122}#
|
|
(#{chi\ 9161}#
|
|
#{val\ 12119}#
|
|
#{r\ 12097}#
|
|
#{w\ 12098}#
|
|
#{mod\ 12100}#))
|
|
(#{n\ 12123}#
|
|
(#{id-var-name\ 9133}#
|
|
#{id\ 12118}#
|
|
#{w\ 12098}#)))
|
|
(let ((#{b\ 12125}#
|
|
(#{lookup\ 9070}#
|
|
#{n\ 12123}#
|
|
#{r\ 12097}#
|
|
#{mod\ 12100}#)))
|
|
(let ((#{atom-key\ 12128}#
|
|
(#{binding-type\ 9059}# #{b\ 12125}#)))
|
|
(if (memv #{atom-key\ 12128}#
|
|
'(lexical))
|
|
(#{build-lexical-assignment\ 9006}#
|
|
#{s\ 12099}#
|
|
(syntax->datum #{id\ 12118}#)
|
|
(#{binding-value\ 9061}# #{b\ 12125}#)
|
|
#{val\ 12122}#)
|
|
(if (memv #{atom-key\ 12128}#
|
|
'(global))
|
|
(#{build-global-assignment\ 9012}#
|
|
#{s\ 12099}#
|
|
#{n\ 12123}#
|
|
#{val\ 12122}#
|
|
#{mod\ 12100}#)
|
|
(if (memv #{atom-key\ 12128}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'set!
|
|
"identifier out of context"
|
|
(#{wrap\ 9145}#
|
|
#{id\ 12118}#
|
|
#{w\ 12098}#
|
|
#{mod\ 12100}#))
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 12096}#
|
|
#{w\ 12098}#
|
|
#{s\ 12099}#
|
|
#{mod\ 12100}#)))))))))
|
|
#{tmp\ 12107}#)
|
|
((lambda (#{tmp\ 12133}#)
|
|
(if #{tmp\ 12133}#
|
|
(apply (lambda (#{_\ 12138}#
|
|
#{head\ 12139}#
|
|
#{tail\ 12140}#
|
|
#{val\ 12141}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9157}#
|
|
#{head\ 12139}#
|
|
#{r\ 12097}#
|
|
'(())
|
|
#f
|
|
#f
|
|
#{mod\ 12100}#
|
|
#t))
|
|
(lambda (#{type\ 12144}#
|
|
#{value\ 12145}#
|
|
#{ee\ 12146}#
|
|
#{ww\ 12147}#
|
|
#{ss\ 12148}#
|
|
#{modmod\ 12149}#)
|
|
(if (memv #{type\ 12144}#
|
|
'(module-ref))
|
|
(let ((#{val\ 12158}#
|
|
(#{chi\ 9161}#
|
|
#{val\ 12141}#
|
|
#{r\ 12097}#
|
|
#{w\ 12098}#
|
|
#{mod\ 12100}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{value\ 12145}#
|
|
(cons #{head\ 12139}#
|
|
#{tail\ 12140}#)))
|
|
(lambda (#{id\ 12160}#
|
|
#{mod\ 12161}#)
|
|
(#{build-global-assignment\ 9012}#
|
|
#{s\ 12099}#
|
|
#{id\ 12160}#
|
|
#{val\ 12158}#
|
|
#{mod\ 12161}#))))
|
|
(#{build-application\ 8998}#
|
|
#{s\ 12099}#
|
|
(#{chi\ 9161}#
|
|
(list '#(syntax-object
|
|
setter
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(type
|
|
value
|
|
ee
|
|
ww
|
|
ss
|
|
modmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12150"
|
|
"i12151"
|
|
"i12152"
|
|
"i12153"
|
|
"i12154"
|
|
"i12155"))
|
|
#(ribcage
|
|
#(_ head tail val)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12134"
|
|
"i12135"
|
|
"i12136"
|
|
"i12137"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w s mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12101"
|
|
"i12102"
|
|
"i12103"
|
|
"i12104"
|
|
"i12105"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile))
|
|
#{head\ 12139}#)
|
|
#{r\ 12097}#
|
|
#{w\ 12098}#
|
|
#{mod\ 12100}#)
|
|
(map (lambda (#{e\ 12165}#)
|
|
(#{chi\ 9161}#
|
|
#{e\ 12165}#
|
|
#{r\ 12097}#
|
|
#{w\ 12098}#
|
|
#{mod\ 12100}#))
|
|
(append
|
|
#{tail\ 12140}#
|
|
(list #{val\ 12141}#))))))))
|
|
#{tmp\ 12133}#)
|
|
((lambda (#{_\ 12169}#)
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 12096}#
|
|
#{w\ 12098}#
|
|
#{s\ 12099}#
|
|
#{mod\ 12100}#)))
|
|
#{tmp\ 12106}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12106}#
|
|
'(any (any . each-any) any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12106}#
|
|
'(any any any))))
|
|
#{e\ 12096}#)))
|
|
(#{global-extend\ 9072}#
|
|
'module-ref
|
|
'@
|
|
(lambda (#{e\ 12170}#)
|
|
((lambda (#{tmp\ 12172}#)
|
|
((lambda (#{tmp\ 12173}#)
|
|
(if (if #{tmp\ 12173}#
|
|
(apply (lambda (#{_\ 12177}#
|
|
#{mod\ 12178}#
|
|
#{id\ 12179}#)
|
|
(if (and-map #{id?\ 9076}# #{mod\ 12178}#)
|
|
(#{id?\ 9076}# #{id\ 12179}#)
|
|
#f))
|
|
#{tmp\ 12173}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12186}# #{mod\ 12187}# #{id\ 12188}#)
|
|
(values
|
|
(syntax->datum #{id\ 12188}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
public
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i12183" "i12184" "i12185"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i12171"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile))
|
|
#{mod\ 12187}#))))
|
|
#{tmp\ 12173}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12172}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12172}#
|
|
'(any each-any any))))
|
|
#{e\ 12170}#)))
|
|
(#{global-extend\ 9072}#
|
|
'module-ref
|
|
'@@
|
|
(lambda (#{e\ 12190}#)
|
|
((lambda (#{tmp\ 12192}#)
|
|
((lambda (#{tmp\ 12193}#)
|
|
(if (if #{tmp\ 12193}#
|
|
(apply (lambda (#{_\ 12197}#
|
|
#{mod\ 12198}#
|
|
#{id\ 12199}#)
|
|
(if (and-map #{id?\ 9076}# #{mod\ 12198}#)
|
|
(#{id?\ 9076}# #{id\ 12199}#)
|
|
#f))
|
|
#{tmp\ 12193}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12206}# #{mod\ 12207}# #{id\ 12208}#)
|
|
(values
|
|
(syntax->datum #{id\ 12208}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
private
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i12203" "i12204" "i12205"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i12191"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile))
|
|
#{mod\ 12207}#))))
|
|
#{tmp\ 12193}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12192}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12192}#
|
|
'(any each-any any))))
|
|
#{e\ 12190}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'if
|
|
(lambda (#{e\ 12210}#
|
|
#{r\ 12211}#
|
|
#{w\ 12212}#
|
|
#{s\ 12213}#
|
|
#{mod\ 12214}#)
|
|
((lambda (#{tmp\ 12220}#)
|
|
((lambda (#{tmp\ 12221}#)
|
|
(if #{tmp\ 12221}#
|
|
(apply (lambda (#{_\ 12225}# #{test\ 12226}# #{then\ 12227}#)
|
|
(#{build-conditional\ 9000}#
|
|
#{s\ 12213}#
|
|
(#{chi\ 9161}#
|
|
#{test\ 12226}#
|
|
#{r\ 12211}#
|
|
#{w\ 12212}#
|
|
#{mod\ 12214}#)
|
|
(#{chi\ 9161}#
|
|
#{then\ 12227}#
|
|
#{r\ 12211}#
|
|
#{w\ 12212}#
|
|
#{mod\ 12214}#)
|
|
(#{build-void\ 8996}# #f)))
|
|
#{tmp\ 12221}#)
|
|
((lambda (#{tmp\ 12229}#)
|
|
(if #{tmp\ 12229}#
|
|
(apply (lambda (#{_\ 12234}#
|
|
#{test\ 12235}#
|
|
#{then\ 12236}#
|
|
#{else\ 12237}#)
|
|
(#{build-conditional\ 9000}#
|
|
#{s\ 12213}#
|
|
(#{chi\ 9161}#
|
|
#{test\ 12235}#
|
|
#{r\ 12211}#
|
|
#{w\ 12212}#
|
|
#{mod\ 12214}#)
|
|
(#{chi\ 9161}#
|
|
#{then\ 12236}#
|
|
#{r\ 12211}#
|
|
#{w\ 12212}#
|
|
#{mod\ 12214}#)
|
|
(#{chi\ 9161}#
|
|
#{else\ 12237}#
|
|
#{r\ 12211}#
|
|
#{w\ 12212}#
|
|
#{mod\ 12214}#)))
|
|
#{tmp\ 12229}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12220}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12220}#
|
|
'(any any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12220}#
|
|
'(any any any))))
|
|
#{e\ 12210}#)))
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'with-fluids
|
|
(lambda (#{e\ 12238}#
|
|
#{r\ 12239}#
|
|
#{w\ 12240}#
|
|
#{s\ 12241}#
|
|
#{mod\ 12242}#)
|
|
((lambda (#{tmp\ 12248}#)
|
|
((lambda (#{tmp\ 12249}#)
|
|
(if #{tmp\ 12249}#
|
|
(apply (lambda (#{_\ 12255}#
|
|
#{fluid\ 12256}#
|
|
#{val\ 12257}#
|
|
#{b\ 12258}#
|
|
#{b*\ 12259}#)
|
|
(#{build-dynlet\ 9002}#
|
|
#{s\ 12241}#
|
|
(map (lambda (#{x\ 12260}#)
|
|
(#{chi\ 9161}#
|
|
#{x\ 12260}#
|
|
#{r\ 12239}#
|
|
#{w\ 12240}#
|
|
#{mod\ 12242}#))
|
|
#{fluid\ 12256}#)
|
|
(map (lambda (#{x\ 12263}#)
|
|
(#{chi\ 9161}#
|
|
#{x\ 12263}#
|
|
#{r\ 12239}#
|
|
#{w\ 12240}#
|
|
#{mod\ 12242}#))
|
|
#{val\ 12257}#)
|
|
(#{chi-body\ 9169}#
|
|
(cons #{b\ 12258}# #{b*\ 12259}#)
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 12238}#
|
|
#{w\ 12240}#
|
|
#{s\ 12241}#
|
|
#{mod\ 12242}#)
|
|
#{r\ 12239}#
|
|
#{w\ 12240}#
|
|
#{mod\ 12242}#)))
|
|
#{tmp\ 12249}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12248}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12248}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 12238}#)))
|
|
(#{global-extend\ 9072}#
|
|
'begin
|
|
'begin
|
|
'())
|
|
(#{global-extend\ 9072}#
|
|
'define
|
|
'define
|
|
'())
|
|
(#{global-extend\ 9072}#
|
|
'define-syntax
|
|
'define-syntax
|
|
'())
|
|
(#{global-extend\ 9072}#
|
|
'eval-when
|
|
'eval-when
|
|
'())
|
|
(#{global-extend\ 9072}#
|
|
'core
|
|
'syntax-case
|
|
(letrec ((#{gen-syntax-case\ 12274}#
|
|
(lambda (#{x\ 12275}#
|
|
#{keys\ 12276}#
|
|
#{clauses\ 12277}#
|
|
#{r\ 12278}#
|
|
#{mod\ 12279}#)
|
|
(if (null? #{clauses\ 12277}#)
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
'syntax-violation)
|
|
(list (#{build-data\ 9026}# #f #f)
|
|
(#{build-data\ 9026}#
|
|
#f
|
|
"source expression failed to match any pattern")
|
|
#{x\ 12275}#))
|
|
((lambda (#{tmp\ 12289}#)
|
|
((lambda (#{tmp\ 12290}#)
|
|
(if #{tmp\ 12290}#
|
|
(apply (lambda (#{pat\ 12293}# #{exp\ 12294}#)
|
|
(if (if (#{id?\ 9076}# #{pat\ 12293}#)
|
|
(and-map
|
|
(lambda (#{x\ 12297}#)
|
|
(not (#{free-id=?\ 9135}#
|
|
#{pat\ 12293}#
|
|
#{x\ 12297}#)))
|
|
(cons '#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("i12291"
|
|
"i12292"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r
|
|
mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12280"
|
|
"i12281"
|
|
"i12282"
|
|
"i12283"
|
|
"i12284"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i12273"
|
|
"i12271"
|
|
"i12269"
|
|
"i12267"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i9190"
|
|
"i9188"
|
|
"i9186"
|
|
"i9184"
|
|
"i9182"
|
|
"i9180"
|
|
"i9178"
|
|
"i9176"
|
|
"i9174"
|
|
"i9172"
|
|
"i9170"
|
|
"i9168"
|
|
"i9166"
|
|
"i9164"
|
|
"i9162"
|
|
"i9160"
|
|
"i9158"
|
|
"i9156"
|
|
"i9154"
|
|
"i9152"
|
|
"i9150"
|
|
"i9148"
|
|
"i9146"
|
|
"i9144"
|
|
"i9142"
|
|
"i9140"
|
|
"i9138"
|
|
"i9136"
|
|
"i9134"
|
|
"i9132"
|
|
"i9130"
|
|
"i9128"
|
|
"i9126"
|
|
"i9124"
|
|
"i9122"
|
|
"i9120"
|
|
"i9119"
|
|
"i9118"
|
|
"i9116"
|
|
"i9115"
|
|
"i9114"
|
|
"i9113"
|
|
"i9112"
|
|
"i9110"
|
|
"i9108"
|
|
"i9106"
|
|
"i9104"
|
|
"i9102"
|
|
"i9100"
|
|
"i9098"
|
|
"i9096"
|
|
"i9093"
|
|
"i9091"
|
|
"i9090"
|
|
"i9089"
|
|
"i9088"
|
|
"i9087"
|
|
"i9086"
|
|
"i9084"
|
|
"i9082"
|
|
"i9080"
|
|
"i9078"
|
|
"i9077"
|
|
"i9075"
|
|
"i9073"
|
|
"i9071"
|
|
"i9069"
|
|
"i9067"
|
|
"i9065"
|
|
"i9063"
|
|
"i9062"
|
|
"i9060"
|
|
"i9058"
|
|
"i9057"
|
|
"i9056"
|
|
"i9054"
|
|
"i9053"
|
|
"i9051"
|
|
"i9049"
|
|
"i9047"
|
|
"i9045"
|
|
"i9043"
|
|
"i9041"
|
|
"i9039"
|
|
"i9037"
|
|
"i9035"
|
|
"i9033"
|
|
"i9031"
|
|
"i9029"
|
|
"i9027"
|
|
"i9025"
|
|
"i9023"
|
|
"i9021"
|
|
"i9019"
|
|
"i9017"
|
|
"i9015"
|
|
"i9013"
|
|
"i9011"
|
|
"i9009"
|
|
"i9007"
|
|
"i9005"
|
|
"i9003"
|
|
"i9001"
|
|
"i8999"
|
|
"i8997"
|
|
"i8995"
|
|
"i8993"
|
|
"i8991"
|
|
"i8989"
|
|
"i8988"
|
|
"i8986"
|
|
"i8984"
|
|
"i8982"
|
|
"i8980"
|
|
"i8978"
|
|
"i8976"
|
|
"i8974"
|
|
"i8972"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i8875" "i8873")))
|
|
(hygiene guile))
|
|
#{keys\ 12276}#))
|
|
#f)
|
|
(let ((#{labels\ 12301}#
|
|
(list (#{gen-label\ 9092}#)))
|
|
(#{var\ 12302}#
|
|
(#{gen-var\ 9189}#
|
|
#{pat\ 12293}#)))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-simple-lambda\ 9018}#
|
|
#f
|
|
(list (syntax->datum
|
|
#{pat\ 12293}#))
|
|
#f
|
|
(list #{var\ 12302}#)
|
|
'()
|
|
(#{chi\ 9161}#
|
|
#{exp\ 12294}#
|
|
(#{extend-env\ 9064}#
|
|
#{labels\ 12301}#
|
|
(list (cons 'syntax
|
|
(cons #{var\ 12302}#
|
|
0)))
|
|
#{r\ 12278}#)
|
|
(#{make-binding-wrap\ 9123}#
|
|
(list #{pat\ 12293}#)
|
|
#{labels\ 12301}#
|
|
'(()))
|
|
#{mod\ 12279}#))
|
|
(list #{x\ 12275}#)))
|
|
(#{gen-clause\ 12272}#
|
|
#{x\ 12275}#
|
|
#{keys\ 12276}#
|
|
(cdr #{clauses\ 12277}#)
|
|
#{r\ 12278}#
|
|
#{pat\ 12293}#
|
|
#t
|
|
#{exp\ 12294}#
|
|
#{mod\ 12279}#)))
|
|
#{tmp\ 12290}#)
|
|
((lambda (#{tmp\ 12308}#)
|
|
(if #{tmp\ 12308}#
|
|
(apply (lambda (#{pat\ 12312}#
|
|
#{fender\ 12313}#
|
|
#{exp\ 12314}#)
|
|
(#{gen-clause\ 12272}#
|
|
#{x\ 12275}#
|
|
#{keys\ 12276}#
|
|
(cdr #{clauses\ 12277}#)
|
|
#{r\ 12278}#
|
|
#{pat\ 12312}#
|
|
#{fender\ 12313}#
|
|
#{exp\ 12314}#
|
|
#{mod\ 12279}#))
|
|
#{tmp\ 12308}#)
|
|
((lambda (#{_\ 12316}#)
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid clause"
|
|
(car #{clauses\ 12277}#)))
|
|
#{tmp\ 12289}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12289}#
|
|
'(any any any)))))
|
|
($sc-dispatch #{tmp\ 12289}# (quote (any any)))))
|
|
(car #{clauses\ 12277}#)))))
|
|
(#{gen-clause\ 12272}#
|
|
(lambda (#{x\ 12317}#
|
|
#{keys\ 12318}#
|
|
#{clauses\ 12319}#
|
|
#{r\ 12320}#
|
|
#{pat\ 12321}#
|
|
#{fender\ 12322}#
|
|
#{exp\ 12323}#
|
|
#{mod\ 12324}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{convert-pattern\ 12268}#
|
|
#{pat\ 12321}#
|
|
#{keys\ 12318}#))
|
|
(lambda (#{p\ 12333}# #{pvars\ 12334}#)
|
|
(if (not (#{distinct-bound-ids?\ 9141}#
|
|
(map car #{pvars\ 12334}#)))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"duplicate pattern variable"
|
|
#{pat\ 12321}#)
|
|
(if (not (and-map
|
|
(lambda (#{x\ 12341}#)
|
|
(not (#{ellipsis?\ 9177}#
|
|
(car #{x\ 12341}#))))
|
|
#{pvars\ 12334}#))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"misplaced ellipsis"
|
|
#{pat\ 12321}#)
|
|
(let ((#{y\ 12345}#
|
|
(#{gen-var\ 9189}# (quote tmp))))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-simple-lambda\ 9018}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{y\ 12345}#)
|
|
'()
|
|
(let ((#{y\ 12349}#
|
|
(#{build-lexical-reference\ 9004}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{y\ 12345}#)))
|
|
(#{build-conditional\ 9000}#
|
|
#f
|
|
((lambda (#{tmp\ 12352}#)
|
|
((lambda (#{tmp\ 12353}#)
|
|
(if #{tmp\ 12353}#
|
|
(apply (lambda () #{y\ 12349}#)
|
|
#{tmp\ 12353}#)
|
|
((lambda (#{_\ 12355}#)
|
|
(#{build-conditional\ 9000}#
|
|
#f
|
|
#{y\ 12349}#
|
|
(#{build-dispatch-call\ 12270}#
|
|
#{pvars\ 12334}#
|
|
#{fender\ 12322}#
|
|
#{y\ 12349}#
|
|
#{r\ 12320}#
|
|
#{mod\ 12324}#)
|
|
(#{build-data\ 9026}#
|
|
#f
|
|
#f)))
|
|
#{tmp\ 12352}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12352}#
|
|
'#(atom #t))))
|
|
#{fender\ 12322}#)
|
|
(#{build-dispatch-call\ 12270}#
|
|
#{pvars\ 12334}#
|
|
#{exp\ 12323}#
|
|
#{y\ 12349}#
|
|
#{r\ 12320}#
|
|
#{mod\ 12324}#)
|
|
(#{gen-syntax-case\ 12274}#
|
|
#{x\ 12317}#
|
|
#{keys\ 12318}#
|
|
#{clauses\ 12319}#
|
|
#{r\ 12320}#
|
|
#{mod\ 12324}#))))
|
|
(list (if (eq? #{p\ 12333}# (quote any))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
'list)
|
|
(list #{x\ 12317}#))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}#
|
|
#f
|
|
'$sc-dispatch)
|
|
(list #{x\ 12317}#
|
|
(#{build-data\ 9026}#
|
|
#f
|
|
#{p\ 12333}#)))))))))))))
|
|
(#{build-dispatch-call\ 12270}#
|
|
(lambda (#{pvars\ 12363}#
|
|
#{exp\ 12364}#
|
|
#{y\ 12365}#
|
|
#{r\ 12366}#
|
|
#{mod\ 12367}#)
|
|
(let ((#{ids\ 12375}# (map car #{pvars\ 12363}#))
|
|
(#{levels\ 12376}# (map cdr #{pvars\ 12363}#)))
|
|
(let ((#{labels\ 12379}#
|
|
(#{gen-labels\ 9094}# #{ids\ 12375}#))
|
|
(#{new-vars\ 12380}#
|
|
(map #{gen-var\ 9189}# #{ids\ 12375}#)))
|
|
(#{build-application\ 8998}#
|
|
#f
|
|
(#{build-primref\ 9024}# #f (quote apply))
|
|
(list (#{build-simple-lambda\ 9018}#
|
|
#f
|
|
(map syntax->datum #{ids\ 12375}#)
|
|
#f
|
|
#{new-vars\ 12380}#
|
|
'()
|
|
(#{chi\ 9161}#
|
|
#{exp\ 12364}#
|
|
(#{extend-env\ 9064}#
|
|
#{labels\ 12379}#
|
|
(map (lambda (#{var\ 12384}#
|
|
#{level\ 12385}#)
|
|
(cons 'syntax
|
|
(cons #{var\ 12384}#
|
|
#{level\ 12385}#)))
|
|
#{new-vars\ 12380}#
|
|
(map cdr #{pvars\ 12363}#))
|
|
#{r\ 12366}#)
|
|
(#{make-binding-wrap\ 9123}#
|
|
#{ids\ 12375}#
|
|
#{labels\ 12379}#
|
|
'(()))
|
|
#{mod\ 12367}#))
|
|
#{y\ 12365}#))))))
|
|
(#{convert-pattern\ 12268}#
|
|
(lambda (#{pattern\ 12391}# #{keys\ 12392}#)
|
|
(letrec ((#{cvt\ 12398}#
|
|
(lambda (#{p\ 12399}#
|
|
#{n\ 12400}#
|
|
#{ids\ 12401}#)
|
|
(if (#{id?\ 9076}# #{p\ 12399}#)
|
|
(if (#{bound-id-member?\ 9143}#
|
|
#{p\ 12399}#
|
|
#{keys\ 12392}#)
|
|
(values
|
|
(vector (quote free-id) #{p\ 12399}#)
|
|
#{ids\ 12401}#)
|
|
(values
|
|
'any
|
|
(cons (cons #{p\ 12399}# #{n\ 12400}#)
|
|
#{ids\ 12401}#)))
|
|
((lambda (#{tmp\ 12405}#)
|
|
((lambda (#{tmp\ 12406}#)
|
|
(if (if #{tmp\ 12406}#
|
|
(apply (lambda (#{x\ 12409}#
|
|
#{dots\ 12410}#)
|
|
(#{ellipsis?\ 9177}#
|
|
#{dots\ 12410}#))
|
|
#{tmp\ 12406}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 12413}#
|
|
#{dots\ 12414}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12398}#
|
|
#{x\ 12413}#
|
|
(#{fx+\ 8977}#
|
|
#{n\ 12400}#
|
|
1)
|
|
#{ids\ 12401}#))
|
|
(lambda (#{p\ 12415}#
|
|
#{ids\ 12416}#)
|
|
(values
|
|
(if (eq? #{p\ 12415}#
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
#{p\ 12415}#))
|
|
#{ids\ 12416}#))))
|
|
#{tmp\ 12406}#)
|
|
((lambda (#{tmp\ 12419}#)
|
|
(if (if #{tmp\ 12419}#
|
|
(apply (lambda (#{x\ 12423}#
|
|
#{dots\ 12424}#
|
|
#{ys\ 12425}#)
|
|
(#{ellipsis?\ 9177}#
|
|
#{dots\ 12424}#))
|
|
#{tmp\ 12419}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 12429}#
|
|
#{dots\ 12430}#
|
|
#{ys\ 12431}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 12396}#
|
|
#{ys\ 12431}#
|
|
#{n\ 12400}#
|
|
#{ids\ 12401}#))
|
|
(lambda (#{ys\ 12433}#
|
|
#{ids\ 12434}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12398}#
|
|
#{x\ 12429}#
|
|
(+ #{n\ 12400}#
|
|
1)
|
|
#{ids\ 12434}#))
|
|
(lambda (#{x\ 12437}#
|
|
#{ids\ 12438}#)
|
|
(values
|
|
(list->vector
|
|
(cons 'each+
|
|
(cons #{x\ 12437}#
|
|
(cons (reverse
|
|
#{ys\ 12433}#)
|
|
'(())))))
|
|
#{ids\ 12438}#))))))
|
|
#{tmp\ 12419}#)
|
|
((lambda (#{tmp\ 12442}#)
|
|
(if #{tmp\ 12442}#
|
|
(apply (lambda (#{x\ 12445}#
|
|
#{y\ 12446}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12398}#
|
|
#{y\ 12446}#
|
|
#{n\ 12400}#
|
|
#{ids\ 12401}#))
|
|
(lambda (#{y\ 12447}#
|
|
#{ids\ 12448}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12398}#
|
|
#{x\ 12445}#
|
|
#{n\ 12400}#
|
|
#{ids\ 12448}#))
|
|
(lambda (#{x\ 12451}#
|
|
#{ids\ 12452}#)
|
|
(values
|
|
(cons #{x\ 12451}#
|
|
#{y\ 12447}#)
|
|
#{ids\ 12452}#))))))
|
|
#{tmp\ 12442}#)
|
|
((lambda (#{tmp\ 12455}#)
|
|
(if #{tmp\ 12455}#
|
|
(apply (lambda ()
|
|
(values
|
|
'()
|
|
#{ids\ 12401}#))
|
|
#{tmp\ 12455}#)
|
|
((lambda (#{tmp\ 12456}#)
|
|
(if #{tmp\ 12456}#
|
|
(apply (lambda (#{x\ 12458}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12398}#
|
|
#{x\ 12458}#
|
|
#{n\ 12400}#
|
|
#{ids\ 12401}#))
|
|
(lambda (#{p\ 12460}#
|
|
#{ids\ 12461}#)
|
|
(values
|
|
(vector
|
|
'vector
|
|
#{p\ 12460}#)
|
|
#{ids\ 12461}#))))
|
|
#{tmp\ 12456}#)
|
|
((lambda (#{x\ 12465}#)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(#{strip\ 9187}#
|
|
#{p\ 12399}#
|
|
'(())))
|
|
#{ids\ 12401}#))
|
|
#{tmp\ 12405}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12405}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12405}#
|
|
'()))))
|
|
($sc-dispatch
|
|
#{tmp\ 12405}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12405}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12405}#
|
|
'(any any))))
|
|
#{p\ 12399}#))))
|
|
(#{cvt*\ 12396}#
|
|
(lambda (#{p*\ 12467}#
|
|
#{n\ 12468}#
|
|
#{ids\ 12469}#)
|
|
(if (null? #{p*\ 12467}#)
|
|
(values (quote ()) #{ids\ 12469}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 12396}#
|
|
(cdr #{p*\ 12467}#)
|
|
#{n\ 12468}#
|
|
#{ids\ 12469}#))
|
|
(lambda (#{y\ 12473}# #{ids\ 12474}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12398}#
|
|
(car #{p*\ 12467}#)
|
|
#{n\ 12468}#
|
|
#{ids\ 12474}#))
|
|
(lambda (#{x\ 12477}# #{ids\ 12478}#)
|
|
(values
|
|
(cons #{x\ 12477}# #{y\ 12473}#)
|
|
#{ids\ 12478}#)))))))))
|
|
(#{cvt\ 12398}# #{pattern\ 12391}# 0 (quote ()))))))
|
|
(lambda (#{e\ 12481}#
|
|
#{r\ 12482}#
|
|
#{w\ 12483}#
|
|
#{s\ 12484}#
|
|
#{mod\ 12485}#)
|
|
(let ((#{e\ 12492}#
|
|
(#{source-wrap\ 9147}#
|
|
#{e\ 12481}#
|
|
#{w\ 12483}#
|
|
#{s\ 12484}#
|
|
#{mod\ 12485}#)))
|
|
((lambda (#{tmp\ 12493}#)
|
|
((lambda (#{tmp\ 12494}#)
|
|
(if #{tmp\ 12494}#
|
|
(apply (lambda (#{_\ 12499}#
|
|
#{val\ 12500}#
|
|
#{key\ 12501}#
|
|
#{m\ 12502}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 12503}#)
|
|
(if (#{id?\ 9076}# #{x\ 12503}#)
|
|
(not (#{ellipsis?\ 9177}#
|
|
#{x\ 12503}#))
|
|
#f))
|
|
#{key\ 12501}#)
|
|
(let ((#{x\ 12509}#
|
|
(#{gen-var\ 9189}# (quote tmp))))
|
|
(#{build-application\ 8998}#
|
|
#{s\ 12484}#
|
|
(#{build-simple-lambda\ 9018}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{x\ 12509}#)
|
|
'()
|
|
(#{gen-syntax-case\ 12274}#
|
|
(#{build-lexical-reference\ 9004}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{x\ 12509}#)
|
|
#{key\ 12501}#
|
|
#{m\ 12502}#
|
|
#{r\ 12482}#
|
|
#{mod\ 12485}#))
|
|
(list (#{chi\ 9161}#
|
|
#{val\ 12500}#
|
|
#{r\ 12482}#
|
|
'(())
|
|
#{mod\ 12485}#))))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid literals list"
|
|
#{e\ 12492}#)))
|
|
#{tmp\ 12494}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12493}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12493}#
|
|
'(any any each-any . each-any))))
|
|
#{e\ 12492}#)))))
|
|
(set! macroexpand
|
|
(lambda (#{x\ 12515}# . #{rest\ 12516}#)
|
|
(if (if (pair? #{x\ 12515}#)
|
|
(equal? (car #{x\ 12515}#) #{noexpand\ 8973}#)
|
|
#f)
|
|
(cadr #{x\ 12515}#)
|
|
(let ((#{m\ 12523}#
|
|
(if (null? #{rest\ 12516}#)
|
|
'e
|
|
(car #{rest\ 12516}#)))
|
|
(#{esew\ 12524}#
|
|
(if (let ((#{t\ 12527}# (null? #{rest\ 12516}#)))
|
|
(if #{t\ 12527}#
|
|
#{t\ 12527}#
|
|
(null? (cdr #{rest\ 12516}#))))
|
|
'(eval)
|
|
(cadr #{rest\ 12516}#))))
|
|
(with-fluids
|
|
((#{*mode*\ 8975}# #{m\ 12523}#))
|
|
(#{chi-top\ 9159}#
|
|
#{x\ 12515}#
|
|
'()
|
|
'((top))
|
|
#{m\ 12523}#
|
|
#{esew\ 12524}#
|
|
(cons 'hygiene
|
|
(module-name (current-module)))))))))
|
|
(set! identifier?
|
|
(lambda (#{x\ 12531}#)
|
|
(#{nonsymbol-id?\ 9074}# #{x\ 12531}#)))
|
|
(set! datum->syntax
|
|
(lambda (#{id\ 12533}# #{datum\ 12534}#)
|
|
(#{make-syntax-object\ 9038}#
|
|
#{datum\ 12534}#
|
|
(#{syntax-object-wrap\ 9044}# #{id\ 12533}#)
|
|
#f)))
|
|
(set! syntax->datum
|
|
(lambda (#{x\ 12537}#)
|
|
(#{strip\ 9187}# #{x\ 12537}# (quote (())))))
|
|
(set! generate-temporaries
|
|
(lambda (#{ls\ 12540}#)
|
|
(begin
|
|
(let ((#{x\ 12544}# #{ls\ 12540}#))
|
|
(if (not (list? #{x\ 12544}#))
|
|
(syntax-violation
|
|
'generate-temporaries
|
|
"invalid argument"
|
|
#{x\ 12544}#)))
|
|
(map (lambda (#{x\ 12545}#)
|
|
(#{wrap\ 9145}# (gensym) (quote ((top))) #f))
|
|
#{ls\ 12540}#))))
|
|
(set! free-identifier=?
|
|
(lambda (#{x\ 12549}# #{y\ 12550}#)
|
|
(begin
|
|
(let ((#{x\ 12555}# #{x\ 12549}#))
|
|
(if (not (#{nonsymbol-id?\ 9074}# #{x\ 12555}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12555}#)))
|
|
(let ((#{x\ 12558}# #{y\ 12550}#))
|
|
(if (not (#{nonsymbol-id?\ 9074}# #{x\ 12558}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12558}#)))
|
|
(#{free-id=?\ 9135}# #{x\ 12549}# #{y\ 12550}#))))
|
|
(set! bound-identifier=?
|
|
(lambda (#{x\ 12559}# #{y\ 12560}#)
|
|
(begin
|
|
(let ((#{x\ 12565}# #{x\ 12559}#))
|
|
(if (not (#{nonsymbol-id?\ 9074}# #{x\ 12565}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12565}#)))
|
|
(let ((#{x\ 12568}# #{y\ 12560}#))
|
|
(if (not (#{nonsymbol-id?\ 9074}# #{x\ 12568}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12568}#)))
|
|
(#{bound-id=?\ 9137}# #{x\ 12559}# #{y\ 12560}#))))
|
|
(set! syntax-violation
|
|
(lambda (#{who\ 12569}#
|
|
#{message\ 12570}#
|
|
#{form\ 12571}#
|
|
.
|
|
#{subform\ 12572}#)
|
|
(begin
|
|
(let ((#{x\ 12579}# #{who\ 12569}#))
|
|
(if (not ((lambda (#{x\ 12580}#)
|
|
(let ((#{t\ 12584}# (not #{x\ 12580}#)))
|
|
(if #{t\ 12584}#
|
|
#{t\ 12584}#
|
|
(let ((#{t\ 12587}# (string? #{x\ 12580}#)))
|
|
(if #{t\ 12587}#
|
|
#{t\ 12587}#
|
|
(symbol? #{x\ 12580}#))))))
|
|
#{x\ 12579}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 12579}#)))
|
|
(let ((#{x\ 12591}# #{message\ 12570}#))
|
|
(if (not (string? #{x\ 12591}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 12591}#)))
|
|
(scm-error
|
|
'syntax-error
|
|
'macroexpand
|
|
(string-append
|
|
(if #{who\ 12569}# "~a: " "")
|
|
"~a "
|
|
(if (null? #{subform\ 12572}#)
|
|
"in ~a"
|
|
"in subform `~s' of `~s'"))
|
|
(let ((#{tail\ 12593}#
|
|
(cons #{message\ 12570}#
|
|
(map (lambda (#{x\ 12594}#)
|
|
(#{strip\ 9187}# #{x\ 12594}# (quote (()))))
|
|
(append
|
|
#{subform\ 12572}#
|
|
(list #{form\ 12571}#))))))
|
|
(if #{who\ 12569}#
|
|
(cons #{who\ 12569}# #{tail\ 12593}#)
|
|
#{tail\ 12593}#))
|
|
#f))))
|
|
(letrec ((#{match\ 12610}#
|
|
(lambda (#{e\ 12611}#
|
|
#{p\ 12612}#
|
|
#{w\ 12613}#
|
|
#{r\ 12614}#
|
|
#{mod\ 12615}#)
|
|
(if (not #{r\ 12614}#)
|
|
#f
|
|
(if (eq? #{p\ 12612}# (quote any))
|
|
(cons (#{wrap\ 9145}#
|
|
#{e\ 12611}#
|
|
#{w\ 12613}#
|
|
#{mod\ 12615}#)
|
|
#{r\ 12614}#)
|
|
(if (#{syntax-object?\ 9040}# #{e\ 12611}#)
|
|
(#{match*\ 12608}#
|
|
(#{syntax-object-expression\ 9042}# #{e\ 12611}#)
|
|
#{p\ 12612}#
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 12613}#
|
|
(#{syntax-object-wrap\ 9044}# #{e\ 12611}#))
|
|
#{r\ 12614}#
|
|
(#{syntax-object-module\ 9046}# #{e\ 12611}#))
|
|
(#{match*\ 12608}#
|
|
#{e\ 12611}#
|
|
#{p\ 12612}#
|
|
#{w\ 12613}#
|
|
#{r\ 12614}#
|
|
#{mod\ 12615}#))))))
|
|
(#{match*\ 12608}#
|
|
(lambda (#{e\ 12628}#
|
|
#{p\ 12629}#
|
|
#{w\ 12630}#
|
|
#{r\ 12631}#
|
|
#{mod\ 12632}#)
|
|
(if (null? #{p\ 12629}#)
|
|
(if (null? #{e\ 12628}#) #{r\ 12631}# #f)
|
|
(if (pair? #{p\ 12629}#)
|
|
(if (pair? #{e\ 12628}#)
|
|
(#{match\ 12610}#
|
|
(car #{e\ 12628}#)
|
|
(car #{p\ 12629}#)
|
|
#{w\ 12630}#
|
|
(#{match\ 12610}#
|
|
(cdr #{e\ 12628}#)
|
|
(cdr #{p\ 12629}#)
|
|
#{w\ 12630}#
|
|
#{r\ 12631}#
|
|
#{mod\ 12632}#)
|
|
#{mod\ 12632}#)
|
|
#f)
|
|
(if (eq? #{p\ 12629}# (quote each-any))
|
|
(let ((#{l\ 12649}#
|
|
(#{match-each-any\ 12602}#
|
|
#{e\ 12628}#
|
|
#{w\ 12630}#
|
|
#{mod\ 12632}#)))
|
|
(if #{l\ 12649}#
|
|
(cons #{l\ 12649}# #{r\ 12631}#)
|
|
#f))
|
|
(let ((#{atom-key\ 12655}#
|
|
(vector-ref #{p\ 12629}# 0)))
|
|
(if (memv #{atom-key\ 12655}# (quote (each)))
|
|
(if (null? #{e\ 12628}#)
|
|
(#{match-empty\ 12604}#
|
|
(vector-ref #{p\ 12629}# 1)
|
|
#{r\ 12631}#)
|
|
(let ((#{l\ 12658}#
|
|
(#{match-each\ 12598}#
|
|
#{e\ 12628}#
|
|
(vector-ref #{p\ 12629}# 1)
|
|
#{w\ 12630}#
|
|
#{mod\ 12632}#)))
|
|
(if #{l\ 12658}#
|
|
(letrec ((#{collect\ 12663}#
|
|
(lambda (#{l\ 12664}#)
|
|
(if (null? (car #{l\ 12664}#))
|
|
#{r\ 12631}#
|
|
(cons (map car #{l\ 12664}#)
|
|
(#{collect\ 12663}#
|
|
(map cdr
|
|
#{l\ 12664}#)))))))
|
|
(#{collect\ 12663}# #{l\ 12658}#))
|
|
#f)))
|
|
(if (memv #{atom-key\ 12655}# (quote (each+)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{match-each+\ 12600}#
|
|
#{e\ 12628}#
|
|
(vector-ref #{p\ 12629}# 1)
|
|
(vector-ref #{p\ 12629}# 2)
|
|
(vector-ref #{p\ 12629}# 3)
|
|
#{w\ 12630}#
|
|
#{r\ 12631}#
|
|
#{mod\ 12632}#))
|
|
(lambda (#{xr*\ 12666}#
|
|
#{y-pat\ 12667}#
|
|
#{r\ 12668}#)
|
|
(if #{r\ 12668}#
|
|
(if (null? #{y-pat\ 12667}#)
|
|
(if (null? #{xr*\ 12666}#)
|
|
(#{match-empty\ 12604}#
|
|
(vector-ref #{p\ 12629}# 1)
|
|
#{r\ 12668}#)
|
|
(#{combine\ 12606}#
|
|
#{xr*\ 12666}#
|
|
#{r\ 12668}#))
|
|
#f)
|
|
#f)))
|
|
(if (memv #{atom-key\ 12655}# (quote (free-id)))
|
|
(if (#{id?\ 9076}# #{e\ 12628}#)
|
|
(if (#{free-id=?\ 9135}#
|
|
(#{wrap\ 9145}#
|
|
#{e\ 12628}#
|
|
#{w\ 12630}#
|
|
#{mod\ 12632}#)
|
|
(vector-ref #{p\ 12629}# 1))
|
|
#{r\ 12631}#
|
|
#f)
|
|
#f)
|
|
(if (memv #{atom-key\ 12655}# (quote (atom)))
|
|
(if (equal?
|
|
(vector-ref #{p\ 12629}# 1)
|
|
(#{strip\ 9187}#
|
|
#{e\ 12628}#
|
|
#{w\ 12630}#))
|
|
#{r\ 12631}#
|
|
#f)
|
|
(if (memv #{atom-key\ 12655}#
|
|
'(vector))
|
|
(if (vector? #{e\ 12628}#)
|
|
(#{match\ 12610}#
|
|
(vector->list #{e\ 12628}#)
|
|
(vector-ref #{p\ 12629}# 1)
|
|
#{w\ 12630}#
|
|
#{r\ 12631}#
|
|
#{mod\ 12632}#)
|
|
#f))))))))))))
|
|
(#{combine\ 12606}#
|
|
(lambda (#{r*\ 12685}# #{r\ 12686}#)
|
|
(if (null? (car #{r*\ 12685}#))
|
|
#{r\ 12686}#
|
|
(cons (map car #{r*\ 12685}#)
|
|
(#{combine\ 12606}#
|
|
(map cdr #{r*\ 12685}#)
|
|
#{r\ 12686}#)))))
|
|
(#{match-empty\ 12604}#
|
|
(lambda (#{p\ 12689}# #{r\ 12690}#)
|
|
(if (null? #{p\ 12689}#)
|
|
#{r\ 12690}#
|
|
(if (eq? #{p\ 12689}# (quote any))
|
|
(cons (quote ()) #{r\ 12690}#)
|
|
(if (pair? #{p\ 12689}#)
|
|
(#{match-empty\ 12604}#
|
|
(car #{p\ 12689}#)
|
|
(#{match-empty\ 12604}#
|
|
(cdr #{p\ 12689}#)
|
|
#{r\ 12690}#))
|
|
(if (eq? #{p\ 12689}# (quote each-any))
|
|
(cons (quote ()) #{r\ 12690}#)
|
|
(let ((#{atom-key\ 12704}#
|
|
(vector-ref #{p\ 12689}# 0)))
|
|
(if (memv #{atom-key\ 12704}# (quote (each)))
|
|
(#{match-empty\ 12604}#
|
|
(vector-ref #{p\ 12689}# 1)
|
|
#{r\ 12690}#)
|
|
(if (memv #{atom-key\ 12704}# (quote (each+)))
|
|
(#{match-empty\ 12604}#
|
|
(vector-ref #{p\ 12689}# 1)
|
|
(#{match-empty\ 12604}#
|
|
(reverse (vector-ref #{p\ 12689}# 2))
|
|
(#{match-empty\ 12604}#
|
|
(vector-ref #{p\ 12689}# 3)
|
|
#{r\ 12690}#)))
|
|
(if (memv #{atom-key\ 12704}#
|
|
'(free-id atom))
|
|
#{r\ 12690}#
|
|
(if (memv #{atom-key\ 12704}#
|
|
'(vector))
|
|
(#{match-empty\ 12604}#
|
|
(vector-ref #{p\ 12689}# 1)
|
|
#{r\ 12690}#))))))))))))
|
|
(#{match-each-any\ 12602}#
|
|
(lambda (#{e\ 12709}# #{w\ 12710}# #{mod\ 12711}#)
|
|
(if (pair? #{e\ 12709}#)
|
|
(let ((#{l\ 12718}#
|
|
(#{match-each-any\ 12602}#
|
|
(cdr #{e\ 12709}#)
|
|
#{w\ 12710}#
|
|
#{mod\ 12711}#)))
|
|
(if #{l\ 12718}#
|
|
(cons (#{wrap\ 9145}#
|
|
(car #{e\ 12709}#)
|
|
#{w\ 12710}#
|
|
#{mod\ 12711}#)
|
|
#{l\ 12718}#)
|
|
#f))
|
|
(if (null? #{e\ 12709}#)
|
|
'()
|
|
(if (#{syntax-object?\ 9040}# #{e\ 12709}#)
|
|
(#{match-each-any\ 12602}#
|
|
(#{syntax-object-expression\ 9042}# #{e\ 12709}#)
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 12710}#
|
|
(#{syntax-object-wrap\ 9044}# #{e\ 12709}#))
|
|
#{mod\ 12711}#)
|
|
#f)))))
|
|
(#{match-each+\ 12600}#
|
|
(lambda (#{e\ 12726}#
|
|
#{x-pat\ 12727}#
|
|
#{y-pat\ 12728}#
|
|
#{z-pat\ 12729}#
|
|
#{w\ 12730}#
|
|
#{r\ 12731}#
|
|
#{mod\ 12732}#)
|
|
(letrec ((#{f\ 12743}#
|
|
(lambda (#{e\ 12744}# #{w\ 12745}#)
|
|
(if (pair? #{e\ 12744}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{f\ 12743}#
|
|
(cdr #{e\ 12744}#)
|
|
#{w\ 12745}#))
|
|
(lambda (#{xr*\ 12748}#
|
|
#{y-pat\ 12749}#
|
|
#{r\ 12750}#)
|
|
(if #{r\ 12750}#
|
|
(if (null? #{y-pat\ 12749}#)
|
|
(let ((#{xr\ 12755}#
|
|
(#{match\ 12610}#
|
|
(car #{e\ 12744}#)
|
|
#{x-pat\ 12727}#
|
|
#{w\ 12745}#
|
|
'()
|
|
#{mod\ 12732}#)))
|
|
(if #{xr\ 12755}#
|
|
(values
|
|
(cons #{xr\ 12755}#
|
|
#{xr*\ 12748}#)
|
|
#{y-pat\ 12749}#
|
|
#{r\ 12750}#)
|
|
(values #f #f #f)))
|
|
(values
|
|
'()
|
|
(cdr #{y-pat\ 12749}#)
|
|
(#{match\ 12610}#
|
|
(car #{e\ 12744}#)
|
|
(car #{y-pat\ 12749}#)
|
|
#{w\ 12745}#
|
|
#{r\ 12750}#
|
|
#{mod\ 12732}#)))
|
|
(values #f #f #f))))
|
|
(if (#{syntax-object?\ 9040}# #{e\ 12744}#)
|
|
(#{f\ 12743}#
|
|
(#{syntax-object-expression\ 9042}#
|
|
#{e\ 12744}#)
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 12745}#
|
|
#{e\ 12744}#))
|
|
(values
|
|
'()
|
|
#{y-pat\ 12728}#
|
|
(#{match\ 12610}#
|
|
#{e\ 12744}#
|
|
#{z-pat\ 12729}#
|
|
#{w\ 12745}#
|
|
#{r\ 12731}#
|
|
#{mod\ 12732}#)))))))
|
|
(#{f\ 12743}# #{e\ 12726}# #{w\ 12730}#))))
|
|
(#{match-each\ 12598}#
|
|
(lambda (#{e\ 12759}#
|
|
#{p\ 12760}#
|
|
#{w\ 12761}#
|
|
#{mod\ 12762}#)
|
|
(if (pair? #{e\ 12759}#)
|
|
(let ((#{first\ 12770}#
|
|
(#{match\ 12610}#
|
|
(car #{e\ 12759}#)
|
|
#{p\ 12760}#
|
|
#{w\ 12761}#
|
|
'()
|
|
#{mod\ 12762}#)))
|
|
(if #{first\ 12770}#
|
|
(let ((#{rest\ 12774}#
|
|
(#{match-each\ 12598}#
|
|
(cdr #{e\ 12759}#)
|
|
#{p\ 12760}#
|
|
#{w\ 12761}#
|
|
#{mod\ 12762}#)))
|
|
(if #{rest\ 12774}#
|
|
(cons #{first\ 12770}# #{rest\ 12774}#)
|
|
#f))
|
|
#f))
|
|
(if (null? #{e\ 12759}#)
|
|
'()
|
|
(if (#{syntax-object?\ 9040}# #{e\ 12759}#)
|
|
(#{match-each\ 12598}#
|
|
(#{syntax-object-expression\ 9042}# #{e\ 12759}#)
|
|
#{p\ 12760}#
|
|
(#{join-wraps\ 9127}#
|
|
#{w\ 12761}#
|
|
(#{syntax-object-wrap\ 9044}# #{e\ 12759}#))
|
|
(#{syntax-object-module\ 9046}# #{e\ 12759}#))
|
|
#f))))))
|
|
(set! $sc-dispatch
|
|
(lambda (#{e\ 12782}# #{p\ 12783}#)
|
|
(if (eq? #{p\ 12783}# (quote any))
|
|
(list #{e\ 12782}#)
|
|
(if (#{syntax-object?\ 9040}# #{e\ 12782}#)
|
|
(#{match*\ 12608}#
|
|
(#{syntax-object-expression\ 9042}# #{e\ 12782}#)
|
|
#{p\ 12783}#
|
|
(#{syntax-object-wrap\ 9044}# #{e\ 12782}#)
|
|
'()
|
|
(#{syntax-object-module\ 9046}# #{e\ 12782}#))
|
|
(#{match*\ 12608}#
|
|
#{e\ 12782}#
|
|
#{p\ 12783}#
|
|
'(())
|
|
'()
|
|
#f)))))))))
|
|
|
|
(define with-syntax
|
|
(make-syntax-transformer
|
|
'with-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 12792}#)
|
|
((lambda (#{tmp\ 12794}#)
|
|
((lambda (#{tmp\ 12795}#)
|
|
(if #{tmp\ 12795}#
|
|
(apply (lambda (#{_\ 12799}# #{e1\ 12800}# #{e2\ 12801}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ e1 e2)
|
|
#((top) (top) (top))
|
|
#("i12796" "i12797" "i12798"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i12793")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 12800}# #{e2\ 12801}#)))
|
|
#{tmp\ 12795}#)
|
|
((lambda (#{tmp\ 12803}#)
|
|
(if #{tmp\ 12803}#
|
|
(apply (lambda (#{_\ 12809}#
|
|
#{out\ 12810}#
|
|
#{in\ 12811}#
|
|
#{e1\ 12812}#
|
|
#{e2\ 12813}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i12804"
|
|
"i12805"
|
|
"i12806"
|
|
"i12807"
|
|
"i12808"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12793")))
|
|
(hygiene guile))
|
|
#{in\ 12811}#
|
|
'()
|
|
(list #{out\ 12810}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12804"
|
|
"i12805"
|
|
"i12806"
|
|
"i12807"
|
|
"i12808"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12793")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 12812}#
|
|
#{e2\ 12813}#)))))
|
|
#{tmp\ 12803}#)
|
|
((lambda (#{tmp\ 12815}#)
|
|
(if #{tmp\ 12815}#
|
|
(apply (lambda (#{_\ 12821}#
|
|
#{out\ 12822}#
|
|
#{in\ 12823}#
|
|
#{e1\ 12824}#
|
|
#{e2\ 12825}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12816"
|
|
"i12817"
|
|
"i12818"
|
|
"i12819"
|
|
"i12820"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12793")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12816"
|
|
"i12817"
|
|
"i12818"
|
|
"i12819"
|
|
"i12820"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12793")))
|
|
(hygiene guile))
|
|
#{in\ 12823}#)
|
|
'()
|
|
(list #{out\ 12822}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
out
|
|
in
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12816"
|
|
"i12817"
|
|
"i12818"
|
|
"i12819"
|
|
"i12820"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12793")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 12824}#
|
|
#{e2\ 12825}#)))))
|
|
#{tmp\ 12815}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12794}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12794}#
|
|
'(any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12794}#
|
|
'(any ((any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12794}#
|
|
'(any () any . each-any))))
|
|
#{x\ 12792}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define syntax-rules
|
|
(make-syntax-transformer
|
|
'syntax-rules
|
|
'macro
|
|
(cons (lambda (#{x\ 12829}#)
|
|
((lambda (#{tmp\ 12831}#)
|
|
((lambda (#{tmp\ 12832}#)
|
|
(if #{tmp\ 12832}#
|
|
(apply (lambda (#{_\ 12838}#
|
|
#{k\ 12839}#
|
|
#{keyword\ 12840}#
|
|
#{pattern\ 12841}#
|
|
#{template\ 12842}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i12830")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i12830")))
|
|
(hygiene guile)))
|
|
(vector
|
|
'(#(syntax-object
|
|
macro-type
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i12830")))
|
|
(hygiene guile))
|
|
.
|
|
#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i12830")))
|
|
(hygiene guile)))
|
|
(cons '#(syntax-object
|
|
patterns
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12830")))
|
|
(hygiene guile))
|
|
#{pattern\ 12841}#))
|
|
(cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12830")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12830")))
|
|
(hygiene guile))
|
|
(cons #{k\ 12839}#
|
|
(map (lambda (#{tmp\ 12846}#
|
|
#{tmp\ 12845}#)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12830")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 12845}#)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12833"
|
|
"i12834"
|
|
"i12835"
|
|
"i12836"
|
|
"i12837"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12830")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 12846}#)))
|
|
#{template\ 12842}#
|
|
#{pattern\ 12841}#))))))
|
|
#{tmp\ 12832}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12831}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12831}#
|
|
'(any each-any . #(each ((any . any) any))))))
|
|
#{x\ 12829}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define let*
|
|
(make-syntax-transformer
|
|
'let*
|
|
'macro
|
|
(cons (lambda (#{x\ 12847}#)
|
|
((lambda (#{tmp\ 12849}#)
|
|
((lambda (#{tmp\ 12850}#)
|
|
(if (if #{tmp\ 12850}#
|
|
(apply (lambda (#{let*\ 12856}#
|
|
#{x\ 12857}#
|
|
#{v\ 12858}#
|
|
#{e1\ 12859}#
|
|
#{e2\ 12860}#)
|
|
(and-map identifier? #{x\ 12857}#))
|
|
#{tmp\ 12850}#)
|
|
#f)
|
|
(apply (lambda (#{let*\ 12867}#
|
|
#{x\ 12868}#
|
|
#{v\ 12869}#
|
|
#{e1\ 12870}#
|
|
#{e2\ 12871}#)
|
|
(letrec ((#{f\ 12874}#
|
|
(lambda (#{bindings\ 12875}#)
|
|
(if (null? #{bindings\ 12875}#)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("i12872" "i12873"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12862"
|
|
"i12863"
|
|
"i12864"
|
|
"i12865"
|
|
"i12866"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12848")))
|
|
(hygiene guile))
|
|
(cons '()
|
|
(cons #{e1\ 12870}#
|
|
#{e2\ 12871}#)))
|
|
((lambda (#{tmp\ 12880}#)
|
|
((lambda (#{tmp\ 12881}#)
|
|
(if #{tmp\ 12881}#
|
|
(apply (lambda (#{body\ 12884}#
|
|
#{binding\ 12885}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body
|
|
binding)
|
|
#((top)
|
|
(top))
|
|
#("i12882"
|
|
"i12883"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
bindings)
|
|
#((top)
|
|
(top))
|
|
#("i12872"
|
|
"i12873"))
|
|
#(ribcage
|
|
#(let*
|
|
x
|
|
v
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12862"
|
|
"i12863"
|
|
"i12864"
|
|
"i12865"
|
|
"i12866"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12848")))
|
|
(hygiene
|
|
guile))
|
|
(list #{binding\ 12885}#)
|
|
#{body\ 12884}#))
|
|
#{tmp\ 12881}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12880}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12880}#
|
|
'(any any))))
|
|
(list (#{f\ 12874}#
|
|
(cdr #{bindings\ 12875}#))
|
|
(car #{bindings\ 12875}#)))))))
|
|
(#{f\ 12874}#
|
|
(map list #{x\ 12868}# #{v\ 12869}#))))
|
|
#{tmp\ 12850}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12849}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12849}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{x\ 12847}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define do
|
|
(make-syntax-transformer
|
|
'do
|
|
'macro
|
|
(cons (lambda (#{orig-x\ 12886}#)
|
|
((lambda (#{tmp\ 12888}#)
|
|
((lambda (#{tmp\ 12889}#)
|
|
(if #{tmp\ 12889}#
|
|
(apply (lambda (#{_\ 12897}#
|
|
#{var\ 12898}#
|
|
#{init\ 12899}#
|
|
#{step\ 12900}#
|
|
#{e0\ 12901}#
|
|
#{e1\ 12902}#
|
|
#{c\ 12903}#)
|
|
((lambda (#{tmp\ 12905}#)
|
|
((lambda (#{tmp\ 12906}#)
|
|
(if #{tmp\ 12906}#
|
|
(apply (lambda (#{step\ 12908}#)
|
|
((lambda (#{tmp\ 12909}#)
|
|
((lambda (#{tmp\ 12910}#)
|
|
(if #{tmp\ 12910}#
|
|
(apply (lambda ()
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 12898}#
|
|
#{init\ 12899}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
not
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 12901}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 12903}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 12908}#)))))))
|
|
#{tmp\ 12910}#)
|
|
((lambda (#{tmp\ 12915}#)
|
|
(if #{tmp\ 12915}#
|
|
(apply (lambda (#{e1\ 12918}#
|
|
#{e2\ 12919}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i12916"
|
|
"i12917"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i12916"
|
|
"i12917"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 12898}#
|
|
#{init\ 12899}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i12916"
|
|
"i12917"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 12901}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i12916"
|
|
"i12917"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 12918}#
|
|
#{e2\ 12919}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i12916"
|
|
"i12917"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 12903}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i12916"
|
|
"i12917"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i12907"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12890"
|
|
"i12891"
|
|
"i12892"
|
|
"i12893"
|
|
"i12894"
|
|
"i12895"
|
|
"i12896"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i12887")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 12908}#)))))))
|
|
#{tmp\ 12915}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12909}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12909}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12909}#
|
|
'())))
|
|
#{e1\ 12902}#))
|
|
#{tmp\ 12906}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12905}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12905}#
|
|
'each-any)))
|
|
(map (lambda (#{v\ 12926}# #{s\ 12927}#)
|
|
((lambda (#{tmp\ 12930}#)
|
|
((lambda (#{tmp\ 12931}#)
|
|
(if #{tmp\ 12931}#
|
|
(apply (lambda () #{v\ 12926}#)
|
|
#{tmp\ 12931}#)
|
|
((lambda (#{tmp\ 12932}#)
|
|
(if #{tmp\ 12932}#
|
|
(apply (lambda (#{e\ 12934}#)
|
|
#{e\ 12934}#)
|
|
#{tmp\ 12932}#)
|
|
((lambda (#{_\ 12936}#)
|
|
(syntax-violation
|
|
'do
|
|
"bad step expression"
|
|
#{orig-x\ 12886}#
|
|
#{s\ 12927}#))
|
|
#{tmp\ 12930}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12930}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12930}#
|
|
'())))
|
|
#{s\ 12927}#))
|
|
#{var\ 12898}#
|
|
#{step\ 12900}#)))
|
|
#{tmp\ 12889}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12888}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12888}#
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
#{orig-x\ 12886}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define quasiquote
|
|
(make-syntax-transformer
|
|
'quasiquote
|
|
'macro
|
|
(cons (letrec ((#{quasicons\ 12943}#
|
|
(lambda (#{x\ 12947}# #{y\ 12948}#)
|
|
((lambda (#{tmp\ 12952}#)
|
|
((lambda (#{tmp\ 12953}#)
|
|
(if #{tmp\ 12953}#
|
|
(apply (lambda (#{x\ 12956}# #{y\ 12957}#)
|
|
((lambda (#{tmp\ 12958}#)
|
|
((lambda (#{tmp\ 12959}#)
|
|
(if #{tmp\ 12959}#
|
|
(apply (lambda (#{dy\ 12961}#)
|
|
((lambda (#{tmp\ 12962}#)
|
|
((lambda (#{tmp\ 12963}#)
|
|
(if #{tmp\ 12963}#
|
|
(apply (lambda (#{dx\ 12965}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dx)
|
|
#((top))
|
|
#("i12964"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i12960"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{dx\ 12965}#
|
|
#{dy\ 12961}#)))
|
|
#{tmp\ 12963}#)
|
|
((lambda (#{_\ 12967}#)
|
|
(if (null? #{dy\ 12961}#)
|
|
(list '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i12966"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i12960"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 12956}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i12966"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i12960"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 12956}#
|
|
#{y\ 12957}#)))
|
|
#{tmp\ 12962}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12962}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i12960"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile)))
|
|
any))))
|
|
#{x\ 12956}#))
|
|
#{tmp\ 12959}#)
|
|
((lambda (#{tmp\ 12968}#)
|
|
(if #{tmp\ 12968}#
|
|
(apply (lambda (#{stuff\ 12970}#)
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("i12969"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{x\ 12956}#
|
|
#{stuff\ 12970}#)))
|
|
#{tmp\ 12968}#)
|
|
((lambda (#{else\ 12972}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(else)
|
|
#((top))
|
|
#("i12971"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 12956}#
|
|
#{y\ 12957}#))
|
|
#{tmp\ 12958}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12958}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12954"
|
|
"i12955"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12949"
|
|
"i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12958}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12954" "i12955"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12949" "i12950"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{y\ 12957}#))
|
|
#{tmp\ 12953}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12952}#)))
|
|
($sc-dispatch #{tmp\ 12952}# (quote (any any)))))
|
|
(list #{x\ 12947}# #{y\ 12948}#))))
|
|
(#{quasiappend\ 12944}#
|
|
(lambda (#{x\ 12973}# #{y\ 12974}#)
|
|
((lambda (#{tmp\ 12978}#)
|
|
((lambda (#{tmp\ 12979}#)
|
|
(if #{tmp\ 12979}#
|
|
(apply (lambda (#{x\ 12982}# #{y\ 12983}#)
|
|
((lambda (#{tmp\ 12984}#)
|
|
((lambda (#{tmp\ 12985}#)
|
|
(if #{tmp\ 12985}#
|
|
(apply (lambda () #{x\ 12982}#)
|
|
#{tmp\ 12985}#)
|
|
((lambda (#{_\ 12987}#)
|
|
(list '#(syntax-object
|
|
append
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i12986"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12980"
|
|
"i12981"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12975"
|
|
"i12976"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
#{x\ 12982}#
|
|
#{y\ 12983}#))
|
|
#{tmp\ 12984}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12984}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12980" "i12981"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i12975" "i12976"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
()))))
|
|
#{y\ 12983}#))
|
|
#{tmp\ 12979}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12978}#)))
|
|
($sc-dispatch #{tmp\ 12978}# (quote (any any)))))
|
|
(list #{x\ 12973}# #{y\ 12974}#))))
|
|
(#{quasivector\ 12945}#
|
|
(lambda (#{x\ 12988}#)
|
|
((lambda (#{tmp\ 12991}#)
|
|
((lambda (#{x\ 12993}#)
|
|
((lambda (#{tmp\ 12994}#)
|
|
((lambda (#{tmp\ 12995}#)
|
|
(if #{tmp\ 12995}#
|
|
(apply (lambda (#{x\ 12997}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12996"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12992"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12989"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
(list->vector
|
|
#{x\ 12997}#)))
|
|
#{tmp\ 12995}#)
|
|
((lambda (#{tmp\ 12999}#)
|
|
(if #{tmp\ 12999}#
|
|
(apply (lambda (#{x\ 13001}#)
|
|
(cons '#(syntax-object
|
|
vector
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13000"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12992"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12989"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
#{x\ 13001}#))
|
|
#{tmp\ 12999}#)
|
|
((lambda (#{_\ 13004}#)
|
|
(list '#(syntax-object
|
|
list->vector
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i13003"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12992"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12989"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
#{x\ 12993}#))
|
|
#{tmp\ 12994}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12994}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12992"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i12989"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12994}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(x) #((top)) #("i12992"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i12989"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
each-any))))
|
|
#{x\ 12993}#))
|
|
#{tmp\ 12991}#))
|
|
#{x\ 12988}#)))
|
|
(#{quasi\ 12946}#
|
|
(lambda (#{p\ 13005}# #{lev\ 13006}#)
|
|
((lambda (#{tmp\ 13009}#)
|
|
((lambda (#{tmp\ 13010}#)
|
|
(if #{tmp\ 13010}#
|
|
(apply (lambda (#{p\ 13012}#)
|
|
(if (= #{lev\ 13006}# 0)
|
|
#{p\ 13012}#
|
|
(#{quasicons\ 12943}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13011"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13011"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 12946}#
|
|
(list #{p\ 13012}#)
|
|
(- #{lev\ 13006}# 1)))))
|
|
#{tmp\ 13010}#)
|
|
((lambda (#{tmp\ 13013}#)
|
|
(if (if #{tmp\ 13013}#
|
|
(apply (lambda (#{args\ 13015}#)
|
|
(= #{lev\ 13006}# 0))
|
|
#{tmp\ 13013}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 13017}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"unquote takes exactly one argument"
|
|
#{p\ 13005}#
|
|
(cons '#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(args)
|
|
#((top))
|
|
#("i13016"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
#{args\ 13017}#)))
|
|
#{tmp\ 13013}#)
|
|
((lambda (#{tmp\ 13018}#)
|
|
(if #{tmp\ 13018}#
|
|
(apply (lambda (#{p\ 13021}#
|
|
#{q\ 13022}#)
|
|
(if (= #{lev\ 13006}# 0)
|
|
(#{quasiappend\ 12944}#
|
|
#{p\ 13021}#
|
|
(#{quasi\ 12946}#
|
|
#{q\ 13022}#
|
|
#{lev\ 13006}#))
|
|
(#{quasicons\ 12943}#
|
|
(#{quasicons\ 12943}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i13019"
|
|
"i13020"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i13019"
|
|
"i13020"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 12946}#
|
|
(list #{p\ 13021}#)
|
|
(- #{lev\ 13006}#
|
|
1)))
|
|
(#{quasi\ 12946}#
|
|
#{q\ 13022}#
|
|
#{lev\ 13006}#))))
|
|
#{tmp\ 13018}#)
|
|
((lambda (#{tmp\ 13023}#)
|
|
(if (if #{tmp\ 13023}#
|
|
(apply (lambda (#{args\ 13026}#
|
|
#{q\ 13027}#)
|
|
(= #{lev\ 13006}#
|
|
0))
|
|
#{tmp\ 13023}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 13030}#
|
|
#{q\ 13031}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"unquote-splicing takes exactly one argument"
|
|
#{p\ 13005}#
|
|
(cons '#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(args q)
|
|
#((top)
|
|
(top))
|
|
#("i13028"
|
|
"i13029"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
#{args\ 13030}#)))
|
|
#{tmp\ 13023}#)
|
|
((lambda (#{tmp\ 13032}#)
|
|
(if #{tmp\ 13032}#
|
|
(apply (lambda (#{p\ 13034}#)
|
|
(#{quasicons\ 12943}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13033"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13033"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile)))
|
|
(#{quasi\ 12946}#
|
|
(list #{p\ 13034}#)
|
|
(+ #{lev\ 13006}#
|
|
1))))
|
|
#{tmp\ 13032}#)
|
|
((lambda (#{tmp\ 13035}#)
|
|
(if #{tmp\ 13035}#
|
|
(apply (lambda (#{p\ 13038}#
|
|
#{q\ 13039}#)
|
|
(#{quasicons\ 12943}#
|
|
(#{quasi\ 12946}#
|
|
#{p\ 13038}#
|
|
#{lev\ 13006}#)
|
|
(#{quasi\ 12946}#
|
|
#{q\ 13039}#
|
|
#{lev\ 13006}#)))
|
|
#{tmp\ 13035}#)
|
|
((lambda (#{tmp\ 13040}#)
|
|
(if #{tmp\ 13040}#
|
|
(apply (lambda (#{x\ 13042}#)
|
|
(#{quasivector\ 12945}#
|
|
(#{quasi\ 12946}#
|
|
#{x\ 13042}#
|
|
#{lev\ 13006}#)))
|
|
#{tmp\ 13040}#)
|
|
((lambda (#{p\ 13045}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13044"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p
|
|
lev)
|
|
#((top)
|
|
(top))
|
|
#("i13007"
|
|
"i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene
|
|
guile))
|
|
#{p\ 13045}#))
|
|
#{tmp\ 13009}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
.
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939"
|
|
"i12940"
|
|
"i12941"
|
|
"i12942")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13009}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13007" "i13008"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i12939" "i12940" "i12941" "i12942")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{p\ 13005}#))))
|
|
(lambda (#{x\ 13046}#)
|
|
((lambda (#{tmp\ 13048}#)
|
|
((lambda (#{tmp\ 13049}#)
|
|
(if #{tmp\ 13049}#
|
|
(apply (lambda (#{_\ 13052}# #{e\ 13053}#)
|
|
(#{quasi\ 12946}# #{e\ 13053}# 0))
|
|
#{tmp\ 13049}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13048}#)))
|
|
($sc-dispatch #{tmp\ 13048}# (quote (any any)))))
|
|
#{x\ 13046}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include
|
|
(make-syntax-transformer
|
|
'include
|
|
'macro
|
|
(cons (lambda (#{x\ 13054}#)
|
|
(letrec ((#{read-file\ 13057}#
|
|
(lambda (#{fn\ 13058}# #{k\ 13059}#)
|
|
(let ((#{p\ 13063}# (open-input-file #{fn\ 13058}#)))
|
|
(letrec ((#{f\ 13067}#
|
|
(lambda (#{x\ 13068}# #{result\ 13069}#)
|
|
(if (eof-object? #{x\ 13068}#)
|
|
(begin
|
|
(close-input-port #{p\ 13063}#)
|
|
(reverse #{result\ 13069}#))
|
|
(#{f\ 13067}#
|
|
(read #{p\ 13063}#)
|
|
(cons (datum->syntax
|
|
#{k\ 13059}#
|
|
#{x\ 13068}#)
|
|
#{result\ 13069}#))))))
|
|
(#{f\ 13067}# (read #{p\ 13063}#) (quote ())))))))
|
|
((lambda (#{tmp\ 13070}#)
|
|
((lambda (#{tmp\ 13071}#)
|
|
(if #{tmp\ 13071}#
|
|
(apply (lambda (#{k\ 13074}# #{filename\ 13075}#)
|
|
(let ((#{fn\ 13077}#
|
|
(syntax->datum #{filename\ 13075}#)))
|
|
((lambda (#{tmp\ 13079}#)
|
|
((lambda (#{tmp\ 13080}#)
|
|
(if #{tmp\ 13080}#
|
|
(apply (lambda (#{exp\ 13082}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(exp)
|
|
#((top))
|
|
#("i13081"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i13076"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i13072"
|
|
"i13073"))
|
|
#(ribcage
|
|
(read-file)
|
|
((top))
|
|
("i13056"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13055")))
|
|
(hygiene guile))
|
|
#{exp\ 13082}#))
|
|
#{tmp\ 13080}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13079}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13079}#
|
|
'each-any)))
|
|
(#{read-file\ 13057}#
|
|
#{fn\ 13077}#
|
|
#{k\ 13074}#))))
|
|
#{tmp\ 13071}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13070}#)))
|
|
($sc-dispatch #{tmp\ 13070}# (quote (any any)))))
|
|
#{x\ 13054}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include-from-path
|
|
(make-syntax-transformer
|
|
'include-from-path
|
|
'macro
|
|
(cons (lambda (#{x\ 13084}#)
|
|
((lambda (#{tmp\ 13086}#)
|
|
((lambda (#{tmp\ 13087}#)
|
|
(if #{tmp\ 13087}#
|
|
(apply (lambda (#{k\ 13090}# #{filename\ 13091}#)
|
|
(let ((#{fn\ 13093}#
|
|
(syntax->datum #{filename\ 13091}#)))
|
|
((lambda (#{tmp\ 13095}#)
|
|
((lambda (#{fn\ 13097}#)
|
|
(list '#(syntax-object
|
|
include
|
|
((top)
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i13096"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i13092"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i13088" "i13089"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13085")))
|
|
(hygiene guile))
|
|
#{fn\ 13097}#))
|
|
#{tmp\ 13095}#))
|
|
(let ((#{t\ 13100}#
|
|
(%search-load-path #{fn\ 13093}#)))
|
|
(if #{t\ 13100}#
|
|
#{t\ 13100}#
|
|
(syntax-violation
|
|
'include-from-path
|
|
"file not found in path"
|
|
#{x\ 13084}#
|
|
#{filename\ 13091}#))))))
|
|
#{tmp\ 13087}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13086}#)))
|
|
($sc-dispatch #{tmp\ 13086}# (quote (any any)))))
|
|
#{x\ 13084}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote
|
|
(make-syntax-transformer
|
|
'unquote
|
|
'macro
|
|
(cons (lambda (#{x\ 13102}#)
|
|
((lambda (#{tmp\ 13104}#)
|
|
((lambda (#{tmp\ 13105}#)
|
|
(if #{tmp\ 13105}#
|
|
(apply (lambda (#{_\ 13108}# #{e\ 13109}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 13102}#))
|
|
#{tmp\ 13105}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13104}#)))
|
|
($sc-dispatch #{tmp\ 13104}# (quote (any any)))))
|
|
#{x\ 13102}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote-splicing
|
|
(make-syntax-transformer
|
|
'unquote-splicing
|
|
'macro
|
|
(cons (lambda (#{x\ 13110}#)
|
|
((lambda (#{tmp\ 13112}#)
|
|
((lambda (#{tmp\ 13113}#)
|
|
(if #{tmp\ 13113}#
|
|
(apply (lambda (#{_\ 13116}# #{e\ 13117}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 13110}#))
|
|
#{tmp\ 13113}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13112}#)))
|
|
($sc-dispatch #{tmp\ 13112}# (quote (any any)))))
|
|
#{x\ 13110}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define case
|
|
(make-syntax-transformer
|
|
'case
|
|
'macro
|
|
(cons (lambda (#{x\ 13118}#)
|
|
((lambda (#{tmp\ 13120}#)
|
|
((lambda (#{tmp\ 13121}#)
|
|
(if #{tmp\ 13121}#
|
|
(apply (lambda (#{_\ 13126}#
|
|
#{e\ 13127}#
|
|
#{m1\ 13128}#
|
|
#{m2\ 13129}#)
|
|
((lambda (#{tmp\ 13131}#)
|
|
((lambda (#{body\ 13133}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i13132"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene guile))
|
|
(list (list '#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i13132"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene guile))
|
|
#{e\ 13127}#))
|
|
#{body\ 13133}#))
|
|
#{tmp\ 13131}#))
|
|
(letrec ((#{f\ 13137}#
|
|
(lambda (#{clause\ 13138}#
|
|
#{clauses\ 13139}#)
|
|
(if (null? #{clauses\ 13139}#)
|
|
((lambda (#{tmp\ 13141}#)
|
|
((lambda (#{tmp\ 13142}#)
|
|
(if #{tmp\ 13142}#
|
|
(apply (lambda (#{e1\ 13145}#
|
|
#{e2\ 13146}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13143"
|
|
"i13144"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13145}#
|
|
#{e2\ 13146}#)))
|
|
#{tmp\ 13142}#)
|
|
((lambda (#{tmp\ 13148}#)
|
|
(if #{tmp\ 13148}#
|
|
(apply (lambda (#{k\ 13152}#
|
|
#{e1\ 13153}#
|
|
#{e2\ 13154}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13149"
|
|
"i13150"
|
|
"i13151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13149"
|
|
"i13150"
|
|
"i13151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13149"
|
|
"i13150"
|
|
"i13151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13149"
|
|
"i13150"
|
|
"i13151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 13152}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13149"
|
|
"i13150"
|
|
"i13151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13153}#
|
|
#{e2\ 13154}#))))
|
|
#{tmp\ 13148}#)
|
|
((lambda (#{_\ 13158}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 13118}#
|
|
#{clause\ 13138}#))
|
|
#{tmp\ 13141}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13141}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13141}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
else
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene guile)))
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 13138}#)
|
|
((lambda (#{tmp\ 13160}#)
|
|
((lambda (#{rest\ 13162}#)
|
|
((lambda (#{tmp\ 13163}#)
|
|
((lambda (#{tmp\ 13164}#)
|
|
(if #{tmp\ 13164}#
|
|
(apply (lambda (#{k\ 13168}#
|
|
#{e1\ 13169}#
|
|
#{e2\ 13170}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13165"
|
|
"i13166"
|
|
"i13167"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13165"
|
|
"i13166"
|
|
"i13167"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13165"
|
|
"i13166"
|
|
"i13167"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13165"
|
|
"i13166"
|
|
"i13167"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 13168}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13165"
|
|
"i13166"
|
|
"i13167"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13122"
|
|
"i13123"
|
|
"i13124"
|
|
"i13125"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13119")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13169}#
|
|
#{e2\ 13170}#))
|
|
#{rest\ 13162}#))
|
|
#{tmp\ 13164}#)
|
|
((lambda (#{_\ 13174}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 13118}#
|
|
#{clause\ 13138}#))
|
|
#{tmp\ 13163}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13163}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 13138}#))
|
|
#{tmp\ 13160}#))
|
|
(#{f\ 13137}#
|
|
(car #{clauses\ 13139}#)
|
|
(cdr #{clauses\ 13139}#)))))))
|
|
(#{f\ 13137}# #{m1\ 13128}# #{m2\ 13129}#))))
|
|
#{tmp\ 13121}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13120}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13120}#
|
|
'(any any any . each-any))))
|
|
#{x\ 13118}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define identifier-syntax
|
|
(make-syntax-transformer
|
|
'identifier-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 13175}#)
|
|
((lambda (#{tmp\ 13177}#)
|
|
((lambda (#{tmp\ 13178}#)
|
|
(if #{tmp\ 13178}#
|
|
(apply (lambda (#{_\ 13181}# #{e\ 13182}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13176")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13176")))
|
|
(hygiene guile)))
|
|
'#((#(syntax-object
|
|
macro-type
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13176")))
|
|
(hygiene guile))
|
|
.
|
|
#(syntax-object
|
|
identifier-syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13176")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
'()
|
|
(list '#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
(#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179" "i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179"
|
|
"i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
#{e\ 13182}#))
|
|
(list (cons #{_\ 13181}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179"
|
|
"i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179"
|
|
"i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13179"
|
|
"i13180"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
(cons #{e\ 13182}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i13179"
|
|
"i13180"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i13179"
|
|
"i13180"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13176")))
|
|
(hygiene
|
|
guile)))))))))
|
|
#{tmp\ 13178}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13177}#)))
|
|
($sc-dispatch #{tmp\ 13177}# (quote (any any)))))
|
|
#{x\ 13175}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define define*
|
|
(make-syntax-transformer
|
|
'define*
|
|
'macro
|
|
(cons (lambda (#{x\ 13183}#)
|
|
((lambda (#{tmp\ 13185}#)
|
|
((lambda (#{tmp\ 13186}#)
|
|
(if #{tmp\ 13186}#
|
|
(apply (lambda (#{_\ 13192}#
|
|
#{id\ 13193}#
|
|
#{args\ 13194}#
|
|
#{b0\ 13195}#
|
|
#{b1\ 13196}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(_ id args b0 b1)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i13187"
|
|
"i13188"
|
|
"i13189"
|
|
"i13190"
|
|
"i13191"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13184")))
|
|
(hygiene guile))
|
|
#{id\ 13193}#
|
|
(cons '#(syntax-object
|
|
lambda*
|
|
((top)
|
|
#(ribcage
|
|
#(_ id args b0 b1)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i13187"
|
|
"i13188"
|
|
"i13189"
|
|
"i13190"
|
|
"i13191"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13184")))
|
|
(hygiene guile))
|
|
(cons #{args\ 13194}#
|
|
(cons #{b0\ 13195}#
|
|
#{b1\ 13196}#)))))
|
|
#{tmp\ 13186}#)
|
|
((lambda (#{tmp\ 13198}#)
|
|
(if (if #{tmp\ 13198}#
|
|
(apply (lambda (#{_\ 13202}#
|
|
#{id\ 13203}#
|
|
#{val\ 13204}#)
|
|
(identifier?
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ id val)
|
|
#((top) (top) (top))
|
|
#("i13199" "i13200" "i13201"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13184")))
|
|
(hygiene guile))))
|
|
#{tmp\ 13198}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 13208}#
|
|
#{id\ 13209}#
|
|
#{val\ 13210}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(_ id val)
|
|
#((top) (top) (top))
|
|
#("i13205" "i13206" "i13207"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13184")))
|
|
(hygiene guile))
|
|
#{id\ 13209}#
|
|
#{val\ 13210}#))
|
|
#{tmp\ 13198}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13185}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13185}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13185}#
|
|
'(any (any . any) any . each-any))))
|
|
#{x\ 13183}#))
|
|
(module-name (current-module)))))
|
|
|