Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
GOOF----LE-8-2.0H ] 4 hR ] g guile g define-module* g ice-9 g match g filenameS
f ice-9/match.scm g exportsS g match-lambda
g
match-lambda* g match-let g
match-let* g match-letrec
g set-current-module g throw g match-error f match g error g make-syntax-transformer g slot-ref g macro g $sc-dispatch !g any "!!!! #g
syntax-object $g
struct-ref %g top &% 'g ribcage (g dummy )g rtd *g rec +g n ,()*+ -g m-1883f58c-6d8 .-% /.&&& 0f l-1883f58c-6dd 1f l-1883f58c-6de 2f l-1883f58c-6df 3f l-1883f58c-6e0 40123 5',/4 6' 7g x 87 9. :f l-1883f58c-6da ;: <'89; =&56< >g hygiene ?> @#$=? Ag syntax-violation BA CA Df -source expression failed to match any pattern Eg slot-set! F!!!!! Gg struct-set! Hg value I()*+H Jg m-1883f58c-6e5 KJ% LK&&&& Mf l-1883f58c-6ea Nf l-1883f58c-6eb Of l-1883f58c-6ec Pf l-1883f58c-6ed Qf l-1883f58c-6ee RMNOPQ S'ILR TK Uf l-1883f58c-6e7 VU W'8TV X&S6W Y#GX? Zg is-a? [!!! \g and ](*) ^g m-1883f58c-6f4 _^% `_&& af l-1883f58c-6f9 bf l-1883f58c-6fa cf l-1883f58c-6fb dabc e']`d f_ gf l-1883f58c-6f6 hg i'8fh j&e6i k#\j? lg struct? m#lj? ng eq? o#nj? pg
struct-vtable q#pj? rg match-syntax-error s! t( ug m-1883f58c-701 vu% wv xf l-1883f58c-706 yx z'twy {f l-1883f58c-703 |{ }'8w| ~&z6} #r~? f invalid match-syntax-error usage #~? g m-1883f58c-708 % f l-1883f58c-70d 't f l-1883f58c-70a '8 &6 #r? f missing match expression #? !! g atom ( & f l-1883f58c-710 f l-1883f58c-711 ' &6 #r? f no match clauses #? g each-any g each !! ! g let g app g pat g body ( &&& f l-1883f58c-715 f l-1883f58c-716 f l-1883f58c-717 f l-1883f58c-718 ' &6 #? g v #? g
match-next #? g set! #? g map g cons g vector ! g vec ( f l-1883f58c-723 f l-1883f58c-724 f l-1883f58c-725 f l-1883f58c-726 ' &6 #? #? g list->vector #? #? ! !Ҍ ( f l-1883f58c-72f f l-1883f58c-730 f l-1883f58c-731 f l-1883f58c-732 ' &6 #? #? #? #? g g+s ( g m-1883f58c-739 % && f l-1883f58c-73e f l-1883f58c-73f f l-1883f58c-740 ' f l-1883f58c-73b '8 &6 #? g quote #? #? f no matching pattern #? g free-id g => &6 #? ! ! ! ! ! ! ! g failure g rest ( &&&&&& f l-1883f58c-745 f l-1883f58c-746 f l-1883f58c-747 f l-1883f58c-748
f l-1883f58c-749 f l-1883f58c-74a f l-1883f58c-74b
'
&6 #? g lambda #? #? g match-one #? g match-drop-ids #? g begin #? ! ! ! ! ( &&&&& !f l-1883f58c-754 "f l-1883f58c-755 #f l-1883f58c-756 $f l-1883f58c-757 %f l-1883f58c-758 &f l-1883f58c-759 '!"#$%& (' ' )&(6 *#)? +#)? ,#)? -+, .! /!!.!!!! 0g match-check-ellipse 1g p 2g q 3g r 4g sk 5g fk 6g i 7(123456 8g m-1883f58c-760 98% :9&&&&&&&& ;f l-1883f58c-765 f l-1883f58c-768 ?f l-1883f58c-769 @f l-1883f58c-76a Af l-1883f58c-76b Bf l-1883f58c-76c Cf l-1883f58c-76d D;<=>?@ABC E'7:D F9 Gf l-1883f58c-762 HG I'8FH J&E6I K#0J? Lg match-extract-vars M#LJ? Ng match-gen-ellipses O#NJ? Pg match-two Q#PJ? R(7 S9& Tf l-1883f58c-778 Uf l-1883f58c-779 VTU W'RSV X&W6I Y#PX? Z!!!!! [g if \(456 ]g m-1883f58c-77c ^]% _^&&&&& `f l-1883f58c-781 af l-1883f58c-782 bf l-1883f58c-783 cf l-1883f58c-784 df l-1883f58c-785 ef l-1883f58c-786 f`abcde g'\_f h^ if l-1883f58c-77e ji k'8hj l&g6k m#[l? ng null? o#nl? pg append qp rp s&6k t#s? ut vu! w!!v!!! x(1456 y^&&&&&& zf l-1883f58c-78f {f l-1883f58c-790 |f l-1883f58c-791 }f l-1883f58c-792 ~f l-1883f58c-793 f l-1883f58c-794 f l-1883f58c-795 z{|}~ 'xy &6k #[? g equal? #? #? g
quasiquote #s? ! ! ! ! g match-quasiquote (17 ^&&& f l-1883f58c-79f f l-1883f58c-7a0 f l-1883f58c-7a1 f l-1883f58c-7a2 ' &6k #? #\s? !!!!! ! !!!!!! (12456 ^&&&&&&& f l-1883f58c-7b6 f l-1883f58c-7b7 f l-1883f58c-7b8 f l-1883f58c-7b9 f l-1883f58c-7ba f l-1883f58c-7bb f l-1883f58c-7bc f l-1883f58c-7bd ' &6k #? #\? g or #s? !!!!!! ! ! ! ! f l-1883f58c-7d5 f l-1883f58c-7d6 f l-1883f58c-7d7 f l-1883f58c-7d8 ' &6k #? !!!!!! f l-1883f58c-7de f l-1883f58c-7df f l-1883f58c-7e0 f l-1883f58c-7e1 f l-1883f58c-7e2 f l-1883f58c-7e3 f l-1883f58c-7e4 'xy &6k #L? #? g match-gen-or #? g not #s? ! !!!!! f l-1883f58c-7ef f l-1883f58c-7f0 f l-1883f58c-7f1 f l-1883f58c-7f2 f l-1883f58c-7f3 f l-1883f58c-7f4 f l-1883f58c-7f5 'xy &6k #? #? g get! #s? ! !!!! g getter g g g s (456 f l-1883f58c-7ff f l-1883f58c-800 f l-1883f58c-801 f l-1883f58c-802 f l-1883f58c-803 f l-1883f58c-804 f l-1883f58c-805 f l-1883f58c-806 ' &6k #? #? #s? ! ! !!!! g setter (456 f l-1883f58c-811 f l-1883f58c-812 f l-1883f58c-813 f l-1883f58c-814 f l-1883f58c-815 f l-1883f58c-816 f l-1883f58c-817 f l-1883f58c-818 ' &6k
# ? # ? #7 ?
g ? #s? !!!!!! g pred (1456 f l-1883f58c-824 f l-1883f58c-825 f l-1883f58c-826 f l-1883f58c-827 f l-1883f58c-828 f l-1883f58c-829 f l-1883f58c-82a f l-1883f58c-82b ' & 6k #[ ? !# ? "#\ ? #g = $##s? %$ &%!! '&! (!' )!( *g proc +(*17 ,^&&&& -f l-1883f58c-835 .f l-1883f58c-836 /f l-1883f58c-837 0f l-1883f58c-838 1f l-1883f58c-839 2-./01 3'+,2 4&36k 5#4? 6g w 7#64? 8#4? 9g ___ :#9s? ;: <;! =!< >!!=!!!! ?(13456 @f l-1883f58c-840 Af l-1883f58c-841 Bf l-1883f58c-842 Cf l-1883f58c-843 Df l-1883f58c-844 Ef l-1883f58c-845 Ff l-1883f58c-846 Gf l-1883f58c-847 H@ABCDEFG I'?H J&I6k K#LJ? L#NJ? M!!s!!!! Nf l-1883f58c-851 Of l-1883f58c-852 Pf l-1883f58c-853 Qf l-1883f58c-854 Rf l-1883f58c-855 Sf l-1883f58c-856 Tf l-1883f58c-857 UNOPQRST V'xyU W&V6k X#[W? Y#\W? Zg pair? [#ZW? \#nW? ]g cdr ^#]W? _#W? `#6W? ag car b#aW? c#W? dg set-car! e#dW? fg *** g#fs? hg i!h! j!!i!!!! kf l-1883f58c-860 lf l-1883f58c-861 mf l-1883f58c-862 nf l-1883f58c-863 of l-1883f58c-864 pf l-1883f58c-865 qf l-1883f58c-866 rf l-1883f58c-867 sklmnopqr t's u&t6k v#Lu? wg match-gen-search x#wu? yh! z!y {!!z!!!! |f l-1883f58c-871 }f l-1883f58c-872 ~f l-1883f58c-873 f l-1883f58c-874 f l-1883f58c-875 f l-1883f58c-876 f l-1883f58c-877 f l-1883f58c-878 |}~ ' &6k #r? f invalid use of *** #? #f? g ..1 #s? ! !!!!!! f l-1883f58c-882 f l-1883f58c-883 f l-1883f58c-884 f l-1883f58c-885 f l-1883f58c-886 f l-1883f58c-887 f l-1883f58c-888 'xy &6k #[? #Z? #? #9? g $ #s? !!!!!! (*1456 f l-1883f58c-891 f l-1883f58c-892 f l-1883f58c-893 f l-1883f58c-894 f l-1883f58c-895 f l-1883f58c-896 f l-1883f58c-897 f l-1883f58c-898 ' &6k #[? #Z? g match-record-refs #? #
? !!!!!! f l-1883f58c-8a3 f l-1883f58c-8a4 f l-1883f58c-8a5 f l-1883f58c-8a6 f l-1883f58c-8a7 f l-1883f58c-8a8 f l-1883f58c-8a9 f l-1883f58c-8aa ' &6k #[? #Z? #? #6? #a? #7? #]? #? #d? g set-cdr! #? !̌ !͌ g match-vector (17 f l-1883f58c-8b4 f l-1883f58c-8b5 f l-1883f58c-8b6 f l-1883f58c-8b7 f l-1883f58c-8b8 ', &6k #? #
? g _ #s? !!!!! !!!!! g
let-syntax g id (745 f l-1883f58c-8ce f l-1883f58c-8cf f l-1883f58c-8d0 f l-1883f58c-8d1 f l-1883f58c-8d2 f l-1883f58c-8d3 f l-1883f58c-8d4 'y &6k #? g new-sym? #? g syntax-rules #? g sk2 #? g fk2 #? g y #? g random-sym-to-match #? #? #[? #? g unquote g m-1883f58c-8e1 % f l-1883f58c-8e3 '8 &6
# ?
!
!! !!!! &&&&&& f l-1883f58c-8e6 f l-1883f58c-8e7 f l-1883f58c-8e8 f l-1883f58c-8e9 f l-1883f58c-8ea f l-1883f58c-8eb f l-1883f58c-8ec 'x &6 #? g unquote-splicing # ? ! ! !! !!!! (1456 !&&&&&&& "f l-1883f58c-8f5 #f l-1883f58c-8f6 $f l-1883f58c-8f7 %f l-1883f58c-8f8 &f l-1883f58c-8f9 'f l-1883f58c-8fa (f l-1883f58c-8fb )f l-1883f58c-8fc *"#$%&'() +' !* ,&+6 -#[,? .#Z,? /#,? 0g tmp 1#0,? 2#,? 3# ? 43 54! 6!. 7!6 857 9!8 :!9 ;g depth <(1456; =f l-1883f58c-906 >f l-1883f58c-907 ?f l-1883f58c-908 @f l-1883f58c-909 Af l-1883f58c-90a Bf l-1883f58c-90b Cf l-1883f58c-90c Df l-1883f58c-90d E=>?@ABCD F'<!E G&F6 H#G? I#G? J!7 K J L!K M!L N(14567; O&&&&&&&& Pf l-1883f58c-917 Qf l-1883f58c-918 Rf l-1883f58c-919 Sf l-1883f58c-91a Tf l-1883f58c-91b Uf l-1883f58c-91c Vf l-1883f58c-91d Wf l-1883f58c-91e Xf l-1883f58c-91f YPQRSTUVWX Z'NOY [&Z6 \#[? ] J ^!] _!^ `f l-1883f58c-92a af l-1883f58c-92b bf l-1883f58c-92c cf l-1883f58c-92d df l-1883f58c-92e ef l-1883f58c-92f ff l-1883f58c-930 gf l-1883f58c-931 hf l-1883f58c-932 i`abcdefgh j'NOi k&j6 l#k? m7 n!m o!n p(12456; qf l-1883f58c-93d rf l-1883f58c-93e sf l-1883f58c-93f tf l-1883f58c-940 uf l-1883f58c-941 vf l-1883f58c-942 wf l-1883f58c-943 xf l-1883f58c-944 yf l-1883f58c-945 zqrstuvwxy {'pOz |&{6 }#[|? ~#Z|? #|? #6|? #a|? #7|? #]|? #|? g match-quasiquote-step #|? 7 ! ! g elt (456; f l-1883f58c-950 f l-1883f58c-951 f l-1883f58c-952 f l-1883f58c-953 f l-1883f58c-954 f l-1883f58c-955 f l-1883f58c-956 f l-1883f58c-957 '! &6 #[? g vector? #? #? g ls #? g vector->list #? #? !J ! (7456; f l-1883f58c-962 f l-1883f58c-963 f l-1883f58c-964 f l-1883f58c-965 f l-1883f58c-966 f l-1883f58c-967 f l-1883f58c-968 f l-1883f58c-969 '! &6 #? #? !!!!!!!! (7245;6 g m-1883f58c-972 % &&&&&&& f l-1883f58c-977 f l-1883f58c-978 f l-1883f58c-979 f l-1883f58c-97a f l-1883f58c-97b f l-1883f58c-97c f l-1883f58c-97d f l-1883f58c-97e ' f l-1883f58c-974 '8 &6 #? ! g match-tuck-ids !! !Ȍ g match-drop-first-arg !!!!! g id-ls (1456 g m-1883f58c-9ae % &&&&&&&& f l-1883f58c-9b3 f l-1883f58c-9b4 f l-1883f58c-9b5 f l-1883f58c-9b6 f l-1883f58c-9b7 f l-1883f58c-9b8 f l-1883f58c-9b9 f l-1883f58c-9ba f l-1883f58c-9bb ' f l-1883f58c-9b0 '8 &6 #? #? #? g match-gen-or-step #? #? 6 !茤 !錤 s! !댤 !쌤 g m-1883f58c-9cb % &&& f l-1883f58c-9dd f l-1883f58c-9de f l-1883f58c-9df f l-1883f58c-9e0 ' f l-1883f58c-9cd '8 &6 #? &&&&&&& f l-1883f58c-9e6 f l-1883f58c-9e7 f l-1883f58c-9e8 f l-1883f58c-9e9 f l-1883f58c-9ea f l-1883f58c-9eb f l-1883f58c-9ec f l-1883f58c-9ed ' &6 #?
#? #? #?
#?
!!!!!! g match-check-identifier g m-1883f58c-9f6 % &&&&&&&& f l-1883f58c-9fb f l-1883f58c-9fc f l-1883f58c-9fd f l-1883f58c-9fe f l-1883f58c-9ff f l-1883f58c-a00 f l-1883f58c-a01 f l-1883f58c-a02 f l-1883f58c-a03 ' f l-1883f58c-9f8 ! "'8 ! #& 6" $##? %##? &#[#? 'g list? (#'#? )g loop *#)#? +##? ,##? -, .- /g cond 0#/#? 1#n#? 21+ 3g reverse 4#3#? 5#Z#? 65+ 7#6#? 8#a#? 98+ :79 ;: <##? =#d#? >=+ ?9> @##? A#]#? BA+ C##? Dg else E#D#? F!!!!!!! Gg match-verify-no-ellipses H(13456
I&&&&&&&&&
Jf l-1883f58c-a15 Kf l-1883f58c-a16 Lf l-1883f58c-a17 Mf l-1883f58c-a18 Nf l-1883f58c-a19 Of l-1883f58c-a1a Pf l-1883f58c-a1b Qf l-1883f58c-a1c Rf l-1883f58c-a1d Sf l-1883f58c-a1e TJKLMNOPQRS
U'HIT V&U6" W#GV? Xg let* Y#XV? Zg tail-len [#ZV? \g length ]#\V? ^#V? _#V? `g len a#`V? b#\V? c#'V? dc_ e]_ fbde gaf hg i#[V? j#V? k#V? lka mg < n#mV? ona[ pjlo q#V? r#)V? s__ t#+V? uta v^ wv x#/V? y##V? zyt[ {#3V? |#V? }#V? ~}} #ZV? _ #6V? #aV? _ #dV? _ #V? #]V? _ g - #V? # V? t #V? #DV? !! (74 g m-1883f58c-a2f % &&& f l-1883f58c-a34 f l-1883f58c-a35 f l-1883f58c-a36 f l-1883f58c-a37 ' f l-1883f58c-a31 '8 &6 #0? #r? f 3multiple ellipse patterns not allowed at same level #? #G? !! (74 && f l-1883f58c-a42 f l-1883f58c-a43 f l-1883f58c-a44 ' &6 #r? f %dotted tail not allowed after ellipse #? !!!!!!!! g letrec (12456
g m-1883f58c-a48 % &&&&&&&&&
f l-1883f58c-a4d f l-1883f58c-a4e f l-1883f58c-a4f f l-1883f58c-a50 f l-1883f58c-a51 f l-1883f58c-a52 f l-1883f58c-a53 f l-1883f58c-a54 f l-1883f58c-a55 f l-1883f58c-a56
' f l-1883f58c-a4a '8 &6 #? g try #? #? #6? g fail #? #? #? #? #3? g next #? #[? #? #Z? g u #? #a? #d? #? #? g lp #? #? #]? #? ! ! ! ! ! g pats (+127 g m-1883f58c-a6b % &&&&&& f l-1883f58c-a70 f l-1883f58c-a71 f l-1883f58c-a72 f l-1883f58c-a73 f l-1883f58c-a74 f l-1883f58c-a75 f l-1883f58c-a76
'
f l-1883f58c-a6d
'8 & 6 #0? g match-gen-vector-ellipses #? g match-vector-two #? &6 #9? ! !!!!!!! (+1456 &&&&&&& f l-1883f58c-a7f f l-1883f58c-a80 f l-1883f58c-a81 f l-1883f58c-a82 !f l-1883f58c-a83 "f l-1883f58c-a84 #f l-1883f58c-a85 $f l-1883f58c-a86 % !"#$ &' % '&&6 (#'? )& *f l-1883f58c-a90 +f l-1883f58c-a91 ,*+ -'R), .&-6 /#.? 0!!!!!! 1g index 2(+1456 3g m-1883f58c-a94 43% 54&&&&&&& 6f l-1883f58c-a99 7f l-1883f58c-a9a 8f l-1883f58c-a9b 9f l-1883f58c-a9c :f l-1883f58c-a9d ;f l-1883f58c-a9e 6789:;<= ?'25> @4 Af l-1883f58c-a96 BA C'8@B D&?6C E#[D? F#D? G#D? H#`D? Ig
vector-length J#ID? K##D? Lg match-vector-step M#LD? Ng list O P!O Q!P R!Q S4&&&&&& Tf l-1883f58c-aac Uf l-1883f58c-aad Vf l-1883f58c-aae Wf l-1883f58c-aaf Xf l-1883f58c-ab0 Yf l-1883f58c-ab1 Zf l-1883f58c-ab2 [TUVWXYZ \'S[ ]&\6C ^#]? _g + `#_]? a# ]? ba c!!!! d!!!!! e(1456 fg m-1883f58c-abb gf% hg&&&&&&& if l-1883f58c-acc jf l-1883f58c-acd kf l-1883f58c-ace lf l-1883f58c-acf mf l-1883f58c-ad0 nf l-1883f58c-ad1 of l-1883f58c-ad2 pf l-1883f58c-ad3 qijklmnop r'ehq sg tf l-1883f58c-abd ut v'8su w&r6v x#w? y#6w? zg
vector-ref {#zw? |#w? }g vector-set! ~#}w? #Lw? !!!!!!! (+11456 g m-1883f58c-adc % &&&&&&&& f l-1883f58c-ae1 f l-1883f58c-ae2 f l-1883f58c-ae3 f l-1883f58c-ae4 f l-1883f58c-ae5 f l-1883f58c-ae6 f l-1883f58c-ae7 f l-1883f58c-ae8 f l-1883f58c-ae9 ' f l-1883f58c-ade '8 &6 #[? #? #? #`? #I? g >= #? #L? g match-vector-tail #? (1+`456 g m-1883f58c-af5 % &&&&&&& f l-1883f58c-afa f l-1883f58c-afb f l-1883f58c-afc f l-1883f58c-afd f l-1883f58c-afe f l-1883f58c-aff f l-1883f58c-b00 f l-1883f58c-b01 ' f l-1883f58c-af7 '8 &6 #L? g match-vector-tail-two #? (1+`456
g m-1883f58c-b0a % &&&&&&&&&
f l-1883f58c-b0f f l-1883f58c-b10 f l-1883f58c-b11 f l-1883f58c-b12 f l-1883f58c-b13 f l-1883f58c-b14 f l-1883f58c-b15 f l-1883f58c-b16 f l-1883f58c-b17 f l-1883f58c-b18
' f l-1883f58c-b0c '8 &6 #? #)? g j #? #? #[? #? #3? #6? #z? #? g
vetor-set! #? #? #_? # ? #? !!!!!!!! (*+12456
g m-1883f58c-b29 % &&&&&&&&&
f l-1883f58c-b2e f l-1883f58c-b2f f l-1883f58c-b30 f l-1883f58c-b31 f l-1883f58c-b32 f l-1883f58c-b33 f l-1883f58c-b34 f l-1883f58c-b35 f l-1883f58c-b36 f l-1883f58c-b37
' f l-1883f58c-b2b '8 &6 #? #6? # ? #? #E? #? #_? # ? !!!!!!! g m-1883f58c-b54 % f l-1883f58c-b56 '8 &6 #? !
! (17 &&&
f l-1883f58c-b59 f l-1883f58c-b5a f l-1883f58c-b5b f l-1883f58c-b5c
' &6 #L? #? ! ! (*17 f l-1883f58c-b62 f l-1883f58c-b63 f l-1883f58c-b64 f l-1883f58c-b65 ' !& 6 "#L!? ###? $# %$!! &%! '!& ((*17 )f l-1883f58c-b6b *f l-1883f58c-b6c +f l-1883f58c-b6d ,f l-1883f58c-b6e -)*+, .'( - /&.6 0#L/? 1#? 21 32! 4!3!! 5#? 65 76! 8!7!!! 9g match-extract-quasiquote-vars :g k ;(7:6 < &&&& =f l-1883f58c-b80 >f l-1883f58c-b81 ?f l-1883f58c-b82 @f l-1883f58c-b83 Af l-1883f58c-b84 B=>?@A C';<B D&C6 E#9D? F#D? GF HG I#\? JI KJ! LK! M!L N(17 O && Pf l-1883f58c-b8b Qf l-1883f58c-b8c Rf l-1883f58c-b8d SPQR T'NOS U&T6 V#LU? W#? XW YX! ZY! [!Z \f l-1883f58c-b92 ]f l-1883f58c-b93 ^f l-1883f58c-b94 _\]^ `'NO_ a&`6 b#La? c#? dc ed! fe! g!f hf l-1883f58c-b99 if l-1883f58c-b9a jf l-1883f58c-b9b khij l'NOk m&l6 n#Lm? o!.!!! p(123:6 q &&&&&& rf l-1883f58c-ba0 sf l-1883f58c-ba1 tf l-1883f58c-ba2 uf l-1883f58c-ba3 vf l-1883f58c-ba4 wf l-1883f58c-ba5 xf l-1883f58c-ba6 yrstuvwx z'pqy {&z6 |#0{? }#L{? ~g match-extract-vars-step #~{? !!!! (12:6 &&&&& f l-1883f58c-baf f l-1883f58c-bb0 f l-1883f58c-bb1 f l-1883f58c-bb2 f l-1883f58c-bb3 f l-1883f58c-bb4 ' &6 #L? #~? ! ! f l-1883f58c-bbc f l-1883f58c-bbd f l-1883f58c-bbe 'NO &6 #L? #? !!! #9? !!! #f? !!! #? !!! !!! (1:6 f l-1883f58c-bec f l-1883f58c-bed f l-1883f58c-bee f l-1883f58c-bef f l-1883f58c-bf0 '< &6 #? #? #? #4? #5? #!? #? g p-ls #? !!!!! g v2 g v2-ls (1:6 g m-1883f58c-bf9 % &&&&&& f l-1883f58c-bfe f l-1883f58c-bff f l-1883f58c-c00 f l-1883f58c-c01 f l-1883f58c-c02 f l-1883f58c-c03 f l-1883f58c-c04 ' f l-1883f58c-bfb '8 &6 #L? g m-1883f58c-c0f % f l-1883f58c-c11 '8 &6 #? ! !!!!! g d (7:6 &&&&& f l-1883f58c-c14 f l-1883f58c-c15 f l-1883f58c-c16 f l-1883f58c-c17 f l-1883f58c-c18 f l-1883f58c-c19 ' &6 #9? #? #? ! !!!!! f l-1883f58c-c21 f l-1883f58c-c22 f l-1883f58c-c23 f l-1883f58c-c24 f l-1883f58c-c25 f l-1883f58c-c26 ' &6 #9? #? #? ! !!!! &&&& f l-1883f58c-c2e f l-1883f58c-c2f f l-1883f58c-c30 f l-1883f58c-c31 f l-1883f58c-c32 '; &6 #L?
! !!!!
f l-1883f58c-c39
f l-1883f58c-c3a f l-1883f58c-c3b f l-1883f58c-c3c f l-1883f58c-c3d f l-1883f58c-c3e
' &6 #9? !!!!
(7:6 &&&&&& f l-1883f58c-c46 f l-1883f58c-c47 f l-1883f58c-c48 f l-1883f58c-c49 f l-1883f58c-c4a f l-1883f58c-c4b f l-1883f58c-c4c !' "&!6 ##9"? $g "match-extract-quasiquote-vars-step %#$"? &!!!!
'f l-1883f58c-c55 (f l-1883f58c-c56 )f l-1883f58c-c57 *f l-1883f58c-c58 +f l-1883f58c-c59 ,f l-1883f58c-c5a -'()*+, .'- /&.6 0#9/? 1!!!!
2!!!!!! 3(7:6 4g m-1883f58c-c70 54% 65&&&&&&& 7f l-1883f58c-c75 8f l-1883f58c-c76 9f l-1883f58c-c77 :f l-1883f58c-c78 ;f l-1883f58c-c79 f l-1883f58c-c7c ?789:;<=> @'36? A5 Bf l-1883f58c-c72 CB D'8AC E&@6D F#9E? Gg pattern H(G Ig m-1883f58c-c88 JI% KJ&& Lf l-1883f58c-c8d Mf l-1883f58c-c8e Nf l-1883f58c-c8f OLMN P'HKO QJ Rf l-1883f58c-c8a SR T'8QS U&P6T V#U? Wg expr X#WU? YX Z#U? [g m-1883f58c-c95 \[% ]\&& ^f l-1883f58c-c9a _f l-1883f58c-c9b `f l-1883f58c-c9c a^_` b'H]a c\ df l-1883f58c-c97 ed f'8ce g&b6f h#g? i#Wg? j#g? k! l!k mg match-let/helper ng var o(nH pg m-1883f58c-ca2 qp% rq&&& sf l-1883f58c-ca7 tf l-1883f58c-ca8 uf l-1883f58c-ca9 vf l-1883f58c-caa wstuv x'orw yq zf l-1883f58c-ca4 {z |'8y{ }&x6| ~#m}? #}? !l g match-named-let g init ()n q&&&& f l-1883f58c-cb2 f l-1883f58c-cb3 f l-1883f58c-cb4 f l-1883f58c-cb5 f l-1883f58c-cb6 ' &6| #? g m-1883f58c-cbe % &&& f l-1883f58c-cc3 f l-1883f58c-cc4 f l-1883f58c-cc5 f l-1883f58c-cc6 'o f l-1883f58c-cc0 '8 &6 #m? #? ! ! ! ! ! (nW0 g m-1883f58c-ccd % &&&&&& f l-1883f58c-cdf f l-1883f58c-ce0 f l-1883f58c-ce1 f l-1883f58c-ce2 f l-1883f58c-ce3 f l-1883f58c-ce4 f l-1883f58c-ce5 ' f l-1883f58c-ccf '8 &6 #? ! ! ! ! ! g a g b (1W &&&&&&&& f l-1883f58c-cf2 f l-1883f58c-cf3 f l-1883f58c-cf4 f l-1883f58c-cf5 f l-1883f58c-cf6 f l-1883f58c-cf7 f l-1883f58c-cf8 f l-1883f58c-cf9 f l-1883f58c-cfa ' &6 #m? #0? ! ! ! !، !ٌ (1W &&&&&&& f l-1883f58c-d07 f l-1883f58c-d08 f l-1883f58c-d09 f l-1883f58c-d0a f l-1883f58c-d0b f l-1883f58c-d0c f l-1883f58c-d0d f l-1883f58c-d0e ' &6 #m? #0? ! 댤 쌤 !팤 ! f l-1883f58c-d1b f l-1883f58c-d1c f l-1883f58c-d1d f l-1883f58c-d1e f l-1883f58c-d1f f l-1883f58c-d20 f l-1883f58c-d21 f l-1883f58c-d22 ' &6 #m? [ ! ! ()Wn g m-1883f58c-d2d % &&&&& f l-1883f58c-d32 f l-1883f58c-d33 f l-1883f58c-d34 f l-1883f58c-d35 f l-1883f58c-d36 f l-1883f58c-d37
'
f l-1883f58c-d2f
'8 & 6 #? #? !쌤 ! ()W &&&&&& f l-1883f58c-d43 f l-1883f58c-d44 f l-1883f58c-d45 f l-1883f58c-d46 f l-1883f58c-d47 f l-1883f58c-d48 f l-1883f58c-d49 ' & 6 !# ? "#0 ? #" $! %( &g m-1883f58c-d52 '&% ('& )f l-1883f58c-d57 *f l-1883f58c-d58 +)* ,'%(+ -' .f l-1883f58c-d54 /. 0'8-/ 1&,60 2#1? 3!댤 4(W 5'&&&& 6f l-1883f58c-d5c 7f l-1883f58c-d5d 8f l-1883f58c-d5e 9f l-1883f58c-d5f :f l-1883f58c-d60 ;6789: <'45; =&<60 >#=? ?#=? @!!! A!!! Bg success-k Cg failure-k D(BC Eg m-1883f58c-d66 FE% GF&&& Hf l-1883f58c-d7f If l-1883f58c-d80 Jf l-1883f58c-d81 Kf l-1883f58c-d82 LHIJK M'DGL NF Of l-1883f58c-d68 PO Q'8NP R&M6Q S#R? Tg ellipse? U#TR? V#R? Wg foo X#WR? Y#4R? Z#5R? [YZ \Y ]g other ^#]R? _U^YZ `_Z a` b#R? c#R? dg c e#dR? fbce g(7BC hg m-1883f58c-d87 ih% ji&&& kf l-1883f58c-da0 lf l-1883f58c-da1 mf l-1883f58c-da2 nf l-1883f58c-da3 oklmn p'gjo qi rf l-1883f58c-d89 sr t'8qs u&p6t v#u? wg sym? x#wu? y#u? z#4u? {#5u? |z{ }z ~#u? x~z{ { g abracadabra #u? C 5 hp a ]4
5 4 > " G h - 1 3 @ g _
g args g filenamef ice-9/match.scm
g nameg error CR4 "@ h ^ ] C V g dummy
g rtd g rec g n CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.scm
! " g
macro-typeg syntax-rulesg patternsg rtdg recg n C5 R4E FY h q ] C i g dummy
g rtd g rec g n g value CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.scm
& " g
macro-typeg syntax-rulesg patternsg rtdg recg ng value C5ER4Z [kmoq h O ] C G g dummy
g rec g rtd CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.scm
+ " g
macro-typeg syntax-rulesg patternsg recg rtd C5ZR4r s h - ]C % g dummy
CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patterns C5rR4 s h - ]C % g dummy
C h ? ]C 7 g dummy
g atom C h0 a ] 45 CY g dummy
0 g app 0 g pat 0 g body 0 0 C h0 a ]45 45 C Y g dummy
+ g vec + g pat + g body + + C h0 b ] 45 CZ g dummy
0 g atom 0 g pat 0 g body 0 0 CCD h b ])4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @
6 Z g x
~ g tmp ~ g tmp " ~ g tmp 9 ~ g tmp P ~ g tmp g ~ g filenamef ice-9/match.upstream.scm
~ g
macro-typeg syntax-rulesg patternsg atom g appg ... g patg bodyg ... g vecg ... g patg bodyg ... g atomg patg bodyg ... C5R4 [ h M ] C E g dummy
g v g g+s C h@ ] C g dummy
@ g v @ g g+s @ g pat @ g failure @ g body @ g rest @ @ C *- h ]C z g dummy
g v g g+s g pat g body g rest CCD
hP . ]4 5 $ @4 5 $ @4 5 $ @ 6& g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
P g
macro-typeg syntax-rulesg patternsg vg g+s g vg g+sg patg =>g failure g bodyg restg vg g+sg patg bodyg rest C5R4 /KMOQ hH , 3 C g dummy
D g v D g p D g q D g r D g g+s D g sk D g fk D g i D D CY h < ]C4 g dummy
g x CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
/ 9 g
macro-typeg syntax-rulesg patternsg vg pg qg rg g+sg skg fkg i g x C5R4P Zmor h | ] 4 5 C t g dummy
g v g g+s g sk g fk g i Cwr h( ] 4 5 C g dummy
$ g v $ g p $ g g+s $ g sk $ g fk $ g i $ $ C h Z ]C R g dummy
g v g p g x Cr h | ] 6 t g dummy
g v
g g+s
g sk
g fk
g i
C h( , 3 C g dummy
( g v ( g p ( g q ( g g+s ( g sk ( g fk ( g i ( ( C h | ]C t g dummy
g v g g+s g sk g fk g i C h Z ]C R g dummy
g v g p g x C h( ] C g dummy
# g v # g p # g g+s # g sk # g fk # g i # # Cr h( ] 4 5 C g dummy
# g v # g p # g g+s # g sk # g fk # g i # # Cr h( , 3 4 5 C g dummy
( g v ( g getter ( g g ( g s ( g sk ( g fk ( g i ( ( C
r h0 , 3 45 4 5 C g dummy
0 g v 0 g setter 0 g g 0 g s 0 g sk 0 g fk 0 g i 0 0 C !" h0 , 3 C g dummy
) g v ) g pred ) g p ) g g+s ) g sk ) g fk ) g i ) ) C)578 h( l ] C d g dummy
" g v " g proc " g p " g x " " C>KL h( , 3 C g dummy
& g v & g p & g r & g g+s & g sk & g fk & g i & & CMXY[\^_`bce hX ]
C g dummy
V g v V g p V g g+s V g sk V g fk V g i V V Cjvx h( , 3 C g dummy
& g v & g p & g q & g g+s & g sk & g fk & g i & & C{ h , 3 C g dummy
g v g p g q g g+s g sk g fk g i C h( ] C g dummy
% g v % g p % g g+s % g sk % g fk % g i % % C h0 , 3 C g dummy
, g v , g rec , g p , g g+s , g sk , g fk , g i , , C hx , 3
C g dummy
q g v q g p q g q q g g+s q g sk q g fk q g i q q C h k ]C c g dummy
g v g p g g+s g x Cr h | ] 6 t g dummy
g v
g g+s
g sk
g fk
g i
Cr hp ] 4 4 5 5
4 5 C g dummy
l g v l g x l g g+s l g sk l g fk l g id l l CCD 2 h ]4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5 $ !@4 "5 $ #@4 $5 $ %@4 &5 $ '@4 (5 $ )@4 *5 $ +@4 ,5 $ -@4 .5 $ /@01 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g tmp g tmp
g tmp g tmp g tmp
g tmp 6 g tmp M g tmp d g tmp { g tmp g tmp g tmp g tmp g tmp g tmp g filenamef ice-9/match.upstream.scm
N g
macro-typeg syntax-rulesg patternsg vg g+sg skg ... g fkg i g vg quoteg p g g+sg skg ... g fkg i g vg
quasiquoteg p g xg vg and g g+sg skg ... g fkg i g vg andg pg qg ... g g+sg skg fkg i g vg or g g+sg skg fkg i g vg org p g xg vg org pg ... g g+sg skg fkg i g vg notg p g g+sg skg ... g fkg i g vg get!g getter g gg s g skg ... g fkg i g vg set!g setter g gg sg ... g skg ... g fkg i g vg ?g predg pg g+sg skg fkg i g vg =g procg p g xg vg pg ___g rg g+sg skg fkg i g vg p g g+sg skg fkg i g vg pg ***g q g g+sg skg fkg i g vg pg ***g qg g+sg skg fkg i g vg pg ..1 g g+sg skg fkg i g vg $g recg pg ... g g+sg skg fkg i g vg pg qg g+sg skg fkg i g vg pg ... g g+sg xg vg _g g+sg skg ... g fkg i g vg xg g+sg skg ... g fkg idg ... C5PR4
h ] C g dummy
g v g p g g+s g sk g fk g i C -./12 h8 , 3 C g dummy
4 g v 4 g p 4 g rest 4 g g+s 4 g sk 4 g fk 4 g i 4 4 C:HI h( , 3 C g dummy
! g v ! g p ! g g+s ! g sk ! g fk ! g i ! g depth ! ! CM\ h , 3 C g dummy
g v g p g g+s g sk g fk g i g x g depth C_l h , 3 C g dummy
g v g p g g+s g sk g fk g i g x g depth Co}~
h` , 3 C g dummy
[ g v [ g p [ g q [ g g+s [ g sk [ g fk [ g i [ g depth [ [ C h@ , 3 C g dummy
@ g v @ g elt @ g g+s @ g sk @ g fk @ g i @ g depth @ @ C h , 3 C g dummy
g v g x g g+s g sk g fk g i g depth CCD h ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g filenamef ice-9/match.upstream.scm
g
macro-typeg syntax-rulesg patternsg vg unquoteg p g g+sg skg fkg i g vg unquote-splicingg p g restg g+sg skg fkg i g vg
quasiquoteg p g g+sg skg fkg ig depthg vg unquoteg p g g+sg skg fkg ig xg depthg vg unquote-splicingg p g g+sg skg fkg ig xg depthg vg pg qg g+sg skg fkg ig depthg vg eltg ... g g+sg skg fkg ig depthg vg xg g+sg skg fkg ig depth C5R4 h , 3 C g dummy
g x g q g g+s g sk g fk g depth g i CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg xg qg g+sg skg fkg depthg i C5R4 h P ]C H g dummy
g expr g ids CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg exprg idsg ... C5R4 r h v ]45 C n g dummy
g letish g args g expr g ids CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg letishg argsg exprg ... g idsg ... C5R4 [ h P ]C H g dummy
g arg g expr CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg argg expr C5R4 r hH , 3 445 5 C g dummy
G g v G g p G g g+s G g sk G g fk G g i G g id G g id-ls G G CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg pg g+sg skg ... g fkg ig ... g idg id-ls g ... C5R4 h | ]C t g dummy
g v g g+s g sk g fk g x C h Z ]C R g dummy
g v g p g x C
h@ , 3 C g dummy
< g v < g p < g q < g g+s < g sk < g fk < g i < < CCD
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
P g
macro-typeg syntax-rulesg patternsg vg g+sg skg fkg xg vg p g xg vg pg qg g+sg skg fkg i C5R4N $%&(r*+. h 8 ] C0 g tmp-1883f58c-a0e
C024 h V ] C N g tmp-1883f58c-a10
g tmp-1883f58c-a0f C6;<7?@BC h V ] C N g tmp-1883f58c-a13
g tmp-1883f58c-a12 CE h , 3 4 5 4 5
4 54 5
45 C g dummy
g v g p g g+s g sk g fk g i g id g id-ls CFWY[]^_hipqrsuw h 8 ] C0 g tmp-1883f58c-a29
Cxz{ h V ] C N g tmp-1883f58c-a2b
g tmp-1883f58c-a2a C|~ h V ] C N g tmp-1883f58c-a2e
g tmp-1883f58c-a2d C h ,
3
4 5
4 5
4 5 C g dummy
g v g p g r g g+s g sk g fk g i g id g id-ls
CCD h@ G ]4 5 $ @4 5 $ @ 6 ? g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
9 g
macro-typeg syntax-rulesg patternsg vg pg g+sg skg ... g fkg ig idg id-ls g ... g vg pg rg g+sg skg ... g fkg ig idg id-ls g ... C5NR4G h [ ] C S g dummy
g x g y g sk Ch = ]C 5 g dummy
g sk C[ h L ] C D g dummy
g x g sk CCD
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
, P g
macro-typeg syntax-rulesg patternsg xg yg sk g sk g xg sk C5GR4w h V ] C N g tmp-1883f58c-a63
g tmp-1883f58c-a62 C h V ] C N g tmp-1883f58c-a67
g tmp-1883f58c-a66 C h 8 ] C0 g tmp-1883f58c-a69
C h ,
3
4
5
4 5 4 5 C g dummy
g v g p g q g g+s g sk g fk g i g id g id-ls
CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
E " g
macro-typeg syntax-rulesg patternsg vg pg qg g+sg skg fkg ig idg id-ls g ... C5wR4 h8 ] C g dummy
1 g v 1 g n 1 g pats 1 g p 1 g q 1 g x 1 1 C( h , 3 C g dummy
g v g n g pats g p g sk g fk g i C/ h < ]C4 g dummy
g x CCD
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
h P g
macro-typeg syntax-rulesg patternsg vg ng patsg pg q g xg vg ng patsg pg ___ g skg fkg i g x C5R4 0EFGHJKMN
hX , 3 4 5 C g dummy
Q g v Q g n Q g pat Q g index Q g sk Q g fk Q g i Q Q CR^`br h0 ]4 5C g dummy
) g v ) g n ) g pats ) g p ) g q ) g x ) ) CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
u 9 g
macro-typeg syntax-rulesg patternsg vg ng patg index g ... g skg fkg i g vg ng patsg ... g pg qg x C5R4L cr h k ] 6 c g dummy
g v
g sk
g fk
g i
Cdxy{|~ hP , 3 C g dummy
L g v L g pat L g index L g rest L g sk L g fk L g i L L CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
9 g
macro-typeg syntax-rulesg patternsg vg skg ... g fkg i g vg patg index g restg skg fkg i C5LR4 N h` , 3 4 5
C g dummy
` g v ` g n ` g pat ` g index ` g p ` g sk ` g fk ` g i ` ` CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg ng patg index g ... g pg skg fkg i C5R4 h( , 3 C g dummy
& g v & g p & g n & g len & g sk & g fk & g i & & CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg pg ng leng skg fkg i C5R4 F h 8 ] C0 g tmp-1883f58c-b23
C h V ] C N g tmp-1883f58c-b25
g tmp-1883f58c-b24 Cr h V ] C N g tmp-1883f58c-b28
g tmp-1883f58c-b27 C h ,
3
4 5 4 54 5
4 5 C g dummy
g v g p g n g len g sk g fk g i g id g id-ls
CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg vg pg ng leng skg ... g fkg ig idg id-ls g ... C5R4 h` ,
3
C g dummy
^ g v ^ g rec ^ g n ^ g p ^ g q ^ g g+s ^ g sk ^ g fk ^ g i ^
^
Cr h , 3 6 g dummy
g v g rec g n g g+s g sk g fk g i CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
9 g
macro-typeg syntax-rulesg patternsg vg recg ng pg qg g+sg skg fkg i g vg recg ng g+sg skg ... g fkg i C5R4L
h ] ]C U g dummy
g pred g p g x C" h \ ]C T g dummy
g rec g p g x C'0 h ] ]C U g dummy
g proc g p g x C4r h i ] 6 a g dummy
g x
g k
g i
g v
C8EH h i ]C a g dummy
g x g k g i g v CMV h K ]C C g dummy
g p g x C[b h K ]C C g dummy
g p g x Cgn h K ]C C g dummy
g p g x Co|} h8 ] C g dummy
6 g p 6 g q 6 g r 6 g k 6 g i 6 g v 6 6 C h x ] C p g dummy
g p g q g k g i g v C h K ]C C g dummy
g p g x Cr h Z ] 6 R g dummy
g k
g i
g v
Cr h Z ] 6 R g dummy
g k
g i
g v
Cr h Z ] 6 R g dummy
g k
g i
g v
Cr h Z ] 6 R g dummy
g k
g i
g v
Cr
hP i ] 4 54 5 C a g dummy
I g p I g k I g i I g v I I CCD $ h ]4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5 $ !@"# 6 g x
{ g tmp { g tmp " { g tmp 9 { g tmp P { g tmp g { g tmp ~ { g tmp { g tmp { g tmp { g tmp
{ g tmp { g tmp { g tmp
{ g tmp 6 { g tmp M { g tmp d { g filenamef ice-9/match.upstream.scm
{ g
macro-typeg syntax-rulesg patternsg ?g predg pg xg $g recg pg xg =g procg p g xg quoteg x g kg ... g ig v g
quasiquoteg x g kg ig v g andg pg xg org pg xg notg pg xg pg qg rg kg ig v g pg qg kg ig v g pg ... g xg _g kg ... g ig v g ___g kg ... g ig v g ***g kg ... g ig v g ..1g kg ... g ig v g pg kg ... g ig ... g v C5LR4~ rN h( ]454455 C g dummy
' g p ' g k ' g i ' g v ' g v2 ' g v2-ls ' ' CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg pg kg ig vg v2g v2-ls g ... C5~R49 h x ] C p g dummy
g x g k g i g v g d C h x ] C p g dummy
g x g k g i g v g d C h i ] Ca g dummy
g x g k g i g v C h x ] C p g dummy
g x g k g i g v g d C#% h ] C g dummy
g x g y g k g i g v g d C&0 h x ] C p g dummy
g x g k g i g v g d C1r h x ] 6 p g dummy
g x
g k
g i
g v
g d
CCD h 3 ]94 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @ 6 + g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g filenamef ice-9/match.upstream.scm
g
macro-typeg syntax-rulesg patternsg
quasiquoteg x g kg ig vg d g unquote-splicingg x g kg ig vg d g unquoteg x g kg ig v g unquoteg x g kg ig vg d g xg yg kg ig vg d g xg ... g kg ig vg d g xg kg ... g ig vg d C59R4$ 2FrN h0 , 3 454455 C g dummy
- g x - g k - g i - g v - g d - g v2 - g v2-ls - - CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg xg kg ig vg dg v2g v2-ls g ... C5$R4 VYZX h T ]45 C L g dummy
g pattern g body CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg patterng bodyg ... C5 R4
hij h T ]45 C L g dummy
g pattern g body CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
" g
macro-typeg syntax-rulesg patternsg patterng bodyg ... C5
R4 l~N h c ]45C [ g dummy
g var g value g body CN h t ]45C l g dummy
g loop g var g init g body CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
) 9 g
macro-typeg syntax-rulesg patternsg varg value g ... g bodyg loopg varg init g ... g body C5R4 lN h c ]45C [ g dummy
g var g value g body CCD h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/match.upstream.scm
3 " g
macro-typeg syntax-rulesg patternsg varg value g ... g body C5R4m N h s ]45C k g dummy
g let g var g expr g body CN h( ]4545 C g dummy
$ g let $ g var $ g expr $ g pat $ g tmp $ g body $ $ Cr h8 , 3 4 54 5C g dummy
7 g let 7 g v 7 g p 7 g a 7 g b 7 g expr 7 g rest 7 g body 7 7 Cr h@ , 3 4 5445 5C g dummy
9 g let 9 g v 9 g p 9 g a 9 g expr 9 g rest 9 g body 9 9 Cr h( , 3 4 5C g dummy
' g let ' g v ' g p ' g a ' g expr ' g rest ' g body ' ' CCD h H ])4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @
6 @ g x
~ g tmp ~ g tmp " ~ g tmp 9 ~ g tmp P ~ g tmp g ~ g filenamef ice-9/match.upstream.scm
8 ~ g
macro-typeg syntax-rulesg patternsg letg varg expr g ... g bodyg letg varg expr g ... g patg tmp g ... g bodyg letg vg ... g pg ... g ag bg expr g restg bodyg letg vg ... g pg ... g ag ... g expr g restg bodyg letg vg ... g pg ... g ag expr g restg body C5mR4 N h( ]4545 C } g dummy
& g loop & g pat & g expr & g var & g body & & C!r# h( ]4 5C g dummy
! g loop ! g v ! g pat ! g expr ! g rest ! g body ! ! CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
I 9 g
macro-typeg syntax-rulesg patternsg loopg patg exprg var g ... g bodyg loopg vg ... g patg expr g restg body C5R4 $2 h ? ]C7 g dummy
g body C3>? h t ] C l g dummy
g pat g expr g rest g body CCD h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef ice-9/match.upstream.scm
X 9 g
macro-typeg syntax-rulesg patternsg bodyg patg expr g restg body C5R40 @ h y ]C q g dummy
g a g b g success-k g failure-k CA h j ]C b g dummy
g a g success-k g failure-k C"SUVX[\af h8 k ] C c g dummy
3 g id 3 g success-k 3 g failure-k 3 3 CCD
hP 3 ]4 5 $ @4 5 $ @4 5 $ @ 6+ g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
l P g
macro-typeg syntax-rulesg patternsg ag bg success-kg failure-k g ag ... g success-kg failure-k g idg success-kg failure-k C50R4 @ h y ]C q g dummy
g x g y g success-k g failure-k CA h j ]C b g dummy
g x g success-k g failure-k C"vxy|} h0 j ] C b g dummy
. g x . g success-k . g failure-k . . CCD
hP 2 ]4 5 $ @4 5 $ @4 5 $ @ 6* g x
P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/match.upstream.scm
P g
macro-typeg syntax-rulesg patternsg xg yg success-kg failure-k g xg ... g success-kg failure-k g xg success-kg failure-k C5RC Y g m
( g filenamef ice-9/match.scm
j
C6