gistfile1.txt

-- ((caddr m_2108) . #f)
-- ((if c67_2088 ((lambda (x_2089) (let ([fail_2090 (lambda () (let ([fail_2091 (lambda () (error 'minimatch))]) (error 'minimatch-lambda match at ~s:~s:~s failed: ~e '#<path:/home/cderici/racketland/racket/racket/collects/syntax/parse/private/rep.rkt> 1 0 x_2089)))]) (if (pair? x_2089) (let ([x1_2092 (car x_2089)][x2_2093 (cdr x_2089)]) (let ([name_2094 x1_2092][suffix_2095 x2_2093]) (let ([...arse/private/rep.rkt:1:0_2097 LinkletVar(idY80.1:NO-VAL)][lifted/1070699_2098 LinkletVar(lifted/1070.1:NO-VAL)][decls700_2099 decls_2082][name701_2100 name_2094][temp702_2101 (LinkletVar(1/syntax-e:NO-VAL) suffix_2095)][temp703_2102 #t]) (let ([ (let ([temp702_2101 temp702_2101][name701_2100 name701_2100][decls700_2099 decls700_2099][lifted/1070699_2098 lifted/1070699_2098][AppRator324 (checked-procedure-check-and-extract LinkletVar(struct:keyword-procedure:NO-VAL) ...arse/private/rep.rkt:1:0_2097 LinkletVar(keyword-procedure-extract:NO-VAL) '(#:blame-declare?) 6)][AppRand16688 (list temp703_2102)]) (AppRator324 '(#:blame-declare?) AppRand16688 lifted/1070699_2098 decls700_2099 name701_2100 temp702_2101) (values))][entry_2096 (LinkletVar(idY40.1:NO-VAL) LinkletVar(lifted/1070.1:NO-VAL) decls_2082 suffix_2095)]) (let ([or-part_2103 (LinkletVar(den:lit?:NO-VAL) entry_2096)]) (let ([if2981 (if or-part_2103 or-part_2103 (LinkletVar(den:datum-lit?:NO-VAL) entry_2096))]) (if if2981 (let ([AppRand16689 (LinkletVar(make-pat:svar:NO-VAL) name_2094)][AppRand16690 (LinkletVar(parse-pat:id/entry:NO-VAL) id_2081 allow-head?_2083 entry_2096)]) (let ([AppRand16691 (list AppRand16689 AppRand16690)]) (LinkletVar(make-pat:and:NO-VAL) AppRand16691))) (LinkletVar(parse-stxclass-use:NO-VAL) id_2081 allow-head?_2083 name_2094 suffix_2095 LinkletVar(no-arguments:NO-VAL) #f)))))))) (fail_2090)))) c67_2088) (let ([c66_2104 (LinkletVar(idY47.1:NO-VAL) LinkletVar(lifted/1070.1:NO-VAL) decls_2082 id_2081)]) (if c66_2104 ((lambda (entry_2105) (LinkletVar(parse-pat:id/entry:NO-VAL) id_2081 allow-head?_2083 entry_2105)) c66_2104) (LinkletVar(make-pat:svar:NO-VAL) id_2081)))) . #f)
-- ((LinkletVar(check-pattern:NO-VAL) AppRand16621) . #f)
-- (LinkletVar(idY23.1:NO-VAL) . #f)
-- ((let ([AppRand16877 (LinkletVar(create-action:and:NO-VAL) defaults_2733)][AppRand16878 (LinkletVar(make-pat:datum:NO-VAL) '())]) (let ([AppRand16879 (LinkletVar(make-hpat:seq:NO-VAL) AppRand16878)]) (let ([AppRand16880 (LinkletVar(make-hpat:action:NO-VAL) AppRand16877 AppRand16879)]) (let ([AppRand16881 (list head_2729 AppRand16880)]) (LinkletVar(create-hpat:or:NO-VAL) AppRand16881))))) . #f)
-- ((check-head!_1590 AppRand16544) . #f)
-- ((LinkletVar(check-pattern:NO-VAL) AppRand16621) . #f)
-- ((let ([tailp_1653 (LinkletVar(parse-single-pattern:NO-VAL) sc22_1649 decls_1586)][headp_1652 headp_1652][if2772 (LinkletVar(action-pattern?:NO-VAL) headp_1652)]) (if if2772 (LinkletVar(make-pat:action:NO-VAL) headp_1652 tailp_1653) (let ([if2773 (LinkletVar(head-pattern?:NO-VAL) headp_1652)]) (if if2773 (LinkletVar(make-pat:head:NO-VAL) headp_1652 tailp_1653) (LinkletVar(make-pat:pair:NO-VAL) headp_1652 tailp_1653))))) . #f)
-- ((LinkletVar(check-pattern:NO-VAL) AppRand16621) . #f)
-- (headp_1652 . #f)
-- ((LinkletVar(check-pattern:NO-VAL) AppRand16621) . #f)
-- ((let ([AppRand16444 (LinkletVar(pattern-attrs:NO-VAL) pattern_1539)]) (let ([pvars_1540 (LinkletVar(map2:NO-VAL) LinkletVar(attr-name:NO-VAL) AppRand16444)]) (let ([excess-domain_1541 (LinkletVar(idY64.1:NO-VAL) LinkletVar(lifted/1070.1:NO-VAL) decls_1535 pvars_1540)]) (if (pair? excess-domain_1541) (let ([temp669_1542 (car excess-domain_1541)][tmp_1544 kind_1537]) (let ([if2756 (equal? tmp_1544 'main)]) (let ([AppRand16445 (if if2756  (let ([if2757 (equal? tmp_1544 'with)]) (if if2757 ;
 this #:declare clause affects only the preceding #:with pattern (void))))]) (let ([temp670_1543 (string-append identifier in #:declare clause does not appear in pattern AppRand16445)][if2758 (variable-reference-constant? #<#%variable-reference>)]) (if if2758 (let ([AppRand16446 (list)]) (LinkletVar(wrong-syntax16.1:NO-VAL) null temp669_1542 temp670_1543 AppRand16446)) (LinkletVar(wrong-syntax18.1:NO-VAL) temp669_1542 temp670_1543)))))) (void)) pattern_1539))) . #f)
-- ((let ([defs_1480 defs_1480][rest_1478 rest_1478][pattern_1494 (LinkletVar(combine-pattern+sides:NO-VAL) pattern0_1487 sides_1481 splicing?_1475)]) (values rest_1478 pattern_1494 defs_1480)) . #f)
-- ((LinkletVar(1/syntax-e:NO-VAL) sc152_737) . #f)
-- ((let ([(patterns_869 body-exprs_870 defs2s_871) (values (cons patterns45_872 patterns_866) (cons body-exprs46_873 body-exprs_867) (cons defs2s47_874 defs2s_868))]) (let ([(patterns_863 body-exprs_864 defs2s_865) (values patterns_869 body-exprs_870 defs2s_871)]) (if (not #f) (for-loop_856 patterns_863 body-exprs_864 defs2s_865 rest_862) (values patterns_863 body-exprs_864 defs2s_865)))) . #f)
-- ((let ([AppRand19749 (LinkletVar(1/reverse:NO-VAL) patterns_852)][AppRand19750 (LinkletVar(1/reverse:NO-VAL) body-exprs_853)][AppRand19751 (LinkletVar(1/reverse:NO-VAL) defs2s_854)]) (let ([(patterns_757 body-exprs_758 defs2s_759) (values AppRand19749 AppRand19750 AppRand19751)]) (let ([no-fail?_760 (LinkletVar(patterns-cannot-fail?:NO-VAL) patterns_757)]) (if no-fail?_760 (let ([l_875 LinkletVar(syntax-parse-logger:NO-VAL)]) (let ([if4077 (log-level? l_875 'debug 'syntax-parse)]) (if if4077 (let ([l_875 l_875][AppRand19752 (format cannot fail: ~e sc153_738)][AppRand19753 (current-continuation-marks)]) (log-message l_875 'debug AppRand19752 AppRand19753)) (void)))) (void)) (let ([AppRand19754 (LinkletVar(.get-syntax-literal!:NO-VAL) 134)][AppRand19755 (LinkletVar(get-txlifts-as-definitions:NO-VAL))]) (let ([AppRand19756 (apply append AppRand19755 defs_754 defs2s_759)]) (let ([ws154_876 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19754 AppRand19756)]) (let ([arg_877 ws154_876]) (let ([rslt_878 ((lambda (e_879) (let ([if4078 (LinkletVar(stx-list?:NO-VAL) e_879)]) (if if4078 (LinkletVar(stx->list:NO-VAL) e_879) #f))) arg_877)]) (if rslt_878 (let ([sc165_880 rslt_878][AppRand19757 (LinkletVar(.get-syntax-literal!:NO-VAL) 135)]) (let ([ws166_882 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19757 who_747)][AppRand19758 (LinkletVar(.get-syntax-literal!:NO-VAL) 136)]) (let ([ws167_883 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19758 context_750)][AppRand19759 (LinkletVar(.get-syntax-literal!:NO-VAL) 137)][AppRand19760 (if no-fail?_760 (LinkletVar(.get-syntax-literal!:NO-VAL) 138) (LinkletVar(.get-syntax-literal!:NO-VAL) 139))]) (let ([ws168_884 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19759 AppRand19760)][AppRand19761 (LinkletVar(.get-syntax-literal!:NO-VAL) 140)][AppRand19762 (LinkletVar(.get-syntax-literal!:NO-VAL) 141)][AppRand19778 (if (pair? patterns_757) (let ([AppRand19763 (LinkletVar(.get-syntax-literal!:NO-VAL) 142)][lst_888 patterns_757][lst_889 body-exprs_758]) (let ([AppRand19766 (begin (if (variable-reference-from-unsafe? #<#%variable-reference>) (void) (LinkletVar(check-list:NO-VAL) lst_888)) (if (variable-reference-from-unsafe? #<#%variable-reference>) (void) (LinkletVar(check-list:NO-VAL) lst_889)) (let ([lst_888 lst_888][lst_889 lst_889][for-loop_890 (lambda (fold-var_891 lst_892 lst_893) (let ([if4079 (if (pair? lst_892) (pair? lst_893) #f)]) (if if4079 (let ([pattern_894 (unsafe-car lst_892)]) (let ([rest_895 (unsafe-cdr lst_892)][body-expr_896 (unsafe-car lst_893)][rest_897 (unsafe-cdr lst_893)][fold-var_899 fold-var_891][AppRand19764 (list pattern_894)]) (let ([AppRand19765 (LinkletVar(pk11.1:NO-VAL) AppRand19764 body-expr_896)]) (let ([fold-var_900 (cons AppRand19765 fold-var_899)]) (let ([fold-var_898 (values fold-var_900)]) (if (not #f) (for-loop_890 fold-var_898 rest_895 rest_897) fold-var_898)))))) fold-var_891)))]) (for-loop_890 null lst_888 lst_889)))]) (let ([AppRand19767 (LinkletVar(1/reverse:NO-VAL) AppRand19766)]) (let ([AppRand19768 (LinkletVar(optimize-matrix0:NO-VAL) AppRand19767)]) (let ([ws171_887 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19763 AppRand19768)]) (let ([arg_901 ws171_887]) (let ([rslt_902 arg_901]) (let ([sc172_903 rslt_902][AppRand19769 (LinkletVar(.get-syntax-literal!:NO-VAL) 143)][AppRand19770 (LinkletVar(.get-syntax-literal!:NO-VAL) 144)][AppRand19771 (LinkletVar(.get-syntax-literal!:NO-VAL) 145)][AppRand19772 (LinkletVar(.get-syntax-literal!:NO-VAL) 146)]) (let ([AppRand19773 (LinkletVar(1/syntax-e:NO-VAL) AppRand19772)]) (let ([AppRand19769 AppRand19769][sc172_903 sc172_903][AppRand19771 AppRand19771][AppRand19770 AppRand19770][AppRand19774 (list* sc150_735 AppRand19773)]) (let ([AppRand19775 (LinkletVar(t-resyntax:NO-VAL) #f AppRand19771 AppRand19774)]) (let ([AppRand19776 (list AppRand19775)]) (let ([AppRand19777 (LinkletVar(t-resyntax:NO-VAL) #f AppRand19770 AppRand19776)]) (LinkletVar(t-subst:NO-VAL) #f AppRand19769 '(1 2) AppRand19777 sc172_903)))))))))))))) (LinkletVar(.get-syntax-literal!:NO-VAL) 147))]) (let ([ws170_886 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19762 AppRand19778)]) (let ([arg_907 ws170_886]) (let ([rslt_908 arg_907]) (let ([sc173_909 rslt_908][AppRand19779 (LinkletVar(.get-syntax-literal!:NO-VAL) 148)]) (let ([AppRand19780 (LinkletVar(t-subst:NO-VAL) #f AppRand19779 '(2) sc173_909)]) (let ([AppRand19781 (wrap-track-literals_756 AppRand19780)]) (let ([ws169_885 (LinkletVar(1/datum->syntax:NO-VAL) AppRand19761 AppRand19781)][arg_913 ws166_882]) (let ([rslt_914 arg_913]) (let ([sc174_915 rslt_914][arg_917 ws167_883]) (let ([rslt_918 arg_917]) (let ([sc175_919 rslt_918][arg_921 ws168_884]) (let ([rslt_922 arg_921]) (let ([sc176_923 rslt_922][arg_925 ws169_885]) (let ([rslt_926 arg_925]) (let ([sc177_927 rslt_926][pv_11_929 sc165_880][AppRand19782 (LinkletVar(.get-syntax-literal!:NO-VAL) 149)][AppRand19783 (LinkletVar(.get-syntax-literal!:NO-VAL) 150)][AppRand19784 (LinkletVar(.get-syntax-literal!:NO-VAL) 151)][AppRand19785 (list '(1) sc174_915)]) (let ([AppRand19786 (list '(recur 1 2 3) AppRand19785 sc175_919 sc150_735)]) (let ([AppRand19787 (LinkletVar(t-subst:NO-VAL) #f AppRand19784 '(recur 1) AppRand19786)][AppRand19788 (LinkletVar(.get-syntax-literal!:NO-VAL) 152)][AppRand19789 (list '(1) sc150_735)]) (let ([AppRand19790 (LinkletVar(t-subst:NO-VAL) #f AppRand19788 '(recur 1) AppRand19789)][AppRand19791 (LinkletVar(.get-syntax-literal!:NO-VAL) 153)]) (let ([AppRand19792 (LinkletVar(t-subst:NO-VAL) #f AppRand19791 '(1) sc176_923)][AppRand19793 (LinkletVar(.get-syntax-literal!:NO-VAL) 154)]) (let ([AppRand19794 (LinkletVar(t-subst:NO-VAL) #f AppRand19793 '(1) sc150_735)][AppRand19795 (LinkletVar(.get-syntax-literal!:NO-VAL) 155)]) (let ([AppRand19796 (LinkletVar(1/syntax-e:NO-VAL) AppRand19795)]) (let ([sc177_927 sc177_927][AppRand19782 AppRand19782][pv_11_929 pv_11_929][AppRand19783 AppRand19783][AppRand19797 (list* AppRand19787 AppRand19790 AppRand19792 AppRand19794 AppRand19796)]) (let ([AppRand19798 (LinkletVar(t-resyntax:NO-VAL) #f AppRand19783 AppRand19797)][AppRand19799 (list '(2) sc177_927)]) (LinkletVar(t-subst:NO-VAL) #f AppRand19782 '(1 append 2 recur 3) AppRand19798 pv_11_929 AppRand19799)))))))))))))))))))))))))))) (let ([arg_877 arg_877][rslt_938 ((lambda (e_939) null) arg_877)]) (if rslt_938 (let ([AppRand19800 (LinkletVar(.get-syntax-literal!:NO-VAL) 156)]) (LinkletVar(with-syntax-fail:NO-VAL) AppRand19800)) (LinkletVar(raise-syntax-error:NO-VAL) #f bad syntax arg_877)))))))))))) . #f)
-- ((LinkletVar(.get-syntax-literal!:NO-VAL) 3) . #f)
-- ((LinkletVar(current-recorded-disappeared-uses:NO-VAL)) . #f)