mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-18 02:00:20 +02:00
e809758a7e
There are some incompatible changes here, but only to interfaces that were introduced earlier in 1.9, or interfaces which have been broken since early in 1.9. * libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Bump, as the macro changes affect the interface that is called by psyntax-generated macro definitions. * libguile/inline.h (scm_words): New function, allocates a variable number of contiguous scm_t_bits locations, with a given value in the 0th word, and 0 in the rest of the words. * libguile/macros.h: Rework interface to correspond more closely, and minimally, to the needs of memoize.c and psyntax. (SCM_ASSYNT, SCM_MACRO_TYPE_BITS, SCM_MACRO_TYPE_MASK) (SCM_F_MACRO_EXTENDED, SCM_MACROP, SCM_MACRO_TYPE) (SCM_MACRO_IS_EXTENDED, SCM_BUILTIN_MACRO_P, SCM_SYNCASE_MACRO_P) (SCM_MACRO_CODE, scm_tc16_macro): Remove CPP macros related to the representation of Scheme macros. (scm_i_make_primitive_macro): Renamed from scm_i_makbimacro. (scm_i_macro_primitive): New accessor so that memoize.c can get to the primitive syntax transformer. (scm_make_syncase_macro, scm_make_extended_syncase_macro) (scm_syncase_macro_type, scm_syncase_macro_binding): Removed these functions, replaced by make-syntax-transformer and its accessors. (scm_macro_binding): New accessor, the same as what scm_syncase_macro_binding was. * libguile/macros.c: All representation details of syntax transformers are private to this file now. (macro_print): Print macros as #<syntax-transformer ...>, or #<primitive-syntax-transformer ...> if psyntax has not attached a transformer of its own. (scm_i_make_primitive_macro): Represent macros as 5-word smobs. (scm_make_syntax_transformer): New constructor for syntax transformers (macros), exported to scheme. Takes a name, and looks it up in the current module to determine the previous primitive transformer, if any. (scm_macro_type): Instead of returning 'builtin-macro!, etc, return the type as set by psyntax, or #f if it's a primitive. (scm_macro_name): Return the stored macro name. (scm_macro_transformer): Return the psyntax-set syntax transformer. Hacky, but should help introspection somewhat. * libguile/memoize.c (memoize_env_ref_transformer): Use the new scm_i_macro_primitive, and adapt to other macro API changes. * module/ice-9/psyntax.scm (put-global-definition-hook) (get-global-definition-hook, chi-install-global): Call (and generate calls to) the new macro constructors and accessors. * module/ice-9/psyntax-pp.scm: Doubly regenerated. * module/ice-9/debugging/traps.scm (trap-here): Comment out this definition and export, while it's not working.
15029 lines
989 KiB
Scheme
15029 lines
989 KiB
Scheme
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
|
|
(if #f #f)
|
|
|
|
(letrec ((#{and-map*\ 9214}#
|
|
(lambda (#{f\ 9276}# #{first\ 9277}# . #{rest\ 9278}#)
|
|
(let ((#{t\ 9284}# (null? #{first\ 9277}#)))
|
|
(if #{t\ 9284}#
|
|
#{t\ 9284}#
|
|
(if (null? #{rest\ 9278}#)
|
|
(letrec ((#{andmap\ 9288}#
|
|
(lambda (#{first\ 9289}#)
|
|
(let ((#{x\ 9292}# (car #{first\ 9289}#))
|
|
(#{first\ 9293}# (cdr #{first\ 9289}#)))
|
|
(if (null? #{first\ 9293}#)
|
|
(#{f\ 9276}# #{x\ 9292}#)
|
|
(if (#{f\ 9276}# #{x\ 9292}#)
|
|
(#{andmap\ 9288}# #{first\ 9293}#)
|
|
#f))))))
|
|
(#{andmap\ 9288}# #{first\ 9277}#))
|
|
(letrec ((#{andmap\ 9299}#
|
|
(lambda (#{first\ 9300}# #{rest\ 9301}#)
|
|
(let ((#{x\ 9306}# (car #{first\ 9300}#))
|
|
(#{xr\ 9307}# (map car #{rest\ 9301}#))
|
|
(#{first\ 9308}# (cdr #{first\ 9300}#))
|
|
(#{rest\ 9309}#
|
|
(map cdr #{rest\ 9301}#)))
|
|
(if (null? #{first\ 9308}#)
|
|
(apply #{f\ 9276}#
|
|
(cons #{x\ 9306}# #{xr\ 9307}#))
|
|
(if (apply #{f\ 9276}#
|
|
(cons #{x\ 9306}# #{xr\ 9307}#))
|
|
(#{andmap\ 9299}#
|
|
#{first\ 9308}#
|
|
#{rest\ 9309}#)
|
|
#f))))))
|
|
(#{andmap\ 9299}# #{first\ 9277}# #{rest\ 9278}#))))))))
|
|
(letrec ((#{lambda-var-list\ 9529}#
|
|
(lambda (#{vars\ 9744}#)
|
|
(letrec ((#{lvl\ 9750}#
|
|
(lambda (#{vars\ 9751}# #{ls\ 9752}# #{w\ 9753}#)
|
|
(if (pair? #{vars\ 9751}#)
|
|
(#{lvl\ 9750}#
|
|
(cdr #{vars\ 9751}#)
|
|
(cons (#{wrap\ 9483}#
|
|
(car #{vars\ 9751}#)
|
|
#{w\ 9753}#
|
|
#f)
|
|
#{ls\ 9752}#)
|
|
#{w\ 9753}#)
|
|
(if (#{id?\ 9414}# #{vars\ 9751}#)
|
|
(cons (#{wrap\ 9483}#
|
|
#{vars\ 9751}#
|
|
#{w\ 9753}#
|
|
#f)
|
|
#{ls\ 9752}#)
|
|
(if (null? #{vars\ 9751}#)
|
|
#{ls\ 9752}#
|
|
(if (#{syntax-object?\ 9378}# #{vars\ 9751}#)
|
|
(#{lvl\ 9750}#
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{vars\ 9751}#)
|
|
#{ls\ 9752}#
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 9753}#
|
|
(#{syntax-object-wrap\ 9382}#
|
|
#{vars\ 9751}#)))
|
|
(cons #{vars\ 9751}# #{ls\ 9752}#))))))))
|
|
(#{lvl\ 9750}#
|
|
#{vars\ 9744}#
|
|
'()
|
|
'(())))))
|
|
(#{gen-var\ 9527}#
|
|
(lambda (#{id\ 9764}#)
|
|
(let ((#{id\ 9767}#
|
|
(if (#{syntax-object?\ 9378}# #{id\ 9764}#)
|
|
(#{syntax-object-expression\ 9380}# #{id\ 9764}#)
|
|
#{id\ 9764}#)))
|
|
(gensym
|
|
(string-append (symbol->string #{id\ 9767}#) " ")))))
|
|
(#{strip\ 9525}#
|
|
(lambda (#{x\ 9769}# #{w\ 9770}#)
|
|
(if (memq 'top
|
|
(#{wrap-marks\ 9421}# #{w\ 9770}#))
|
|
#{x\ 9769}#
|
|
(letrec ((#{f\ 9776}#
|
|
(lambda (#{x\ 9777}#)
|
|
(if (#{syntax-object?\ 9378}# #{x\ 9777}#)
|
|
(#{strip\ 9525}#
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{x\ 9777}#)
|
|
(#{syntax-object-wrap\ 9382}# #{x\ 9777}#))
|
|
(if (pair? #{x\ 9777}#)
|
|
(let ((#{a\ 9784}#
|
|
(#{f\ 9776}# (car #{x\ 9777}#)))
|
|
(#{d\ 9785}#
|
|
(#{f\ 9776}# (cdr #{x\ 9777}#))))
|
|
(if (if (eq? #{a\ 9784}# (car #{x\ 9777}#))
|
|
(eq? #{d\ 9785}# (cdr #{x\ 9777}#))
|
|
#f)
|
|
#{x\ 9777}#
|
|
(cons #{a\ 9784}# #{d\ 9785}#)))
|
|
(if (vector? #{x\ 9777}#)
|
|
(let ((#{old\ 9791}#
|
|
(vector->list #{x\ 9777}#)))
|
|
(let ((#{new\ 9793}#
|
|
(map #{f\ 9776}# #{old\ 9791}#)))
|
|
(if (#{and-map*\ 9214}#
|
|
eq?
|
|
#{old\ 9791}#
|
|
#{new\ 9793}#)
|
|
#{x\ 9777}#
|
|
(list->vector #{new\ 9793}#))))
|
|
#{x\ 9777}#))))))
|
|
(#{f\ 9776}# #{x\ 9769}#)))))
|
|
(#{chi-lambda-case\ 9523}#
|
|
(lambda (#{e\ 9795}#
|
|
#{r\ 9796}#
|
|
#{w\ 9797}#
|
|
#{s\ 9798}#
|
|
#{mod\ 9799}#
|
|
#{get-formals\ 9800}#
|
|
#{clauses\ 9801}#)
|
|
(letrec ((#{expand-body\ 9816}#
|
|
(lambda (#{req\ 9817}#
|
|
#{opt\ 9818}#
|
|
#{rest\ 9819}#
|
|
#{kw\ 9820}#
|
|
#{body\ 9821}#
|
|
#{vars\ 9822}#
|
|
#{r*\ 9823}#
|
|
#{w*\ 9824}#
|
|
#{inits\ 9825}#)
|
|
((lambda (#{tmp\ 9835}#)
|
|
((lambda (#{tmp\ 9836}#)
|
|
(if (if #{tmp\ 9836}#
|
|
(apply (lambda (#{docstring\ 9840}#
|
|
#{e1\ 9841}#
|
|
#{e2\ 9842}#)
|
|
(string?
|
|
(syntax->datum
|
|
#{docstring\ 9840}#)))
|
|
#{tmp\ 9836}#)
|
|
#f)
|
|
(apply (lambda (#{docstring\ 9846}#
|
|
#{e1\ 9847}#
|
|
#{e2\ 9848}#)
|
|
(values
|
|
(syntax->datum
|
|
#{docstring\ 9846}#)
|
|
#{req\ 9817}#
|
|
#{opt\ 9818}#
|
|
#{rest\ 9819}#
|
|
#{kw\ 9820}#
|
|
#{inits\ 9825}#
|
|
#{vars\ 9822}#
|
|
(#{chi-body\ 9507}#
|
|
(cons #{e1\ 9847}#
|
|
#{e2\ 9848}#)
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 9795}#
|
|
#{w\ 9797}#
|
|
#{s\ 9798}#
|
|
#{mod\ 9799}#)
|
|
#{r*\ 9823}#
|
|
#{w*\ 9824}#
|
|
#{mod\ 9799}#)))
|
|
#{tmp\ 9836}#)
|
|
((lambda (#{tmp\ 9850}#)
|
|
(if #{tmp\ 9850}#
|
|
(apply (lambda (#{e1\ 9853}#
|
|
#{e2\ 9854}#)
|
|
(values
|
|
#f
|
|
#{req\ 9817}#
|
|
#{opt\ 9818}#
|
|
#{rest\ 9819}#
|
|
#{kw\ 9820}#
|
|
#{inits\ 9825}#
|
|
#{vars\ 9822}#
|
|
(#{chi-body\ 9507}#
|
|
(cons #{e1\ 9853}#
|
|
#{e2\ 9854}#)
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 9795}#
|
|
#{w\ 9797}#
|
|
#{s\ 9798}#
|
|
#{mod\ 9799}#)
|
|
#{r*\ 9823}#
|
|
#{w*\ 9824}#
|
|
#{mod\ 9799}#)))
|
|
#{tmp\ 9850}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9835}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9835}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 9835}#
|
|
'(any any . each-any))))
|
|
#{body\ 9821}#)))
|
|
(#{expand-kw\ 9814}#
|
|
(lambda (#{req\ 9856}#
|
|
#{opt\ 9857}#
|
|
#{rest\ 9858}#
|
|
#{kw\ 9859}#
|
|
#{body\ 9860}#
|
|
#{vars\ 9861}#
|
|
#{r*\ 9862}#
|
|
#{w*\ 9863}#
|
|
#{aok\ 9864}#
|
|
#{out\ 9865}#
|
|
#{inits\ 9866}#)
|
|
(if (pair? #{kw\ 9859}#)
|
|
((lambda (#{tmp\ 9880}#)
|
|
((lambda (#{tmp\ 9881}#)
|
|
(if #{tmp\ 9881}#
|
|
(apply (lambda (#{k\ 9885}#
|
|
#{id\ 9886}#
|
|
#{i\ 9887}#)
|
|
(let ((#{v\ 9890}#
|
|
(#{gen-var\ 9527}#
|
|
#{id\ 9886}#)))
|
|
(let ((#{l\ 9892}#
|
|
(#{gen-labels\ 9432}#
|
|
(list #{v\ 9890}#))))
|
|
(let ((#{r**\ 9894}#
|
|
(#{extend-var-env\ 9404}#
|
|
#{l\ 9892}#
|
|
(list #{v\ 9890}#)
|
|
#{r*\ 9862}#)))
|
|
(let ((#{w**\ 9896}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
(list #{id\ 9886}#)
|
|
#{l\ 9892}#
|
|
#{w*\ 9863}#)))
|
|
(#{expand-kw\ 9814}#
|
|
#{req\ 9856}#
|
|
#{opt\ 9857}#
|
|
#{rest\ 9858}#
|
|
(cdr #{kw\ 9859}#)
|
|
#{body\ 9860}#
|
|
(cons #{v\ 9890}#
|
|
#{vars\ 9861}#)
|
|
#{r**\ 9894}#
|
|
#{w**\ 9896}#
|
|
#{aok\ 9864}#
|
|
(cons (list (syntax->datum
|
|
#{k\ 9885}#)
|
|
(syntax->datum
|
|
#{id\ 9886}#)
|
|
#{v\ 9890}#)
|
|
#{out\ 9865}#)
|
|
(cons (#{chi\ 9499}#
|
|
#{i\ 9887}#
|
|
#{r*\ 9862}#
|
|
#{w*\ 9863}#
|
|
#{mod\ 9799}#)
|
|
#{inits\ 9866}#)))))))
|
|
#{tmp\ 9881}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9880}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9880}#
|
|
'(any any any))))
|
|
(car #{kw\ 9859}#))
|
|
(#{expand-body\ 9816}#
|
|
#{req\ 9856}#
|
|
#{opt\ 9857}#
|
|
#{rest\ 9858}#
|
|
(if (let ((#{t\ 9900}# #{aok\ 9864}#))
|
|
(if #{t\ 9900}#
|
|
#{t\ 9900}#
|
|
(pair? #{out\ 9865}#)))
|
|
(cons #{aok\ 9864}# (reverse #{out\ 9865}#))
|
|
#f)
|
|
#{body\ 9860}#
|
|
(reverse #{vars\ 9861}#)
|
|
#{r*\ 9862}#
|
|
#{w*\ 9863}#
|
|
(reverse #{inits\ 9866}#)))))
|
|
(#{expand-opt\ 9812}#
|
|
(lambda (#{req\ 9902}#
|
|
#{opt\ 9903}#
|
|
#{rest\ 9904}#
|
|
#{kw\ 9905}#
|
|
#{body\ 9906}#
|
|
#{vars\ 9907}#
|
|
#{r*\ 9908}#
|
|
#{w*\ 9909}#
|
|
#{out\ 9910}#
|
|
#{inits\ 9911}#)
|
|
(if (pair? #{opt\ 9903}#)
|
|
((lambda (#{tmp\ 9924}#)
|
|
((lambda (#{tmp\ 9925}#)
|
|
(if #{tmp\ 9925}#
|
|
(apply (lambda (#{id\ 9928}# #{i\ 9929}#)
|
|
(let ((#{v\ 9932}#
|
|
(#{gen-var\ 9527}#
|
|
#{id\ 9928}#)))
|
|
(let ((#{l\ 9934}#
|
|
(#{gen-labels\ 9432}#
|
|
(list #{v\ 9932}#))))
|
|
(let ((#{r**\ 9936}#
|
|
(#{extend-var-env\ 9404}#
|
|
#{l\ 9934}#
|
|
(list #{v\ 9932}#)
|
|
#{r*\ 9908}#)))
|
|
(let ((#{w**\ 9938}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
(list #{id\ 9928}#)
|
|
#{l\ 9934}#
|
|
#{w*\ 9909}#)))
|
|
(#{expand-opt\ 9812}#
|
|
#{req\ 9902}#
|
|
(cdr #{opt\ 9903}#)
|
|
#{rest\ 9904}#
|
|
#{kw\ 9905}#
|
|
#{body\ 9906}#
|
|
(cons #{v\ 9932}#
|
|
#{vars\ 9907}#)
|
|
#{r**\ 9936}#
|
|
#{w**\ 9938}#
|
|
(cons (syntax->datum
|
|
#{id\ 9928}#)
|
|
#{out\ 9910}#)
|
|
(cons (#{chi\ 9499}#
|
|
#{i\ 9929}#
|
|
#{r*\ 9908}#
|
|
#{w*\ 9909}#
|
|
#{mod\ 9799}#)
|
|
#{inits\ 9911}#)))))))
|
|
#{tmp\ 9925}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9924}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9924}#
|
|
'(any any))))
|
|
(car #{opt\ 9903}#))
|
|
(if #{rest\ 9904}#
|
|
(let ((#{v\ 9943}#
|
|
(#{gen-var\ 9527}# #{rest\ 9904}#)))
|
|
(let ((#{l\ 9945}#
|
|
(#{gen-labels\ 9432}#
|
|
(list #{v\ 9943}#))))
|
|
(let ((#{r*\ 9947}#
|
|
(#{extend-var-env\ 9404}#
|
|
#{l\ 9945}#
|
|
(list #{v\ 9943}#)
|
|
#{r*\ 9908}#)))
|
|
(let ((#{w*\ 9949}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
(list #{rest\ 9904}#)
|
|
#{l\ 9945}#
|
|
#{w*\ 9909}#)))
|
|
(#{expand-kw\ 9814}#
|
|
#{req\ 9902}#
|
|
(if (pair? #{out\ 9910}#)
|
|
(reverse #{out\ 9910}#)
|
|
#f)
|
|
(syntax->datum #{rest\ 9904}#)
|
|
(if (pair? #{kw\ 9905}#)
|
|
(cdr #{kw\ 9905}#)
|
|
#{kw\ 9905}#)
|
|
#{body\ 9906}#
|
|
(cons #{v\ 9943}# #{vars\ 9907}#)
|
|
#{r*\ 9947}#
|
|
#{w*\ 9949}#
|
|
(if (pair? #{kw\ 9905}#)
|
|
(car #{kw\ 9905}#)
|
|
#f)
|
|
'()
|
|
#{inits\ 9911}#)))))
|
|
(#{expand-kw\ 9814}#
|
|
#{req\ 9902}#
|
|
(if (pair? #{out\ 9910}#)
|
|
(reverse #{out\ 9910}#)
|
|
#f)
|
|
#f
|
|
(if (pair? #{kw\ 9905}#)
|
|
(cdr #{kw\ 9905}#)
|
|
#{kw\ 9905}#)
|
|
#{body\ 9906}#
|
|
#{vars\ 9907}#
|
|
#{r*\ 9908}#
|
|
#{w*\ 9909}#
|
|
(if (pair? #{kw\ 9905}#)
|
|
(car #{kw\ 9905}#)
|
|
#f)
|
|
'()
|
|
#{inits\ 9911}#)))))
|
|
(#{expand-req\ 9810}#
|
|
(lambda (#{req\ 9951}#
|
|
#{opt\ 9952}#
|
|
#{rest\ 9953}#
|
|
#{kw\ 9954}#
|
|
#{body\ 9955}#)
|
|
(let ((#{vars\ 9963}#
|
|
(map #{gen-var\ 9527}# #{req\ 9951}#))
|
|
(#{labels\ 9964}#
|
|
(#{gen-labels\ 9432}# #{req\ 9951}#)))
|
|
(let ((#{r*\ 9967}#
|
|
(#{extend-var-env\ 9404}#
|
|
#{labels\ 9964}#
|
|
#{vars\ 9963}#
|
|
#{r\ 9796}#))
|
|
(#{w*\ 9968}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
#{req\ 9951}#
|
|
#{labels\ 9964}#
|
|
#{w\ 9797}#)))
|
|
(#{expand-opt\ 9812}#
|
|
(map syntax->datum #{req\ 9951}#)
|
|
#{opt\ 9952}#
|
|
#{rest\ 9953}#
|
|
#{kw\ 9954}#
|
|
#{body\ 9955}#
|
|
(reverse #{vars\ 9963}#)
|
|
#{r*\ 9967}#
|
|
#{w*\ 9968}#
|
|
'()
|
|
'()))))))
|
|
((lambda (#{tmp\ 9969}#)
|
|
((lambda (#{tmp\ 9970}#)
|
|
(if #{tmp\ 9970}#
|
|
(apply (lambda () (values #f #f)) #{tmp\ 9970}#)
|
|
((lambda (#{tmp\ 9971}#)
|
|
(if #{tmp\ 9971}#
|
|
(apply (lambda (#{args\ 9978}#
|
|
#{e1\ 9979}#
|
|
#{e2\ 9980}#
|
|
#{args*\ 9981}#
|
|
#{e1*\ 9982}#
|
|
#{e2*\ 9983}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{get-formals\ 9800}#
|
|
#{args\ 9978}#))
|
|
(lambda (#{req\ 9984}#
|
|
#{opt\ 9985}#
|
|
#{rest\ 9986}#
|
|
#{kw\ 9987}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{expand-req\ 9810}#
|
|
#{req\ 9984}#
|
|
#{opt\ 9985}#
|
|
#{rest\ 9986}#
|
|
#{kw\ 9987}#
|
|
(cons #{e1\ 9979}#
|
|
#{e2\ 9980}#)))
|
|
(lambda (#{docstring\ 9993}#
|
|
#{req\ 9994}#
|
|
#{opt\ 9995}#
|
|
#{rest\ 9996}#
|
|
#{kw\ 9997}#
|
|
#{inits\ 9998}#
|
|
#{vars\ 9999}#
|
|
#{body\ 10000}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9523}#
|
|
#{e\ 9795}#
|
|
#{r\ 9796}#
|
|
#{w\ 9797}#
|
|
#{s\ 9798}#
|
|
#{mod\ 9799}#
|
|
#{get-formals\ 9800}#
|
|
(map (lambda (#{tmp\ 10011}#
|
|
#{tmp\ 10010}#
|
|
#{tmp\ 10009}#)
|
|
(cons #{tmp\ 10009}#
|
|
(cons #{tmp\ 10010}#
|
|
#{tmp\ 10011}#)))
|
|
#{e2*\ 9983}#
|
|
#{e1*\ 9982}#
|
|
#{args*\ 9981}#)))
|
|
(lambda (#{docstring*\ 10013}#
|
|
#{else*\ 10014}#)
|
|
(values
|
|
(let ((#{t\ 10019}#
|
|
#{docstring\ 9993}#))
|
|
(if #{t\ 10019}#
|
|
#{t\ 10019}#
|
|
#{docstring*\ 10013}#))
|
|
(#{build-lambda-case\ 9360}#
|
|
#{s\ 9798}#
|
|
#{req\ 9994}#
|
|
#{opt\ 9995}#
|
|
#{rest\ 9996}#
|
|
#{kw\ 9997}#
|
|
#{inits\ 9998}#
|
|
#{vars\ 9999}#
|
|
#{body\ 10000}#
|
|
#{else*\ 10014}#)))))))))
|
|
#{tmp\ 9971}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 9969}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 9969}#
|
|
'((any any . each-any)
|
|
.
|
|
#(each (any any . each-any)))))))
|
|
($sc-dispatch #{tmp\ 9969}# (quote ()))))
|
|
#{clauses\ 9801}#))))
|
|
(#{lambda*-formals\ 9521}#
|
|
(lambda (#{orig-args\ 10021}#)
|
|
(letrec ((#{check\ 10032}#
|
|
(lambda (#{req\ 10033}#
|
|
#{opt\ 10034}#
|
|
#{rest\ 10035}#
|
|
#{kw\ 10036}#)
|
|
(if (#{distinct-bound-ids?\ 9479}#
|
|
(append
|
|
#{req\ 10033}#
|
|
(map car #{opt\ 10034}#)
|
|
(if #{rest\ 10035}#
|
|
(list #{rest\ 10035}#)
|
|
'())
|
|
(if (pair? #{kw\ 10036}#)
|
|
(map cadr (cdr #{kw\ 10036}#))
|
|
'())))
|
|
(values
|
|
#{req\ 10033}#
|
|
#{opt\ 10034}#
|
|
#{rest\ 10035}#
|
|
#{kw\ 10036}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 10021}#))))
|
|
(#{rest\ 10030}#
|
|
(lambda (#{args\ 10044}#
|
|
#{req\ 10045}#
|
|
#{opt\ 10046}#
|
|
#{kw\ 10047}#)
|
|
((lambda (#{tmp\ 10052}#)
|
|
((lambda (#{tmp\ 10053}#)
|
|
(if (if #{tmp\ 10053}#
|
|
(apply (lambda (#{r\ 10055}#)
|
|
(#{id?\ 9414}# #{r\ 10055}#))
|
|
#{tmp\ 10053}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 10057}#)
|
|
(#{check\ 10032}#
|
|
#{req\ 10045}#
|
|
#{opt\ 10046}#
|
|
#{r\ 10057}#
|
|
#{kw\ 10047}#))
|
|
#{tmp\ 10053}#)
|
|
((lambda (#{else\ 10059}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid rest argument"
|
|
#{orig-args\ 10021}#
|
|
#{args\ 10044}#))
|
|
#{tmp\ 10052}#)))
|
|
(list #{tmp\ 10052}#)))
|
|
#{args\ 10044}#)))
|
|
(#{key\ 10028}#
|
|
(lambda (#{args\ 10060}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
#{rkey\ 10063}#)
|
|
((lambda (#{tmp\ 10068}#)
|
|
((lambda (#{tmp\ 10069}#)
|
|
(if #{tmp\ 10069}#
|
|
(apply (lambda ()
|
|
(#{check\ 10032}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
#f
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 10063}#))))
|
|
#{tmp\ 10069}#)
|
|
((lambda (#{tmp\ 10070}#)
|
|
(if (if #{tmp\ 10070}#
|
|
(apply (lambda (#{a\ 10073}#
|
|
#{b\ 10074}#)
|
|
(#{id?\ 9414}#
|
|
#{a\ 10073}#))
|
|
#{tmp\ 10070}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10077}#
|
|
#{b\ 10078}#)
|
|
((lambda (#{tmp\ 10080}#)
|
|
((lambda (#{k\ 10082}#)
|
|
(#{key\ 10028}#
|
|
#{b\ 10078}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons (cons #{k\ 10082}#
|
|
(cons #{a\ 10077}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(k)
|
|
#((top))
|
|
#("i10081"))
|
|
#(ribcage
|
|
#(a
|
|
b)
|
|
#((top)
|
|
(top))
|
|
#("i10075"
|
|
"i10076"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
opt
|
|
rkey)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10064"
|
|
"i10065"
|
|
"i10066"
|
|
"i10067"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i10031"
|
|
"i10029"
|
|
"i10027"
|
|
"i10025"
|
|
"i10023"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i10022"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i9215"
|
|
"i9213")))
|
|
(hygiene
|
|
guile)))))
|
|
#{rkey\ 10063}#)))
|
|
#{tmp\ 10080}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 10077}#))))
|
|
#{tmp\ 10070}#)
|
|
((lambda (#{tmp\ 10083}#)
|
|
(if (if #{tmp\ 10083}#
|
|
(apply (lambda (#{a\ 10087}#
|
|
#{init\ 10088}#
|
|
#{b\ 10089}#)
|
|
(#{id?\ 9414}#
|
|
#{a\ 10087}#))
|
|
#{tmp\ 10083}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10093}#
|
|
#{init\ 10094}#
|
|
#{b\ 10095}#)
|
|
((lambda (#{tmp\ 10097}#)
|
|
((lambda (#{k\ 10099}#)
|
|
(#{key\ 10028}#
|
|
#{b\ 10095}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons (list #{k\ 10099}#
|
|
#{a\ 10093}#
|
|
#{init\ 10094}#)
|
|
#{rkey\ 10063}#)))
|
|
#{tmp\ 10097}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 10093}#))))
|
|
#{tmp\ 10083}#)
|
|
((lambda (#{tmp\ 10100}#)
|
|
(if (if #{tmp\ 10100}#
|
|
(apply (lambda (#{a\ 10105}#
|
|
#{init\ 10106}#
|
|
#{k\ 10107}#
|
|
#{b\ 10108}#)
|
|
(if (#{id?\ 9414}#
|
|
#{a\ 10105}#)
|
|
(keyword?
|
|
(syntax->datum
|
|
#{k\ 10107}#))
|
|
#f))
|
|
#{tmp\ 10100}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10115}#
|
|
#{init\ 10116}#
|
|
#{k\ 10117}#
|
|
#{b\ 10118}#)
|
|
(#{key\ 10028}#
|
|
#{b\ 10118}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons (list #{k\ 10117}#
|
|
#{a\ 10115}#
|
|
#{init\ 10116}#)
|
|
#{rkey\ 10063}#)))
|
|
#{tmp\ 10100}#)
|
|
((lambda (#{tmp\ 10119}#)
|
|
(if (if #{tmp\ 10119}#
|
|
(apply (lambda (#{aok\ 10121}#)
|
|
(eq? (syntax->datum
|
|
#{aok\ 10121}#)
|
|
#:allow-other-keys))
|
|
#{tmp\ 10119}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 10123}#)
|
|
(#{check\ 10032}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
#f
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 10063}#))))
|
|
#{tmp\ 10119}#)
|
|
((lambda (#{tmp\ 10124}#)
|
|
(if (if #{tmp\ 10124}#
|
|
(apply (lambda (#{aok\ 10128}#
|
|
#{a\ 10129}#
|
|
#{b\ 10130}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 10128}#)
|
|
#:allow-other-keys)
|
|
(eq? (syntax->datum
|
|
#{a\ 10129}#)
|
|
#:rest)
|
|
#f))
|
|
#{tmp\ 10124}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 10136}#
|
|
#{a\ 10137}#
|
|
#{b\ 10138}#)
|
|
(#{rest\ 10030}#
|
|
#{b\ 10138}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 10063}#))))
|
|
#{tmp\ 10124}#)
|
|
((lambda (#{tmp\ 10139}#)
|
|
(if (if #{tmp\ 10139}#
|
|
(apply (lambda (#{aok\ 10142}#
|
|
#{r\ 10143}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 10142}#)
|
|
#:allow-other-keys)
|
|
(#{id?\ 9414}#
|
|
#{r\ 10143}#)
|
|
#f))
|
|
#{tmp\ 10139}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 10148}#
|
|
#{r\ 10149}#)
|
|
(#{rest\ 10030}#
|
|
#{r\ 10149}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 10063}#))))
|
|
#{tmp\ 10139}#)
|
|
((lambda (#{tmp\ 10150}#)
|
|
(if (if #{tmp\ 10150}#
|
|
(apply (lambda (#{a\ 10153}#
|
|
#{b\ 10154}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 10153}#)
|
|
#:rest))
|
|
#{tmp\ 10150}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10157}#
|
|
#{b\ 10158}#)
|
|
(#{rest\ 10030}#
|
|
#{b\ 10158}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 10063}#))))
|
|
#{tmp\ 10150}#)
|
|
((lambda (#{tmp\ 10159}#)
|
|
(if (if #{tmp\ 10159}#
|
|
(apply (lambda (#{r\ 10161}#)
|
|
(#{id?\ 9414}#
|
|
#{r\ 10161}#))
|
|
#{tmp\ 10159}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 10163}#)
|
|
(#{rest\ 10030}#
|
|
#{r\ 10163}#
|
|
#{req\ 10061}#
|
|
#{opt\ 10062}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 10063}#))))
|
|
#{tmp\ 10159}#)
|
|
((lambda (#{else\ 10165}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid keyword argument list"
|
|
#{orig-args\ 10021}#
|
|
#{args\ 10060}#))
|
|
#{tmp\ 10068}#)))
|
|
(list #{tmp\ 10068}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'(any .
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'((any any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10068}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 10068}# (quote ()))))
|
|
#{args\ 10060}#)))
|
|
(#{opt\ 10026}#
|
|
(lambda (#{args\ 10166}#
|
|
#{req\ 10167}#
|
|
#{ropt\ 10168}#)
|
|
((lambda (#{tmp\ 10172}#)
|
|
((lambda (#{tmp\ 10173}#)
|
|
(if #{tmp\ 10173}#
|
|
(apply (lambda ()
|
|
(#{check\ 10032}#
|
|
#{req\ 10167}#
|
|
(reverse #{ropt\ 10168}#)
|
|
#f
|
|
'()))
|
|
#{tmp\ 10173}#)
|
|
((lambda (#{tmp\ 10174}#)
|
|
(if (if #{tmp\ 10174}#
|
|
(apply (lambda (#{a\ 10177}#
|
|
#{b\ 10178}#)
|
|
(#{id?\ 9414}#
|
|
#{a\ 10177}#))
|
|
#{tmp\ 10174}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10181}#
|
|
#{b\ 10182}#)
|
|
(#{opt\ 10026}#
|
|
#{b\ 10182}#
|
|
#{req\ 10167}#
|
|
(cons (cons #{a\ 10181}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(a b)
|
|
#((top)
|
|
(top))
|
|
#("i10179"
|
|
"i10180"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
ropt)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i10169"
|
|
"i10170"
|
|
"i10171"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i10031"
|
|
"i10029"
|
|
"i10027"
|
|
"i10025"
|
|
"i10023"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i10022"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i9215"
|
|
"i9213")))
|
|
(hygiene
|
|
guile))))
|
|
#{ropt\ 10168}#)))
|
|
#{tmp\ 10174}#)
|
|
((lambda (#{tmp\ 10183}#)
|
|
(if (if #{tmp\ 10183}#
|
|
(apply (lambda (#{a\ 10187}#
|
|
#{init\ 10188}#
|
|
#{b\ 10189}#)
|
|
(#{id?\ 9414}#
|
|
#{a\ 10187}#))
|
|
#{tmp\ 10183}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10193}#
|
|
#{init\ 10194}#
|
|
#{b\ 10195}#)
|
|
(#{opt\ 10026}#
|
|
#{b\ 10195}#
|
|
#{req\ 10167}#
|
|
(cons (list #{a\ 10193}#
|
|
#{init\ 10194}#)
|
|
#{ropt\ 10168}#)))
|
|
#{tmp\ 10183}#)
|
|
((lambda (#{tmp\ 10196}#)
|
|
(if (if #{tmp\ 10196}#
|
|
(apply (lambda (#{a\ 10199}#
|
|
#{b\ 10200}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 10199}#)
|
|
#:key))
|
|
#{tmp\ 10196}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10203}#
|
|
#{b\ 10204}#)
|
|
(#{key\ 10028}#
|
|
#{b\ 10204}#
|
|
#{req\ 10167}#
|
|
(reverse
|
|
#{ropt\ 10168}#)
|
|
'()))
|
|
#{tmp\ 10196}#)
|
|
((lambda (#{tmp\ 10205}#)
|
|
(if (if #{tmp\ 10205}#
|
|
(apply (lambda (#{a\ 10208}#
|
|
#{b\ 10209}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 10208}#)
|
|
#:rest))
|
|
#{tmp\ 10205}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10212}#
|
|
#{b\ 10213}#)
|
|
(#{rest\ 10030}#
|
|
#{b\ 10213}#
|
|
#{req\ 10167}#
|
|
(reverse
|
|
#{ropt\ 10168}#)
|
|
'()))
|
|
#{tmp\ 10205}#)
|
|
((lambda (#{tmp\ 10214}#)
|
|
(if (if #{tmp\ 10214}#
|
|
(apply (lambda (#{r\ 10216}#)
|
|
(#{id?\ 9414}#
|
|
#{r\ 10216}#))
|
|
#{tmp\ 10214}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 10218}#)
|
|
(#{rest\ 10030}#
|
|
#{r\ 10218}#
|
|
#{req\ 10167}#
|
|
(reverse
|
|
#{ropt\ 10168}#)
|
|
'()))
|
|
#{tmp\ 10214}#)
|
|
((lambda (#{else\ 10220}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid optional argument list"
|
|
#{orig-args\ 10021}#
|
|
#{args\ 10166}#))
|
|
#{tmp\ 10172}#)))
|
|
(list #{tmp\ 10172}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 10172}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10172}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10172}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10172}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 10172}# (quote ()))))
|
|
#{args\ 10166}#)))
|
|
(#{req\ 10024}#
|
|
(lambda (#{args\ 10221}# #{rreq\ 10222}#)
|
|
((lambda (#{tmp\ 10225}#)
|
|
((lambda (#{tmp\ 10226}#)
|
|
(if #{tmp\ 10226}#
|
|
(apply (lambda ()
|
|
(#{check\ 10032}#
|
|
(reverse #{rreq\ 10222}#)
|
|
'()
|
|
#f
|
|
'()))
|
|
#{tmp\ 10226}#)
|
|
((lambda (#{tmp\ 10227}#)
|
|
(if (if #{tmp\ 10227}#
|
|
(apply (lambda (#{a\ 10230}#
|
|
#{b\ 10231}#)
|
|
(#{id?\ 9414}#
|
|
#{a\ 10230}#))
|
|
#{tmp\ 10227}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10234}#
|
|
#{b\ 10235}#)
|
|
(#{req\ 10024}#
|
|
#{b\ 10235}#
|
|
(cons #{a\ 10234}#
|
|
#{rreq\ 10222}#)))
|
|
#{tmp\ 10227}#)
|
|
((lambda (#{tmp\ 10236}#)
|
|
(if (if #{tmp\ 10236}#
|
|
(apply (lambda (#{a\ 10239}#
|
|
#{b\ 10240}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 10239}#)
|
|
#:optional))
|
|
#{tmp\ 10236}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10243}#
|
|
#{b\ 10244}#)
|
|
(#{opt\ 10026}#
|
|
#{b\ 10244}#
|
|
(reverse
|
|
#{rreq\ 10222}#)
|
|
'()))
|
|
#{tmp\ 10236}#)
|
|
((lambda (#{tmp\ 10245}#)
|
|
(if (if #{tmp\ 10245}#
|
|
(apply (lambda (#{a\ 10248}#
|
|
#{b\ 10249}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 10248}#)
|
|
#:key))
|
|
#{tmp\ 10245}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10252}#
|
|
#{b\ 10253}#)
|
|
(#{key\ 10028}#
|
|
#{b\ 10253}#
|
|
(reverse
|
|
#{rreq\ 10222}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 10245}#)
|
|
((lambda (#{tmp\ 10254}#)
|
|
(if (if #{tmp\ 10254}#
|
|
(apply (lambda (#{a\ 10257}#
|
|
#{b\ 10258}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 10257}#)
|
|
#:rest))
|
|
#{tmp\ 10254}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10261}#
|
|
#{b\ 10262}#)
|
|
(#{rest\ 10030}#
|
|
#{b\ 10262}#
|
|
(reverse
|
|
#{rreq\ 10222}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 10254}#)
|
|
((lambda (#{tmp\ 10263}#)
|
|
(if (if #{tmp\ 10263}#
|
|
(apply (lambda (#{r\ 10265}#)
|
|
(#{id?\ 9414}#
|
|
#{r\ 10265}#))
|
|
#{tmp\ 10263}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 10267}#)
|
|
(#{rest\ 10030}#
|
|
#{r\ 10267}#
|
|
(reverse
|
|
#{rreq\ 10222}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 10263}#)
|
|
((lambda (#{else\ 10269}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid argument list"
|
|
#{orig-args\ 10021}#
|
|
#{args\ 10221}#))
|
|
#{tmp\ 10225}#)))
|
|
(list #{tmp\ 10225}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 10225}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10225}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10225}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10225}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 10225}# (quote ()))))
|
|
#{args\ 10221}#))))
|
|
(#{req\ 10024}# #{orig-args\ 10021}# (quote ())))))
|
|
(#{chi-simple-lambda\ 9519}#
|
|
(lambda (#{e\ 10270}#
|
|
#{r\ 10271}#
|
|
#{w\ 10272}#
|
|
#{s\ 10273}#
|
|
#{mod\ 10274}#
|
|
#{req\ 10275}#
|
|
#{rest\ 10276}#
|
|
#{docstring\ 10277}#
|
|
#{body\ 10278}#)
|
|
(let ((#{ids\ 10290}#
|
|
(if #{rest\ 10276}#
|
|
(append #{req\ 10275}# (list #{rest\ 10276}#))
|
|
#{req\ 10275}#)))
|
|
(let ((#{vars\ 10292}#
|
|
(map #{gen-var\ 9527}# #{ids\ 10290}#)))
|
|
(let ((#{labels\ 10294}#
|
|
(#{gen-labels\ 9432}# #{ids\ 10290}#)))
|
|
(#{build-simple-lambda\ 9356}#
|
|
#{s\ 10273}#
|
|
(map syntax->datum #{req\ 10275}#)
|
|
(if #{rest\ 10276}#
|
|
(syntax->datum #{rest\ 10276}#)
|
|
#f)
|
|
#{vars\ 10292}#
|
|
#{docstring\ 10277}#
|
|
(#{chi-body\ 9507}#
|
|
#{body\ 10278}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10270}#
|
|
#{w\ 10272}#
|
|
#{s\ 10273}#
|
|
#{mod\ 10274}#)
|
|
(#{extend-var-env\ 9404}#
|
|
#{labels\ 10294}#
|
|
#{vars\ 10292}#
|
|
#{r\ 10271}#)
|
|
(#{make-binding-wrap\ 9461}#
|
|
#{ids\ 10290}#
|
|
#{labels\ 10294}#
|
|
#{w\ 10272}#)
|
|
#{mod\ 10274}#)))))))
|
|
(#{lambda-formals\ 9517}#
|
|
(lambda (#{orig-args\ 10297}#)
|
|
(letrec ((#{check\ 10302}#
|
|
(lambda (#{req\ 10303}# #{rest\ 10304}#)
|
|
(if (#{distinct-bound-ids?\ 9479}#
|
|
(if #{rest\ 10304}#
|
|
(cons #{rest\ 10304}# #{req\ 10303}#)
|
|
#{req\ 10303}#))
|
|
(values #{req\ 10303}# #f #{rest\ 10304}# #f)
|
|
(syntax-violation
|
|
'lambda
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 10297}#))))
|
|
(#{req\ 10300}#
|
|
(lambda (#{args\ 10310}# #{rreq\ 10311}#)
|
|
((lambda (#{tmp\ 10314}#)
|
|
((lambda (#{tmp\ 10315}#)
|
|
(if #{tmp\ 10315}#
|
|
(apply (lambda ()
|
|
(#{check\ 10302}#
|
|
(reverse #{rreq\ 10311}#)
|
|
#f))
|
|
#{tmp\ 10315}#)
|
|
((lambda (#{tmp\ 10316}#)
|
|
(if (if #{tmp\ 10316}#
|
|
(apply (lambda (#{a\ 10319}#
|
|
#{b\ 10320}#)
|
|
(#{id?\ 9414}#
|
|
#{a\ 10319}#))
|
|
#{tmp\ 10316}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 10323}#
|
|
#{b\ 10324}#)
|
|
(#{req\ 10300}#
|
|
#{b\ 10324}#
|
|
(cons #{a\ 10323}#
|
|
#{rreq\ 10311}#)))
|
|
#{tmp\ 10316}#)
|
|
((lambda (#{tmp\ 10325}#)
|
|
(if (if #{tmp\ 10325}#
|
|
(apply (lambda (#{r\ 10327}#)
|
|
(#{id?\ 9414}#
|
|
#{r\ 10327}#))
|
|
#{tmp\ 10325}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 10329}#)
|
|
(#{check\ 10302}#
|
|
(reverse
|
|
#{rreq\ 10311}#)
|
|
#{r\ 10329}#))
|
|
#{tmp\ 10325}#)
|
|
((lambda (#{else\ 10331}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"invalid argument list"
|
|
#{orig-args\ 10297}#
|
|
#{args\ 10310}#))
|
|
#{tmp\ 10314}#)))
|
|
(list #{tmp\ 10314}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 10314}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 10314}# (quote ()))))
|
|
#{args\ 10310}#))))
|
|
(#{req\ 10300}# #{orig-args\ 10297}# (quote ())))))
|
|
(#{ellipsis?\ 9515}#
|
|
(lambda (#{x\ 10332}#)
|
|
(if (#{nonsymbol-id?\ 9412}# #{x\ 10332}#)
|
|
(#{free-id=?\ 9473}#
|
|
#{x\ 10332}#
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i10333"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile)))
|
|
#f)))
|
|
(#{chi-void\ 9513}#
|
|
(lambda () (#{build-void\ 9336}# #f)))
|
|
(#{eval-local-transformer\ 9511}#
|
|
(lambda (#{expanded\ 10337}# #{mod\ 10338}#)
|
|
(let ((#{p\ 10342}#
|
|
(#{local-eval-hook\ 9327}#
|
|
#{expanded\ 10337}#
|
|
#{mod\ 10338}#)))
|
|
(if (procedure? #{p\ 10342}#)
|
|
(cons #{p\ 10342}#
|
|
(module-name (current-module)))
|
|
(syntax-violation
|
|
#f
|
|
"nonprocedure transformer"
|
|
#{p\ 10342}#)))))
|
|
(#{chi-local-syntax\ 9509}#
|
|
(lambda (#{rec?\ 10343}#
|
|
#{e\ 10344}#
|
|
#{r\ 10345}#
|
|
#{w\ 10346}#
|
|
#{s\ 10347}#
|
|
#{mod\ 10348}#
|
|
#{k\ 10349}#)
|
|
((lambda (#{tmp\ 10357}#)
|
|
((lambda (#{tmp\ 10358}#)
|
|
(if #{tmp\ 10358}#
|
|
(apply (lambda (#{_\ 10364}#
|
|
#{id\ 10365}#
|
|
#{val\ 10366}#
|
|
#{e1\ 10367}#
|
|
#{e2\ 10368}#)
|
|
(let ((#{ids\ 10370}# #{id\ 10365}#))
|
|
(if (not (#{valid-bound-ids?\ 9477}#
|
|
#{ids\ 10370}#))
|
|
(syntax-violation
|
|
#f
|
|
"duplicate bound keyword"
|
|
#{e\ 10344}#)
|
|
(let ((#{labels\ 10373}#
|
|
(#{gen-labels\ 9432}#
|
|
#{ids\ 10370}#)))
|
|
(let ((#{new-w\ 10375}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
#{ids\ 10370}#
|
|
#{labels\ 10373}#
|
|
#{w\ 10346}#)))
|
|
(#{k\ 10349}#
|
|
(cons #{e1\ 10367}# #{e2\ 10368}#)
|
|
(#{extend-env\ 9402}#
|
|
#{labels\ 10373}#
|
|
(let ((#{w\ 10379}#
|
|
(if #{rec?\ 10343}#
|
|
#{new-w\ 10375}#
|
|
#{w\ 10346}#))
|
|
(#{trans-r\ 10380}#
|
|
(#{macros-only-env\ 9406}#
|
|
#{r\ 10345}#)))
|
|
(map (lambda (#{x\ 10381}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 9511}#
|
|
(#{chi\ 9499}#
|
|
#{x\ 10381}#
|
|
#{trans-r\ 10380}#
|
|
#{w\ 10379}#
|
|
#{mod\ 10348}#)
|
|
#{mod\ 10348}#)))
|
|
#{val\ 10366}#))
|
|
#{r\ 10345}#)
|
|
#{new-w\ 10375}#
|
|
#{s\ 10347}#
|
|
#{mod\ 10348}#))))))
|
|
#{tmp\ 10358}#)
|
|
((lambda (#{_\ 10386}#)
|
|
(syntax-violation
|
|
#f
|
|
"bad local syntax definition"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10344}#
|
|
#{w\ 10346}#
|
|
#{s\ 10347}#
|
|
#{mod\ 10348}#)))
|
|
#{tmp\ 10357}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10357}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 10344}#)))
|
|
(#{chi-body\ 9507}#
|
|
(lambda (#{body\ 10387}#
|
|
#{outer-form\ 10388}#
|
|
#{r\ 10389}#
|
|
#{w\ 10390}#
|
|
#{mod\ 10391}#)
|
|
(let ((#{r\ 10399}#
|
|
(cons '("placeholder" placeholder)
|
|
#{r\ 10389}#)))
|
|
(let ((#{ribcage\ 10401}#
|
|
(#{make-ribcage\ 9435}#
|
|
'()
|
|
'()
|
|
'())))
|
|
(let ((#{w\ 10404}#
|
|
(#{make-wrap\ 9419}#
|
|
(#{wrap-marks\ 9421}# #{w\ 10390}#)
|
|
(cons #{ribcage\ 10401}#
|
|
(#{wrap-subst\ 9423}# #{w\ 10390}#)))))
|
|
(letrec ((#{parse\ 10413}#
|
|
(lambda (#{body\ 10414}#
|
|
#{ids\ 10415}#
|
|
#{labels\ 10416}#
|
|
#{var-ids\ 10417}#
|
|
#{vars\ 10418}#
|
|
#{vals\ 10419}#
|
|
#{bindings\ 10420}#)
|
|
(if (null? #{body\ 10414}#)
|
|
(syntax-violation
|
|
#f
|
|
"no expressions in body"
|
|
#{outer-form\ 10388}#)
|
|
(let ((#{e\ 10425}# (cdar #{body\ 10414}#))
|
|
(#{er\ 10426}#
|
|
(caar #{body\ 10414}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9495}#
|
|
#{e\ 10425}#
|
|
#{er\ 10426}#
|
|
'(())
|
|
(#{source-annotation\ 9393}#
|
|
#{er\ 10426}#)
|
|
#{ribcage\ 10401}#
|
|
#{mod\ 10391}#
|
|
#f))
|
|
(lambda (#{type\ 10428}#
|
|
#{value\ 10429}#
|
|
#{e\ 10430}#
|
|
#{w\ 10431}#
|
|
#{s\ 10432}#
|
|
#{mod\ 10433}#)
|
|
(if (memv #{type\ 10428}#
|
|
'(define-form))
|
|
(let ((#{id\ 10443}#
|
|
(#{wrap\ 9483}#
|
|
#{value\ 10429}#
|
|
#{w\ 10431}#
|
|
#{mod\ 10433}#))
|
|
(#{label\ 10444}#
|
|
(#{gen-label\ 9430}#)))
|
|
(let ((#{var\ 10446}#
|
|
(#{gen-var\ 9527}#
|
|
#{id\ 10443}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 9459}#
|
|
#{ribcage\ 10401}#
|
|
#{id\ 10443}#
|
|
#{label\ 10444}#)
|
|
(#{parse\ 10413}#
|
|
(cdr #{body\ 10414}#)
|
|
(cons #{id\ 10443}#
|
|
#{ids\ 10415}#)
|
|
(cons #{label\ 10444}#
|
|
#{labels\ 10416}#)
|
|
(cons #{id\ 10443}#
|
|
#{var-ids\ 10417}#)
|
|
(cons #{var\ 10446}#
|
|
#{vars\ 10418}#)
|
|
(cons (cons #{er\ 10426}#
|
|
(#{wrap\ 9483}#
|
|
#{e\ 10430}#
|
|
#{w\ 10431}#
|
|
#{mod\ 10433}#))
|
|
#{vals\ 10419}#)
|
|
(cons (cons 'lexical
|
|
#{var\ 10446}#)
|
|
#{bindings\ 10420}#)))))
|
|
(if (memv #{type\ 10428}#
|
|
'(define-syntax-form))
|
|
(let ((#{id\ 10451}#
|
|
(#{wrap\ 9483}#
|
|
#{value\ 10429}#
|
|
#{w\ 10431}#
|
|
#{mod\ 10433}#))
|
|
(#{label\ 10452}#
|
|
(#{gen-label\ 9430}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 9459}#
|
|
#{ribcage\ 10401}#
|
|
#{id\ 10451}#
|
|
#{label\ 10452}#)
|
|
(#{parse\ 10413}#
|
|
(cdr #{body\ 10414}#)
|
|
(cons #{id\ 10451}#
|
|
#{ids\ 10415}#)
|
|
(cons #{label\ 10452}#
|
|
#{labels\ 10416}#)
|
|
#{var-ids\ 10417}#
|
|
#{vars\ 10418}#
|
|
#{vals\ 10419}#
|
|
(cons (cons 'macro
|
|
(cons #{er\ 10426}#
|
|
(#{wrap\ 9483}#
|
|
#{e\ 10430}#
|
|
#{w\ 10431}#
|
|
#{mod\ 10433}#)))
|
|
#{bindings\ 10420}#))))
|
|
(if (memv #{type\ 10428}#
|
|
'(begin-form))
|
|
((lambda (#{tmp\ 10455}#)
|
|
((lambda (#{tmp\ 10456}#)
|
|
(if #{tmp\ 10456}#
|
|
(apply (lambda (#{_\ 10459}#
|
|
#{e1\ 10460}#)
|
|
(#{parse\ 10413}#
|
|
(letrec ((#{f\ 10463}#
|
|
(lambda (#{forms\ 10464}#)
|
|
(if (null? #{forms\ 10464}#)
|
|
(cdr #{body\ 10414}#)
|
|
(cons (cons #{er\ 10426}#
|
|
(#{wrap\ 9483}#
|
|
(car #{forms\ 10464}#)
|
|
#{w\ 10431}#
|
|
#{mod\ 10433}#))
|
|
(#{f\ 10463}#
|
|
(cdr #{forms\ 10464}#)))))))
|
|
(#{f\ 10463}#
|
|
#{e1\ 10460}#))
|
|
#{ids\ 10415}#
|
|
#{labels\ 10416}#
|
|
#{var-ids\ 10417}#
|
|
#{vars\ 10418}#
|
|
#{vals\ 10419}#
|
|
#{bindings\ 10420}#))
|
|
#{tmp\ 10456}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10455}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10455}#
|
|
'(any . each-any))))
|
|
#{e\ 10430}#)
|
|
(if (memv #{type\ 10428}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 9509}#
|
|
#{value\ 10429}#
|
|
#{e\ 10430}#
|
|
#{er\ 10426}#
|
|
#{w\ 10431}#
|
|
#{s\ 10432}#
|
|
#{mod\ 10433}#
|
|
(lambda (#{forms\ 10467}#
|
|
#{er\ 10468}#
|
|
#{w\ 10469}#
|
|
#{s\ 10470}#
|
|
#{mod\ 10471}#)
|
|
(#{parse\ 10413}#
|
|
(letrec ((#{f\ 10479}#
|
|
(lambda (#{forms\ 10480}#)
|
|
(if (null? #{forms\ 10480}#)
|
|
(cdr #{body\ 10414}#)
|
|
(cons (cons #{er\ 10468}#
|
|
(#{wrap\ 9483}#
|
|
(car #{forms\ 10480}#)
|
|
#{w\ 10469}#
|
|
#{mod\ 10471}#))
|
|
(#{f\ 10479}#
|
|
(cdr #{forms\ 10480}#)))))))
|
|
(#{f\ 10479}#
|
|
#{forms\ 10467}#))
|
|
#{ids\ 10415}#
|
|
#{labels\ 10416}#
|
|
#{var-ids\ 10417}#
|
|
#{vars\ 10418}#
|
|
#{vals\ 10419}#
|
|
#{bindings\ 10420}#)))
|
|
(if (null? #{ids\ 10415}#)
|
|
(#{build-sequence\ 9366}#
|
|
#f
|
|
(map (lambda (#{x\ 10483}#)
|
|
(#{chi\ 9499}#
|
|
(cdr #{x\ 10483}#)
|
|
(car #{x\ 10483}#)
|
|
'(())
|
|
#{mod\ 10433}#))
|
|
(cons (cons #{er\ 10426}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10430}#
|
|
#{w\ 10431}#
|
|
#{s\ 10432}#
|
|
#{mod\ 10433}#))
|
|
(cdr #{body\ 10414}#))))
|
|
(begin
|
|
(if (not (#{valid-bound-ids?\ 9477}#
|
|
#{ids\ 10415}#))
|
|
(syntax-violation
|
|
#f
|
|
"invalid or duplicate identifier in definition"
|
|
#{outer-form\ 10388}#))
|
|
(letrec ((#{loop\ 10490}#
|
|
(lambda (#{bs\ 10491}#
|
|
#{er-cache\ 10492}#
|
|
#{r-cache\ 10493}#)
|
|
(if (not (null? #{bs\ 10491}#))
|
|
(let ((#{b\ 10496}#
|
|
(car #{bs\ 10491}#)))
|
|
(if (eq? (car #{b\ 10496}#)
|
|
'macro)
|
|
(let ((#{er\ 10499}#
|
|
(cadr #{b\ 10496}#)))
|
|
(let ((#{r-cache\ 10501}#
|
|
(if (eq? #{er\ 10499}#
|
|
#{er-cache\ 10492}#)
|
|
#{r-cache\ 10493}#
|
|
(#{macros-only-env\ 9406}#
|
|
#{er\ 10499}#))))
|
|
(begin
|
|
(set-cdr!
|
|
#{b\ 10496}#
|
|
(#{eval-local-transformer\ 9511}#
|
|
(#{chi\ 9499}#
|
|
(cddr #{b\ 10496}#)
|
|
#{r-cache\ 10501}#
|
|
'(())
|
|
#{mod\ 10433}#)
|
|
#{mod\ 10433}#))
|
|
(#{loop\ 10490}#
|
|
(cdr #{bs\ 10491}#)
|
|
#{er\ 10499}#
|
|
#{r-cache\ 10501}#))))
|
|
(#{loop\ 10490}#
|
|
(cdr #{bs\ 10491}#)
|
|
#{er-cache\ 10492}#
|
|
#{r-cache\ 10493}#)))))))
|
|
(#{loop\ 10490}#
|
|
#{bindings\ 10420}#
|
|
#f
|
|
#f))
|
|
(set-cdr!
|
|
#{r\ 10399}#
|
|
(#{extend-env\ 9402}#
|
|
#{labels\ 10416}#
|
|
#{bindings\ 10420}#
|
|
(cdr #{r\ 10399}#)))
|
|
(#{build-letrec\ 9372}#
|
|
#f
|
|
(map syntax->datum
|
|
#{var-ids\ 10417}#)
|
|
#{vars\ 10418}#
|
|
(map (lambda (#{x\ 10504}#)
|
|
(#{chi\ 9499}#
|
|
(cdr #{x\ 10504}#)
|
|
(car #{x\ 10504}#)
|
|
'(())
|
|
#{mod\ 10433}#))
|
|
#{vals\ 10419}#)
|
|
(#{build-sequence\ 9366}#
|
|
#f
|
|
(map (lambda (#{x\ 10508}#)
|
|
(#{chi\ 9499}#
|
|
(cdr #{x\ 10508}#)
|
|
(car #{x\ 10508}#)
|
|
'(())
|
|
#{mod\ 10433}#))
|
|
(cons (cons #{er\ 10426}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10430}#
|
|
#{w\ 10431}#
|
|
#{s\ 10432}#
|
|
#{mod\ 10433}#))
|
|
(cdr #{body\ 10414}#))))))))))))))))))
|
|
(#{parse\ 10413}#
|
|
(map (lambda (#{x\ 10421}#)
|
|
(cons #{r\ 10399}#
|
|
(#{wrap\ 9483}#
|
|
#{x\ 10421}#
|
|
#{w\ 10404}#
|
|
#{mod\ 10391}#)))
|
|
#{body\ 10387}#)
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'())))))))
|
|
(#{chi-macro\ 9505}#
|
|
(lambda (#{p\ 10511}#
|
|
#{e\ 10512}#
|
|
#{r\ 10513}#
|
|
#{w\ 10514}#
|
|
#{rib\ 10515}#
|
|
#{mod\ 10516}#)
|
|
(letrec ((#{rebuild-macro-output\ 10524}#
|
|
(lambda (#{x\ 10525}# #{m\ 10526}#)
|
|
(if (pair? #{x\ 10525}#)
|
|
(cons (#{rebuild-macro-output\ 10524}#
|
|
(car #{x\ 10525}#)
|
|
#{m\ 10526}#)
|
|
(#{rebuild-macro-output\ 10524}#
|
|
(cdr #{x\ 10525}#)
|
|
#{m\ 10526}#))
|
|
(if (#{syntax-object?\ 9378}# #{x\ 10525}#)
|
|
(let ((#{w\ 10534}#
|
|
(#{syntax-object-wrap\ 9382}#
|
|
#{x\ 10525}#)))
|
|
(let ((#{ms\ 10537}#
|
|
(#{wrap-marks\ 9421}# #{w\ 10534}#))
|
|
(#{s\ 10538}#
|
|
(#{wrap-subst\ 9423}# #{w\ 10534}#)))
|
|
(if (if (pair? #{ms\ 10537}#)
|
|
(eq? (car #{ms\ 10537}#) #f)
|
|
#f)
|
|
(#{make-syntax-object\ 9376}#
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{x\ 10525}#)
|
|
(#{make-wrap\ 9419}#
|
|
(cdr #{ms\ 10537}#)
|
|
(if #{rib\ 10515}#
|
|
(cons #{rib\ 10515}#
|
|
(cdr #{s\ 10538}#))
|
|
(cdr #{s\ 10538}#)))
|
|
(#{syntax-object-module\ 9384}#
|
|
#{x\ 10525}#))
|
|
(#{make-syntax-object\ 9376}#
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{x\ 10525}#)
|
|
(#{make-wrap\ 9419}#
|
|
(cons #{m\ 10526}# #{ms\ 10537}#)
|
|
(if #{rib\ 10515}#
|
|
(cons #{rib\ 10515}#
|
|
(cons 'shift
|
|
#{s\ 10538}#))
|
|
(cons (quote shift) #{s\ 10538}#)))
|
|
(cons 'hygiene
|
|
(cdr #{p\ 10511}#))))))
|
|
(if (vector? #{x\ 10525}#)
|
|
(let ((#{n\ 10546}#
|
|
(vector-length #{x\ 10525}#)))
|
|
(let ((#{v\ 10548}#
|
|
(make-vector #{n\ 10546}#)))
|
|
(letrec ((#{loop\ 10551}#
|
|
(lambda (#{i\ 10552}#)
|
|
(if (#{fx=\ 9321}#
|
|
#{i\ 10552}#
|
|
#{n\ 10546}#)
|
|
(begin
|
|
(if #f #f)
|
|
#{v\ 10548}#)
|
|
(begin
|
|
(vector-set!
|
|
#{v\ 10548}#
|
|
#{i\ 10552}#
|
|
(#{rebuild-macro-output\ 10524}#
|
|
(vector-ref
|
|
#{x\ 10525}#
|
|
#{i\ 10552}#)
|
|
#{m\ 10526}#))
|
|
(#{loop\ 10551}#
|
|
(#{fx+\ 9317}#
|
|
#{i\ 10552}#
|
|
1)))))))
|
|
(#{loop\ 10551}# 0))))
|
|
(if (symbol? #{x\ 10525}#)
|
|
(syntax-violation
|
|
#f
|
|
"encountered raw symbol in macro output"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10512}#
|
|
#{w\ 10514}#
|
|
(#{wrap-subst\ 9423}# #{w\ 10514}#)
|
|
#{mod\ 10516}#)
|
|
#{x\ 10525}#)
|
|
#{x\ 10525}#)))))))
|
|
(#{rebuild-macro-output\ 10524}#
|
|
((car #{p\ 10511}#)
|
|
(#{wrap\ 9483}#
|
|
#{e\ 10512}#
|
|
(#{anti-mark\ 9455}# #{w\ 10514}#)
|
|
#{mod\ 10516}#))
|
|
(gensym "m")))))
|
|
(#{chi-application\ 9503}#
|
|
(lambda (#{x\ 10559}#
|
|
#{e\ 10560}#
|
|
#{r\ 10561}#
|
|
#{w\ 10562}#
|
|
#{s\ 10563}#
|
|
#{mod\ 10564}#)
|
|
((lambda (#{tmp\ 10571}#)
|
|
((lambda (#{tmp\ 10572}#)
|
|
(if #{tmp\ 10572}#
|
|
(apply (lambda (#{e0\ 10575}# #{e1\ 10576}#)
|
|
(#{build-application\ 9338}#
|
|
#{s\ 10563}#
|
|
#{x\ 10559}#
|
|
(map (lambda (#{e\ 10577}#)
|
|
(#{chi\ 9499}#
|
|
#{e\ 10577}#
|
|
#{r\ 10561}#
|
|
#{w\ 10562}#
|
|
#{mod\ 10564}#))
|
|
#{e1\ 10576}#)))
|
|
#{tmp\ 10572}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10571}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10571}#
|
|
'(any . each-any))))
|
|
#{e\ 10560}#)))
|
|
(#{chi-expr\ 9501}#
|
|
(lambda (#{type\ 10580}#
|
|
#{value\ 10581}#
|
|
#{e\ 10582}#
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
(if (memv #{type\ 10580}# (quote (lexical)))
|
|
(#{build-lexical-reference\ 9342}#
|
|
'value
|
|
#{s\ 10585}#
|
|
#{e\ 10582}#
|
|
#{value\ 10581}#)
|
|
(if (memv #{type\ 10580}# (quote (core core-form)))
|
|
(#{value\ 10581}#
|
|
#{e\ 10582}#
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
(if (memv #{type\ 10580}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{value\ 10581}# #{e\ 10582}#))
|
|
(lambda (#{id\ 10597}# #{mod\ 10598}#)
|
|
(#{build-global-reference\ 9348}#
|
|
#{s\ 10585}#
|
|
#{id\ 10597}#
|
|
#{mod\ 10598}#)))
|
|
(if (memv #{type\ 10580}# (quote (lexical-call)))
|
|
(#{chi-application\ 9503}#
|
|
(#{build-lexical-reference\ 9342}#
|
|
'fun
|
|
(#{source-annotation\ 9393}# (car #{e\ 10582}#))
|
|
(car #{e\ 10582}#)
|
|
#{value\ 10581}#)
|
|
#{e\ 10582}#
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
(if (memv #{type\ 10580}# (quote (global-call)))
|
|
(#{chi-application\ 9503}#
|
|
(#{build-global-reference\ 9348}#
|
|
(#{source-annotation\ 9393}# (car #{e\ 10582}#))
|
|
(if (#{syntax-object?\ 9378}# #{value\ 10581}#)
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{value\ 10581}#)
|
|
#{value\ 10581}#)
|
|
(if (#{syntax-object?\ 9378}# #{value\ 10581}#)
|
|
(#{syntax-object-module\ 9384}#
|
|
#{value\ 10581}#)
|
|
#{mod\ 10586}#))
|
|
#{e\ 10582}#
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
(if (memv #{type\ 10580}# (quote (constant)))
|
|
(#{build-data\ 9364}#
|
|
#{s\ 10585}#
|
|
(#{strip\ 9525}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10582}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
'(())))
|
|
(if (memv #{type\ 10580}# (quote (global)))
|
|
(#{build-global-reference\ 9348}#
|
|
#{s\ 10585}#
|
|
#{value\ 10581}#
|
|
#{mod\ 10586}#)
|
|
(if (memv #{type\ 10580}# (quote (call)))
|
|
(#{chi-application\ 9503}#
|
|
(#{chi\ 9499}#
|
|
(car #{e\ 10582}#)
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{mod\ 10586}#)
|
|
#{e\ 10582}#
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
(if (memv #{type\ 10580}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 10608}#)
|
|
((lambda (#{tmp\ 10609}#)
|
|
(if #{tmp\ 10609}#
|
|
(apply (lambda (#{_\ 10613}#
|
|
#{e1\ 10614}#
|
|
#{e2\ 10615}#)
|
|
(#{chi-sequence\ 9487}#
|
|
(cons #{e1\ 10614}#
|
|
#{e2\ 10615}#)
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#))
|
|
#{tmp\ 10609}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10608}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10608}#
|
|
'(any any . each-any))))
|
|
#{e\ 10582}#)
|
|
(if (memv #{type\ 10580}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 9509}#
|
|
#{value\ 10581}#
|
|
#{e\ 10582}#
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#
|
|
#{chi-sequence\ 9487}#)
|
|
(if (memv #{type\ 10580}#
|
|
'(eval-when-form))
|
|
((lambda (#{tmp\ 10619}#)
|
|
((lambda (#{tmp\ 10620}#)
|
|
(if #{tmp\ 10620}#
|
|
(apply (lambda (#{_\ 10625}#
|
|
#{x\ 10626}#
|
|
#{e1\ 10627}#
|
|
#{e2\ 10628}#)
|
|
(let ((#{when-list\ 10630}#
|
|
(#{chi-when-list\ 9493}#
|
|
#{e\ 10582}#
|
|
#{x\ 10626}#
|
|
#{w\ 10584}#)))
|
|
(if (memq 'eval
|
|
#{when-list\ 10630}#)
|
|
(#{chi-sequence\ 9487}#
|
|
(cons #{e1\ 10627}#
|
|
#{e2\ 10628}#)
|
|
#{r\ 10583}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#)
|
|
(#{chi-void\ 9513}#))))
|
|
#{tmp\ 10620}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10619}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10619}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 10582}#)
|
|
(if (memv #{type\ 10580}#
|
|
'(define-form
|
|
define-syntax-form))
|
|
(syntax-violation
|
|
#f
|
|
"definition in expression context"
|
|
#{e\ 10582}#
|
|
(#{wrap\ 9483}#
|
|
#{value\ 10581}#
|
|
#{w\ 10584}#
|
|
#{mod\ 10586}#))
|
|
(if (memv #{type\ 10580}#
|
|
'(syntax))
|
|
(syntax-violation
|
|
#f
|
|
"reference to pattern variable outside syntax form"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10582}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#))
|
|
(if (memv #{type\ 10580}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"reference to identifier outside its scope"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10582}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#))
|
|
(syntax-violation
|
|
#f
|
|
"unexpected syntax"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 10582}#
|
|
#{w\ 10584}#
|
|
#{s\ 10585}#
|
|
#{mod\ 10586}#))))))))))))))))))
|
|
(#{chi\ 9499}#
|
|
(lambda (#{e\ 10637}#
|
|
#{r\ 10638}#
|
|
#{w\ 10639}#
|
|
#{mod\ 10640}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9495}#
|
|
#{e\ 10637}#
|
|
#{r\ 10638}#
|
|
#{w\ 10639}#
|
|
(#{source-annotation\ 9393}# #{e\ 10637}#)
|
|
#f
|
|
#{mod\ 10640}#
|
|
#f))
|
|
(lambda (#{type\ 10645}#
|
|
#{value\ 10646}#
|
|
#{e\ 10647}#
|
|
#{w\ 10648}#
|
|
#{s\ 10649}#
|
|
#{mod\ 10650}#)
|
|
(#{chi-expr\ 9501}#
|
|
#{type\ 10645}#
|
|
#{value\ 10646}#
|
|
#{e\ 10647}#
|
|
#{r\ 10638}#
|
|
#{w\ 10648}#
|
|
#{s\ 10649}#
|
|
#{mod\ 10650}#)))))
|
|
(#{chi-top\ 9497}#
|
|
(lambda (#{e\ 10657}#
|
|
#{r\ 10658}#
|
|
#{w\ 10659}#
|
|
#{m\ 10660}#
|
|
#{esew\ 10661}#
|
|
#{mod\ 10662}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9495}#
|
|
#{e\ 10657}#
|
|
#{r\ 10658}#
|
|
#{w\ 10659}#
|
|
(#{source-annotation\ 9393}# #{e\ 10657}#)
|
|
#f
|
|
#{mod\ 10662}#
|
|
#f))
|
|
(lambda (#{type\ 10683}#
|
|
#{value\ 10684}#
|
|
#{e\ 10685}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
#{mod\ 10688}#)
|
|
(if (memv #{type\ 10683}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 10696}#)
|
|
((lambda (#{tmp\ 10697}#)
|
|
(if #{tmp\ 10697}#
|
|
(apply (lambda (#{_\ 10699}#)
|
|
(#{chi-void\ 9513}#))
|
|
#{tmp\ 10697}#)
|
|
((lambda (#{tmp\ 10700}#)
|
|
(if #{tmp\ 10700}#
|
|
(apply (lambda (#{_\ 10704}#
|
|
#{e1\ 10705}#
|
|
#{e2\ 10706}#)
|
|
(#{chi-top-sequence\ 9489}#
|
|
(cons #{e1\ 10705}# #{e2\ 10706}#)
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
#{m\ 10660}#
|
|
#{esew\ 10661}#
|
|
#{mod\ 10688}#))
|
|
#{tmp\ 10700}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10696}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10696}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch #{tmp\ 10696}# (quote (any)))))
|
|
#{e\ 10685}#)
|
|
(if (memv #{type\ 10683}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 9509}#
|
|
#{value\ 10684}#
|
|
#{e\ 10685}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
#{mod\ 10688}#
|
|
(lambda (#{body\ 10709}#
|
|
#{r\ 10710}#
|
|
#{w\ 10711}#
|
|
#{s\ 10712}#
|
|
#{mod\ 10713}#)
|
|
(#{chi-top-sequence\ 9489}#
|
|
#{body\ 10709}#
|
|
#{r\ 10710}#
|
|
#{w\ 10711}#
|
|
#{s\ 10712}#
|
|
#{m\ 10660}#
|
|
#{esew\ 10661}#
|
|
#{mod\ 10713}#)))
|
|
(if (memv #{type\ 10683}# (quote (eval-when-form)))
|
|
((lambda (#{tmp\ 10720}#)
|
|
((lambda (#{tmp\ 10721}#)
|
|
(if #{tmp\ 10721}#
|
|
(apply (lambda (#{_\ 10726}#
|
|
#{x\ 10727}#
|
|
#{e1\ 10728}#
|
|
#{e2\ 10729}#)
|
|
(let ((#{when-list\ 10732}#
|
|
(#{chi-when-list\ 9493}#
|
|
#{e\ 10685}#
|
|
#{x\ 10727}#
|
|
#{w\ 10686}#))
|
|
(#{body\ 10733}#
|
|
(cons #{e1\ 10728}#
|
|
#{e2\ 10729}#)))
|
|
(if (eq? #{m\ 10660}# (quote e))
|
|
(if (memq 'eval
|
|
#{when-list\ 10732}#)
|
|
(#{chi-top-sequence\ 9489}#
|
|
#{body\ 10733}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 10688}#)
|
|
(#{chi-void\ 9513}#))
|
|
(if (memq 'load
|
|
#{when-list\ 10732}#)
|
|
(if (let ((#{t\ 10742}#
|
|
(memq 'compile
|
|
#{when-list\ 10732}#)))
|
|
(if #{t\ 10742}#
|
|
#{t\ 10742}#
|
|
(if (eq? #{m\ 10660}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 10732}#)
|
|
#f)))
|
|
(#{chi-top-sequence\ 9489}#
|
|
#{body\ 10733}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
'c&e
|
|
'(compile load)
|
|
#{mod\ 10688}#)
|
|
(if (memq #{m\ 10660}#
|
|
'(c c&e))
|
|
(#{chi-top-sequence\ 9489}#
|
|
#{body\ 10733}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
'c
|
|
'(load)
|
|
#{mod\ 10688}#)
|
|
(#{chi-void\ 9513}#)))
|
|
(if (let ((#{t\ 10750}#
|
|
(memq 'compile
|
|
#{when-list\ 10732}#)))
|
|
(if #{t\ 10750}#
|
|
#{t\ 10750}#
|
|
(if (eq? #{m\ 10660}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 10732}#)
|
|
#f)))
|
|
(begin
|
|
(#{top-level-eval-hook\ 9325}#
|
|
(#{chi-top-sequence\ 9489}#
|
|
#{body\ 10733}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 10688}#)
|
|
#{mod\ 10688}#)
|
|
(#{chi-void\ 9513}#))
|
|
(#{chi-void\ 9513}#))))))
|
|
#{tmp\ 10721}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10720}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10720}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 10685}#)
|
|
(if (memv #{type\ 10683}#
|
|
'(define-syntax-form))
|
|
(let ((#{n\ 10758}#
|
|
(#{id-var-name\ 9471}#
|
|
#{value\ 10684}#
|
|
#{w\ 10686}#))
|
|
(#{r\ 10759}#
|
|
(#{macros-only-env\ 9406}# #{r\ 10658}#)))
|
|
(if (memv #{m\ 10660}# (quote (c)))
|
|
(if (memq (quote compile) #{esew\ 10661}#)
|
|
(let ((#{e\ 10762}#
|
|
(#{chi-install-global\ 9491}#
|
|
#{n\ 10758}#
|
|
(#{chi\ 9499}#
|
|
#{e\ 10685}#
|
|
#{r\ 10759}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 9325}#
|
|
#{e\ 10762}#
|
|
#{mod\ 10688}#)
|
|
(if (memq (quote load) #{esew\ 10661}#)
|
|
#{e\ 10762}#
|
|
(#{chi-void\ 9513}#))))
|
|
(if (memq (quote load) #{esew\ 10661}#)
|
|
(#{chi-install-global\ 9491}#
|
|
#{n\ 10758}#
|
|
(#{chi\ 9499}#
|
|
#{e\ 10685}#
|
|
#{r\ 10759}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))
|
|
(#{chi-void\ 9513}#)))
|
|
(if (memv #{m\ 10660}# (quote (c&e)))
|
|
(let ((#{e\ 10765}#
|
|
(#{chi-install-global\ 9491}#
|
|
#{n\ 10758}#
|
|
(#{chi\ 9499}#
|
|
#{e\ 10685}#
|
|
#{r\ 10759}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 9325}#
|
|
#{e\ 10765}#
|
|
#{mod\ 10688}#)
|
|
#{e\ 10765}#))
|
|
(begin
|
|
(if (memq (quote eval) #{esew\ 10661}#)
|
|
(#{top-level-eval-hook\ 9325}#
|
|
(#{chi-install-global\ 9491}#
|
|
#{n\ 10758}#
|
|
(#{chi\ 9499}#
|
|
#{e\ 10685}#
|
|
#{r\ 10759}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))
|
|
#{mod\ 10688}#))
|
|
(#{chi-void\ 9513}#)))))
|
|
(if (memv #{type\ 10683}# (quote (define-form)))
|
|
(let ((#{n\ 10770}#
|
|
(#{id-var-name\ 9471}#
|
|
#{value\ 10684}#
|
|
#{w\ 10686}#)))
|
|
(let ((#{type\ 10772}#
|
|
(#{binding-type\ 9397}#
|
|
(#{lookup\ 9408}#
|
|
#{n\ 10770}#
|
|
#{r\ 10658}#
|
|
#{mod\ 10688}#))))
|
|
(if (memv #{type\ 10772}#
|
|
'(global core macro module-ref))
|
|
(begin
|
|
(if (if (not (module-local-variable
|
|
(current-module)
|
|
#{n\ 10770}#))
|
|
(current-module)
|
|
#f)
|
|
(let ((#{old\ 10777}#
|
|
(module-variable
|
|
(current-module)
|
|
#{n\ 10770}#)))
|
|
(module-define!
|
|
(current-module)
|
|
#{n\ 10770}#
|
|
(if (variable? #{old\ 10777}#)
|
|
(variable-ref #{old\ 10777}#)
|
|
#f))))
|
|
(let ((#{x\ 10780}#
|
|
(#{build-global-definition\ 9354}#
|
|
#{s\ 10687}#
|
|
#{n\ 10770}#
|
|
(#{chi\ 9499}#
|
|
#{e\ 10685}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))))
|
|
(begin
|
|
(if (eq? #{m\ 10660}# (quote c&e))
|
|
(#{top-level-eval-hook\ 9325}#
|
|
#{x\ 10780}#
|
|
#{mod\ 10688}#))
|
|
#{x\ 10780}#)))
|
|
(if (memv #{type\ 10772}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"identifier out of context"
|
|
#{e\ 10685}#
|
|
(#{wrap\ 9483}#
|
|
#{value\ 10684}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))
|
|
(syntax-violation
|
|
#f
|
|
"cannot define keyword at top level"
|
|
#{e\ 10685}#
|
|
(#{wrap\ 9483}#
|
|
#{value\ 10684}#
|
|
#{w\ 10686}#
|
|
#{mod\ 10688}#))))))
|
|
(let ((#{x\ 10786}#
|
|
(#{chi-expr\ 9501}#
|
|
#{type\ 10683}#
|
|
#{value\ 10684}#
|
|
#{e\ 10685}#
|
|
#{r\ 10658}#
|
|
#{w\ 10686}#
|
|
#{s\ 10687}#
|
|
#{mod\ 10688}#)))
|
|
(begin
|
|
(if (eq? #{m\ 10660}# (quote c&e))
|
|
(#{top-level-eval-hook\ 9325}#
|
|
#{x\ 10786}#
|
|
#{mod\ 10688}#))
|
|
#{x\ 10786}#)))))))))))
|
|
(#{syntax-type\ 9495}#
|
|
(lambda (#{e\ 10787}#
|
|
#{r\ 10788}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10792}#
|
|
#{for-car?\ 10793}#)
|
|
(if (symbol? #{e\ 10787}#)
|
|
(let ((#{n\ 10805}#
|
|
(#{id-var-name\ 9471}# #{e\ 10787}# #{w\ 10789}#)))
|
|
(let ((#{b\ 10807}#
|
|
(#{lookup\ 9408}#
|
|
#{n\ 10805}#
|
|
#{r\ 10788}#
|
|
#{mod\ 10792}#)))
|
|
(let ((#{type\ 10809}#
|
|
(#{binding-type\ 9397}# #{b\ 10807}#)))
|
|
(if (memv #{type\ 10809}# (quote (lexical)))
|
|
(values
|
|
#{type\ 10809}#
|
|
(#{binding-value\ 9399}# #{b\ 10807}#)
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{type\ 10809}# (quote (global)))
|
|
(values
|
|
#{type\ 10809}#
|
|
#{n\ 10805}#
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{type\ 10809}# (quote (macro)))
|
|
(if #{for-car?\ 10793}#
|
|
(values
|
|
#{type\ 10809}#
|
|
(#{binding-value\ 9399}# #{b\ 10807}#)
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(#{syntax-type\ 9495}#
|
|
(#{chi-macro\ 9505}#
|
|
(#{binding-value\ 9399}# #{b\ 10807}#)
|
|
#{e\ 10787}#
|
|
#{r\ 10788}#
|
|
#{w\ 10789}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10792}#)
|
|
#{r\ 10788}#
|
|
'(())
|
|
#{s\ 10790}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10792}#
|
|
#f))
|
|
(values
|
|
#{type\ 10809}#
|
|
(#{binding-value\ 9399}# #{b\ 10807}#)
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)))))))
|
|
(if (pair? #{e\ 10787}#)
|
|
(let ((#{first\ 10818}# (car #{e\ 10787}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9495}#
|
|
#{first\ 10818}#
|
|
#{r\ 10788}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10792}#
|
|
#t))
|
|
(lambda (#{ftype\ 10819}#
|
|
#{fval\ 10820}#
|
|
#{fe\ 10821}#
|
|
#{fw\ 10822}#
|
|
#{fs\ 10823}#
|
|
#{fmod\ 10824}#)
|
|
(if (memv #{ftype\ 10819}# (quote (lexical)))
|
|
(values
|
|
'lexical-call
|
|
#{fval\ 10820}#
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{ftype\ 10819}# (quote (global)))
|
|
(values
|
|
'global-call
|
|
(#{make-syntax-object\ 9376}#
|
|
#{fval\ 10820}#
|
|
#{w\ 10789}#
|
|
#{fmod\ 10824}#)
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{ftype\ 10819}# (quote (macro)))
|
|
(#{syntax-type\ 9495}#
|
|
(#{chi-macro\ 9505}#
|
|
#{fval\ 10820}#
|
|
#{e\ 10787}#
|
|
#{r\ 10788}#
|
|
#{w\ 10789}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10792}#)
|
|
#{r\ 10788}#
|
|
'(())
|
|
#{s\ 10790}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10792}#
|
|
#{for-car?\ 10793}#)
|
|
(if (memv #{ftype\ 10819}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{fval\ 10820}# #{e\ 10787}#))
|
|
(lambda (#{sym\ 10836}# #{mod\ 10837}#)
|
|
(#{syntax-type\ 9495}#
|
|
#{sym\ 10836}#
|
|
#{r\ 10788}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{rib\ 10791}#
|
|
#{mod\ 10837}#
|
|
#{for-car?\ 10793}#)))
|
|
(if (memv #{ftype\ 10819}# (quote (core)))
|
|
(values
|
|
'core-form
|
|
#{fval\ 10820}#
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{ftype\ 10819}#
|
|
'(local-syntax))
|
|
(values
|
|
'local-syntax-form
|
|
#{fval\ 10820}#
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{ftype\ 10819}#
|
|
'(begin))
|
|
(values
|
|
'begin-form
|
|
#f
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{ftype\ 10819}#
|
|
'(eval-when))
|
|
(values
|
|
'eval-when-form
|
|
#f
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(if (memv #{ftype\ 10819}#
|
|
'(define))
|
|
((lambda (#{tmp\ 10845}#)
|
|
((lambda (#{tmp\ 10846}#)
|
|
(if (if #{tmp\ 10846}#
|
|
(apply (lambda (#{_\ 10850}#
|
|
#{name\ 10851}#
|
|
#{val\ 10852}#)
|
|
(#{id?\ 9414}#
|
|
#{name\ 10851}#))
|
|
#{tmp\ 10846}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10856}#
|
|
#{name\ 10857}#
|
|
#{val\ 10858}#)
|
|
(values
|
|
'define-form
|
|
#{name\ 10857}#
|
|
#{val\ 10858}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#))
|
|
#{tmp\ 10846}#)
|
|
((lambda (#{tmp\ 10859}#)
|
|
(if (if #{tmp\ 10859}#
|
|
(apply (lambda (#{_\ 10865}#
|
|
#{name\ 10866}#
|
|
#{args\ 10867}#
|
|
#{e1\ 10868}#
|
|
#{e2\ 10869}#)
|
|
(if (#{id?\ 9414}#
|
|
#{name\ 10866}#)
|
|
(#{valid-bound-ids?\ 9477}#
|
|
(#{lambda-var-list\ 9529}#
|
|
#{args\ 10867}#))
|
|
#f))
|
|
#{tmp\ 10859}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10877}#
|
|
#{name\ 10878}#
|
|
#{args\ 10879}#
|
|
#{e1\ 10880}#
|
|
#{e2\ 10881}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 9483}#
|
|
#{name\ 10878}#
|
|
#{w\ 10789}#
|
|
#{mod\ 10792}#)
|
|
(#{decorate-source\ 9334}#
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name
|
|
args
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10872"
|
|
"i10873"
|
|
"i10874"
|
|
"i10875"
|
|
"i10876"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10825"
|
|
"i10826"
|
|
"i10827"
|
|
"i10828"
|
|
"i10829"
|
|
"i10830"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10817"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10794"
|
|
"i10795"
|
|
"i10796"
|
|
"i10797"
|
|
"i10798"
|
|
"i10799"
|
|
"i10800"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i9215"
|
|
"i9213")))
|
|
(hygiene
|
|
guile))
|
|
(#{wrap\ 9483}#
|
|
(cons #{args\ 10879}#
|
|
(cons #{e1\ 10880}#
|
|
#{e2\ 10881}#))
|
|
#{w\ 10789}#
|
|
#{mod\ 10792}#))
|
|
#{s\ 10790}#)
|
|
'(())
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#))
|
|
#{tmp\ 10859}#)
|
|
((lambda (#{tmp\ 10884}#)
|
|
(if (if #{tmp\ 10884}#
|
|
(apply (lambda (#{_\ 10887}#
|
|
#{name\ 10888}#)
|
|
(#{id?\ 9414}#
|
|
#{name\ 10888}#))
|
|
#{tmp\ 10884}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10891}#
|
|
#{name\ 10892}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 9483}#
|
|
#{name\ 10892}#
|
|
#{w\ 10789}#
|
|
#{mod\ 10792}#)
|
|
'(#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i10889"
|
|
"i10890"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10825"
|
|
"i10826"
|
|
"i10827"
|
|
"i10828"
|
|
"i10829"
|
|
"i10830"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10817"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10794"
|
|
"i10795"
|
|
"i10796"
|
|
"i10797"
|
|
"i10798"
|
|
"i10799"
|
|
"i10800"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i9215"
|
|
"i9213")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i10889"
|
|
"i10890"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10825"
|
|
"i10826"
|
|
"i10827"
|
|
"i10828"
|
|
"i10829"
|
|
"i10830"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10817"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10794"
|
|
"i10795"
|
|
"i10796"
|
|
"i10797"
|
|
"i10798"
|
|
"i10799"
|
|
"i10800"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i9215"
|
|
"i9213")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i10889"
|
|
"i10890"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10825"
|
|
"i10826"
|
|
"i10827"
|
|
"i10828"
|
|
"i10829"
|
|
"i10830"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i10817"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i10794"
|
|
"i10795"
|
|
"i10796"
|
|
"i10797"
|
|
"i10798"
|
|
"i10799"
|
|
"i10800"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i9215"
|
|
"i9213")))
|
|
(hygiene
|
|
guile)))
|
|
'(())
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#))
|
|
#{tmp\ 10884}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10845}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10845}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10845}#
|
|
'(any (any . any)
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 10845}#
|
|
'(any any any))))
|
|
#{e\ 10787}#)
|
|
(if (memv #{ftype\ 10819}#
|
|
'(define-syntax))
|
|
((lambda (#{tmp\ 10895}#)
|
|
((lambda (#{tmp\ 10896}#)
|
|
(if (if #{tmp\ 10896}#
|
|
(apply (lambda (#{_\ 10900}#
|
|
#{name\ 10901}#
|
|
#{val\ 10902}#)
|
|
(#{id?\ 9414}#
|
|
#{name\ 10901}#))
|
|
#{tmp\ 10896}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 10906}#
|
|
#{name\ 10907}#
|
|
#{val\ 10908}#)
|
|
(values
|
|
'define-syntax-form
|
|
#{name\ 10907}#
|
|
#{val\ 10908}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#))
|
|
#{tmp\ 10896}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 10895}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 10895}#
|
|
'(any any any))))
|
|
#{e\ 10787}#)
|
|
(values
|
|
'call
|
|
#f
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#))))))))))))))
|
|
(if (#{syntax-object?\ 9378}# #{e\ 10787}#)
|
|
(#{syntax-type\ 9495}#
|
|
(#{syntax-object-expression\ 9380}# #{e\ 10787}#)
|
|
#{r\ 10788}#
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 10789}#
|
|
(#{syntax-object-wrap\ 9382}# #{e\ 10787}#))
|
|
#{s\ 10790}#
|
|
#{rib\ 10791}#
|
|
(let ((#{t\ 10914}#
|
|
(#{syntax-object-module\ 9384}# #{e\ 10787}#)))
|
|
(if #{t\ 10914}# #{t\ 10914}# #{mod\ 10792}#))
|
|
#{for-car?\ 10793}#)
|
|
(if (self-evaluating? #{e\ 10787}#)
|
|
(values
|
|
'constant
|
|
#f
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)
|
|
(values
|
|
'other
|
|
#f
|
|
#{e\ 10787}#
|
|
#{w\ 10789}#
|
|
#{s\ 10790}#
|
|
#{mod\ 10792}#)))))))
|
|
(#{chi-when-list\ 9493}#
|
|
(lambda (#{e\ 10919}# #{when-list\ 10920}# #{w\ 10921}#)
|
|
(letrec ((#{f\ 10928}#
|
|
(lambda (#{when-list\ 10929}# #{situations\ 10930}#)
|
|
(if (null? #{when-list\ 10929}#)
|
|
#{situations\ 10930}#
|
|
(#{f\ 10928}#
|
|
(cdr #{when-list\ 10929}#)
|
|
(cons (let ((#{x\ 10932}#
|
|
(car #{when-list\ 10929}#)))
|
|
(if (#{free-id=?\ 9473}#
|
|
#{x\ 10932}#
|
|
'#(syntax-object
|
|
compile
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i10931"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i10925"
|
|
"i10926"
|
|
"i10927"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i10922"
|
|
"i10923"
|
|
"i10924"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile)))
|
|
'compile
|
|
(if (#{free-id=?\ 9473}#
|
|
#{x\ 10932}#
|
|
'#(syntax-object
|
|
load
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i10931"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i10925"
|
|
"i10926"
|
|
"i10927"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i10922"
|
|
"i10923"
|
|
"i10924"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile)))
|
|
'load
|
|
(if (#{free-id=?\ 9473}#
|
|
#{x\ 10932}#
|
|
'#(syntax-object
|
|
eval
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i10931"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
when-list
|
|
situations)
|
|
#((top) (top) (top))
|
|
#("i10925"
|
|
"i10926"
|
|
"i10927"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i10922"
|
|
"i10923"
|
|
"i10924"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile)))
|
|
'eval
|
|
(syntax-violation
|
|
'eval-when
|
|
"invalid situation"
|
|
#{e\ 10919}#
|
|
(#{wrap\ 9483}#
|
|
#{x\ 10932}#
|
|
#{w\ 10921}#
|
|
#f))))))
|
|
#{situations\ 10930}#))))))
|
|
(#{f\ 10928}# #{when-list\ 10920}# (quote ())))))
|
|
(#{chi-install-global\ 9491}#
|
|
(lambda (#{name\ 10940}# #{e\ 10941}#)
|
|
(#{build-global-definition\ 9354}#
|
|
#f
|
|
#{name\ 10940}#
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
'make-syntax-transformer)
|
|
(list (#{build-data\ 9364}# #f #{name\ 10940}#)
|
|
(#{build-data\ 9364}# #f (quote macro))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}# #f (quote cons))
|
|
(list #{e\ 10941}#
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
'module-name)
|
|
(list (#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
'current-module)
|
|
'()))))))))))
|
|
(#{chi-top-sequence\ 9489}#
|
|
(lambda (#{body\ 10955}#
|
|
#{r\ 10956}#
|
|
#{w\ 10957}#
|
|
#{s\ 10958}#
|
|
#{m\ 10959}#
|
|
#{esew\ 10960}#
|
|
#{mod\ 10961}#)
|
|
(#{build-sequence\ 9366}#
|
|
#{s\ 10958}#
|
|
(letrec ((#{dobody\ 10976}#
|
|
(lambda (#{body\ 10977}#
|
|
#{r\ 10978}#
|
|
#{w\ 10979}#
|
|
#{m\ 10980}#
|
|
#{esew\ 10981}#
|
|
#{mod\ 10982}#)
|
|
(if (null? #{body\ 10977}#)
|
|
'()
|
|
(let ((#{first\ 10984}#
|
|
(#{chi-top\ 9497}#
|
|
(car #{body\ 10977}#)
|
|
#{r\ 10978}#
|
|
#{w\ 10979}#
|
|
#{m\ 10980}#
|
|
#{esew\ 10981}#
|
|
#{mod\ 10982}#)))
|
|
(cons #{first\ 10984}#
|
|
(#{dobody\ 10976}#
|
|
(cdr #{body\ 10977}#)
|
|
#{r\ 10978}#
|
|
#{w\ 10979}#
|
|
#{m\ 10980}#
|
|
#{esew\ 10981}#
|
|
#{mod\ 10982}#)))))))
|
|
(#{dobody\ 10976}#
|
|
#{body\ 10955}#
|
|
#{r\ 10956}#
|
|
#{w\ 10957}#
|
|
#{m\ 10959}#
|
|
#{esew\ 10960}#
|
|
#{mod\ 10961}#)))))
|
|
(#{chi-sequence\ 9487}#
|
|
(lambda (#{body\ 10985}#
|
|
#{r\ 10986}#
|
|
#{w\ 10987}#
|
|
#{s\ 10988}#
|
|
#{mod\ 10989}#)
|
|
(#{build-sequence\ 9366}#
|
|
#{s\ 10988}#
|
|
(letrec ((#{dobody\ 11000}#
|
|
(lambda (#{body\ 11001}#
|
|
#{r\ 11002}#
|
|
#{w\ 11003}#
|
|
#{mod\ 11004}#)
|
|
(if (null? #{body\ 11001}#)
|
|
'()
|
|
(let ((#{first\ 11006}#
|
|
(#{chi\ 9499}#
|
|
(car #{body\ 11001}#)
|
|
#{r\ 11002}#
|
|
#{w\ 11003}#
|
|
#{mod\ 11004}#)))
|
|
(cons #{first\ 11006}#
|
|
(#{dobody\ 11000}#
|
|
(cdr #{body\ 11001}#)
|
|
#{r\ 11002}#
|
|
#{w\ 11003}#
|
|
#{mod\ 11004}#)))))))
|
|
(#{dobody\ 11000}#
|
|
#{body\ 10985}#
|
|
#{r\ 10986}#
|
|
#{w\ 10987}#
|
|
#{mod\ 10989}#)))))
|
|
(#{source-wrap\ 9485}#
|
|
(lambda (#{x\ 11007}#
|
|
#{w\ 11008}#
|
|
#{s\ 11009}#
|
|
#{defmod\ 11010}#)
|
|
(#{wrap\ 9483}#
|
|
(#{decorate-source\ 9334}#
|
|
#{x\ 11007}#
|
|
#{s\ 11009}#)
|
|
#{w\ 11008}#
|
|
#{defmod\ 11010}#)))
|
|
(#{wrap\ 9483}#
|
|
(lambda (#{x\ 11015}# #{w\ 11016}# #{defmod\ 11017}#)
|
|
(if (if (null? (#{wrap-marks\ 9421}# #{w\ 11016}#))
|
|
(null? (#{wrap-subst\ 9423}# #{w\ 11016}#))
|
|
#f)
|
|
#{x\ 11015}#
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11015}#)
|
|
(#{make-syntax-object\ 9376}#
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11015}#)
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 11016}#
|
|
(#{syntax-object-wrap\ 9382}# #{x\ 11015}#))
|
|
(#{syntax-object-module\ 9384}# #{x\ 11015}#))
|
|
(if (null? #{x\ 11015}#)
|
|
#{x\ 11015}#
|
|
(#{make-syntax-object\ 9376}#
|
|
#{x\ 11015}#
|
|
#{w\ 11016}#
|
|
#{defmod\ 11017}#))))))
|
|
(#{bound-id-member?\ 9481}#
|
|
(lambda (#{x\ 11030}# #{list\ 11031}#)
|
|
(if (not (null? #{list\ 11031}#))
|
|
(let ((#{t\ 11038}#
|
|
(#{bound-id=?\ 9475}#
|
|
#{x\ 11030}#
|
|
(car #{list\ 11031}#))))
|
|
(if #{t\ 11038}#
|
|
#{t\ 11038}#
|
|
(#{bound-id-member?\ 9481}#
|
|
#{x\ 11030}#
|
|
(cdr #{list\ 11031}#))))
|
|
#f)))
|
|
(#{distinct-bound-ids?\ 9479}#
|
|
(lambda (#{ids\ 11040}#)
|
|
(letrec ((#{distinct?\ 11044}#
|
|
(lambda (#{ids\ 11045}#)
|
|
(let ((#{t\ 11048}# (null? #{ids\ 11045}#)))
|
|
(if #{t\ 11048}#
|
|
#{t\ 11048}#
|
|
(if (not (#{bound-id-member?\ 9481}#
|
|
(car #{ids\ 11045}#)
|
|
(cdr #{ids\ 11045}#)))
|
|
(#{distinct?\ 11044}# (cdr #{ids\ 11045}#))
|
|
#f))))))
|
|
(#{distinct?\ 11044}# #{ids\ 11040}#))))
|
|
(#{valid-bound-ids?\ 9477}#
|
|
(lambda (#{ids\ 11052}#)
|
|
(if (letrec ((#{all-ids?\ 11057}#
|
|
(lambda (#{ids\ 11058}#)
|
|
(let ((#{t\ 11061}# (null? #{ids\ 11058}#)))
|
|
(if #{t\ 11061}#
|
|
#{t\ 11061}#
|
|
(if (#{id?\ 9414}# (car #{ids\ 11058}#))
|
|
(#{all-ids?\ 11057}#
|
|
(cdr #{ids\ 11058}#))
|
|
#f))))))
|
|
(#{all-ids?\ 11057}# #{ids\ 11052}#))
|
|
(#{distinct-bound-ids?\ 9479}# #{ids\ 11052}#)
|
|
#f)))
|
|
(#{bound-id=?\ 9475}#
|
|
(lambda (#{i\ 11066}# #{j\ 11067}#)
|
|
(if (if (#{syntax-object?\ 9378}# #{i\ 11066}#)
|
|
(#{syntax-object?\ 9378}# #{j\ 11067}#)
|
|
#f)
|
|
(if (eq? (#{syntax-object-expression\ 9380}# #{i\ 11066}#)
|
|
(#{syntax-object-expression\ 9380}# #{j\ 11067}#))
|
|
(#{same-marks?\ 9469}#
|
|
(#{wrap-marks\ 9421}#
|
|
(#{syntax-object-wrap\ 9382}# #{i\ 11066}#))
|
|
(#{wrap-marks\ 9421}#
|
|
(#{syntax-object-wrap\ 9382}# #{j\ 11067}#)))
|
|
#f)
|
|
(eq? #{i\ 11066}# #{j\ 11067}#))))
|
|
(#{free-id=?\ 9473}#
|
|
(lambda (#{i\ 11074}# #{j\ 11075}#)
|
|
(if (eq? (let ((#{x\ 11081}# #{i\ 11074}#))
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11081}#)
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11081}#)
|
|
#{x\ 11081}#))
|
|
(let ((#{x\ 11084}# #{j\ 11075}#))
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11084}#)
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11084}#)
|
|
#{x\ 11084}#)))
|
|
(eq? (#{id-var-name\ 9471}# #{i\ 11074}# (quote (())))
|
|
(#{id-var-name\ 9471}# #{j\ 11075}# (quote (()))))
|
|
#f)))
|
|
(#{id-var-name\ 9471}#
|
|
(lambda (#{id\ 11088}# #{w\ 11089}#)
|
|
(letrec ((#{search-vector-rib\ 11098}#
|
|
(lambda (#{sym\ 11110}#
|
|
#{subst\ 11111}#
|
|
#{marks\ 11112}#
|
|
#{symnames\ 11113}#
|
|
#{ribcage\ 11114}#)
|
|
(let ((#{n\ 11121}#
|
|
(vector-length #{symnames\ 11113}#)))
|
|
(letrec ((#{f\ 11124}#
|
|
(lambda (#{i\ 11125}#)
|
|
(if (#{fx=\ 9321}#
|
|
#{i\ 11125}#
|
|
#{n\ 11121}#)
|
|
(#{search\ 11094}#
|
|
#{sym\ 11110}#
|
|
(cdr #{subst\ 11111}#)
|
|
#{marks\ 11112}#)
|
|
(if (if (eq? (vector-ref
|
|
#{symnames\ 11113}#
|
|
#{i\ 11125}#)
|
|
#{sym\ 11110}#)
|
|
(#{same-marks?\ 9469}#
|
|
#{marks\ 11112}#
|
|
(vector-ref
|
|
(#{ribcage-marks\ 9441}#
|
|
#{ribcage\ 11114}#)
|
|
#{i\ 11125}#))
|
|
#f)
|
|
(values
|
|
(vector-ref
|
|
(#{ribcage-labels\ 9443}#
|
|
#{ribcage\ 11114}#)
|
|
#{i\ 11125}#)
|
|
#{marks\ 11112}#)
|
|
(#{f\ 11124}#
|
|
(#{fx+\ 9317}#
|
|
#{i\ 11125}#
|
|
1)))))))
|
|
(#{f\ 11124}# 0)))))
|
|
(#{search-list-rib\ 11096}#
|
|
(lambda (#{sym\ 11133}#
|
|
#{subst\ 11134}#
|
|
#{marks\ 11135}#
|
|
#{symnames\ 11136}#
|
|
#{ribcage\ 11137}#)
|
|
(letrec ((#{f\ 11146}#
|
|
(lambda (#{symnames\ 11147}#
|
|
#{i\ 11148}#)
|
|
(if (null? #{symnames\ 11147}#)
|
|
(#{search\ 11094}#
|
|
#{sym\ 11133}#
|
|
(cdr #{subst\ 11134}#)
|
|
#{marks\ 11135}#)
|
|
(if (if (eq? (car #{symnames\ 11147}#)
|
|
#{sym\ 11133}#)
|
|
(#{same-marks?\ 9469}#
|
|
#{marks\ 11135}#
|
|
(list-ref
|
|
(#{ribcage-marks\ 9441}#
|
|
#{ribcage\ 11137}#)
|
|
#{i\ 11148}#))
|
|
#f)
|
|
(values
|
|
(list-ref
|
|
(#{ribcage-labels\ 9443}#
|
|
#{ribcage\ 11137}#)
|
|
#{i\ 11148}#)
|
|
#{marks\ 11135}#)
|
|
(#{f\ 11146}#
|
|
(cdr #{symnames\ 11147}#)
|
|
(#{fx+\ 9317}#
|
|
#{i\ 11148}#
|
|
1)))))))
|
|
(#{f\ 11146}# #{symnames\ 11136}# 0))))
|
|
(#{search\ 11094}#
|
|
(lambda (#{sym\ 11156}#
|
|
#{subst\ 11157}#
|
|
#{marks\ 11158}#)
|
|
(if (null? #{subst\ 11157}#)
|
|
(values #f #{marks\ 11158}#)
|
|
(let ((#{fst\ 11163}# (car #{subst\ 11157}#)))
|
|
(if (eq? #{fst\ 11163}# (quote shift))
|
|
(#{search\ 11094}#
|
|
#{sym\ 11156}#
|
|
(cdr #{subst\ 11157}#)
|
|
(cdr #{marks\ 11158}#))
|
|
(let ((#{symnames\ 11165}#
|
|
(#{ribcage-symnames\ 9439}#
|
|
#{fst\ 11163}#)))
|
|
(if (vector? #{symnames\ 11165}#)
|
|
(#{search-vector-rib\ 11098}#
|
|
#{sym\ 11156}#
|
|
#{subst\ 11157}#
|
|
#{marks\ 11158}#
|
|
#{symnames\ 11165}#
|
|
#{fst\ 11163}#)
|
|
(#{search-list-rib\ 11096}#
|
|
#{sym\ 11156}#
|
|
#{subst\ 11157}#
|
|
#{marks\ 11158}#
|
|
#{symnames\ 11165}#
|
|
#{fst\ 11163}#)))))))))
|
|
(if (symbol? #{id\ 11088}#)
|
|
(let ((#{t\ 11168}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 11094}#
|
|
#{id\ 11088}#
|
|
(#{wrap-subst\ 9423}# #{w\ 11089}#)
|
|
(#{wrap-marks\ 9421}# #{w\ 11089}#)))
|
|
(lambda (#{x\ 11170}# . #{ignore\ 11171}#)
|
|
#{x\ 11170}#))))
|
|
(if #{t\ 11168}# #{t\ 11168}# #{id\ 11088}#))
|
|
(if (#{syntax-object?\ 9378}# #{id\ 11088}#)
|
|
(let ((#{id\ 11179}#
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{id\ 11088}#))
|
|
(#{w1\ 11180}#
|
|
(#{syntax-object-wrap\ 9382}# #{id\ 11088}#)))
|
|
(let ((#{marks\ 11182}#
|
|
(#{join-marks\ 9467}#
|
|
(#{wrap-marks\ 9421}# #{w\ 11089}#)
|
|
(#{wrap-marks\ 9421}# #{w1\ 11180}#))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 11094}#
|
|
#{id\ 11179}#
|
|
(#{wrap-subst\ 9423}# #{w\ 11089}#)
|
|
#{marks\ 11182}#))
|
|
(lambda (#{new-id\ 11183}# #{marks\ 11184}#)
|
|
(let ((#{t\ 11189}# #{new-id\ 11183}#))
|
|
(if #{t\ 11189}#
|
|
#{t\ 11189}#
|
|
(let ((#{t\ 11192}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 11094}#
|
|
#{id\ 11179}#
|
|
(#{wrap-subst\ 9423}#
|
|
#{w1\ 11180}#)
|
|
#{marks\ 11184}#))
|
|
(lambda (#{x\ 11194}#
|
|
.
|
|
#{ignore\ 11195}#)
|
|
#{x\ 11194}#))))
|
|
(if #{t\ 11192}#
|
|
#{t\ 11192}#
|
|
#{id\ 11179}#))))))))
|
|
(syntax-violation
|
|
'id-var-name
|
|
"invalid id"
|
|
#{id\ 11088}#))))))
|
|
(#{same-marks?\ 9469}#
|
|
(lambda (#{x\ 11200}# #{y\ 11201}#)
|
|
(let ((#{t\ 11206}# (eq? #{x\ 11200}# #{y\ 11201}#)))
|
|
(if #{t\ 11206}#
|
|
#{t\ 11206}#
|
|
(if (not (null? #{x\ 11200}#))
|
|
(if (not (null? #{y\ 11201}#))
|
|
(if (eq? (car #{x\ 11200}#) (car #{y\ 11201}#))
|
|
(#{same-marks?\ 9469}#
|
|
(cdr #{x\ 11200}#)
|
|
(cdr #{y\ 11201}#))
|
|
#f)
|
|
#f)
|
|
#f)))))
|
|
(#{join-marks\ 9467}#
|
|
(lambda (#{m1\ 11212}# #{m2\ 11213}#)
|
|
(#{smart-append\ 9463}#
|
|
#{m1\ 11212}#
|
|
#{m2\ 11213}#)))
|
|
(#{join-wraps\ 9465}#
|
|
(lambda (#{w1\ 11216}# #{w2\ 11217}#)
|
|
(let ((#{m1\ 11222}#
|
|
(#{wrap-marks\ 9421}# #{w1\ 11216}#))
|
|
(#{s1\ 11223}#
|
|
(#{wrap-subst\ 9423}# #{w1\ 11216}#)))
|
|
(if (null? #{m1\ 11222}#)
|
|
(if (null? #{s1\ 11223}#)
|
|
#{w2\ 11217}#
|
|
(#{make-wrap\ 9419}#
|
|
(#{wrap-marks\ 9421}# #{w2\ 11217}#)
|
|
(#{smart-append\ 9463}#
|
|
#{s1\ 11223}#
|
|
(#{wrap-subst\ 9423}# #{w2\ 11217}#))))
|
|
(#{make-wrap\ 9419}#
|
|
(#{smart-append\ 9463}#
|
|
#{m1\ 11222}#
|
|
(#{wrap-marks\ 9421}# #{w2\ 11217}#))
|
|
(#{smart-append\ 9463}#
|
|
#{s1\ 11223}#
|
|
(#{wrap-subst\ 9423}# #{w2\ 11217}#)))))))
|
|
(#{smart-append\ 9463}#
|
|
(lambda (#{m1\ 11224}# #{m2\ 11225}#)
|
|
(if (null? #{m2\ 11225}#)
|
|
#{m1\ 11224}#
|
|
(append #{m1\ 11224}# #{m2\ 11225}#))))
|
|
(#{make-binding-wrap\ 9461}#
|
|
(lambda (#{ids\ 11228}# #{labels\ 11229}# #{w\ 11230}#)
|
|
(if (null? #{ids\ 11228}#)
|
|
#{w\ 11230}#
|
|
(#{make-wrap\ 9419}#
|
|
(#{wrap-marks\ 9421}# #{w\ 11230}#)
|
|
(cons (let ((#{labelvec\ 11235}#
|
|
(list->vector #{labels\ 11229}#)))
|
|
(let ((#{n\ 11237}#
|
|
(vector-length #{labelvec\ 11235}#)))
|
|
(let ((#{symnamevec\ 11240}#
|
|
(make-vector #{n\ 11237}#))
|
|
(#{marksvec\ 11241}#
|
|
(make-vector #{n\ 11237}#)))
|
|
(begin
|
|
(letrec ((#{f\ 11245}#
|
|
(lambda (#{ids\ 11246}#
|
|
#{i\ 11247}#)
|
|
(if (not (null? #{ids\ 11246}#))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{id-sym-name&marks\ 9417}#
|
|
(car #{ids\ 11246}#)
|
|
#{w\ 11230}#))
|
|
(lambda (#{symname\ 11248}#
|
|
#{marks\ 11249}#)
|
|
(begin
|
|
(vector-set!
|
|
#{symnamevec\ 11240}#
|
|
#{i\ 11247}#
|
|
#{symname\ 11248}#)
|
|
(vector-set!
|
|
#{marksvec\ 11241}#
|
|
#{i\ 11247}#
|
|
#{marks\ 11249}#)
|
|
(#{f\ 11245}#
|
|
(cdr #{ids\ 11246}#)
|
|
(#{fx+\ 9317}#
|
|
#{i\ 11247}#
|
|
1)))))))))
|
|
(#{f\ 11245}# #{ids\ 11228}# 0))
|
|
(#{make-ribcage\ 9435}#
|
|
#{symnamevec\ 11240}#
|
|
#{marksvec\ 11241}#
|
|
#{labelvec\ 11235}#)))))
|
|
(#{wrap-subst\ 9423}# #{w\ 11230}#))))))
|
|
(#{extend-ribcage!\ 9459}#
|
|
(lambda (#{ribcage\ 11252}#
|
|
#{id\ 11253}#
|
|
#{label\ 11254}#)
|
|
(begin
|
|
(#{set-ribcage-symnames!\ 9445}#
|
|
#{ribcage\ 11252}#
|
|
(cons (#{syntax-object-expression\ 9380}#
|
|
#{id\ 11253}#)
|
|
(#{ribcage-symnames\ 9439}# #{ribcage\ 11252}#)))
|
|
(#{set-ribcage-marks!\ 9447}#
|
|
#{ribcage\ 11252}#
|
|
(cons (#{wrap-marks\ 9421}#
|
|
(#{syntax-object-wrap\ 9382}# #{id\ 11253}#))
|
|
(#{ribcage-marks\ 9441}# #{ribcage\ 11252}#)))
|
|
(#{set-ribcage-labels!\ 9449}#
|
|
#{ribcage\ 11252}#
|
|
(cons #{label\ 11254}#
|
|
(#{ribcage-labels\ 9443}# #{ribcage\ 11252}#))))))
|
|
(#{anti-mark\ 9455}#
|
|
(lambda (#{w\ 11258}#)
|
|
(#{make-wrap\ 9419}#
|
|
(cons #f (#{wrap-marks\ 9421}# #{w\ 11258}#))
|
|
(cons 'shift
|
|
(#{wrap-subst\ 9423}# #{w\ 11258}#)))))
|
|
(#{set-ribcage-labels!\ 9449}#
|
|
(lambda (#{x\ 11261}# #{update\ 11262}#)
|
|
(vector-set! #{x\ 11261}# 3 #{update\ 11262}#)))
|
|
(#{set-ribcage-marks!\ 9447}#
|
|
(lambda (#{x\ 11265}# #{update\ 11266}#)
|
|
(vector-set! #{x\ 11265}# 2 #{update\ 11266}#)))
|
|
(#{set-ribcage-symnames!\ 9445}#
|
|
(lambda (#{x\ 11269}# #{update\ 11270}#)
|
|
(vector-set! #{x\ 11269}# 1 #{update\ 11270}#)))
|
|
(#{ribcage-labels\ 9443}#
|
|
(lambda (#{x\ 11273}#)
|
|
(vector-ref #{x\ 11273}# 3)))
|
|
(#{ribcage-marks\ 9441}#
|
|
(lambda (#{x\ 11275}#)
|
|
(vector-ref #{x\ 11275}# 2)))
|
|
(#{ribcage-symnames\ 9439}#
|
|
(lambda (#{x\ 11277}#)
|
|
(vector-ref #{x\ 11277}# 1)))
|
|
(#{ribcage?\ 9437}#
|
|
(lambda (#{x\ 11279}#)
|
|
(if (vector? #{x\ 11279}#)
|
|
(if (= (vector-length #{x\ 11279}#) 4)
|
|
(eq? (vector-ref #{x\ 11279}# 0) (quote ribcage))
|
|
#f)
|
|
#f)))
|
|
(#{make-ribcage\ 9435}#
|
|
(lambda (#{symnames\ 11284}#
|
|
#{marks\ 11285}#
|
|
#{labels\ 11286}#)
|
|
(vector
|
|
'ribcage
|
|
#{symnames\ 11284}#
|
|
#{marks\ 11285}#
|
|
#{labels\ 11286}#)))
|
|
(#{gen-labels\ 9432}#
|
|
(lambda (#{ls\ 11290}#)
|
|
(if (null? #{ls\ 11290}#)
|
|
'()
|
|
(cons (#{gen-label\ 9430}#)
|
|
(#{gen-labels\ 9432}# (cdr #{ls\ 11290}#))))))
|
|
(#{gen-label\ 9430}#
|
|
(lambda () (symbol->string (gensym "i"))))
|
|
(#{wrap-subst\ 9423}# cdr)
|
|
(#{wrap-marks\ 9421}# car)
|
|
(#{make-wrap\ 9419}# cons)
|
|
(#{id-sym-name&marks\ 9417}#
|
|
(lambda (#{x\ 11292}# #{w\ 11293}#)
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11292}#)
|
|
(values
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11292}#)
|
|
(#{join-marks\ 9467}#
|
|
(#{wrap-marks\ 9421}# #{w\ 11293}#)
|
|
(#{wrap-marks\ 9421}#
|
|
(#{syntax-object-wrap\ 9382}# #{x\ 11292}#))))
|
|
(values
|
|
#{x\ 11292}#
|
|
(#{wrap-marks\ 9421}# #{w\ 11293}#)))))
|
|
(#{id?\ 9414}#
|
|
(lambda (#{x\ 11296}#)
|
|
(if (symbol? #{x\ 11296}#)
|
|
#t
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11296}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11296}#))
|
|
#f))))
|
|
(#{nonsymbol-id?\ 9412}#
|
|
(lambda (#{x\ 11303}#)
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11303}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11303}#))
|
|
#f)))
|
|
(#{global-extend\ 9410}#
|
|
(lambda (#{type\ 11307}# #{sym\ 11308}# #{val\ 11309}#)
|
|
(#{put-global-definition-hook\ 9330}#
|
|
#{sym\ 11308}#
|
|
#{type\ 11307}#
|
|
#{val\ 11309}#)))
|
|
(#{lookup\ 9408}#
|
|
(lambda (#{x\ 11313}# #{r\ 11314}# #{mod\ 11315}#)
|
|
(let ((#{t\ 11321}# (assq #{x\ 11313}# #{r\ 11314}#)))
|
|
(if #{t\ 11321}#
|
|
(cdr #{t\ 11321}#)
|
|
(if (symbol? #{x\ 11313}#)
|
|
(let ((#{t\ 11327}#
|
|
(#{get-global-definition-hook\ 9332}#
|
|
#{x\ 11313}#
|
|
#{mod\ 11315}#)))
|
|
(if #{t\ 11327}# #{t\ 11327}# (quote (global))))
|
|
'(displaced-lexical))))))
|
|
(#{macros-only-env\ 9406}#
|
|
(lambda (#{r\ 11332}#)
|
|
(if (null? #{r\ 11332}#)
|
|
'()
|
|
(let ((#{a\ 11335}# (car #{r\ 11332}#)))
|
|
(if (eq? (cadr #{a\ 11335}#) (quote macro))
|
|
(cons #{a\ 11335}#
|
|
(#{macros-only-env\ 9406}# (cdr #{r\ 11332}#)))
|
|
(#{macros-only-env\ 9406}# (cdr #{r\ 11332}#)))))))
|
|
(#{extend-var-env\ 9404}#
|
|
(lambda (#{labels\ 11336}# #{vars\ 11337}# #{r\ 11338}#)
|
|
(if (null? #{labels\ 11336}#)
|
|
#{r\ 11338}#
|
|
(#{extend-var-env\ 9404}#
|
|
(cdr #{labels\ 11336}#)
|
|
(cdr #{vars\ 11337}#)
|
|
(cons (cons (car #{labels\ 11336}#)
|
|
(cons (quote lexical) (car #{vars\ 11337}#)))
|
|
#{r\ 11338}#)))))
|
|
(#{extend-env\ 9402}#
|
|
(lambda (#{labels\ 11343}#
|
|
#{bindings\ 11344}#
|
|
#{r\ 11345}#)
|
|
(if (null? #{labels\ 11343}#)
|
|
#{r\ 11345}#
|
|
(#{extend-env\ 9402}#
|
|
(cdr #{labels\ 11343}#)
|
|
(cdr #{bindings\ 11344}#)
|
|
(cons (cons (car #{labels\ 11343}#)
|
|
(car #{bindings\ 11344}#))
|
|
#{r\ 11345}#)))))
|
|
(#{binding-value\ 9399}# cdr)
|
|
(#{binding-type\ 9397}# car)
|
|
(#{source-annotation\ 9393}#
|
|
(lambda (#{x\ 11349}#)
|
|
(if (#{syntax-object?\ 9378}# #{x\ 11349}#)
|
|
(#{source-annotation\ 9393}#
|
|
(#{syntax-object-expression\ 9380}# #{x\ 11349}#))
|
|
(if (pair? #{x\ 11349}#)
|
|
(let ((#{props\ 11356}#
|
|
(source-properties #{x\ 11349}#)))
|
|
(if (pair? #{props\ 11356}#) #{props\ 11356}# #f))
|
|
#f))))
|
|
(#{set-syntax-object-module!\ 9390}#
|
|
(lambda (#{x\ 11358}# #{update\ 11359}#)
|
|
(vector-set! #{x\ 11358}# 3 #{update\ 11359}#)))
|
|
(#{set-syntax-object-wrap!\ 9388}#
|
|
(lambda (#{x\ 11362}# #{update\ 11363}#)
|
|
(vector-set! #{x\ 11362}# 2 #{update\ 11363}#)))
|
|
(#{set-syntax-object-expression!\ 9386}#
|
|
(lambda (#{x\ 11366}# #{update\ 11367}#)
|
|
(vector-set! #{x\ 11366}# 1 #{update\ 11367}#)))
|
|
(#{syntax-object-module\ 9384}#
|
|
(lambda (#{x\ 11370}#)
|
|
(vector-ref #{x\ 11370}# 3)))
|
|
(#{syntax-object-wrap\ 9382}#
|
|
(lambda (#{x\ 11372}#)
|
|
(vector-ref #{x\ 11372}# 2)))
|
|
(#{syntax-object-expression\ 9380}#
|
|
(lambda (#{x\ 11374}#)
|
|
(vector-ref #{x\ 11374}# 1)))
|
|
(#{syntax-object?\ 9378}#
|
|
(lambda (#{x\ 11376}#)
|
|
(if (vector? #{x\ 11376}#)
|
|
(if (= (vector-length #{x\ 11376}#) 4)
|
|
(eq? (vector-ref #{x\ 11376}# 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)))
|
|
(#{make-syntax-object\ 9376}#
|
|
(lambda (#{expression\ 11381}#
|
|
#{wrap\ 11382}#
|
|
#{module\ 11383}#)
|
|
(vector
|
|
'syntax-object
|
|
#{expression\ 11381}#
|
|
#{wrap\ 11382}#
|
|
#{module\ 11383}#)))
|
|
(#{build-letrec\ 9372}#
|
|
(lambda (#{src\ 11387}#
|
|
#{ids\ 11388}#
|
|
#{vars\ 11389}#
|
|
#{val-exps\ 11390}#
|
|
#{body-exp\ 11391}#)
|
|
(if (null? #{vars\ 11389}#)
|
|
#{body-exp\ 11391}#
|
|
(let ((#{atom-key\ 11399}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11399}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 9352}#
|
|
#{ids\ 11388}#
|
|
#{val-exps\ 11390}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 11387}#
|
|
#{ids\ 11388}#
|
|
#{vars\ 11389}#
|
|
#{val-exps\ 11390}#
|
|
#{body-exp\ 11391}#))
|
|
(#{decorate-source\ 9334}#
|
|
(list 'letrec
|
|
(map list #{vars\ 11389}# #{val-exps\ 11390}#)
|
|
#{body-exp\ 11391}#)
|
|
#{src\ 11387}#))))))
|
|
(#{build-named-let\ 9370}#
|
|
(lambda (#{src\ 11403}#
|
|
#{ids\ 11404}#
|
|
#{vars\ 11405}#
|
|
#{val-exps\ 11406}#
|
|
#{body-exp\ 11407}#)
|
|
(let ((#{f\ 11417}# (car #{vars\ 11405}#))
|
|
(#{f-name\ 11418}# (car #{ids\ 11404}#))
|
|
(#{vars\ 11419}# (cdr #{vars\ 11405}#))
|
|
(#{ids\ 11420}# (cdr #{ids\ 11404}#)))
|
|
(let ((#{atom-key\ 11423}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11423}# (quote (c)))
|
|
(let ((#{proc\ 11426}#
|
|
(#{build-simple-lambda\ 9356}#
|
|
#{src\ 11403}#
|
|
#{ids\ 11420}#
|
|
#f
|
|
#{vars\ 11419}#
|
|
#f
|
|
#{body-exp\ 11407}#)))
|
|
(begin
|
|
(#{maybe-name-value!\ 9352}#
|
|
#{f-name\ 11418}#
|
|
#{proc\ 11426}#)
|
|
(for-each
|
|
#{maybe-name-value!\ 9352}#
|
|
#{ids\ 11420}#
|
|
#{val-exps\ 11406}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 11403}#
|
|
(list #{f-name\ 11418}#)
|
|
(list #{f\ 11417}#)
|
|
(list #{proc\ 11426}#)
|
|
(#{build-application\ 9338}#
|
|
#{src\ 11403}#
|
|
(#{build-lexical-reference\ 9342}#
|
|
'fun
|
|
#{src\ 11403}#
|
|
#{f-name\ 11418}#
|
|
#{f\ 11417}#)
|
|
#{val-exps\ 11406}#))))
|
|
(#{decorate-source\ 9334}#
|
|
(list 'letrec
|
|
(list (list #{f\ 11417}#
|
|
(list 'lambda
|
|
#{vars\ 11419}#
|
|
#{body-exp\ 11407}#)))
|
|
(cons #{f\ 11417}# #{val-exps\ 11406}#))
|
|
#{src\ 11403}#))))))
|
|
(#{build-let\ 9368}#
|
|
(lambda (#{src\ 11429}#
|
|
#{ids\ 11430}#
|
|
#{vars\ 11431}#
|
|
#{val-exps\ 11432}#
|
|
#{body-exp\ 11433}#)
|
|
(if (null? #{vars\ 11431}#)
|
|
#{body-exp\ 11433}#
|
|
(let ((#{atom-key\ 11441}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11441}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 9352}#
|
|
#{ids\ 11430}#
|
|
#{val-exps\ 11432}#)
|
|
((@ (language tree-il) make-let)
|
|
#{src\ 11429}#
|
|
#{ids\ 11430}#
|
|
#{vars\ 11431}#
|
|
#{val-exps\ 11432}#
|
|
#{body-exp\ 11433}#))
|
|
(#{decorate-source\ 9334}#
|
|
(list 'let
|
|
(map list #{vars\ 11431}# #{val-exps\ 11432}#)
|
|
#{body-exp\ 11433}#)
|
|
#{src\ 11429}#))))))
|
|
(#{build-sequence\ 9366}#
|
|
(lambda (#{src\ 11445}# #{exps\ 11446}#)
|
|
(if (null? (cdr #{exps\ 11446}#))
|
|
(car #{exps\ 11446}#)
|
|
(let ((#{atom-key\ 11451}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11451}# (quote (c)))
|
|
((@ (language tree-il) make-sequence)
|
|
#{src\ 11445}#
|
|
#{exps\ 11446}#)
|
|
(#{decorate-source\ 9334}#
|
|
(cons (quote begin) #{exps\ 11446}#)
|
|
#{src\ 11445}#))))))
|
|
(#{build-data\ 9364}#
|
|
(lambda (#{src\ 11455}# #{exp\ 11456}#)
|
|
(let ((#{atom-key\ 11461}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11461}# (quote (c)))
|
|
((@ (language tree-il) make-const)
|
|
#{src\ 11455}#
|
|
#{exp\ 11456}#)
|
|
(#{decorate-source\ 9334}#
|
|
(if (if (self-evaluating? #{exp\ 11456}#)
|
|
(not (vector? #{exp\ 11456}#))
|
|
#f)
|
|
#{exp\ 11456}#
|
|
(list (quote quote) #{exp\ 11456}#))
|
|
#{src\ 11455}#)))))
|
|
(#{build-primref\ 9362}#
|
|
(lambda (#{src\ 11466}# #{name\ 11467}#)
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(let ((#{atom-key\ 11472}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11472}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{src\ 11466}#
|
|
#{name\ 11467}#)
|
|
(#{decorate-source\ 9334}#
|
|
#{name\ 11467}#
|
|
#{src\ 11466}#)))
|
|
(let ((#{atom-key\ 11477}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11477}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{src\ 11466}#
|
|
'(guile)
|
|
#{name\ 11467}#
|
|
#f)
|
|
(#{decorate-source\ 9334}#
|
|
(list (quote @@) (quote (guile)) #{name\ 11467}#)
|
|
#{src\ 11466}#))))))
|
|
(#{build-lambda-case\ 9360}#
|
|
(lambda (#{src\ 11481}#
|
|
#{req\ 11482}#
|
|
#{opt\ 11483}#
|
|
#{rest\ 11484}#
|
|
#{kw\ 11485}#
|
|
#{inits\ 11486}#
|
|
#{vars\ 11487}#
|
|
#{body\ 11488}#
|
|
#{else-case\ 11489}#)
|
|
(let ((#{atom-key\ 11501}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11501}# (quote (c)))
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 11481}#
|
|
#{req\ 11482}#
|
|
#{opt\ 11483}#
|
|
#{rest\ 11484}#
|
|
#{kw\ 11485}#
|
|
#{inits\ 11486}#
|
|
#{vars\ 11487}#
|
|
#{body\ 11488}#
|
|
#{else-case\ 11489}#)
|
|
(let ((#{nreq\ 11506}# (length #{req\ 11482}#)))
|
|
(let ((#{nopt\ 11508}#
|
|
(if #{opt\ 11483}# (length #{opt\ 11483}#) 0)))
|
|
(let ((#{rest-idx\ 11510}#
|
|
(if #{rest\ 11484}#
|
|
(+ #{nreq\ 11506}# #{nopt\ 11508}#)
|
|
#f)))
|
|
(let ((#{allow-other-keys?\ 11514}#
|
|
(if #{kw\ 11485}# (car #{kw\ 11485}#) #f)))
|
|
(let ((#{kw-indices\ 11516}#
|
|
(map (lambda (#{x\ 11517}#)
|
|
(cons (car #{x\ 11517}#)
|
|
(list-index
|
|
#{vars\ 11487}#
|
|
(caddr #{x\ 11517}#))))
|
|
(if #{kw\ 11485}#
|
|
(cdr #{kw\ 11485}#)
|
|
'()))))
|
|
(let ((#{nargs\ 11520}#
|
|
(apply max
|
|
(+ #{nreq\ 11506}#
|
|
#{nopt\ 11508}#
|
|
(if #{rest\ 11484}# 1 0))
|
|
(map 1+
|
|
(map cdr
|
|
#{kw-indices\ 11516}#)))))
|
|
(begin
|
|
(let ((#{t\ 11523}#
|
|
(= #{nargs\ 11520}#
|
|
(length #{vars\ 11487}#)
|
|
(+ #{nreq\ 11506}#
|
|
(length #{inits\ 11486}#)
|
|
(if #{rest\ 11484}# 1 0)))))
|
|
(if #{t\ 11523}#
|
|
#{t\ 11523}#
|
|
(error "something went wrong"
|
|
#{req\ 11482}#
|
|
#{opt\ 11483}#
|
|
#{rest\ 11484}#
|
|
#{kw\ 11485}#
|
|
#{inits\ 11486}#
|
|
#{vars\ 11487}#
|
|
#{nreq\ 11506}#
|
|
#{nopt\ 11508}#
|
|
#{kw-indices\ 11516}#
|
|
#{nargs\ 11520}#)))
|
|
(#{decorate-source\ 9334}#
|
|
(cons (list (cons '(@@ (ice-9 optargs)
|
|
parse-lambda-case)
|
|
(cons (list 'quote
|
|
(list #{nreq\ 11506}#
|
|
#{nopt\ 11508}#
|
|
#{rest-idx\ 11510}#
|
|
#{nargs\ 11520}#
|
|
#{allow-other-keys?\ 11514}#
|
|
#{kw-indices\ 11516}#))
|
|
(cons (cons 'list
|
|
(map (lambda (#{i\ 11526}#)
|
|
(list 'lambda
|
|
#{vars\ 11487}#
|
|
#{i\ 11526}#))
|
|
#{inits\ 11486}#))
|
|
'(%%args))))
|
|
'=>
|
|
(list 'lambda
|
|
'(%%args)
|
|
(cons 'apply
|
|
(cons (list 'lambda
|
|
#{vars\ 11487}#
|
|
#{body\ 11488}#)
|
|
'(%%args)))))
|
|
(let ((#{t\ 11531}#
|
|
#{else-case\ 11489}#))
|
|
(if #{t\ 11531}#
|
|
#{t\ 11531}#
|
|
'((%%args
|
|
(scm-error
|
|
'wrong-number-of-args
|
|
#f
|
|
"Wrong number of arguments"
|
|
'()
|
|
%%args))))))
|
|
#{src\ 11481}#))))))))))))
|
|
(#{build-case-lambda\ 9358}#
|
|
(lambda (#{src\ 11534}#
|
|
#{docstring\ 11535}#
|
|
#{body\ 11536}#)
|
|
(let ((#{atom-key\ 11542}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11542}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 11534}#
|
|
(if #{docstring\ 11535}#
|
|
(list (cons (quote documentation) #{docstring\ 11535}#))
|
|
'())
|
|
#{body\ 11536}#)
|
|
(#{decorate-source\ 9334}#
|
|
(cons 'lambda
|
|
(cons '%%args
|
|
(append
|
|
(if #{docstring\ 11535}#
|
|
(list #{docstring\ 11535}#)
|
|
'())
|
|
(list (cons 'cond
|
|
#{body\ 11536}#)))))
|
|
#{src\ 11534}#)))))
|
|
(#{build-simple-lambda\ 9356}#
|
|
(lambda (#{src\ 11547}#
|
|
#{req\ 11548}#
|
|
#{rest\ 11549}#
|
|
#{vars\ 11550}#
|
|
#{docstring\ 11551}#
|
|
#{exp\ 11552}#)
|
|
(let ((#{atom-key\ 11561}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11561}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 11547}#
|
|
(if #{docstring\ 11551}#
|
|
(list (cons (quote documentation) #{docstring\ 11551}#))
|
|
'())
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 11547}#
|
|
#{req\ 11548}#
|
|
#f
|
|
#{rest\ 11549}#
|
|
#f
|
|
'()
|
|
#{vars\ 11550}#
|
|
#{exp\ 11552}#
|
|
#f))
|
|
(#{decorate-source\ 9334}#
|
|
(cons 'lambda
|
|
(cons (if #{rest\ 11549}#
|
|
(apply cons* #{vars\ 11550}#)
|
|
#{vars\ 11550}#)
|
|
(append
|
|
(if #{docstring\ 11551}#
|
|
(list #{docstring\ 11551}#)
|
|
'())
|
|
(list #{exp\ 11552}#))))
|
|
#{src\ 11547}#)))))
|
|
(#{build-global-definition\ 9354}#
|
|
(lambda (#{source\ 11566}# #{var\ 11567}# #{exp\ 11568}#)
|
|
(let ((#{atom-key\ 11574}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11574}# (quote (c)))
|
|
(begin
|
|
(#{maybe-name-value!\ 9352}#
|
|
#{var\ 11567}#
|
|
#{exp\ 11568}#)
|
|
((@ (language tree-il) make-toplevel-define)
|
|
#{source\ 11566}#
|
|
#{var\ 11567}#
|
|
#{exp\ 11568}#))
|
|
(#{decorate-source\ 9334}#
|
|
(list 'define
|
|
#{var\ 11567}#
|
|
#{exp\ 11568}#)
|
|
#{source\ 11566}#)))))
|
|
(#{maybe-name-value!\ 9352}#
|
|
(lambda (#{name\ 11578}# #{val\ 11579}#)
|
|
(if ((@ (language tree-il) lambda?) #{val\ 11579}#)
|
|
(let ((#{meta\ 11585}#
|
|
((@ (language tree-il) lambda-meta)
|
|
#{val\ 11579}#)))
|
|
(if (not (assq (quote name) #{meta\ 11585}#))
|
|
((setter (@ (language tree-il) lambda-meta))
|
|
#{val\ 11579}#
|
|
(acons 'name
|
|
#{name\ 11578}#
|
|
#{meta\ 11585}#)))))))
|
|
(#{build-global-assignment\ 9350}#
|
|
(lambda (#{source\ 11586}#
|
|
#{var\ 11587}#
|
|
#{exp\ 11588}#
|
|
#{mod\ 11589}#)
|
|
(#{analyze-variable\ 9346}#
|
|
#{mod\ 11589}#
|
|
#{var\ 11587}#
|
|
(lambda (#{mod\ 11594}#
|
|
#{var\ 11595}#
|
|
#{public?\ 11596}#)
|
|
(let ((#{atom-key\ 11602}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11602}# (quote (c)))
|
|
((@ (language tree-il) make-module-set)
|
|
#{source\ 11586}#
|
|
#{mod\ 11594}#
|
|
#{var\ 11595}#
|
|
#{public?\ 11596}#
|
|
#{exp\ 11588}#)
|
|
(#{decorate-source\ 9334}#
|
|
(list 'set!
|
|
(list (if #{public?\ 11596}#
|
|
'@
|
|
'@@)
|
|
#{mod\ 11594}#
|
|
#{var\ 11595}#)
|
|
#{exp\ 11588}#)
|
|
#{source\ 11586}#))))
|
|
(lambda (#{var\ 11606}#)
|
|
(let ((#{atom-key\ 11610}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11610}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-set)
|
|
#{source\ 11586}#
|
|
#{var\ 11606}#
|
|
#{exp\ 11588}#)
|
|
(#{decorate-source\ 9334}#
|
|
(list (quote set!) #{var\ 11606}# #{exp\ 11588}#)
|
|
#{source\ 11586}#)))))))
|
|
(#{build-global-reference\ 9348}#
|
|
(lambda (#{source\ 11614}# #{var\ 11615}# #{mod\ 11616}#)
|
|
(#{analyze-variable\ 9346}#
|
|
#{mod\ 11616}#
|
|
#{var\ 11615}#
|
|
(lambda (#{mod\ 11620}#
|
|
#{var\ 11621}#
|
|
#{public?\ 11622}#)
|
|
(let ((#{atom-key\ 11628}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11628}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{source\ 11614}#
|
|
#{mod\ 11620}#
|
|
#{var\ 11621}#
|
|
#{public?\ 11622}#)
|
|
(#{decorate-source\ 9334}#
|
|
(list (if #{public?\ 11622}# (quote @) (quote @@))
|
|
#{mod\ 11620}#
|
|
#{var\ 11621}#)
|
|
#{source\ 11614}#))))
|
|
(lambda (#{var\ 11631}#)
|
|
(let ((#{atom-key\ 11635}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11635}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{source\ 11614}#
|
|
#{var\ 11631}#)
|
|
(#{decorate-source\ 9334}#
|
|
#{var\ 11631}#
|
|
#{source\ 11614}#)))))))
|
|
(#{analyze-variable\ 9346}#
|
|
(lambda (#{mod\ 11638}#
|
|
#{var\ 11639}#
|
|
#{modref-cont\ 11640}#
|
|
#{bare-cont\ 11641}#)
|
|
(if (not #{mod\ 11638}#)
|
|
(#{bare-cont\ 11641}# #{var\ 11639}#)
|
|
(let ((#{kind\ 11648}# (car #{mod\ 11638}#))
|
|
(#{mod\ 11649}# (cdr #{mod\ 11638}#)))
|
|
(if (memv #{kind\ 11648}# (quote (public)))
|
|
(#{modref-cont\ 11640}#
|
|
#{mod\ 11649}#
|
|
#{var\ 11639}#
|
|
#t)
|
|
(if (memv #{kind\ 11648}# (quote (private)))
|
|
(if (not (equal?
|
|
#{mod\ 11649}#
|
|
(module-name (current-module))))
|
|
(#{modref-cont\ 11640}#
|
|
#{mod\ 11649}#
|
|
#{var\ 11639}#
|
|
#f)
|
|
(#{bare-cont\ 11641}# #{var\ 11639}#))
|
|
(if (memv #{kind\ 11648}# (quote (bare)))
|
|
(#{bare-cont\ 11641}# #{var\ 11639}#)
|
|
(if (memv #{kind\ 11648}# (quote (hygiene)))
|
|
(if (if (not (equal?
|
|
#{mod\ 11649}#
|
|
(module-name (current-module))))
|
|
(module-variable
|
|
(resolve-module #{mod\ 11649}#)
|
|
#{var\ 11639}#)
|
|
#f)
|
|
(#{modref-cont\ 11640}#
|
|
#{mod\ 11649}#
|
|
#{var\ 11639}#
|
|
#f)
|
|
(#{bare-cont\ 11641}# #{var\ 11639}#))
|
|
(syntax-violation
|
|
#f
|
|
"bad module kind"
|
|
#{var\ 11639}#
|
|
#{mod\ 11649}#)))))))))
|
|
(#{build-lexical-assignment\ 9344}#
|
|
(lambda (#{source\ 11657}#
|
|
#{name\ 11658}#
|
|
#{var\ 11659}#
|
|
#{exp\ 11660}#)
|
|
(let ((#{atom-key\ 11667}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11667}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-set)
|
|
#{source\ 11657}#
|
|
#{name\ 11658}#
|
|
#{var\ 11659}#
|
|
#{exp\ 11660}#)
|
|
(#{decorate-source\ 9334}#
|
|
(list (quote set!) #{var\ 11659}# #{exp\ 11660}#)
|
|
#{source\ 11657}#)))))
|
|
(#{build-lexical-reference\ 9342}#
|
|
(lambda (#{type\ 11671}#
|
|
#{source\ 11672}#
|
|
#{name\ 11673}#
|
|
#{var\ 11674}#)
|
|
(let ((#{atom-key\ 11681}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11681}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-ref)
|
|
#{source\ 11672}#
|
|
#{name\ 11673}#
|
|
#{var\ 11674}#)
|
|
(#{decorate-source\ 9334}#
|
|
#{var\ 11674}#
|
|
#{source\ 11672}#)))))
|
|
(#{build-conditional\ 9340}#
|
|
(lambda (#{source\ 11684}#
|
|
#{test-exp\ 11685}#
|
|
#{then-exp\ 11686}#
|
|
#{else-exp\ 11687}#)
|
|
(let ((#{atom-key\ 11694}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11694}# (quote (c)))
|
|
((@ (language tree-il) make-conditional)
|
|
#{source\ 11684}#
|
|
#{test-exp\ 11685}#
|
|
#{then-exp\ 11686}#
|
|
#{else-exp\ 11687}#)
|
|
(#{decorate-source\ 9334}#
|
|
(if (equal? #{else-exp\ 11687}# (quote (if #f #f)))
|
|
(list 'if
|
|
#{test-exp\ 11685}#
|
|
#{then-exp\ 11686}#)
|
|
(list 'if
|
|
#{test-exp\ 11685}#
|
|
#{then-exp\ 11686}#
|
|
#{else-exp\ 11687}#))
|
|
#{source\ 11684}#)))))
|
|
(#{build-application\ 9338}#
|
|
(lambda (#{source\ 11699}#
|
|
#{fun-exp\ 11700}#
|
|
#{arg-exps\ 11701}#)
|
|
(let ((#{atom-key\ 11707}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11707}# (quote (c)))
|
|
((@ (language tree-il) make-application)
|
|
#{source\ 11699}#
|
|
#{fun-exp\ 11700}#
|
|
#{arg-exps\ 11701}#)
|
|
(#{decorate-source\ 9334}#
|
|
(cons #{fun-exp\ 11700}# #{arg-exps\ 11701}#)
|
|
#{source\ 11699}#)))))
|
|
(#{build-void\ 9336}#
|
|
(lambda (#{source\ 11711}#)
|
|
(let ((#{atom-key\ 11715}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11715}# (quote (c)))
|
|
((@ (language tree-il) make-void)
|
|
#{source\ 11711}#)
|
|
(#{decorate-source\ 9334}#
|
|
'(if #f #f)
|
|
#{source\ 11711}#)))))
|
|
(#{decorate-source\ 9334}#
|
|
(lambda (#{e\ 11718}# #{s\ 11719}#)
|
|
(begin
|
|
(if (if (pair? #{e\ 11718}#) #{s\ 11719}# #f)
|
|
(set-source-properties!
|
|
#{e\ 11718}#
|
|
#{s\ 11719}#))
|
|
#{e\ 11718}#)))
|
|
(#{get-global-definition-hook\ 9332}#
|
|
(lambda (#{symbol\ 11724}# #{module\ 11725}#)
|
|
(begin
|
|
(if (if (not #{module\ 11725}#) (current-module) #f)
|
|
(warn "module system is booted, we should have a module"
|
|
#{symbol\ 11724}#))
|
|
(let ((#{v\ 11731}#
|
|
(module-variable
|
|
(if #{module\ 11725}#
|
|
(resolve-module (cdr #{module\ 11725}#))
|
|
(current-module))
|
|
#{symbol\ 11724}#)))
|
|
(if #{v\ 11731}#
|
|
(if (variable-bound? #{v\ 11731}#)
|
|
(let ((#{val\ 11736}# (variable-ref #{v\ 11731}#)))
|
|
(if (macro? #{val\ 11736}#)
|
|
(if (macro-type #{val\ 11736}#)
|
|
(cons (macro-type #{val\ 11736}#)
|
|
(macro-binding #{val\ 11736}#))
|
|
#f)
|
|
#f))
|
|
#f)
|
|
#f)))))
|
|
(#{put-global-definition-hook\ 9330}#
|
|
(lambda (#{symbol\ 11740}#
|
|
#{type\ 11741}#
|
|
#{val\ 11742}#)
|
|
(module-define!
|
|
(current-module)
|
|
#{symbol\ 11740}#
|
|
(make-syntax-transformer
|
|
#{symbol\ 11740}#
|
|
#{type\ 11741}#
|
|
#{val\ 11742}#))))
|
|
(#{local-eval-hook\ 9327}#
|
|
(lambda (#{x\ 11746}# #{mod\ 11747}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 9313}#
|
|
(let ((#{atom-key\ 11753}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11753}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 11746}#)
|
|
#{x\ 11746}#))))))
|
|
(#{top-level-eval-hook\ 9325}#
|
|
(lambda (#{x\ 11756}# #{mod\ 11757}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 9313}#
|
|
(let ((#{atom-key\ 11763}#
|
|
(fluid-ref #{*mode*\ 9315}#)))
|
|
(if (memv #{atom-key\ 11763}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 11756}#)
|
|
#{x\ 11756}#))))))
|
|
(#{fx<\ 9323}# <)
|
|
(#{fx=\ 9321}# =)
|
|
(#{fx-\ 9319}# -)
|
|
(#{fx+\ 9317}# +)
|
|
(#{*mode*\ 9315}# (make-fluid))
|
|
(#{noexpand\ 9313}# "noexpand"))
|
|
(begin
|
|
(#{global-extend\ 9410}#
|
|
'local-syntax
|
|
'letrec-syntax
|
|
#t)
|
|
(#{global-extend\ 9410}#
|
|
'local-syntax
|
|
'let-syntax
|
|
#f)
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (#{e\ 11766}#
|
|
#{r\ 11767}#
|
|
#{w\ 11768}#
|
|
#{s\ 11769}#
|
|
#{mod\ 11770}#)
|
|
((lambda (#{tmp\ 11776}#)
|
|
((lambda (#{tmp\ 11777}#)
|
|
(if (if #{tmp\ 11777}#
|
|
(apply (lambda (#{_\ 11783}#
|
|
#{var\ 11784}#
|
|
#{val\ 11785}#
|
|
#{e1\ 11786}#
|
|
#{e2\ 11787}#)
|
|
(#{valid-bound-ids?\ 9477}# #{var\ 11784}#))
|
|
#{tmp\ 11777}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 11794}#
|
|
#{var\ 11795}#
|
|
#{val\ 11796}#
|
|
#{e1\ 11797}#
|
|
#{e2\ 11798}#)
|
|
(let ((#{names\ 11800}#
|
|
(map (lambda (#{x\ 11801}#)
|
|
(#{id-var-name\ 9471}#
|
|
#{x\ 11801}#
|
|
#{w\ 11768}#))
|
|
#{var\ 11795}#)))
|
|
(begin
|
|
(for-each
|
|
(lambda (#{id\ 11804}# #{n\ 11805}#)
|
|
(let ((#{atom-key\ 11810}#
|
|
(#{binding-type\ 9397}#
|
|
(#{lookup\ 9408}#
|
|
#{n\ 11805}#
|
|
#{r\ 11767}#
|
|
#{mod\ 11770}#))))
|
|
(if (memv #{atom-key\ 11810}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"identifier out of context"
|
|
#{e\ 11766}#
|
|
(#{source-wrap\ 9485}#
|
|
#{id\ 11804}#
|
|
#{w\ 11768}#
|
|
#{s\ 11769}#
|
|
#{mod\ 11770}#)))))
|
|
#{var\ 11795}#
|
|
#{names\ 11800}#)
|
|
(#{chi-body\ 9507}#
|
|
(cons #{e1\ 11797}# #{e2\ 11798}#)
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 11766}#
|
|
#{w\ 11768}#
|
|
#{s\ 11769}#
|
|
#{mod\ 11770}#)
|
|
(#{extend-env\ 9402}#
|
|
#{names\ 11800}#
|
|
(let ((#{trans-r\ 11815}#
|
|
(#{macros-only-env\ 9406}#
|
|
#{r\ 11767}#)))
|
|
(map (lambda (#{x\ 11816}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 9511}#
|
|
(#{chi\ 9499}#
|
|
#{x\ 11816}#
|
|
#{trans-r\ 11815}#
|
|
#{w\ 11768}#
|
|
#{mod\ 11770}#)
|
|
#{mod\ 11770}#)))
|
|
#{val\ 11796}#))
|
|
#{r\ 11767}#)
|
|
#{w\ 11768}#
|
|
#{mod\ 11770}#))))
|
|
#{tmp\ 11777}#)
|
|
((lambda (#{_\ 11821}#)
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"bad syntax"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 11766}#
|
|
#{w\ 11768}#
|
|
#{s\ 11769}#
|
|
#{mod\ 11770}#)))
|
|
#{tmp\ 11776}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11776}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 11766}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'quote
|
|
(lambda (#{e\ 11822}#
|
|
#{r\ 11823}#
|
|
#{w\ 11824}#
|
|
#{s\ 11825}#
|
|
#{mod\ 11826}#)
|
|
((lambda (#{tmp\ 11832}#)
|
|
((lambda (#{tmp\ 11833}#)
|
|
(if #{tmp\ 11833}#
|
|
(apply (lambda (#{_\ 11836}# #{e\ 11837}#)
|
|
(#{build-data\ 9364}#
|
|
#{s\ 11825}#
|
|
(#{strip\ 9525}# #{e\ 11837}# #{w\ 11824}#)))
|
|
#{tmp\ 11833}#)
|
|
((lambda (#{_\ 11839}#)
|
|
(syntax-violation
|
|
'quote
|
|
"bad syntax"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 11822}#
|
|
#{w\ 11824}#
|
|
#{s\ 11825}#
|
|
#{mod\ 11826}#)))
|
|
#{tmp\ 11832}#)))
|
|
($sc-dispatch #{tmp\ 11832}# (quote (any any)))))
|
|
#{e\ 11822}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'syntax
|
|
(letrec ((#{regen\ 11855}#
|
|
(lambda (#{x\ 11856}#)
|
|
(let ((#{atom-key\ 11860}# (car #{x\ 11856}#)))
|
|
(if (memv #{atom-key\ 11860}# (quote (ref)))
|
|
(#{build-lexical-reference\ 9342}#
|
|
'value
|
|
#f
|
|
(cadr #{x\ 11856}#)
|
|
(cadr #{x\ 11856}#))
|
|
(if (memv #{atom-key\ 11860}# (quote (primitive)))
|
|
(#{build-primref\ 9362}# #f (cadr #{x\ 11856}#))
|
|
(if (memv #{atom-key\ 11860}# (quote (quote)))
|
|
(#{build-data\ 9364}# #f (cadr #{x\ 11856}#))
|
|
(if (memv #{atom-key\ 11860}# (quote (lambda)))
|
|
(if (list? (cadr #{x\ 11856}#))
|
|
(#{build-simple-lambda\ 9356}#
|
|
#f
|
|
(cadr #{x\ 11856}#)
|
|
#f
|
|
(cadr #{x\ 11856}#)
|
|
#f
|
|
(#{regen\ 11855}# (caddr #{x\ 11856}#)))
|
|
(error "how did we get here" #{x\ 11856}#))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
(car #{x\ 11856}#))
|
|
(map #{regen\ 11855}#
|
|
(cdr #{x\ 11856}#))))))))))
|
|
(#{gen-vector\ 11853}#
|
|
(lambda (#{x\ 11872}#)
|
|
(if (eq? (car #{x\ 11872}#) (quote list))
|
|
(cons (quote vector) (cdr #{x\ 11872}#))
|
|
(if (eq? (car #{x\ 11872}#) (quote quote))
|
|
(list 'quote
|
|
(list->vector (cadr #{x\ 11872}#)))
|
|
(list (quote list->vector) #{x\ 11872}#)))))
|
|
(#{gen-append\ 11851}#
|
|
(lambda (#{x\ 11882}# #{y\ 11883}#)
|
|
(if (equal? #{y\ 11883}# (quote (quote ())))
|
|
#{x\ 11882}#
|
|
(list (quote append) #{x\ 11882}# #{y\ 11883}#))))
|
|
(#{gen-cons\ 11849}#
|
|
(lambda (#{x\ 11887}# #{y\ 11888}#)
|
|
(let ((#{atom-key\ 11893}# (car #{y\ 11888}#)))
|
|
(if (memv #{atom-key\ 11893}# (quote (quote)))
|
|
(if (eq? (car #{x\ 11887}#) (quote quote))
|
|
(list 'quote
|
|
(cons (cadr #{x\ 11887}#)
|
|
(cadr #{y\ 11888}#)))
|
|
(if (eq? (cadr #{y\ 11888}#) (quote ()))
|
|
(list (quote list) #{x\ 11887}#)
|
|
(list (quote cons) #{x\ 11887}# #{y\ 11888}#)))
|
|
(if (memv #{atom-key\ 11893}# (quote (list)))
|
|
(cons 'list
|
|
(cons #{x\ 11887}# (cdr #{y\ 11888}#)))
|
|
(list (quote cons) #{x\ 11887}# #{y\ 11888}#))))))
|
|
(#{gen-map\ 11847}#
|
|
(lambda (#{e\ 11902}# #{map-env\ 11903}#)
|
|
(let ((#{formals\ 11908}# (map cdr #{map-env\ 11903}#))
|
|
(#{actuals\ 11909}#
|
|
(map (lambda (#{x\ 11910}#)
|
|
(list (quote ref) (car #{x\ 11910}#)))
|
|
#{map-env\ 11903}#)))
|
|
(if (eq? (car #{e\ 11902}#) (quote ref))
|
|
(car #{actuals\ 11909}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 11917}#)
|
|
(if (eq? (car #{x\ 11917}#) (quote ref))
|
|
(memq (cadr #{x\ 11917}#)
|
|
#{formals\ 11908}#)
|
|
#f))
|
|
(cdr #{e\ 11902}#))
|
|
(cons 'map
|
|
(cons (list 'primitive
|
|
(car #{e\ 11902}#))
|
|
(map (let ((#{r\ 11923}#
|
|
(map cons
|
|
#{formals\ 11908}#
|
|
#{actuals\ 11909}#)))
|
|
(lambda (#{x\ 11924}#)
|
|
(cdr (assq (cadr #{x\ 11924}#)
|
|
#{r\ 11923}#))))
|
|
(cdr #{e\ 11902}#))))
|
|
(cons 'map
|
|
(cons (list 'lambda
|
|
#{formals\ 11908}#
|
|
#{e\ 11902}#)
|
|
#{actuals\ 11909}#)))))))
|
|
(#{gen-mappend\ 11845}#
|
|
(lambda (#{e\ 11928}# #{map-env\ 11929}#)
|
|
(list 'apply
|
|
'(primitive append)
|
|
(#{gen-map\ 11847}#
|
|
#{e\ 11928}#
|
|
#{map-env\ 11929}#))))
|
|
(#{gen-ref\ 11843}#
|
|
(lambda (#{src\ 11933}#
|
|
#{var\ 11934}#
|
|
#{level\ 11935}#
|
|
#{maps\ 11936}#)
|
|
(if (#{fx=\ 9321}# #{level\ 11935}# 0)
|
|
(values #{var\ 11934}# #{maps\ 11936}#)
|
|
(if (null? #{maps\ 11936}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"missing ellipsis"
|
|
#{src\ 11933}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-ref\ 11843}#
|
|
#{src\ 11933}#
|
|
#{var\ 11934}#
|
|
(#{fx-\ 9319}# #{level\ 11935}# 1)
|
|
(cdr #{maps\ 11936}#)))
|
|
(lambda (#{outer-var\ 11941}# #{outer-maps\ 11942}#)
|
|
(let ((#{b\ 11946}#
|
|
(assq #{outer-var\ 11941}#
|
|
(car #{maps\ 11936}#))))
|
|
(if #{b\ 11946}#
|
|
(values (cdr #{b\ 11946}#) #{maps\ 11936}#)
|
|
(let ((#{inner-var\ 11948}#
|
|
(#{gen-var\ 9527}# (quote tmp))))
|
|
(values
|
|
#{inner-var\ 11948}#
|
|
(cons (cons (cons #{outer-var\ 11941}#
|
|
#{inner-var\ 11948}#)
|
|
(car #{maps\ 11936}#))
|
|
#{outer-maps\ 11942}#)))))))))))
|
|
(#{gen-syntax\ 11841}#
|
|
(lambda (#{src\ 11949}#
|
|
#{e\ 11950}#
|
|
#{r\ 11951}#
|
|
#{maps\ 11952}#
|
|
#{ellipsis?\ 11953}#
|
|
#{mod\ 11954}#)
|
|
(if (#{id?\ 9414}# #{e\ 11950}#)
|
|
(let ((#{label\ 11962}#
|
|
(#{id-var-name\ 9471}#
|
|
#{e\ 11950}#
|
|
'(()))))
|
|
(let ((#{b\ 11965}#
|
|
(#{lookup\ 9408}#
|
|
#{label\ 11962}#
|
|
#{r\ 11951}#
|
|
#{mod\ 11954}#)))
|
|
(if (eq? (#{binding-type\ 9397}# #{b\ 11965}#)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((#{var.lev\ 11967}#
|
|
(#{binding-value\ 9399}#
|
|
#{b\ 11965}#)))
|
|
(#{gen-ref\ 11843}#
|
|
#{src\ 11949}#
|
|
(car #{var.lev\ 11967}#)
|
|
(cdr #{var.lev\ 11967}#)
|
|
#{maps\ 11952}#)))
|
|
(lambda (#{var\ 11968}# #{maps\ 11969}#)
|
|
(values
|
|
(list (quote ref) #{var\ 11968}#)
|
|
#{maps\ 11969}#)))
|
|
(if (#{ellipsis?\ 11953}# #{e\ 11950}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"misplaced ellipsis"
|
|
#{src\ 11949}#)
|
|
(values
|
|
(list (quote quote) #{e\ 11950}#)
|
|
#{maps\ 11952}#)))))
|
|
((lambda (#{tmp\ 11974}#)
|
|
((lambda (#{tmp\ 11975}#)
|
|
(if (if #{tmp\ 11975}#
|
|
(apply (lambda (#{dots\ 11978}#
|
|
#{e\ 11979}#)
|
|
(#{ellipsis?\ 11953}#
|
|
#{dots\ 11978}#))
|
|
#{tmp\ 11975}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 11982}# #{e\ 11983}#)
|
|
(#{gen-syntax\ 11841}#
|
|
#{src\ 11949}#
|
|
#{e\ 11983}#
|
|
#{r\ 11951}#
|
|
#{maps\ 11952}#
|
|
(lambda (#{x\ 11984}#) #f)
|
|
#{mod\ 11954}#))
|
|
#{tmp\ 11975}#)
|
|
((lambda (#{tmp\ 11986}#)
|
|
(if (if #{tmp\ 11986}#
|
|
(apply (lambda (#{x\ 11990}#
|
|
#{dots\ 11991}#
|
|
#{y\ 11992}#)
|
|
(#{ellipsis?\ 11953}#
|
|
#{dots\ 11991}#))
|
|
#{tmp\ 11986}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 11996}#
|
|
#{dots\ 11997}#
|
|
#{y\ 11998}#)
|
|
(letrec ((#{f\ 12002}#
|
|
(lambda (#{y\ 12003}#
|
|
#{k\ 12004}#)
|
|
((lambda (#{tmp\ 12011}#)
|
|
((lambda (#{tmp\ 12012}#)
|
|
(if (if #{tmp\ 12012}#
|
|
(apply (lambda (#{dots\ 12015}#
|
|
#{y\ 12016}#)
|
|
(#{ellipsis?\ 11953}#
|
|
#{dots\ 12015}#))
|
|
#{tmp\ 12012}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 12019}#
|
|
#{y\ 12020}#)
|
|
(#{f\ 12002}#
|
|
#{y\ 12020}#
|
|
(lambda (#{maps\ 12021}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 12004}#
|
|
(cons '()
|
|
#{maps\ 12021}#)))
|
|
(lambda (#{x\ 12023}#
|
|
#{maps\ 12024}#)
|
|
(if (null? (car #{maps\ 12024}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 11949}#)
|
|
(values
|
|
(#{gen-mappend\ 11845}#
|
|
#{x\ 12023}#
|
|
(car #{maps\ 12024}#))
|
|
(cdr #{maps\ 12024}#))))))))
|
|
#{tmp\ 12012}#)
|
|
((lambda (#{_\ 12028}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11841}#
|
|
#{src\ 11949}#
|
|
#{y\ 12003}#
|
|
#{r\ 11951}#
|
|
#{maps\ 11952}#
|
|
#{ellipsis?\ 11953}#
|
|
#{mod\ 11954}#))
|
|
(lambda (#{y\ 12029}#
|
|
#{maps\ 12030}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 12004}#
|
|
#{maps\ 12030}#))
|
|
(lambda (#{x\ 12033}#
|
|
#{maps\ 12034}#)
|
|
(values
|
|
(#{gen-append\ 11851}#
|
|
#{x\ 12033}#
|
|
#{y\ 12029}#)
|
|
#{maps\ 12034}#))))))
|
|
#{tmp\ 12011}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12011}#
|
|
'(any . any))))
|
|
#{y\ 12003}#))))
|
|
(#{f\ 12002}#
|
|
#{y\ 11998}#
|
|
(lambda (#{maps\ 12005}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11841}#
|
|
#{src\ 11949}#
|
|
#{x\ 11996}#
|
|
#{r\ 11951}#
|
|
(cons '()
|
|
#{maps\ 12005}#)
|
|
#{ellipsis?\ 11953}#
|
|
#{mod\ 11954}#))
|
|
(lambda (#{x\ 12007}#
|
|
#{maps\ 12008}#)
|
|
(if (null? (car #{maps\ 12008}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 11949}#)
|
|
(values
|
|
(#{gen-map\ 11847}#
|
|
#{x\ 12007}#
|
|
(car #{maps\ 12008}#))
|
|
(cdr #{maps\ 12008}#)))))))))
|
|
#{tmp\ 11986}#)
|
|
((lambda (#{tmp\ 12037}#)
|
|
(if #{tmp\ 12037}#
|
|
(apply (lambda (#{x\ 12040}#
|
|
#{y\ 12041}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11841}#
|
|
#{src\ 11949}#
|
|
#{x\ 12040}#
|
|
#{r\ 11951}#
|
|
#{maps\ 11952}#
|
|
#{ellipsis?\ 11953}#
|
|
#{mod\ 11954}#))
|
|
(lambda (#{x\ 12042}#
|
|
#{maps\ 12043}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11841}#
|
|
#{src\ 11949}#
|
|
#{y\ 12041}#
|
|
#{r\ 11951}#
|
|
#{maps\ 12043}#
|
|
#{ellipsis?\ 11953}#
|
|
#{mod\ 11954}#))
|
|
(lambda (#{y\ 12046}#
|
|
#{maps\ 12047}#)
|
|
(values
|
|
(#{gen-cons\ 11849}#
|
|
#{x\ 12042}#
|
|
#{y\ 12046}#)
|
|
#{maps\ 12047}#))))))
|
|
#{tmp\ 12037}#)
|
|
((lambda (#{tmp\ 12050}#)
|
|
(if #{tmp\ 12050}#
|
|
(apply (lambda (#{e1\ 12053}#
|
|
#{e2\ 12054}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11841}#
|
|
#{src\ 11949}#
|
|
(cons #{e1\ 12053}#
|
|
#{e2\ 12054}#)
|
|
#{r\ 11951}#
|
|
#{maps\ 11952}#
|
|
#{ellipsis?\ 11953}#
|
|
#{mod\ 11954}#))
|
|
(lambda (#{e\ 12056}#
|
|
#{maps\ 12057}#)
|
|
(values
|
|
(#{gen-vector\ 11853}#
|
|
#{e\ 12056}#)
|
|
#{maps\ 12057}#))))
|
|
#{tmp\ 12050}#)
|
|
((lambda (#{_\ 12061}#)
|
|
(values
|
|
(list 'quote
|
|
#{e\ 11950}#)
|
|
#{maps\ 11952}#))
|
|
#{tmp\ 11974}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 11974}#
|
|
'#(vector (any . each-any))))))
|
|
($sc-dispatch
|
|
#{tmp\ 11974}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 11974}#
|
|
'(any any . any)))))
|
|
($sc-dispatch #{tmp\ 11974}# (quote (any any)))))
|
|
#{e\ 11950}#)))))
|
|
(lambda (#{e\ 12063}#
|
|
#{r\ 12064}#
|
|
#{w\ 12065}#
|
|
#{s\ 12066}#
|
|
#{mod\ 12067}#)
|
|
(let ((#{e\ 12074}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12063}#
|
|
#{w\ 12065}#
|
|
#{s\ 12066}#
|
|
#{mod\ 12067}#)))
|
|
((lambda (#{tmp\ 12075}#)
|
|
((lambda (#{tmp\ 12076}#)
|
|
(if #{tmp\ 12076}#
|
|
(apply (lambda (#{_\ 12079}# #{x\ 12080}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 11841}#
|
|
#{e\ 12074}#
|
|
#{x\ 12080}#
|
|
#{r\ 12064}#
|
|
'()
|
|
#{ellipsis?\ 9515}#
|
|
#{mod\ 12067}#))
|
|
(lambda (#{e\ 12081}# #{maps\ 12082}#)
|
|
(#{regen\ 11855}# #{e\ 12081}#))))
|
|
#{tmp\ 12076}#)
|
|
((lambda (#{_\ 12086}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"bad `syntax' form"
|
|
#{e\ 12074}#))
|
|
#{tmp\ 12075}#)))
|
|
($sc-dispatch #{tmp\ 12075}# (quote (any any)))))
|
|
#{e\ 12074}#)))))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'lambda
|
|
(lambda (#{e\ 12087}#
|
|
#{r\ 12088}#
|
|
#{w\ 12089}#
|
|
#{s\ 12090}#
|
|
#{mod\ 12091}#)
|
|
((lambda (#{tmp\ 12097}#)
|
|
((lambda (#{tmp\ 12098}#)
|
|
(if (if #{tmp\ 12098}#
|
|
(apply (lambda (#{_\ 12104}#
|
|
#{args\ 12105}#
|
|
#{docstring\ 12106}#
|
|
#{e1\ 12107}#
|
|
#{e2\ 12108}#)
|
|
(string? (syntax->datum #{docstring\ 12106}#)))
|
|
#{tmp\ 12098}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12114}#
|
|
#{args\ 12115}#
|
|
#{docstring\ 12116}#
|
|
#{e1\ 12117}#
|
|
#{e2\ 12118}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 9517}# #{args\ 12115}#))
|
|
(lambda (#{req\ 12119}#
|
|
#{opt\ 12120}#
|
|
#{rest\ 12121}#
|
|
#{kw\ 12122}#)
|
|
(#{chi-simple-lambda\ 9519}#
|
|
#{e\ 12087}#
|
|
#{r\ 12088}#
|
|
#{w\ 12089}#
|
|
#{s\ 12090}#
|
|
#{mod\ 12091}#
|
|
#{req\ 12119}#
|
|
#{rest\ 12121}#
|
|
(syntax->datum #{docstring\ 12116}#)
|
|
(cons #{e1\ 12117}# #{e2\ 12118}#)))))
|
|
#{tmp\ 12098}#)
|
|
((lambda (#{tmp\ 12128}#)
|
|
(if #{tmp\ 12128}#
|
|
(apply (lambda (#{_\ 12133}#
|
|
#{args\ 12134}#
|
|
#{e1\ 12135}#
|
|
#{e2\ 12136}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 9517}# #{args\ 12134}#))
|
|
(lambda (#{req\ 12137}#
|
|
#{opt\ 12138}#
|
|
#{rest\ 12139}#
|
|
#{kw\ 12140}#)
|
|
(#{chi-simple-lambda\ 9519}#
|
|
#{e\ 12087}#
|
|
#{r\ 12088}#
|
|
#{w\ 12089}#
|
|
#{s\ 12090}#
|
|
#{mod\ 12091}#
|
|
#{req\ 12137}#
|
|
#{rest\ 12139}#
|
|
#f
|
|
(cons #{e1\ 12135}# #{e2\ 12136}#)))))
|
|
#{tmp\ 12128}#)
|
|
((lambda (#{_\ 12147}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda"
|
|
#{e\ 12087}#))
|
|
#{tmp\ 12097}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12097}#
|
|
'(any any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12097}#
|
|
'(any any any any . each-any))))
|
|
#{e\ 12087}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'lambda*
|
|
(lambda (#{e\ 12148}#
|
|
#{r\ 12149}#
|
|
#{w\ 12150}#
|
|
#{s\ 12151}#
|
|
#{mod\ 12152}#)
|
|
((lambda (#{tmp\ 12158}#)
|
|
((lambda (#{tmp\ 12159}#)
|
|
(if #{tmp\ 12159}#
|
|
(apply (lambda (#{_\ 12164}#
|
|
#{args\ 12165}#
|
|
#{e1\ 12166}#
|
|
#{e2\ 12167}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9523}#
|
|
#{e\ 12148}#
|
|
#{r\ 12149}#
|
|
#{w\ 12150}#
|
|
#{s\ 12151}#
|
|
#{mod\ 12152}#
|
|
#{lambda*-formals\ 9521}#
|
|
(list (cons #{args\ 12165}#
|
|
(cons #{e1\ 12166}#
|
|
#{e2\ 12167}#)))))
|
|
(lambda (#{docstring\ 12169}# #{lcase\ 12170}#)
|
|
(#{build-case-lambda\ 9358}#
|
|
#{s\ 12151}#
|
|
#{docstring\ 12169}#
|
|
#{lcase\ 12170}#))))
|
|
#{tmp\ 12159}#)
|
|
((lambda (#{_\ 12174}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda*"
|
|
#{e\ 12148}#))
|
|
#{tmp\ 12158}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12158}#
|
|
'(any any any . each-any))))
|
|
#{e\ 12148}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'case-lambda
|
|
(lambda (#{e\ 12175}#
|
|
#{r\ 12176}#
|
|
#{w\ 12177}#
|
|
#{s\ 12178}#
|
|
#{mod\ 12179}#)
|
|
((lambda (#{tmp\ 12185}#)
|
|
((lambda (#{tmp\ 12186}#)
|
|
(if #{tmp\ 12186}#
|
|
(apply (lambda (#{_\ 12194}#
|
|
#{args\ 12195}#
|
|
#{e1\ 12196}#
|
|
#{e2\ 12197}#
|
|
#{args*\ 12198}#
|
|
#{e1*\ 12199}#
|
|
#{e2*\ 12200}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9523}#
|
|
#{e\ 12175}#
|
|
#{r\ 12176}#
|
|
#{w\ 12177}#
|
|
#{s\ 12178}#
|
|
#{mod\ 12179}#
|
|
#{lambda-formals\ 9517}#
|
|
(cons (cons #{args\ 12195}#
|
|
(cons #{e1\ 12196}#
|
|
#{e2\ 12197}#))
|
|
(map (lambda (#{tmp\ 12204}#
|
|
#{tmp\ 12203}#
|
|
#{tmp\ 12202}#)
|
|
(cons #{tmp\ 12202}#
|
|
(cons #{tmp\ 12203}#
|
|
#{tmp\ 12204}#)))
|
|
#{e2*\ 12200}#
|
|
#{e1*\ 12199}#
|
|
#{args*\ 12198}#))))
|
|
(lambda (#{docstring\ 12206}# #{lcase\ 12207}#)
|
|
(#{build-case-lambda\ 9358}#
|
|
#{s\ 12178}#
|
|
#{docstring\ 12206}#
|
|
#{lcase\ 12207}#))))
|
|
#{tmp\ 12186}#)
|
|
((lambda (#{_\ 12211}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda"
|
|
#{e\ 12175}#))
|
|
#{tmp\ 12185}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12185}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 12175}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'case-lambda*
|
|
(lambda (#{e\ 12212}#
|
|
#{r\ 12213}#
|
|
#{w\ 12214}#
|
|
#{s\ 12215}#
|
|
#{mod\ 12216}#)
|
|
((lambda (#{tmp\ 12222}#)
|
|
((lambda (#{tmp\ 12223}#)
|
|
(if #{tmp\ 12223}#
|
|
(apply (lambda (#{_\ 12231}#
|
|
#{args\ 12232}#
|
|
#{e1\ 12233}#
|
|
#{e2\ 12234}#
|
|
#{args*\ 12235}#
|
|
#{e1*\ 12236}#
|
|
#{e2*\ 12237}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 9523}#
|
|
#{e\ 12212}#
|
|
#{r\ 12213}#
|
|
#{w\ 12214}#
|
|
#{s\ 12215}#
|
|
#{mod\ 12216}#
|
|
#{lambda*-formals\ 9521}#
|
|
(cons (cons #{args\ 12232}#
|
|
(cons #{e1\ 12233}#
|
|
#{e2\ 12234}#))
|
|
(map (lambda (#{tmp\ 12241}#
|
|
#{tmp\ 12240}#
|
|
#{tmp\ 12239}#)
|
|
(cons #{tmp\ 12239}#
|
|
(cons #{tmp\ 12240}#
|
|
#{tmp\ 12241}#)))
|
|
#{e2*\ 12237}#
|
|
#{e1*\ 12236}#
|
|
#{args*\ 12235}#))))
|
|
(lambda (#{docstring\ 12243}# #{lcase\ 12244}#)
|
|
(#{build-case-lambda\ 9358}#
|
|
#{s\ 12215}#
|
|
#{docstring\ 12243}#
|
|
#{lcase\ 12244}#))))
|
|
#{tmp\ 12223}#)
|
|
((lambda (#{_\ 12248}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda*"
|
|
#{e\ 12212}#))
|
|
#{tmp\ 12222}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12222}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 12212}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'let
|
|
(letrec ((#{chi-let\ 12250}#
|
|
(lambda (#{e\ 12251}#
|
|
#{r\ 12252}#
|
|
#{w\ 12253}#
|
|
#{s\ 12254}#
|
|
#{mod\ 12255}#
|
|
#{constructor\ 12256}#
|
|
#{ids\ 12257}#
|
|
#{vals\ 12258}#
|
|
#{exps\ 12259}#)
|
|
(if (not (#{valid-bound-ids?\ 9477}# #{ids\ 12257}#))
|
|
(syntax-violation
|
|
'let
|
|
"duplicate bound variable"
|
|
#{e\ 12251}#)
|
|
(let ((#{labels\ 12271}#
|
|
(#{gen-labels\ 9432}# #{ids\ 12257}#))
|
|
(#{new-vars\ 12272}#
|
|
(map #{gen-var\ 9527}# #{ids\ 12257}#)))
|
|
(let ((#{nw\ 12275}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
#{ids\ 12257}#
|
|
#{labels\ 12271}#
|
|
#{w\ 12253}#))
|
|
(#{nr\ 12276}#
|
|
(#{extend-var-env\ 9404}#
|
|
#{labels\ 12271}#
|
|
#{new-vars\ 12272}#
|
|
#{r\ 12252}#)))
|
|
(#{constructor\ 12256}#
|
|
#{s\ 12254}#
|
|
(map syntax->datum #{ids\ 12257}#)
|
|
#{new-vars\ 12272}#
|
|
(map (lambda (#{x\ 12277}#)
|
|
(#{chi\ 9499}#
|
|
#{x\ 12277}#
|
|
#{r\ 12252}#
|
|
#{w\ 12253}#
|
|
#{mod\ 12255}#))
|
|
#{vals\ 12258}#)
|
|
(#{chi-body\ 9507}#
|
|
#{exps\ 12259}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12251}#
|
|
#{nw\ 12275}#
|
|
#{s\ 12254}#
|
|
#{mod\ 12255}#)
|
|
#{nr\ 12276}#
|
|
#{nw\ 12275}#
|
|
#{mod\ 12255}#))))))))
|
|
(lambda (#{e\ 12279}#
|
|
#{r\ 12280}#
|
|
#{w\ 12281}#
|
|
#{s\ 12282}#
|
|
#{mod\ 12283}#)
|
|
((lambda (#{tmp\ 12289}#)
|
|
((lambda (#{tmp\ 12290}#)
|
|
(if (if #{tmp\ 12290}#
|
|
(apply (lambda (#{_\ 12296}#
|
|
#{id\ 12297}#
|
|
#{val\ 12298}#
|
|
#{e1\ 12299}#
|
|
#{e2\ 12300}#)
|
|
(and-map #{id?\ 9414}# #{id\ 12297}#))
|
|
#{tmp\ 12290}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12307}#
|
|
#{id\ 12308}#
|
|
#{val\ 12309}#
|
|
#{e1\ 12310}#
|
|
#{e2\ 12311}#)
|
|
(#{chi-let\ 12250}#
|
|
#{e\ 12279}#
|
|
#{r\ 12280}#
|
|
#{w\ 12281}#
|
|
#{s\ 12282}#
|
|
#{mod\ 12283}#
|
|
#{build-let\ 9368}#
|
|
#{id\ 12308}#
|
|
#{val\ 12309}#
|
|
(cons #{e1\ 12310}# #{e2\ 12311}#)))
|
|
#{tmp\ 12290}#)
|
|
((lambda (#{tmp\ 12315}#)
|
|
(if (if #{tmp\ 12315}#
|
|
(apply (lambda (#{_\ 12322}#
|
|
#{f\ 12323}#
|
|
#{id\ 12324}#
|
|
#{val\ 12325}#
|
|
#{e1\ 12326}#
|
|
#{e2\ 12327}#)
|
|
(if (#{id?\ 9414}# #{f\ 12323}#)
|
|
(and-map #{id?\ 9414}# #{id\ 12324}#)
|
|
#f))
|
|
#{tmp\ 12315}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12337}#
|
|
#{f\ 12338}#
|
|
#{id\ 12339}#
|
|
#{val\ 12340}#
|
|
#{e1\ 12341}#
|
|
#{e2\ 12342}#)
|
|
(#{chi-let\ 12250}#
|
|
#{e\ 12279}#
|
|
#{r\ 12280}#
|
|
#{w\ 12281}#
|
|
#{s\ 12282}#
|
|
#{mod\ 12283}#
|
|
#{build-named-let\ 9370}#
|
|
(cons #{f\ 12338}# #{id\ 12339}#)
|
|
#{val\ 12340}#
|
|
(cons #{e1\ 12341}# #{e2\ 12342}#)))
|
|
#{tmp\ 12315}#)
|
|
((lambda (#{_\ 12347}#)
|
|
(syntax-violation
|
|
'let
|
|
"bad let"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12279}#
|
|
#{w\ 12281}#
|
|
#{s\ 12282}#
|
|
#{mod\ 12283}#)))
|
|
#{tmp\ 12289}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12289}#
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12289}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 12279}#))))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'letrec
|
|
(lambda (#{e\ 12348}#
|
|
#{r\ 12349}#
|
|
#{w\ 12350}#
|
|
#{s\ 12351}#
|
|
#{mod\ 12352}#)
|
|
((lambda (#{tmp\ 12358}#)
|
|
((lambda (#{tmp\ 12359}#)
|
|
(if (if #{tmp\ 12359}#
|
|
(apply (lambda (#{_\ 12365}#
|
|
#{id\ 12366}#
|
|
#{val\ 12367}#
|
|
#{e1\ 12368}#
|
|
#{e2\ 12369}#)
|
|
(and-map #{id?\ 9414}# #{id\ 12366}#))
|
|
#{tmp\ 12359}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12376}#
|
|
#{id\ 12377}#
|
|
#{val\ 12378}#
|
|
#{e1\ 12379}#
|
|
#{e2\ 12380}#)
|
|
(let ((#{ids\ 12382}# #{id\ 12377}#))
|
|
(if (not (#{valid-bound-ids?\ 9477}#
|
|
#{ids\ 12382}#))
|
|
(syntax-violation
|
|
'letrec
|
|
"duplicate bound variable"
|
|
#{e\ 12348}#)
|
|
(let ((#{labels\ 12386}#
|
|
(#{gen-labels\ 9432}# #{ids\ 12382}#))
|
|
(#{new-vars\ 12387}#
|
|
(map #{gen-var\ 9527}# #{ids\ 12382}#)))
|
|
(let ((#{w\ 12390}#
|
|
(#{make-binding-wrap\ 9461}#
|
|
#{ids\ 12382}#
|
|
#{labels\ 12386}#
|
|
#{w\ 12350}#))
|
|
(#{r\ 12391}#
|
|
(#{extend-var-env\ 9404}#
|
|
#{labels\ 12386}#
|
|
#{new-vars\ 12387}#
|
|
#{r\ 12349}#)))
|
|
(#{build-letrec\ 9372}#
|
|
#{s\ 12351}#
|
|
(map syntax->datum #{ids\ 12382}#)
|
|
#{new-vars\ 12387}#
|
|
(map (lambda (#{x\ 12392}#)
|
|
(#{chi\ 9499}#
|
|
#{x\ 12392}#
|
|
#{r\ 12391}#
|
|
#{w\ 12390}#
|
|
#{mod\ 12352}#))
|
|
#{val\ 12378}#)
|
|
(#{chi-body\ 9507}#
|
|
(cons #{e1\ 12379}# #{e2\ 12380}#)
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12348}#
|
|
#{w\ 12390}#
|
|
#{s\ 12351}#
|
|
#{mod\ 12352}#)
|
|
#{r\ 12391}#
|
|
#{w\ 12390}#
|
|
#{mod\ 12352}#)))))))
|
|
#{tmp\ 12359}#)
|
|
((lambda (#{_\ 12397}#)
|
|
(syntax-violation
|
|
'letrec
|
|
"bad letrec"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12348}#
|
|
#{w\ 12350}#
|
|
#{s\ 12351}#
|
|
#{mod\ 12352}#)))
|
|
#{tmp\ 12358}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12358}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 12348}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'set!
|
|
(lambda (#{e\ 12398}#
|
|
#{r\ 12399}#
|
|
#{w\ 12400}#
|
|
#{s\ 12401}#
|
|
#{mod\ 12402}#)
|
|
((lambda (#{tmp\ 12408}#)
|
|
((lambda (#{tmp\ 12409}#)
|
|
(if (if #{tmp\ 12409}#
|
|
(apply (lambda (#{_\ 12413}#
|
|
#{id\ 12414}#
|
|
#{val\ 12415}#)
|
|
(#{id?\ 9414}# #{id\ 12414}#))
|
|
#{tmp\ 12409}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12419}# #{id\ 12420}# #{val\ 12421}#)
|
|
(let ((#{val\ 12424}#
|
|
(#{chi\ 9499}#
|
|
#{val\ 12421}#
|
|
#{r\ 12399}#
|
|
#{w\ 12400}#
|
|
#{mod\ 12402}#))
|
|
(#{n\ 12425}#
|
|
(#{id-var-name\ 9471}#
|
|
#{id\ 12420}#
|
|
#{w\ 12400}#)))
|
|
(let ((#{b\ 12427}#
|
|
(#{lookup\ 9408}#
|
|
#{n\ 12425}#
|
|
#{r\ 12399}#
|
|
#{mod\ 12402}#)))
|
|
(let ((#{atom-key\ 12430}#
|
|
(#{binding-type\ 9397}# #{b\ 12427}#)))
|
|
(if (memv #{atom-key\ 12430}#
|
|
'(lexical))
|
|
(#{build-lexical-assignment\ 9344}#
|
|
#{s\ 12401}#
|
|
(syntax->datum #{id\ 12420}#)
|
|
(#{binding-value\ 9399}# #{b\ 12427}#)
|
|
#{val\ 12424}#)
|
|
(if (memv #{atom-key\ 12430}#
|
|
'(global))
|
|
(#{build-global-assignment\ 9350}#
|
|
#{s\ 12401}#
|
|
#{n\ 12425}#
|
|
#{val\ 12424}#
|
|
#{mod\ 12402}#)
|
|
(if (memv #{atom-key\ 12430}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'set!
|
|
"identifier out of context"
|
|
(#{wrap\ 9483}#
|
|
#{id\ 12420}#
|
|
#{w\ 12400}#
|
|
#{mod\ 12402}#))
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12398}#
|
|
#{w\ 12400}#
|
|
#{s\ 12401}#
|
|
#{mod\ 12402}#)))))))))
|
|
#{tmp\ 12409}#)
|
|
((lambda (#{tmp\ 12435}#)
|
|
(if #{tmp\ 12435}#
|
|
(apply (lambda (#{_\ 12440}#
|
|
#{head\ 12441}#
|
|
#{tail\ 12442}#
|
|
#{val\ 12443}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 9495}#
|
|
#{head\ 12441}#
|
|
#{r\ 12399}#
|
|
'(())
|
|
#f
|
|
#f
|
|
#{mod\ 12402}#
|
|
#t))
|
|
(lambda (#{type\ 12446}#
|
|
#{value\ 12447}#
|
|
#{ee\ 12448}#
|
|
#{ww\ 12449}#
|
|
#{ss\ 12450}#
|
|
#{modmod\ 12451}#)
|
|
(if (memv #{type\ 12446}#
|
|
'(module-ref))
|
|
(let ((#{val\ 12460}#
|
|
(#{chi\ 9499}#
|
|
#{val\ 12443}#
|
|
#{r\ 12399}#
|
|
#{w\ 12400}#
|
|
#{mod\ 12402}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{value\ 12447}#
|
|
(cons #{head\ 12441}#
|
|
#{tail\ 12442}#)))
|
|
(lambda (#{id\ 12462}#
|
|
#{mod\ 12463}#)
|
|
(#{build-global-assignment\ 9350}#
|
|
#{s\ 12401}#
|
|
#{id\ 12462}#
|
|
#{val\ 12460}#
|
|
#{mod\ 12463}#))))
|
|
(#{build-application\ 9338}#
|
|
#{s\ 12401}#
|
|
(#{chi\ 9499}#
|
|
(list '#(syntax-object
|
|
setter
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(type
|
|
value
|
|
ee
|
|
ww
|
|
ss
|
|
modmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12452"
|
|
"i12453"
|
|
"i12454"
|
|
"i12455"
|
|
"i12456"
|
|
"i12457"))
|
|
#(ribcage
|
|
#(_ head tail val)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12436"
|
|
"i12437"
|
|
"i12438"
|
|
"i12439"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w s mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12403"
|
|
"i12404"
|
|
"i12405"
|
|
"i12406"
|
|
"i12407"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile))
|
|
#{head\ 12441}#)
|
|
#{r\ 12399}#
|
|
#{w\ 12400}#
|
|
#{mod\ 12402}#)
|
|
(map (lambda (#{e\ 12467}#)
|
|
(#{chi\ 9499}#
|
|
#{e\ 12467}#
|
|
#{r\ 12399}#
|
|
#{w\ 12400}#
|
|
#{mod\ 12402}#))
|
|
(append
|
|
#{tail\ 12442}#
|
|
(list #{val\ 12443}#))))))))
|
|
#{tmp\ 12435}#)
|
|
((lambda (#{_\ 12471}#)
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12398}#
|
|
#{w\ 12400}#
|
|
#{s\ 12401}#
|
|
#{mod\ 12402}#)))
|
|
#{tmp\ 12408}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12408}#
|
|
'(any (any . each-any) any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12408}#
|
|
'(any any any))))
|
|
#{e\ 12398}#)))
|
|
(#{global-extend\ 9410}#
|
|
'module-ref
|
|
'@
|
|
(lambda (#{e\ 12472}#)
|
|
((lambda (#{tmp\ 12474}#)
|
|
((lambda (#{tmp\ 12475}#)
|
|
(if (if #{tmp\ 12475}#
|
|
(apply (lambda (#{_\ 12479}#
|
|
#{mod\ 12480}#
|
|
#{id\ 12481}#)
|
|
(if (and-map #{id?\ 9414}# #{mod\ 12480}#)
|
|
(#{id?\ 9414}# #{id\ 12481}#)
|
|
#f))
|
|
#{tmp\ 12475}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12488}# #{mod\ 12489}# #{id\ 12490}#)
|
|
(values
|
|
(syntax->datum #{id\ 12490}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
public
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i12485" "i12486" "i12487"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i12473"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile))
|
|
#{mod\ 12489}#))))
|
|
#{tmp\ 12475}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12474}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12474}#
|
|
'(any each-any any))))
|
|
#{e\ 12472}#)))
|
|
(#{global-extend\ 9410}#
|
|
'module-ref
|
|
'@@
|
|
(lambda (#{e\ 12492}#)
|
|
((lambda (#{tmp\ 12494}#)
|
|
((lambda (#{tmp\ 12495}#)
|
|
(if (if #{tmp\ 12495}#
|
|
(apply (lambda (#{_\ 12499}#
|
|
#{mod\ 12500}#
|
|
#{id\ 12501}#)
|
|
(if (and-map #{id?\ 9414}# #{mod\ 12500}#)
|
|
(#{id?\ 9414}# #{id\ 12501}#)
|
|
#f))
|
|
#{tmp\ 12495}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 12508}# #{mod\ 12509}# #{id\ 12510}#)
|
|
(values
|
|
(syntax->datum #{id\ 12510}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
private
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i12505" "i12506" "i12507"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i12493"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile))
|
|
#{mod\ 12509}#))))
|
|
#{tmp\ 12495}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12494}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12494}#
|
|
'(any each-any any))))
|
|
#{e\ 12492}#)))
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'if
|
|
(lambda (#{e\ 12512}#
|
|
#{r\ 12513}#
|
|
#{w\ 12514}#
|
|
#{s\ 12515}#
|
|
#{mod\ 12516}#)
|
|
((lambda (#{tmp\ 12522}#)
|
|
((lambda (#{tmp\ 12523}#)
|
|
(if #{tmp\ 12523}#
|
|
(apply (lambda (#{_\ 12527}# #{test\ 12528}# #{then\ 12529}#)
|
|
(#{build-conditional\ 9340}#
|
|
#{s\ 12515}#
|
|
(#{chi\ 9499}#
|
|
#{test\ 12528}#
|
|
#{r\ 12513}#
|
|
#{w\ 12514}#
|
|
#{mod\ 12516}#)
|
|
(#{chi\ 9499}#
|
|
#{then\ 12529}#
|
|
#{r\ 12513}#
|
|
#{w\ 12514}#
|
|
#{mod\ 12516}#)
|
|
(#{build-void\ 9336}# #f)))
|
|
#{tmp\ 12523}#)
|
|
((lambda (#{tmp\ 12531}#)
|
|
(if #{tmp\ 12531}#
|
|
(apply (lambda (#{_\ 12536}#
|
|
#{test\ 12537}#
|
|
#{then\ 12538}#
|
|
#{else\ 12539}#)
|
|
(#{build-conditional\ 9340}#
|
|
#{s\ 12515}#
|
|
(#{chi\ 9499}#
|
|
#{test\ 12537}#
|
|
#{r\ 12513}#
|
|
#{w\ 12514}#
|
|
#{mod\ 12516}#)
|
|
(#{chi\ 9499}#
|
|
#{then\ 12538}#
|
|
#{r\ 12513}#
|
|
#{w\ 12514}#
|
|
#{mod\ 12516}#)
|
|
(#{chi\ 9499}#
|
|
#{else\ 12539}#
|
|
#{r\ 12513}#
|
|
#{w\ 12514}#
|
|
#{mod\ 12516}#)))
|
|
#{tmp\ 12531}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12522}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12522}#
|
|
'(any any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12522}#
|
|
'(any any any))))
|
|
#{e\ 12512}#)))
|
|
(#{global-extend\ 9410}#
|
|
'begin
|
|
'begin
|
|
'())
|
|
(#{global-extend\ 9410}#
|
|
'define
|
|
'define
|
|
'())
|
|
(#{global-extend\ 9410}#
|
|
'define-syntax
|
|
'define-syntax
|
|
'())
|
|
(#{global-extend\ 9410}#
|
|
'eval-when
|
|
'eval-when
|
|
'())
|
|
(#{global-extend\ 9410}#
|
|
'core
|
|
'syntax-case
|
|
(letrec ((#{gen-syntax-case\ 12547}#
|
|
(lambda (#{x\ 12548}#
|
|
#{keys\ 12549}#
|
|
#{clauses\ 12550}#
|
|
#{r\ 12551}#
|
|
#{mod\ 12552}#)
|
|
(if (null? #{clauses\ 12550}#)
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
'syntax-violation)
|
|
(list (#{build-data\ 9364}# #f #f)
|
|
(#{build-data\ 9364}#
|
|
#f
|
|
"source expression failed to match any pattern")
|
|
#{x\ 12548}#))
|
|
((lambda (#{tmp\ 12562}#)
|
|
((lambda (#{tmp\ 12563}#)
|
|
(if #{tmp\ 12563}#
|
|
(apply (lambda (#{pat\ 12566}# #{exp\ 12567}#)
|
|
(if (if (#{id?\ 9414}# #{pat\ 12566}#)
|
|
(and-map
|
|
(lambda (#{x\ 12570}#)
|
|
(not (#{free-id=?\ 9473}#
|
|
#{pat\ 12566}#
|
|
#{x\ 12570}#)))
|
|
(cons '#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("i12564"
|
|
"i12565"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r
|
|
mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i12553"
|
|
"i12554"
|
|
"i12555"
|
|
"i12556"
|
|
"i12557"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i12546"
|
|
"i12544"
|
|
"i12542"
|
|
"i12540"))
|
|
#(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-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))
|
|
("i9528"
|
|
"i9526"
|
|
"i9524"
|
|
"i9522"
|
|
"i9520"
|
|
"i9518"
|
|
"i9516"
|
|
"i9514"
|
|
"i9512"
|
|
"i9510"
|
|
"i9508"
|
|
"i9506"
|
|
"i9504"
|
|
"i9502"
|
|
"i9500"
|
|
"i9498"
|
|
"i9496"
|
|
"i9494"
|
|
"i9492"
|
|
"i9490"
|
|
"i9488"
|
|
"i9486"
|
|
"i9484"
|
|
"i9482"
|
|
"i9480"
|
|
"i9478"
|
|
"i9476"
|
|
"i9474"
|
|
"i9472"
|
|
"i9470"
|
|
"i9468"
|
|
"i9466"
|
|
"i9464"
|
|
"i9462"
|
|
"i9460"
|
|
"i9458"
|
|
"i9457"
|
|
"i9456"
|
|
"i9454"
|
|
"i9453"
|
|
"i9452"
|
|
"i9451"
|
|
"i9450"
|
|
"i9448"
|
|
"i9446"
|
|
"i9444"
|
|
"i9442"
|
|
"i9440"
|
|
"i9438"
|
|
"i9436"
|
|
"i9434"
|
|
"i9431"
|
|
"i9429"
|
|
"i9428"
|
|
"i9427"
|
|
"i9426"
|
|
"i9425"
|
|
"i9424"
|
|
"i9422"
|
|
"i9420"
|
|
"i9418"
|
|
"i9416"
|
|
"i9415"
|
|
"i9413"
|
|
"i9411"
|
|
"i9409"
|
|
"i9407"
|
|
"i9405"
|
|
"i9403"
|
|
"i9401"
|
|
"i9400"
|
|
"i9398"
|
|
"i9396"
|
|
"i9395"
|
|
"i9394"
|
|
"i9392"
|
|
"i9391"
|
|
"i9389"
|
|
"i9387"
|
|
"i9385"
|
|
"i9383"
|
|
"i9381"
|
|
"i9379"
|
|
"i9377"
|
|
"i9375"
|
|
"i9373"
|
|
"i9371"
|
|
"i9369"
|
|
"i9367"
|
|
"i9365"
|
|
"i9363"
|
|
"i9361"
|
|
"i9359"
|
|
"i9357"
|
|
"i9355"
|
|
"i9353"
|
|
"i9351"
|
|
"i9349"
|
|
"i9347"
|
|
"i9345"
|
|
"i9343"
|
|
"i9341"
|
|
"i9339"
|
|
"i9337"
|
|
"i9335"
|
|
"i9333"
|
|
"i9331"
|
|
"i9329"
|
|
"i9328"
|
|
"i9326"
|
|
"i9324"
|
|
"i9322"
|
|
"i9320"
|
|
"i9318"
|
|
"i9316"
|
|
"i9314"
|
|
"i9312"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i9215" "i9213")))
|
|
(hygiene guile))
|
|
#{keys\ 12549}#))
|
|
#f)
|
|
(let ((#{labels\ 12574}#
|
|
(list (#{gen-label\ 9430}#)))
|
|
(#{var\ 12575}#
|
|
(#{gen-var\ 9527}#
|
|
#{pat\ 12566}#)))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-simple-lambda\ 9356}#
|
|
#f
|
|
(list (syntax->datum
|
|
#{pat\ 12566}#))
|
|
#f
|
|
(list #{var\ 12575}#)
|
|
#f
|
|
(#{chi\ 9499}#
|
|
#{exp\ 12567}#
|
|
(#{extend-env\ 9402}#
|
|
#{labels\ 12574}#
|
|
(list (cons 'syntax
|
|
(cons #{var\ 12575}#
|
|
0)))
|
|
#{r\ 12551}#)
|
|
(#{make-binding-wrap\ 9461}#
|
|
(list #{pat\ 12566}#)
|
|
#{labels\ 12574}#
|
|
'(()))
|
|
#{mod\ 12552}#))
|
|
(list #{x\ 12548}#)))
|
|
(#{gen-clause\ 12545}#
|
|
#{x\ 12548}#
|
|
#{keys\ 12549}#
|
|
(cdr #{clauses\ 12550}#)
|
|
#{r\ 12551}#
|
|
#{pat\ 12566}#
|
|
#t
|
|
#{exp\ 12567}#
|
|
#{mod\ 12552}#)))
|
|
#{tmp\ 12563}#)
|
|
((lambda (#{tmp\ 12581}#)
|
|
(if #{tmp\ 12581}#
|
|
(apply (lambda (#{pat\ 12585}#
|
|
#{fender\ 12586}#
|
|
#{exp\ 12587}#)
|
|
(#{gen-clause\ 12545}#
|
|
#{x\ 12548}#
|
|
#{keys\ 12549}#
|
|
(cdr #{clauses\ 12550}#)
|
|
#{r\ 12551}#
|
|
#{pat\ 12585}#
|
|
#{fender\ 12586}#
|
|
#{exp\ 12587}#
|
|
#{mod\ 12552}#))
|
|
#{tmp\ 12581}#)
|
|
((lambda (#{_\ 12589}#)
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid clause"
|
|
(car #{clauses\ 12550}#)))
|
|
#{tmp\ 12562}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12562}#
|
|
'(any any any)))))
|
|
($sc-dispatch #{tmp\ 12562}# (quote (any any)))))
|
|
(car #{clauses\ 12550}#)))))
|
|
(#{gen-clause\ 12545}#
|
|
(lambda (#{x\ 12590}#
|
|
#{keys\ 12591}#
|
|
#{clauses\ 12592}#
|
|
#{r\ 12593}#
|
|
#{pat\ 12594}#
|
|
#{fender\ 12595}#
|
|
#{exp\ 12596}#
|
|
#{mod\ 12597}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{convert-pattern\ 12541}#
|
|
#{pat\ 12594}#
|
|
#{keys\ 12591}#))
|
|
(lambda (#{p\ 12606}# #{pvars\ 12607}#)
|
|
(if (not (#{distinct-bound-ids?\ 9479}#
|
|
(map car #{pvars\ 12607}#)))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"duplicate pattern variable"
|
|
#{pat\ 12594}#)
|
|
(if (not (and-map
|
|
(lambda (#{x\ 12614}#)
|
|
(not (#{ellipsis?\ 9515}#
|
|
(car #{x\ 12614}#))))
|
|
#{pvars\ 12607}#))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"misplaced ellipsis"
|
|
#{pat\ 12594}#)
|
|
(let ((#{y\ 12618}#
|
|
(#{gen-var\ 9527}# (quote tmp))))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-simple-lambda\ 9356}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{y\ 12618}#)
|
|
#f
|
|
(let ((#{y\ 12622}#
|
|
(#{build-lexical-reference\ 9342}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{y\ 12618}#)))
|
|
(#{build-conditional\ 9340}#
|
|
#f
|
|
((lambda (#{tmp\ 12625}#)
|
|
((lambda (#{tmp\ 12626}#)
|
|
(if #{tmp\ 12626}#
|
|
(apply (lambda () #{y\ 12622}#)
|
|
#{tmp\ 12626}#)
|
|
((lambda (#{_\ 12628}#)
|
|
(#{build-conditional\ 9340}#
|
|
#f
|
|
#{y\ 12622}#
|
|
(#{build-dispatch-call\ 12543}#
|
|
#{pvars\ 12607}#
|
|
#{fender\ 12595}#
|
|
#{y\ 12622}#
|
|
#{r\ 12593}#
|
|
#{mod\ 12597}#)
|
|
(#{build-data\ 9364}#
|
|
#f
|
|
#f)))
|
|
#{tmp\ 12625}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12625}#
|
|
'#(atom #t))))
|
|
#{fender\ 12595}#)
|
|
(#{build-dispatch-call\ 12543}#
|
|
#{pvars\ 12607}#
|
|
#{exp\ 12596}#
|
|
#{y\ 12622}#
|
|
#{r\ 12593}#
|
|
#{mod\ 12597}#)
|
|
(#{gen-syntax-case\ 12547}#
|
|
#{x\ 12590}#
|
|
#{keys\ 12591}#
|
|
#{clauses\ 12592}#
|
|
#{r\ 12593}#
|
|
#{mod\ 12597}#))))
|
|
(list (if (eq? #{p\ 12606}# (quote any))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
'list)
|
|
(list #{x\ 12590}#))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}#
|
|
#f
|
|
'$sc-dispatch)
|
|
(list #{x\ 12590}#
|
|
(#{build-data\ 9364}#
|
|
#f
|
|
#{p\ 12606}#)))))))))))))
|
|
(#{build-dispatch-call\ 12543}#
|
|
(lambda (#{pvars\ 12636}#
|
|
#{exp\ 12637}#
|
|
#{y\ 12638}#
|
|
#{r\ 12639}#
|
|
#{mod\ 12640}#)
|
|
(let ((#{ids\ 12648}# (map car #{pvars\ 12636}#))
|
|
(#{levels\ 12649}# (map cdr #{pvars\ 12636}#)))
|
|
(let ((#{labels\ 12652}#
|
|
(#{gen-labels\ 9432}# #{ids\ 12648}#))
|
|
(#{new-vars\ 12653}#
|
|
(map #{gen-var\ 9527}# #{ids\ 12648}#)))
|
|
(#{build-application\ 9338}#
|
|
#f
|
|
(#{build-primref\ 9362}# #f (quote apply))
|
|
(list (#{build-simple-lambda\ 9356}#
|
|
#f
|
|
(map syntax->datum #{ids\ 12648}#)
|
|
#f
|
|
#{new-vars\ 12653}#
|
|
#f
|
|
(#{chi\ 9499}#
|
|
#{exp\ 12637}#
|
|
(#{extend-env\ 9402}#
|
|
#{labels\ 12652}#
|
|
(map (lambda (#{var\ 12657}#
|
|
#{level\ 12658}#)
|
|
(cons 'syntax
|
|
(cons #{var\ 12657}#
|
|
#{level\ 12658}#)))
|
|
#{new-vars\ 12653}#
|
|
(map cdr #{pvars\ 12636}#))
|
|
#{r\ 12639}#)
|
|
(#{make-binding-wrap\ 9461}#
|
|
#{ids\ 12648}#
|
|
#{labels\ 12652}#
|
|
'(()))
|
|
#{mod\ 12640}#))
|
|
#{y\ 12638}#))))))
|
|
(#{convert-pattern\ 12541}#
|
|
(lambda (#{pattern\ 12664}# #{keys\ 12665}#)
|
|
(letrec ((#{cvt\ 12671}#
|
|
(lambda (#{p\ 12672}#
|
|
#{n\ 12673}#
|
|
#{ids\ 12674}#)
|
|
(if (#{id?\ 9414}# #{p\ 12672}#)
|
|
(if (#{bound-id-member?\ 9481}#
|
|
#{p\ 12672}#
|
|
#{keys\ 12665}#)
|
|
(values
|
|
(vector (quote free-id) #{p\ 12672}#)
|
|
#{ids\ 12674}#)
|
|
(values
|
|
'any
|
|
(cons (cons #{p\ 12672}# #{n\ 12673}#)
|
|
#{ids\ 12674}#)))
|
|
((lambda (#{tmp\ 12678}#)
|
|
((lambda (#{tmp\ 12679}#)
|
|
(if (if #{tmp\ 12679}#
|
|
(apply (lambda (#{x\ 12682}#
|
|
#{dots\ 12683}#)
|
|
(#{ellipsis?\ 9515}#
|
|
#{dots\ 12683}#))
|
|
#{tmp\ 12679}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 12686}#
|
|
#{dots\ 12687}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12671}#
|
|
#{x\ 12686}#
|
|
(#{fx+\ 9317}#
|
|
#{n\ 12673}#
|
|
1)
|
|
#{ids\ 12674}#))
|
|
(lambda (#{p\ 12688}#
|
|
#{ids\ 12689}#)
|
|
(values
|
|
(if (eq? #{p\ 12688}#
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
#{p\ 12688}#))
|
|
#{ids\ 12689}#))))
|
|
#{tmp\ 12679}#)
|
|
((lambda (#{tmp\ 12692}#)
|
|
(if (if #{tmp\ 12692}#
|
|
(apply (lambda (#{x\ 12696}#
|
|
#{dots\ 12697}#
|
|
#{ys\ 12698}#)
|
|
(#{ellipsis?\ 9515}#
|
|
#{dots\ 12697}#))
|
|
#{tmp\ 12692}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 12702}#
|
|
#{dots\ 12703}#
|
|
#{ys\ 12704}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 12669}#
|
|
#{ys\ 12704}#
|
|
#{n\ 12673}#
|
|
#{ids\ 12674}#))
|
|
(lambda (#{ys\ 12706}#
|
|
#{ids\ 12707}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12671}#
|
|
#{x\ 12702}#
|
|
(+ #{n\ 12673}#
|
|
1)
|
|
#{ids\ 12707}#))
|
|
(lambda (#{x\ 12710}#
|
|
#{ids\ 12711}#)
|
|
(values
|
|
(list->vector
|
|
(cons 'each+
|
|
(cons #{x\ 12710}#
|
|
(cons (reverse
|
|
#{ys\ 12706}#)
|
|
'(())))))
|
|
#{ids\ 12711}#))))))
|
|
#{tmp\ 12692}#)
|
|
((lambda (#{tmp\ 12715}#)
|
|
(if #{tmp\ 12715}#
|
|
(apply (lambda (#{x\ 12718}#
|
|
#{y\ 12719}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12671}#
|
|
#{y\ 12719}#
|
|
#{n\ 12673}#
|
|
#{ids\ 12674}#))
|
|
(lambda (#{y\ 12720}#
|
|
#{ids\ 12721}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12671}#
|
|
#{x\ 12718}#
|
|
#{n\ 12673}#
|
|
#{ids\ 12721}#))
|
|
(lambda (#{x\ 12724}#
|
|
#{ids\ 12725}#)
|
|
(values
|
|
(cons #{x\ 12724}#
|
|
#{y\ 12720}#)
|
|
#{ids\ 12725}#))))))
|
|
#{tmp\ 12715}#)
|
|
((lambda (#{tmp\ 12728}#)
|
|
(if #{tmp\ 12728}#
|
|
(apply (lambda ()
|
|
(values
|
|
'()
|
|
#{ids\ 12674}#))
|
|
#{tmp\ 12728}#)
|
|
((lambda (#{tmp\ 12729}#)
|
|
(if #{tmp\ 12729}#
|
|
(apply (lambda (#{x\ 12731}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12671}#
|
|
#{x\ 12731}#
|
|
#{n\ 12673}#
|
|
#{ids\ 12674}#))
|
|
(lambda (#{p\ 12733}#
|
|
#{ids\ 12734}#)
|
|
(values
|
|
(vector
|
|
'vector
|
|
#{p\ 12733}#)
|
|
#{ids\ 12734}#))))
|
|
#{tmp\ 12729}#)
|
|
((lambda (#{x\ 12738}#)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(#{strip\ 9525}#
|
|
#{p\ 12672}#
|
|
'(())))
|
|
#{ids\ 12674}#))
|
|
#{tmp\ 12678}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12678}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12678}#
|
|
'()))))
|
|
($sc-dispatch
|
|
#{tmp\ 12678}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12678}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 12678}#
|
|
'(any any))))
|
|
#{p\ 12672}#))))
|
|
(#{cvt*\ 12669}#
|
|
(lambda (#{p*\ 12740}#
|
|
#{n\ 12741}#
|
|
#{ids\ 12742}#)
|
|
(if (null? #{p*\ 12740}#)
|
|
(values (quote ()) #{ids\ 12742}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 12669}#
|
|
(cdr #{p*\ 12740}#)
|
|
#{n\ 12741}#
|
|
#{ids\ 12742}#))
|
|
(lambda (#{y\ 12746}# #{ids\ 12747}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 12671}#
|
|
(car #{p*\ 12740}#)
|
|
#{n\ 12741}#
|
|
#{ids\ 12747}#))
|
|
(lambda (#{x\ 12750}# #{ids\ 12751}#)
|
|
(values
|
|
(cons #{x\ 12750}# #{y\ 12746}#)
|
|
#{ids\ 12751}#)))))))))
|
|
(#{cvt\ 12671}# #{pattern\ 12664}# 0 (quote ()))))))
|
|
(lambda (#{e\ 12754}#
|
|
#{r\ 12755}#
|
|
#{w\ 12756}#
|
|
#{s\ 12757}#
|
|
#{mod\ 12758}#)
|
|
(let ((#{e\ 12765}#
|
|
(#{source-wrap\ 9485}#
|
|
#{e\ 12754}#
|
|
#{w\ 12756}#
|
|
#{s\ 12757}#
|
|
#{mod\ 12758}#)))
|
|
((lambda (#{tmp\ 12766}#)
|
|
((lambda (#{tmp\ 12767}#)
|
|
(if #{tmp\ 12767}#
|
|
(apply (lambda (#{_\ 12772}#
|
|
#{val\ 12773}#
|
|
#{key\ 12774}#
|
|
#{m\ 12775}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 12776}#)
|
|
(if (#{id?\ 9414}# #{x\ 12776}#)
|
|
(not (#{ellipsis?\ 9515}#
|
|
#{x\ 12776}#))
|
|
#f))
|
|
#{key\ 12774}#)
|
|
(let ((#{x\ 12782}#
|
|
(#{gen-var\ 9527}# (quote tmp))))
|
|
(#{build-application\ 9338}#
|
|
#{s\ 12757}#
|
|
(#{build-simple-lambda\ 9356}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{x\ 12782}#)
|
|
#f
|
|
(#{gen-syntax-case\ 12547}#
|
|
(#{build-lexical-reference\ 9342}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{x\ 12782}#)
|
|
#{key\ 12774}#
|
|
#{m\ 12775}#
|
|
#{r\ 12755}#
|
|
#{mod\ 12758}#))
|
|
(list (#{chi\ 9499}#
|
|
#{val\ 12773}#
|
|
#{r\ 12755}#
|
|
'(())
|
|
#{mod\ 12758}#))))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid literals list"
|
|
#{e\ 12765}#)))
|
|
#{tmp\ 12767}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 12766}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 12766}#
|
|
'(any any each-any . each-any))))
|
|
#{e\ 12765}#)))))
|
|
(set! sc-expand
|
|
(lambda (#{x\ 12788}# . #{rest\ 12789}#)
|
|
(if (if (pair? #{x\ 12788}#)
|
|
(equal? (car #{x\ 12788}#) #{noexpand\ 9313}#)
|
|
#f)
|
|
(cadr #{x\ 12788}#)
|
|
(let ((#{m\ 12796}#
|
|
(if (null? #{rest\ 12789}#)
|
|
'e
|
|
(car #{rest\ 12789}#)))
|
|
(#{esew\ 12797}#
|
|
(if (let ((#{t\ 12800}# (null? #{rest\ 12789}#)))
|
|
(if #{t\ 12800}#
|
|
#{t\ 12800}#
|
|
(null? (cdr #{rest\ 12789}#))))
|
|
'(eval)
|
|
(cadr #{rest\ 12789}#))))
|
|
(with-fluid*
|
|
#{*mode*\ 9315}#
|
|
#{m\ 12796}#
|
|
(lambda ()
|
|
(#{chi-top\ 9497}#
|
|
#{x\ 12788}#
|
|
'()
|
|
'((top))
|
|
#{m\ 12796}#
|
|
#{esew\ 12797}#
|
|
(cons 'hygiene
|
|
(module-name (current-module))))))))))
|
|
(set! identifier?
|
|
(lambda (#{x\ 12804}#)
|
|
(#{nonsymbol-id?\ 9412}# #{x\ 12804}#)))
|
|
(set! datum->syntax
|
|
(lambda (#{id\ 12806}# #{datum\ 12807}#)
|
|
(#{make-syntax-object\ 9376}#
|
|
#{datum\ 12807}#
|
|
(#{syntax-object-wrap\ 9382}# #{id\ 12806}#)
|
|
#f)))
|
|
(set! syntax->datum
|
|
(lambda (#{x\ 12810}#)
|
|
(#{strip\ 9525}# #{x\ 12810}# (quote (())))))
|
|
(set! generate-temporaries
|
|
(lambda (#{ls\ 12813}#)
|
|
(begin
|
|
(let ((#{x\ 12817}# #{ls\ 12813}#))
|
|
(if (not (list? #{x\ 12817}#))
|
|
(syntax-violation
|
|
'generate-temporaries
|
|
"invalid argument"
|
|
#{x\ 12817}#)))
|
|
(map (lambda (#{x\ 12818}#)
|
|
(#{wrap\ 9483}# (gensym) (quote ((top))) #f))
|
|
#{ls\ 12813}#))))
|
|
(set! free-identifier=?
|
|
(lambda (#{x\ 12822}# #{y\ 12823}#)
|
|
(begin
|
|
(let ((#{x\ 12828}# #{x\ 12822}#))
|
|
(if (not (#{nonsymbol-id?\ 9412}# #{x\ 12828}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12828}#)))
|
|
(let ((#{x\ 12831}# #{y\ 12823}#))
|
|
(if (not (#{nonsymbol-id?\ 9412}# #{x\ 12831}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12831}#)))
|
|
(#{free-id=?\ 9473}# #{x\ 12822}# #{y\ 12823}#))))
|
|
(set! bound-identifier=?
|
|
(lambda (#{x\ 12832}# #{y\ 12833}#)
|
|
(begin
|
|
(let ((#{x\ 12838}# #{x\ 12832}#))
|
|
(if (not (#{nonsymbol-id?\ 9412}# #{x\ 12838}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12838}#)))
|
|
(let ((#{x\ 12841}# #{y\ 12833}#))
|
|
(if (not (#{nonsymbol-id?\ 9412}# #{x\ 12841}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 12841}#)))
|
|
(#{bound-id=?\ 9475}# #{x\ 12832}# #{y\ 12833}#))))
|
|
(set! syntax-violation
|
|
(lambda (#{who\ 12842}#
|
|
#{message\ 12843}#
|
|
#{form\ 12844}#
|
|
.
|
|
#{subform\ 12845}#)
|
|
(begin
|
|
(let ((#{x\ 12852}# #{who\ 12842}#))
|
|
(if (not ((lambda (#{x\ 12853}#)
|
|
(let ((#{t\ 12857}# (not #{x\ 12853}#)))
|
|
(if #{t\ 12857}#
|
|
#{t\ 12857}#
|
|
(let ((#{t\ 12860}# (string? #{x\ 12853}#)))
|
|
(if #{t\ 12860}#
|
|
#{t\ 12860}#
|
|
(symbol? #{x\ 12853}#))))))
|
|
#{x\ 12852}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 12852}#)))
|
|
(let ((#{x\ 12864}# #{message\ 12843}#))
|
|
(if (not (string? #{x\ 12864}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 12864}#)))
|
|
(scm-error
|
|
'syntax-error
|
|
'sc-expand
|
|
(string-append
|
|
(if #{who\ 12842}# "~a: " "")
|
|
"~a "
|
|
(if (null? #{subform\ 12845}#)
|
|
"in ~a"
|
|
"in subform `~s' of `~s'"))
|
|
(let ((#{tail\ 12866}#
|
|
(cons #{message\ 12843}#
|
|
(map (lambda (#{x\ 12867}#)
|
|
(#{strip\ 9525}# #{x\ 12867}# (quote (()))))
|
|
(append
|
|
#{subform\ 12845}#
|
|
(list #{form\ 12844}#))))))
|
|
(if #{who\ 12842}#
|
|
(cons #{who\ 12842}# #{tail\ 12866}#)
|
|
#{tail\ 12866}#))
|
|
#f))))
|
|
(letrec ((#{match\ 12883}#
|
|
(lambda (#{e\ 12884}#
|
|
#{p\ 12885}#
|
|
#{w\ 12886}#
|
|
#{r\ 12887}#
|
|
#{mod\ 12888}#)
|
|
(if (not #{r\ 12887}#)
|
|
#f
|
|
(if (eq? #{p\ 12885}# (quote any))
|
|
(cons (#{wrap\ 9483}#
|
|
#{e\ 12884}#
|
|
#{w\ 12886}#
|
|
#{mod\ 12888}#)
|
|
#{r\ 12887}#)
|
|
(if (#{syntax-object?\ 9378}# #{e\ 12884}#)
|
|
(#{match*\ 12881}#
|
|
(#{syntax-object-expression\ 9380}# #{e\ 12884}#)
|
|
#{p\ 12885}#
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 12886}#
|
|
(#{syntax-object-wrap\ 9382}# #{e\ 12884}#))
|
|
#{r\ 12887}#
|
|
(#{syntax-object-module\ 9384}# #{e\ 12884}#))
|
|
(#{match*\ 12881}#
|
|
#{e\ 12884}#
|
|
#{p\ 12885}#
|
|
#{w\ 12886}#
|
|
#{r\ 12887}#
|
|
#{mod\ 12888}#))))))
|
|
(#{match*\ 12881}#
|
|
(lambda (#{e\ 12901}#
|
|
#{p\ 12902}#
|
|
#{w\ 12903}#
|
|
#{r\ 12904}#
|
|
#{mod\ 12905}#)
|
|
(if (null? #{p\ 12902}#)
|
|
(if (null? #{e\ 12901}#) #{r\ 12904}# #f)
|
|
(if (pair? #{p\ 12902}#)
|
|
(if (pair? #{e\ 12901}#)
|
|
(#{match\ 12883}#
|
|
(car #{e\ 12901}#)
|
|
(car #{p\ 12902}#)
|
|
#{w\ 12903}#
|
|
(#{match\ 12883}#
|
|
(cdr #{e\ 12901}#)
|
|
(cdr #{p\ 12902}#)
|
|
#{w\ 12903}#
|
|
#{r\ 12904}#
|
|
#{mod\ 12905}#)
|
|
#{mod\ 12905}#)
|
|
#f)
|
|
(if (eq? #{p\ 12902}# (quote each-any))
|
|
(let ((#{l\ 12922}#
|
|
(#{match-each-any\ 12875}#
|
|
#{e\ 12901}#
|
|
#{w\ 12903}#
|
|
#{mod\ 12905}#)))
|
|
(if #{l\ 12922}#
|
|
(cons #{l\ 12922}# #{r\ 12904}#)
|
|
#f))
|
|
(let ((#{atom-key\ 12928}#
|
|
(vector-ref #{p\ 12902}# 0)))
|
|
(if (memv #{atom-key\ 12928}# (quote (each)))
|
|
(if (null? #{e\ 12901}#)
|
|
(#{match-empty\ 12877}#
|
|
(vector-ref #{p\ 12902}# 1)
|
|
#{r\ 12904}#)
|
|
(let ((#{l\ 12931}#
|
|
(#{match-each\ 12871}#
|
|
#{e\ 12901}#
|
|
(vector-ref #{p\ 12902}# 1)
|
|
#{w\ 12903}#
|
|
#{mod\ 12905}#)))
|
|
(if #{l\ 12931}#
|
|
(letrec ((#{collect\ 12936}#
|
|
(lambda (#{l\ 12937}#)
|
|
(if (null? (car #{l\ 12937}#))
|
|
#{r\ 12904}#
|
|
(cons (map car #{l\ 12937}#)
|
|
(#{collect\ 12936}#
|
|
(map cdr
|
|
#{l\ 12937}#)))))))
|
|
(#{collect\ 12936}# #{l\ 12931}#))
|
|
#f)))
|
|
(if (memv #{atom-key\ 12928}# (quote (each+)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{match-each+\ 12873}#
|
|
#{e\ 12901}#
|
|
(vector-ref #{p\ 12902}# 1)
|
|
(vector-ref #{p\ 12902}# 2)
|
|
(vector-ref #{p\ 12902}# 3)
|
|
#{w\ 12903}#
|
|
#{r\ 12904}#
|
|
#{mod\ 12905}#))
|
|
(lambda (#{xr*\ 12939}#
|
|
#{y-pat\ 12940}#
|
|
#{r\ 12941}#)
|
|
(if #{r\ 12941}#
|
|
(if (null? #{y-pat\ 12940}#)
|
|
(if (null? #{xr*\ 12939}#)
|
|
(#{match-empty\ 12877}#
|
|
(vector-ref #{p\ 12902}# 1)
|
|
#{r\ 12941}#)
|
|
(#{combine\ 12879}#
|
|
#{xr*\ 12939}#
|
|
#{r\ 12941}#))
|
|
#f)
|
|
#f)))
|
|
(if (memv #{atom-key\ 12928}# (quote (free-id)))
|
|
(if (#{id?\ 9414}# #{e\ 12901}#)
|
|
(if (#{free-id=?\ 9473}#
|
|
(#{wrap\ 9483}#
|
|
#{e\ 12901}#
|
|
#{w\ 12903}#
|
|
#{mod\ 12905}#)
|
|
(vector-ref #{p\ 12902}# 1))
|
|
#{r\ 12904}#
|
|
#f)
|
|
#f)
|
|
(if (memv #{atom-key\ 12928}# (quote (atom)))
|
|
(if (equal?
|
|
(vector-ref #{p\ 12902}# 1)
|
|
(#{strip\ 9525}#
|
|
#{e\ 12901}#
|
|
#{w\ 12903}#))
|
|
#{r\ 12904}#
|
|
#f)
|
|
(if (memv #{atom-key\ 12928}#
|
|
'(vector))
|
|
(if (vector? #{e\ 12901}#)
|
|
(#{match\ 12883}#
|
|
(vector->list #{e\ 12901}#)
|
|
(vector-ref #{p\ 12902}# 1)
|
|
#{w\ 12903}#
|
|
#{r\ 12904}#
|
|
#{mod\ 12905}#)
|
|
#f))))))))))))
|
|
(#{combine\ 12879}#
|
|
(lambda (#{r*\ 12958}# #{r\ 12959}#)
|
|
(if (null? (car #{r*\ 12958}#))
|
|
#{r\ 12959}#
|
|
(cons (map car #{r*\ 12958}#)
|
|
(#{combine\ 12879}#
|
|
(map cdr #{r*\ 12958}#)
|
|
#{r\ 12959}#)))))
|
|
(#{match-empty\ 12877}#
|
|
(lambda (#{p\ 12962}# #{r\ 12963}#)
|
|
(if (null? #{p\ 12962}#)
|
|
#{r\ 12963}#
|
|
(if (eq? #{p\ 12962}# (quote any))
|
|
(cons (quote ()) #{r\ 12963}#)
|
|
(if (pair? #{p\ 12962}#)
|
|
(#{match-empty\ 12877}#
|
|
(car #{p\ 12962}#)
|
|
(#{match-empty\ 12877}#
|
|
(cdr #{p\ 12962}#)
|
|
#{r\ 12963}#))
|
|
(if (eq? #{p\ 12962}# (quote each-any))
|
|
(cons (quote ()) #{r\ 12963}#)
|
|
(let ((#{atom-key\ 12977}#
|
|
(vector-ref #{p\ 12962}# 0)))
|
|
(if (memv #{atom-key\ 12977}# (quote (each)))
|
|
(#{match-empty\ 12877}#
|
|
(vector-ref #{p\ 12962}# 1)
|
|
#{r\ 12963}#)
|
|
(if (memv #{atom-key\ 12977}# (quote (each+)))
|
|
(#{match-empty\ 12877}#
|
|
(vector-ref #{p\ 12962}# 1)
|
|
(#{match-empty\ 12877}#
|
|
(reverse (vector-ref #{p\ 12962}# 2))
|
|
(#{match-empty\ 12877}#
|
|
(vector-ref #{p\ 12962}# 3)
|
|
#{r\ 12963}#)))
|
|
(if (memv #{atom-key\ 12977}#
|
|
'(free-id atom))
|
|
#{r\ 12963}#
|
|
(if (memv #{atom-key\ 12977}#
|
|
'(vector))
|
|
(#{match-empty\ 12877}#
|
|
(vector-ref #{p\ 12962}# 1)
|
|
#{r\ 12963}#))))))))))))
|
|
(#{match-each-any\ 12875}#
|
|
(lambda (#{e\ 12982}# #{w\ 12983}# #{mod\ 12984}#)
|
|
(if (pair? #{e\ 12982}#)
|
|
(let ((#{l\ 12991}#
|
|
(#{match-each-any\ 12875}#
|
|
(cdr #{e\ 12982}#)
|
|
#{w\ 12983}#
|
|
#{mod\ 12984}#)))
|
|
(if #{l\ 12991}#
|
|
(cons (#{wrap\ 9483}#
|
|
(car #{e\ 12982}#)
|
|
#{w\ 12983}#
|
|
#{mod\ 12984}#)
|
|
#{l\ 12991}#)
|
|
#f))
|
|
(if (null? #{e\ 12982}#)
|
|
'()
|
|
(if (#{syntax-object?\ 9378}# #{e\ 12982}#)
|
|
(#{match-each-any\ 12875}#
|
|
(#{syntax-object-expression\ 9380}# #{e\ 12982}#)
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 12983}#
|
|
(#{syntax-object-wrap\ 9382}# #{e\ 12982}#))
|
|
#{mod\ 12984}#)
|
|
#f)))))
|
|
(#{match-each+\ 12873}#
|
|
(lambda (#{e\ 12999}#
|
|
#{x-pat\ 13000}#
|
|
#{y-pat\ 13001}#
|
|
#{z-pat\ 13002}#
|
|
#{w\ 13003}#
|
|
#{r\ 13004}#
|
|
#{mod\ 13005}#)
|
|
(letrec ((#{f\ 13016}#
|
|
(lambda (#{e\ 13017}# #{w\ 13018}#)
|
|
(if (pair? #{e\ 13017}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{f\ 13016}#
|
|
(cdr #{e\ 13017}#)
|
|
#{w\ 13018}#))
|
|
(lambda (#{xr*\ 13021}#
|
|
#{y-pat\ 13022}#
|
|
#{r\ 13023}#)
|
|
(if #{r\ 13023}#
|
|
(if (null? #{y-pat\ 13022}#)
|
|
(let ((#{xr\ 13028}#
|
|
(#{match\ 12883}#
|
|
(car #{e\ 13017}#)
|
|
#{x-pat\ 13000}#
|
|
#{w\ 13018}#
|
|
'()
|
|
#{mod\ 13005}#)))
|
|
(if #{xr\ 13028}#
|
|
(values
|
|
(cons #{xr\ 13028}#
|
|
#{xr*\ 13021}#)
|
|
#{y-pat\ 13022}#
|
|
#{r\ 13023}#)
|
|
(values #f #f #f)))
|
|
(values
|
|
'()
|
|
(cdr #{y-pat\ 13022}#)
|
|
(#{match\ 12883}#
|
|
(car #{e\ 13017}#)
|
|
(car #{y-pat\ 13022}#)
|
|
#{w\ 13018}#
|
|
#{r\ 13023}#
|
|
#{mod\ 13005}#)))
|
|
(values #f #f #f))))
|
|
(if (#{syntax-object?\ 9378}# #{e\ 13017}#)
|
|
(#{f\ 13016}#
|
|
(#{syntax-object-expression\ 9380}#
|
|
#{e\ 13017}#)
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 13018}#
|
|
#{e\ 13017}#))
|
|
(values
|
|
'()
|
|
#{y-pat\ 13001}#
|
|
(#{match\ 12883}#
|
|
#{e\ 13017}#
|
|
#{z-pat\ 13002}#
|
|
#{w\ 13018}#
|
|
#{r\ 13004}#
|
|
#{mod\ 13005}#)))))))
|
|
(#{f\ 13016}# #{e\ 12999}# #{w\ 13003}#))))
|
|
(#{match-each\ 12871}#
|
|
(lambda (#{e\ 13032}#
|
|
#{p\ 13033}#
|
|
#{w\ 13034}#
|
|
#{mod\ 13035}#)
|
|
(if (pair? #{e\ 13032}#)
|
|
(let ((#{first\ 13043}#
|
|
(#{match\ 12883}#
|
|
(car #{e\ 13032}#)
|
|
#{p\ 13033}#
|
|
#{w\ 13034}#
|
|
'()
|
|
#{mod\ 13035}#)))
|
|
(if #{first\ 13043}#
|
|
(let ((#{rest\ 13047}#
|
|
(#{match-each\ 12871}#
|
|
(cdr #{e\ 13032}#)
|
|
#{p\ 13033}#
|
|
#{w\ 13034}#
|
|
#{mod\ 13035}#)))
|
|
(if #{rest\ 13047}#
|
|
(cons #{first\ 13043}# #{rest\ 13047}#)
|
|
#f))
|
|
#f))
|
|
(if (null? #{e\ 13032}#)
|
|
'()
|
|
(if (#{syntax-object?\ 9378}# #{e\ 13032}#)
|
|
(#{match-each\ 12871}#
|
|
(#{syntax-object-expression\ 9380}# #{e\ 13032}#)
|
|
#{p\ 13033}#
|
|
(#{join-wraps\ 9465}#
|
|
#{w\ 13034}#
|
|
(#{syntax-object-wrap\ 9382}# #{e\ 13032}#))
|
|
(#{syntax-object-module\ 9384}# #{e\ 13032}#))
|
|
#f))))))
|
|
(set! $sc-dispatch
|
|
(lambda (#{e\ 13055}# #{p\ 13056}#)
|
|
(if (eq? #{p\ 13056}# (quote any))
|
|
(list #{e\ 13055}#)
|
|
(if (#{syntax-object?\ 9378}# #{e\ 13055}#)
|
|
(#{match*\ 12881}#
|
|
(#{syntax-object-expression\ 9380}# #{e\ 13055}#)
|
|
#{p\ 13056}#
|
|
(#{syntax-object-wrap\ 9382}# #{e\ 13055}#)
|
|
'()
|
|
(#{syntax-object-module\ 9384}# #{e\ 13055}#))
|
|
(#{match*\ 12881}#
|
|
#{e\ 13055}#
|
|
#{p\ 13056}#
|
|
'(())
|
|
'()
|
|
#f)))))))))
|
|
|
|
(define with-syntax
|
|
(make-syntax-transformer
|
|
'with-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 13065}#)
|
|
((lambda (#{tmp\ 13067}#)
|
|
((lambda (#{tmp\ 13068}#)
|
|
(if #{tmp\ 13068}#
|
|
(apply (lambda (#{_\ 13072}# #{e1\ 13073}# #{e2\ 13074}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ e1 e2)
|
|
#((top) (top) (top))
|
|
#("i13069" "i13070" "i13071"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13066")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 13073}# #{e2\ 13074}#)))
|
|
#{tmp\ 13068}#)
|
|
((lambda (#{tmp\ 13076}#)
|
|
(if #{tmp\ 13076}#
|
|
(apply (lambda (#{_\ 13082}#
|
|
#{out\ 13083}#
|
|
#{in\ 13084}#
|
|
#{e1\ 13085}#
|
|
#{e2\ 13086}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i13077"
|
|
"i13078"
|
|
"i13079"
|
|
"i13080"
|
|
"i13081"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13066")))
|
|
(hygiene guile))
|
|
#{in\ 13084}#
|
|
'()
|
|
(list #{out\ 13083}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13077"
|
|
"i13078"
|
|
"i13079"
|
|
"i13080"
|
|
"i13081"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13066")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 13085}#
|
|
#{e2\ 13086}#)))))
|
|
#{tmp\ 13076}#)
|
|
((lambda (#{tmp\ 13088}#)
|
|
(if #{tmp\ 13088}#
|
|
(apply (lambda (#{_\ 13094}#
|
|
#{out\ 13095}#
|
|
#{in\ 13096}#
|
|
#{e1\ 13097}#
|
|
#{e2\ 13098}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13089"
|
|
"i13090"
|
|
"i13091"
|
|
"i13092"
|
|
"i13093"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13066")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13089"
|
|
"i13090"
|
|
"i13091"
|
|
"i13092"
|
|
"i13093"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13066")))
|
|
(hygiene guile))
|
|
#{in\ 13096}#)
|
|
'()
|
|
(list #{out\ 13095}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
out
|
|
in
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13089"
|
|
"i13090"
|
|
"i13091"
|
|
"i13092"
|
|
"i13093"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13066")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 13097}#
|
|
#{e2\ 13098}#)))))
|
|
#{tmp\ 13088}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13067}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13067}#
|
|
'(any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13067}#
|
|
'(any ((any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13067}#
|
|
'(any () any . each-any))))
|
|
#{x\ 13065}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define syntax-rules
|
|
(make-syntax-transformer
|
|
'syntax-rules
|
|
'macro
|
|
(cons (lambda (#{x\ 13102}#)
|
|
((lambda (#{tmp\ 13104}#)
|
|
((lambda (#{tmp\ 13105}#)
|
|
(if #{tmp\ 13105}#
|
|
(apply (lambda (#{_\ 13111}#
|
|
#{k\ 13112}#
|
|
#{keyword\ 13113}#
|
|
#{pattern\ 13114}#
|
|
#{template\ 13115}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i13106"
|
|
"i13107"
|
|
"i13108"
|
|
"i13109"
|
|
"i13110"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13103")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i13106"
|
|
"i13107"
|
|
"i13108"
|
|
"i13109"
|
|
"i13110"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13103")))
|
|
(hygiene guile)))
|
|
(cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i13106"
|
|
"i13107"
|
|
"i13108"
|
|
"i13109"
|
|
"i13110"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13103")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13106"
|
|
"i13107"
|
|
"i13108"
|
|
"i13109"
|
|
"i13110"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13103")))
|
|
(hygiene guile))
|
|
(cons #{k\ 13112}#
|
|
(map (lambda (#{tmp\ 13118}#
|
|
#{tmp\ 13117}#)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13106"
|
|
"i13107"
|
|
"i13108"
|
|
"i13109"
|
|
"i13110"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13103")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 13117}#)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13106"
|
|
"i13107"
|
|
"i13108"
|
|
"i13109"
|
|
"i13110"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13103")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 13118}#)))
|
|
#{template\ 13115}#
|
|
#{pattern\ 13114}#))))))
|
|
#{tmp\ 13105}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13104}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13104}#
|
|
'(any each-any . #(each ((any . any) any))))))
|
|
#{x\ 13102}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define let*
|
|
(make-syntax-transformer
|
|
'let*
|
|
'macro
|
|
(cons (lambda (#{x\ 13119}#)
|
|
((lambda (#{tmp\ 13121}#)
|
|
((lambda (#{tmp\ 13122}#)
|
|
(if (if #{tmp\ 13122}#
|
|
(apply (lambda (#{let*\ 13128}#
|
|
#{x\ 13129}#
|
|
#{v\ 13130}#
|
|
#{e1\ 13131}#
|
|
#{e2\ 13132}#)
|
|
(and-map identifier? #{x\ 13129}#))
|
|
#{tmp\ 13122}#)
|
|
#f)
|
|
(apply (lambda (#{let*\ 13139}#
|
|
#{x\ 13140}#
|
|
#{v\ 13141}#
|
|
#{e1\ 13142}#
|
|
#{e2\ 13143}#)
|
|
(letrec ((#{f\ 13146}#
|
|
(lambda (#{bindings\ 13147}#)
|
|
(if (null? #{bindings\ 13147}#)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("i13144" "i13145"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"
|
|
"i13137"
|
|
"i13138"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13120")))
|
|
(hygiene guile))
|
|
(cons '()
|
|
(cons #{e1\ 13142}#
|
|
#{e2\ 13143}#)))
|
|
((lambda (#{tmp\ 13152}#)
|
|
((lambda (#{tmp\ 13153}#)
|
|
(if #{tmp\ 13153}#
|
|
(apply (lambda (#{body\ 13156}#
|
|
#{binding\ 13157}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body
|
|
binding)
|
|
#((top)
|
|
(top))
|
|
#("i13154"
|
|
"i13155"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
bindings)
|
|
#((top)
|
|
(top))
|
|
#("i13144"
|
|
"i13145"))
|
|
#(ribcage
|
|
#(let*
|
|
x
|
|
v
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13134"
|
|
"i13135"
|
|
"i13136"
|
|
"i13137"
|
|
"i13138"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13120")))
|
|
(hygiene
|
|
guile))
|
|
(list #{binding\ 13157}#)
|
|
#{body\ 13156}#))
|
|
#{tmp\ 13153}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13152}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13152}#
|
|
'(any any))))
|
|
(list (#{f\ 13146}#
|
|
(cdr #{bindings\ 13147}#))
|
|
(car #{bindings\ 13147}#)))))))
|
|
(#{f\ 13146}#
|
|
(map list #{x\ 13140}# #{v\ 13141}#))))
|
|
#{tmp\ 13122}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13121}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13121}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{x\ 13119}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define do
|
|
(make-syntax-transformer
|
|
'do
|
|
'macro
|
|
(cons (lambda (#{orig-x\ 13158}#)
|
|
((lambda (#{tmp\ 13160}#)
|
|
((lambda (#{tmp\ 13161}#)
|
|
(if #{tmp\ 13161}#
|
|
(apply (lambda (#{_\ 13169}#
|
|
#{var\ 13170}#
|
|
#{init\ 13171}#
|
|
#{step\ 13172}#
|
|
#{e0\ 13173}#
|
|
#{e1\ 13174}#
|
|
#{c\ 13175}#)
|
|
((lambda (#{tmp\ 13177}#)
|
|
((lambda (#{tmp\ 13178}#)
|
|
(if #{tmp\ 13178}#
|
|
(apply (lambda (#{step\ 13180}#)
|
|
((lambda (#{tmp\ 13181}#)
|
|
((lambda (#{tmp\ 13182}#)
|
|
(if #{tmp\ 13182}#
|
|
(apply (lambda ()
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 13170}#
|
|
#{init\ 13171}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
not
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 13173}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 13175}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 13180}#)))))))
|
|
#{tmp\ 13182}#)
|
|
((lambda (#{tmp\ 13187}#)
|
|
(if #{tmp\ 13187}#
|
|
(apply (lambda (#{e1\ 13190}#
|
|
#{e2\ 13191}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13188"
|
|
"i13189"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13188"
|
|
"i13189"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 13170}#
|
|
#{init\ 13171}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13188"
|
|
"i13189"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 13173}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13188"
|
|
"i13189"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13190}#
|
|
#{e2\ 13191}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13188"
|
|
"i13189"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 13175}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13188"
|
|
"i13189"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i13179"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13162"
|
|
"i13163"
|
|
"i13164"
|
|
"i13165"
|
|
"i13166"
|
|
"i13167"
|
|
"i13168"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i13159")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 13180}#)))))))
|
|
#{tmp\ 13187}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13181}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13181}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13181}#
|
|
'())))
|
|
#{e1\ 13174}#))
|
|
#{tmp\ 13178}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13177}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13177}#
|
|
'each-any)))
|
|
(map (lambda (#{v\ 13198}# #{s\ 13199}#)
|
|
((lambda (#{tmp\ 13202}#)
|
|
((lambda (#{tmp\ 13203}#)
|
|
(if #{tmp\ 13203}#
|
|
(apply (lambda () #{v\ 13198}#)
|
|
#{tmp\ 13203}#)
|
|
((lambda (#{tmp\ 13204}#)
|
|
(if #{tmp\ 13204}#
|
|
(apply (lambda (#{e\ 13206}#)
|
|
#{e\ 13206}#)
|
|
#{tmp\ 13204}#)
|
|
((lambda (#{_\ 13208}#)
|
|
(syntax-violation
|
|
'do
|
|
"bad step expression"
|
|
#{orig-x\ 13158}#
|
|
#{s\ 13199}#))
|
|
#{tmp\ 13202}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13202}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13202}#
|
|
'())))
|
|
#{s\ 13199}#))
|
|
#{var\ 13170}#
|
|
#{step\ 13172}#)))
|
|
#{tmp\ 13161}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13160}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13160}#
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
#{orig-x\ 13158}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define quasiquote
|
|
(make-syntax-transformer
|
|
'quasiquote
|
|
'macro
|
|
(cons (letrec ((#{quasicons\ 13215}#
|
|
(lambda (#{x\ 13219}# #{y\ 13220}#)
|
|
((lambda (#{tmp\ 13224}#)
|
|
((lambda (#{tmp\ 13225}#)
|
|
(if #{tmp\ 13225}#
|
|
(apply (lambda (#{x\ 13228}# #{y\ 13229}#)
|
|
((lambda (#{tmp\ 13230}#)
|
|
((lambda (#{tmp\ 13231}#)
|
|
(if #{tmp\ 13231}#
|
|
(apply (lambda (#{dy\ 13233}#)
|
|
((lambda (#{tmp\ 13234}#)
|
|
((lambda (#{tmp\ 13235}#)
|
|
(if #{tmp\ 13235}#
|
|
(apply (lambda (#{dx\ 13237}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dx)
|
|
#((top))
|
|
#("i13236"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i13232"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{dx\ 13237}#
|
|
#{dy\ 13233}#)))
|
|
#{tmp\ 13235}#)
|
|
((lambda (#{_\ 13239}#)
|
|
(if (null? #{dy\ 13233}#)
|
|
(list '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i13238"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i13232"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 13228}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i13238"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i13232"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 13228}#
|
|
#{y\ 13229}#)))
|
|
#{tmp\ 13234}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13234}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i13232"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile)))
|
|
any))))
|
|
#{x\ 13228}#))
|
|
#{tmp\ 13231}#)
|
|
((lambda (#{tmp\ 13240}#)
|
|
(if #{tmp\ 13240}#
|
|
(apply (lambda (#{stuff\ 13242}#)
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("i13241"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{x\ 13228}#
|
|
#{stuff\ 13242}#)))
|
|
#{tmp\ 13240}#)
|
|
((lambda (#{else\ 13244}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(else)
|
|
#((top))
|
|
#("i13243"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 13228}#
|
|
#{y\ 13229}#))
|
|
#{tmp\ 13230}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13230}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13226"
|
|
"i13227"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13221"
|
|
"i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13230}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13226" "i13227"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13221" "i13222"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{y\ 13229}#))
|
|
#{tmp\ 13225}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13224}#)))
|
|
($sc-dispatch #{tmp\ 13224}# (quote (any any)))))
|
|
(list #{x\ 13219}# #{y\ 13220}#))))
|
|
(#{quasiappend\ 13216}#
|
|
(lambda (#{x\ 13245}# #{y\ 13246}#)
|
|
((lambda (#{tmp\ 13250}#)
|
|
((lambda (#{tmp\ 13251}#)
|
|
(if #{tmp\ 13251}#
|
|
(apply (lambda (#{x\ 13254}# #{y\ 13255}#)
|
|
((lambda (#{tmp\ 13256}#)
|
|
((lambda (#{tmp\ 13257}#)
|
|
(if #{tmp\ 13257}#
|
|
(apply (lambda () #{x\ 13254}#)
|
|
#{tmp\ 13257}#)
|
|
((lambda (#{_\ 13259}#)
|
|
(list '#(syntax-object
|
|
append
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i13258"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13252"
|
|
"i13253"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13247"
|
|
"i13248"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
#{x\ 13254}#
|
|
#{y\ 13255}#))
|
|
#{tmp\ 13256}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13256}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13252" "i13253"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i13247" "i13248"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
()))))
|
|
#{y\ 13255}#))
|
|
#{tmp\ 13251}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13250}#)))
|
|
($sc-dispatch #{tmp\ 13250}# (quote (any any)))))
|
|
(list #{x\ 13245}# #{y\ 13246}#))))
|
|
(#{quasivector\ 13217}#
|
|
(lambda (#{x\ 13260}#)
|
|
((lambda (#{tmp\ 13263}#)
|
|
((lambda (#{x\ 13265}#)
|
|
((lambda (#{tmp\ 13266}#)
|
|
((lambda (#{tmp\ 13267}#)
|
|
(if #{tmp\ 13267}#
|
|
(apply (lambda (#{x\ 13269}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13268"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13264"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13261"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
(list->vector
|
|
#{x\ 13269}#)))
|
|
#{tmp\ 13267}#)
|
|
((lambda (#{tmp\ 13271}#)
|
|
(if #{tmp\ 13271}#
|
|
(apply (lambda (#{x\ 13273}#)
|
|
(cons '#(syntax-object
|
|
vector
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13272"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13261"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
#{x\ 13273}#))
|
|
#{tmp\ 13271}#)
|
|
((lambda (#{_\ 13276}#)
|
|
(list '#(syntax-object
|
|
list->vector
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i13275"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13264"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13261"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
#{x\ 13265}#))
|
|
#{tmp\ 13266}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13266}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13264"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13261"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13266}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(x) #((top)) #("i13264"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13261"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
each-any))))
|
|
#{x\ 13265}#))
|
|
#{tmp\ 13263}#))
|
|
#{x\ 13260}#)))
|
|
(#{quasi\ 13218}#
|
|
(lambda (#{p\ 13277}# #{lev\ 13278}#)
|
|
((lambda (#{tmp\ 13281}#)
|
|
((lambda (#{tmp\ 13282}#)
|
|
(if #{tmp\ 13282}#
|
|
(apply (lambda (#{p\ 13284}#)
|
|
(if (= #{lev\ 13278}# 0)
|
|
#{p\ 13284}#
|
|
(#{quasicons\ 13215}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13283"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13283"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 13218}#
|
|
(list #{p\ 13284}#)
|
|
(- #{lev\ 13278}# 1)))))
|
|
#{tmp\ 13282}#)
|
|
((lambda (#{tmp\ 13285}#)
|
|
(if (if #{tmp\ 13285}#
|
|
(apply (lambda (#{args\ 13287}#)
|
|
(= #{lev\ 13278}# 0))
|
|
#{tmp\ 13285}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 13289}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"unquote takes exactly one argument"
|
|
#{p\ 13277}#
|
|
(cons '#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(args)
|
|
#((top))
|
|
#("i13288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
#{args\ 13289}#)))
|
|
#{tmp\ 13285}#)
|
|
((lambda (#{tmp\ 13290}#)
|
|
(if #{tmp\ 13290}#
|
|
(apply (lambda (#{p\ 13293}#
|
|
#{q\ 13294}#)
|
|
(if (= #{lev\ 13278}# 0)
|
|
(#{quasiappend\ 13216}#
|
|
#{p\ 13293}#
|
|
(#{quasi\ 13218}#
|
|
#{q\ 13294}#
|
|
#{lev\ 13278}#))
|
|
(#{quasicons\ 13215}#
|
|
(#{quasicons\ 13215}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i13291"
|
|
"i13292"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i13291"
|
|
"i13292"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 13218}#
|
|
(list #{p\ 13293}#)
|
|
(- #{lev\ 13278}#
|
|
1)))
|
|
(#{quasi\ 13218}#
|
|
#{q\ 13294}#
|
|
#{lev\ 13278}#))))
|
|
#{tmp\ 13290}#)
|
|
((lambda (#{tmp\ 13295}#)
|
|
(if (if #{tmp\ 13295}#
|
|
(apply (lambda (#{args\ 13298}#
|
|
#{q\ 13299}#)
|
|
(= #{lev\ 13278}#
|
|
0))
|
|
#{tmp\ 13295}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 13302}#
|
|
#{q\ 13303}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"unquote-splicing takes exactly one argument"
|
|
#{p\ 13277}#
|
|
(cons '#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(args q)
|
|
#((top)
|
|
(top))
|
|
#("i13300"
|
|
"i13301"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
#{args\ 13302}#)))
|
|
#{tmp\ 13295}#)
|
|
((lambda (#{tmp\ 13304}#)
|
|
(if #{tmp\ 13304}#
|
|
(apply (lambda (#{p\ 13306}#)
|
|
(#{quasicons\ 13215}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13305"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13305"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile)))
|
|
(#{quasi\ 13218}#
|
|
(list #{p\ 13306}#)
|
|
(+ #{lev\ 13278}#
|
|
1))))
|
|
#{tmp\ 13304}#)
|
|
((lambda (#{tmp\ 13307}#)
|
|
(if #{tmp\ 13307}#
|
|
(apply (lambda (#{p\ 13310}#
|
|
#{q\ 13311}#)
|
|
(#{quasicons\ 13215}#
|
|
(#{quasi\ 13218}#
|
|
#{p\ 13310}#
|
|
#{lev\ 13278}#)
|
|
(#{quasi\ 13218}#
|
|
#{q\ 13311}#
|
|
#{lev\ 13278}#)))
|
|
#{tmp\ 13307}#)
|
|
((lambda (#{tmp\ 13312}#)
|
|
(if #{tmp\ 13312}#
|
|
(apply (lambda (#{x\ 13314}#)
|
|
(#{quasivector\ 13217}#
|
|
(#{quasi\ 13218}#
|
|
#{x\ 13314}#
|
|
#{lev\ 13278}#)))
|
|
#{tmp\ 13312}#)
|
|
((lambda (#{p\ 13317}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i13316"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p
|
|
lev)
|
|
#((top)
|
|
(top))
|
|
#("i13279"
|
|
"i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene
|
|
guile))
|
|
#{p\ 13317}#))
|
|
#{tmp\ 13281}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
.
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211"
|
|
"i13212"
|
|
"i13213"
|
|
"i13214")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13281}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i13279" "i13280"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i13211" "i13212" "i13213" "i13214")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{p\ 13277}#))))
|
|
(lambda (#{x\ 13318}#)
|
|
((lambda (#{tmp\ 13320}#)
|
|
((lambda (#{tmp\ 13321}#)
|
|
(if #{tmp\ 13321}#
|
|
(apply (lambda (#{_\ 13324}# #{e\ 13325}#)
|
|
(#{quasi\ 13218}# #{e\ 13325}# 0))
|
|
#{tmp\ 13321}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13320}#)))
|
|
($sc-dispatch #{tmp\ 13320}# (quote (any any)))))
|
|
#{x\ 13318}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include
|
|
(make-syntax-transformer
|
|
'include
|
|
'macro
|
|
(cons (lambda (#{x\ 13326}#)
|
|
(letrec ((#{read-file\ 13329}#
|
|
(lambda (#{fn\ 13330}# #{k\ 13331}#)
|
|
(let ((#{p\ 13335}# (open-input-file #{fn\ 13330}#)))
|
|
(letrec ((#{f\ 13338}#
|
|
(lambda (#{x\ 13339}#)
|
|
(if (eof-object? #{x\ 13339}#)
|
|
(begin
|
|
(close-input-port #{p\ 13335}#)
|
|
'())
|
|
(cons (datum->syntax
|
|
#{k\ 13331}#
|
|
#{x\ 13339}#)
|
|
(#{f\ 13338}#
|
|
(read #{p\ 13335}#)))))))
|
|
(#{f\ 13338}# (read #{p\ 13335}#)))))))
|
|
((lambda (#{tmp\ 13340}#)
|
|
((lambda (#{tmp\ 13341}#)
|
|
(if #{tmp\ 13341}#
|
|
(apply (lambda (#{k\ 13344}# #{filename\ 13345}#)
|
|
(let ((#{fn\ 13347}#
|
|
(syntax->datum #{filename\ 13345}#)))
|
|
((lambda (#{tmp\ 13349}#)
|
|
((lambda (#{tmp\ 13350}#)
|
|
(if #{tmp\ 13350}#
|
|
(apply (lambda (#{exp\ 13352}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(exp)
|
|
#((top))
|
|
#("i13351"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i13346"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i13342"
|
|
"i13343"))
|
|
#(ribcage
|
|
(read-file)
|
|
((top))
|
|
("i13328"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13327")))
|
|
(hygiene guile))
|
|
#{exp\ 13352}#))
|
|
#{tmp\ 13350}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13349}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13349}#
|
|
'each-any)))
|
|
(#{read-file\ 13329}#
|
|
#{fn\ 13347}#
|
|
#{k\ 13344}#))))
|
|
#{tmp\ 13341}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13340}#)))
|
|
($sc-dispatch #{tmp\ 13340}# (quote (any any)))))
|
|
#{x\ 13326}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include-from-path
|
|
(make-syntax-transformer
|
|
'include-from-path
|
|
'macro
|
|
(cons (lambda (#{x\ 13354}#)
|
|
((lambda (#{tmp\ 13356}#)
|
|
((lambda (#{tmp\ 13357}#)
|
|
(if #{tmp\ 13357}#
|
|
(apply (lambda (#{k\ 13360}# #{filename\ 13361}#)
|
|
(let ((#{fn\ 13363}#
|
|
(syntax->datum #{filename\ 13361}#)))
|
|
((lambda (#{tmp\ 13365}#)
|
|
((lambda (#{fn\ 13367}#)
|
|
(list '#(syntax-object
|
|
include
|
|
((top)
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i13366"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i13362"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i13358" "i13359"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13355")))
|
|
(hygiene guile))
|
|
#{fn\ 13367}#))
|
|
#{tmp\ 13365}#))
|
|
(let ((#{t\ 13370}#
|
|
(%search-load-path #{fn\ 13363}#)))
|
|
(if #{t\ 13370}#
|
|
#{t\ 13370}#
|
|
(syntax-violation
|
|
'include-from-path
|
|
"file not found in path"
|
|
#{x\ 13354}#
|
|
#{filename\ 13361}#))))))
|
|
#{tmp\ 13357}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13356}#)))
|
|
($sc-dispatch #{tmp\ 13356}# (quote (any any)))))
|
|
#{x\ 13354}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote
|
|
(make-syntax-transformer
|
|
'unquote
|
|
'macro
|
|
(cons (lambda (#{x\ 13372}#)
|
|
((lambda (#{tmp\ 13374}#)
|
|
((lambda (#{tmp\ 13375}#)
|
|
(if #{tmp\ 13375}#
|
|
(apply (lambda (#{_\ 13378}# #{e\ 13379}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 13372}#))
|
|
#{tmp\ 13375}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13374}#)))
|
|
($sc-dispatch #{tmp\ 13374}# (quote (any any)))))
|
|
#{x\ 13372}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote-splicing
|
|
(make-syntax-transformer
|
|
'unquote-splicing
|
|
'macro
|
|
(cons (lambda (#{x\ 13380}#)
|
|
((lambda (#{tmp\ 13382}#)
|
|
((lambda (#{tmp\ 13383}#)
|
|
(if #{tmp\ 13383}#
|
|
(apply (lambda (#{_\ 13386}# #{e\ 13387}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 13380}#))
|
|
#{tmp\ 13383}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13382}#)))
|
|
($sc-dispatch #{tmp\ 13382}# (quote (any any)))))
|
|
#{x\ 13380}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define case
|
|
(make-syntax-transformer
|
|
'case
|
|
'macro
|
|
(cons (lambda (#{x\ 13388}#)
|
|
((lambda (#{tmp\ 13390}#)
|
|
((lambda (#{tmp\ 13391}#)
|
|
(if #{tmp\ 13391}#
|
|
(apply (lambda (#{_\ 13396}#
|
|
#{e\ 13397}#
|
|
#{m1\ 13398}#
|
|
#{m2\ 13399}#)
|
|
((lambda (#{tmp\ 13401}#)
|
|
((lambda (#{body\ 13403}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i13402"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene guile))
|
|
(list (list '#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i13402"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene guile))
|
|
#{e\ 13397}#))
|
|
#{body\ 13403}#))
|
|
#{tmp\ 13401}#))
|
|
(letrec ((#{f\ 13407}#
|
|
(lambda (#{clause\ 13408}#
|
|
#{clauses\ 13409}#)
|
|
(if (null? #{clauses\ 13409}#)
|
|
((lambda (#{tmp\ 13411}#)
|
|
((lambda (#{tmp\ 13412}#)
|
|
(if #{tmp\ 13412}#
|
|
(apply (lambda (#{e1\ 13415}#
|
|
#{e2\ 13416}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i13413"
|
|
"i13414"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13415}#
|
|
#{e2\ 13416}#)))
|
|
#{tmp\ 13412}#)
|
|
((lambda (#{tmp\ 13418}#)
|
|
(if #{tmp\ 13418}#
|
|
(apply (lambda (#{k\ 13422}#
|
|
#{e1\ 13423}#
|
|
#{e2\ 13424}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13419"
|
|
"i13420"
|
|
"i13421"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13419"
|
|
"i13420"
|
|
"i13421"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13419"
|
|
"i13420"
|
|
"i13421"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13419"
|
|
"i13420"
|
|
"i13421"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 13422}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13419"
|
|
"i13420"
|
|
"i13421"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13423}#
|
|
#{e2\ 13424}#))))
|
|
#{tmp\ 13418}#)
|
|
((lambda (#{_\ 13428}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 13388}#
|
|
#{clause\ 13408}#))
|
|
#{tmp\ 13411}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13411}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 13411}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
else
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene guile)))
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 13408}#)
|
|
((lambda (#{tmp\ 13430}#)
|
|
((lambda (#{rest\ 13432}#)
|
|
((lambda (#{tmp\ 13433}#)
|
|
((lambda (#{tmp\ 13434}#)
|
|
(if #{tmp\ 13434}#
|
|
(apply (lambda (#{k\ 13438}#
|
|
#{e1\ 13439}#
|
|
#{e2\ 13440}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13435"
|
|
"i13436"
|
|
"i13437"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13431"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13435"
|
|
"i13436"
|
|
"i13437"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13431"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13435"
|
|
"i13436"
|
|
"i13437"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13431"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13435"
|
|
"i13436"
|
|
"i13437"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13431"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 13438}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13435"
|
|
"i13436"
|
|
"i13437"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i13431"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i13404"
|
|
"i13405"
|
|
"i13406"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13392"
|
|
"i13393"
|
|
"i13394"
|
|
"i13395"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13389")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 13439}#
|
|
#{e2\ 13440}#))
|
|
#{rest\ 13432}#))
|
|
#{tmp\ 13434}#)
|
|
((lambda (#{_\ 13444}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 13388}#
|
|
#{clause\ 13408}#))
|
|
#{tmp\ 13433}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13433}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 13408}#))
|
|
#{tmp\ 13430}#))
|
|
(#{f\ 13407}#
|
|
(car #{clauses\ 13409}#)
|
|
(cdr #{clauses\ 13409}#)))))))
|
|
(#{f\ 13407}# #{m1\ 13398}# #{m2\ 13399}#))))
|
|
#{tmp\ 13391}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13390}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13390}#
|
|
'(any any any . each-any))))
|
|
#{x\ 13388}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define identifier-syntax
|
|
(make-syntax-transformer
|
|
'identifier-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 13445}#)
|
|
((lambda (#{tmp\ 13447}#)
|
|
((lambda (#{tmp\ 13448}#)
|
|
(if #{tmp\ 13448}#
|
|
(apply (lambda (#{_\ 13451}# #{e\ 13452}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13446")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i13446")))
|
|
(hygiene guile)))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
'()
|
|
(list '#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
(#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449" "i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449"
|
|
"i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
#{e\ 13452}#))
|
|
(list (cons #{_\ 13451}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449"
|
|
"i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449"
|
|
"i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i13449"
|
|
"i13450"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
(cons #{e\ 13452}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i13449"
|
|
"i13450"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i13449"
|
|
"i13450"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i13446")))
|
|
(hygiene
|
|
guile)))))))))
|
|
#{tmp\ 13448}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13447}#)))
|
|
($sc-dispatch #{tmp\ 13447}# (quote (any any)))))
|
|
#{x\ 13445}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define define*
|
|
(make-syntax-transformer
|
|
'define*
|
|
'macro
|
|
(cons (lambda (#{x\ 13454}#)
|
|
((lambda (#{tmp\ 13456}#)
|
|
((lambda (#{tmp\ 13457}#)
|
|
(if #{tmp\ 13457}#
|
|
(apply (lambda (#{dummy\ 13463}#
|
|
#{id\ 13464}#
|
|
#{args\ 13465}#
|
|
#{b0\ 13466}#
|
|
#{b1\ 13467}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(dummy id args b0 b1)
|
|
#((m13453 top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13458"
|
|
"i13459"
|
|
"i13460"
|
|
"i13461"
|
|
"i13462"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((m13453 top))
|
|
#("i13455")))
|
|
(hygiene guile))
|
|
#{id\ 13464}#
|
|
(cons '#(syntax-object
|
|
lambda*
|
|
((top)
|
|
#(ribcage
|
|
#(dummy id args b0 b1)
|
|
#((m13453 top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i13458"
|
|
"i13459"
|
|
"i13460"
|
|
"i13461"
|
|
"i13462"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((m13453 top))
|
|
#("i13455")))
|
|
(hygiene guile))
|
|
(cons #{args\ 13465}#
|
|
(cons #{b0\ 13466}#
|
|
#{b1\ 13467}#)))))
|
|
#{tmp\ 13457}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 13456}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 13456}#
|
|
'(any (any . any) any . each-any))))
|
|
#{x\ 13454}#))
|
|
(module-name (current-module)))))
|
|
|