2 ;;; automatically generated from psyntax
.ss
3 ;;; Wed Aug
30 12:24:52 EST
2000
4 ;;; see copyright notice
in psyntax
.ss
10 (lambda (g1827 g1825 g1826
)
14 (cons (g393 (car g1827
) g1826
) g1825
)
17 (cons (g393 g1827 g1826
) g1825
)
24 (g371
g1826 (g206 g1827
)))
27 (annotation-expression
31 (cons g1827 g1825
)))))))))
38 ((lambda (g834
) (if (g90 g834
) (gensym
) (gensym
)))
39 (if (g204 g833
) (g205 g833
) g833
))))
55 (lambda (g837 g835 g836
)
56 (if (memq
'top (g264 g835))
61 (g449 (g205 g839) (g206 g839) g836)
64 (if (if (eq? g841 (car g839))
90 (set-annotation-stripped
! g1812 g1814
)
92 (set-car
! g1814 (g448 (car g1813
) '#f))
93 (set-cdr! g1814 (g448 (cdr g1813) '#f))
100 (g448 (annotation-expression g1813
) g1813
)))
101 (annotation-stripped g1813
))
105 (set-annotation-stripped
!
111 (if (not (< g1818
'0))
124 (- (vector-length g1813) '1))
126 (make-vector
(vector-length g1813
)))
137 #(ribcage #(x) #((top)) #("i"))
170 set-module-binding-val!
171 set-module-binding-imps!
172 set-module-binding-label!
173 set-module-binding-id!
174 set-module-binding-type!
182 make-resolved-interface
183 make-trimmed-interface
185 set-interface-exports!
209 id-var-name-loc&marks
214 make-trimmed-syntax-object
216 lookup-import-binding-name
217 extend-ribcage-subst!
218 extend-ribcage-barrier-help!
219 extend-ribcage-barrier!
235 set-ribcage-symnames!
264 displaced-lexical-error
280 set-syntax-object-wrap!
281 set-syntax-object-expression!
283 syntax-object-expression
294 build-module-definition
295 build-global-definition
296 build-global-assignment
297 build-global-reference
298 build-lexical-assignment
299 build-lexical-reference
304 get-global-definition-hook
305 put-global-definition-hook
678 #(ribcage ((import-token . *top*)) () ())
679 #(ribcage ((import-token . *top*)) () ()))))
681 (g446 (lambda () (list
'void)))
683 (lambda (g850 g845 g849 g846 g848 g847)
688 (lambda (g857 g853 g856 g854 g855)
690 (if (not (g389 g858))
691 (g391 (map (lambda (g859)
694 (g394 g845 g846 g848)
698 (g847 (cons g854 g855
)
712 (g368 g858 g860 g846)))
717 (syntax-error (g394 g845 g846 g848)))
721 '(any
#(each (any any)) any . each-any))))
724 (lambda (g1789 g1785 g1788 g1786 g1787
)
729 (lambda (g1794 g1792 g1793
)
731 (if (not (g389 g1795
))
734 '"invalid parameter list in")
735 ((lambda (g1797 g1796)
738 (g437 (cons g1792 g1793)
740 (g248 g1797 g1796 g1788)
741 (g368 g1795 g1797 g1786))))
749 (lambda (g1803 g1801 g1802)
751 (if (not (g389 g1804))
754 '"invalid parameter list in")
755 ((lambda (g1806 g1805
)
770 (g437 (cons g1801 g1802
)
782 ((lambda (g1811
) (syntax-error g1789
))
784 ($syntax-dispatch g1790
'(any any . each-any)))))
785 ($syntax-dispatch g1790 '(each-any any
. each-any
))))
788 (lambda (g872 g869 g871 g870
)
793 (lambda (g877 g875 g876
) (g256 g875
))
797 (lambda (g880 g878 g879) (g870 g878 g879 g869))
800 (syntax-error (g394 g872 g869 g871)))
802 ($syntax-dispatch g873 '(any any any
))))
805 (lambda (g1758 g1755 g1757 g1756
)
810 (lambda (g1763 g1761 g1762
) (g256 g1761
))
814 (lambda (g1766 g1764 g1765)
815 (g1756 g1764 g1765 g1755))
831 (lambda (g1777 g1773 g1776 g1774 g1775)
834 (cons '#(syntax-object
844 #("i" "i" "i" "i" "i"))
885 set-module-binding-val
!
886 set-module-binding-imps
!
887 set-module-binding-label
!
888 set-module-binding-id
!
889 set-module-binding-type
!
897 make-resolved-interface
898 make-trimmed-interface
900 set-interface-exports
!
924 id-var-name-loc
&marks
929 make-trimmed-syntax-object
931 lookup-import-binding-name
932 extend-ribcage-subst
!
933 extend-ribcage-barrier-help
!
934 extend-ribcage-barrier
!
950 set-ribcage-symnames
!
979 displaced-lexical-error
995 set-syntax-object-wrap
!
996 set-syntax-object-expression
!
998 syntax-object-expression
1009 build-module-definition
1010 build-global-definition
1011 build-global-assignment
1012 build-global-reference
1013 build-lexical-assignment
1014 build-lexical-reference
1019 get-global-definition-hook
1020 put-global-definition-hook
1394 ((import-token
. *top
*))
1398 ((import-token
. *top
*))
1409 (lambda (g1781 g1780)
1414 (lambda (g1783 g1782
)
1460 check-module-exports
1464 set-module-binding-val!
1465 set-module-binding-imps!
1466 set-module-binding-label!
1467 set-module-binding-id!
1468 set-module-binding-type!
1471 module-binding-label
1476 make-resolved-interface
1477 make-trimmed-interface
1478 set-interface-token!
1479 set-interface-exports!
1503 id-var-name-loc&marks
1508 make-trimmed-syntax-object
1510 lookup-import-binding-name
1511 extend-ribcage-subst!
1512 extend-ribcage-barrier-help!
1513 extend-ribcage-barrier!
1529 set-ribcage-symnames!
1558 displaced-lexical-error
1574 set-syntax-object-wrap!
1575 set-syntax-object-expression!
1577 syntax-object-expression
1588 build-module-definition
1589 build-global-definition
1590 build-global-assignment
1591 build-global-reference
1592 build-lexical-assignment
1593 build-lexical-reference
1598 get-global-definition-hook
1599 put-global-definition-hook
1988 (g394 g1758 g1755 g1757
)))
1990 ($syntax-dispatch g1759
'(any any)))))
1993 '(any (any
. any
) any
. each-any
)))))
1994 ($syntax-dispatch g1759
'(any any any))))
1997 (lambda (g885 g882 g884 g883)
2001 (apply (lambda (g889 g888) (g256 g888)) g887)
2004 (lambda (g891 g890
) (g883 (g393 g890 g882
)))
2007 (syntax-error
(g394 g885 g882 g884
)))
2009 ($syntax-dispatch g886
'(any any))))
2012 (lambda (g1723 g1719 g1722 g1720 g1721)
2014 (lambda (g1753 g1751 g1752)
2018 (map (lambda (g1754) (g393 g1754 g1720))
2024 (cons ((lambda (g1746
)
2038 '"invalid exports list in")))
2044 (g1724 (cdr g1745
)))))))
2049 (lambda (g1730 g1728 g1729
)
2050 (g1725
'#f g1728 g1729))
2055 (lambda (g1737 g1734 g1736 g1735)
2060 (lambda (g1741 g1738 g1740 g1739
)
2068 (g394 g1723 g1719 g1722
)))
2072 '(any any each-any . each-any)))))
2073 ($syntax-dispatch g1726 '(any each-any
. each-any
))))
2080 (g429 (lambda (g896
)
2082 (begin (if (not g897
)
2085 '"exported identifier not visible")
2087 (g363 g893 g896 g897)))
2092 (lambda (g1652 g1648 g1651 g1649 g1650
)
2094 (lambda (g1718 g1714 g1717 g1715 g1716
)
2095 (begin (g426 g1648 g1714
)
2096 (g1650 g1718 g1714 g1717 g1715 g1716
)))))
2098 (lambda (g1659 g1655 g1658 g1656 g1657
)
2100 (g1653 g1659 g1655 g1658 g1656 g1657
)
2101 ((lambda (g1661 g1660
)
2115 (if (memv g1667
'(define-form))
2147 '(define-syntax-form))
2193 (map (lambda (g1695)
2281 '(displaced-lexical
))
2285 '"import from unknown module"))))
2325 '(local-syntax-form))
2372 (lambda (g901 g898 g900 g899)
2382 (lambda (g910 g906 g909 g907 g908)
2383 (begin (if (null? g910)
2386 '"no expressions in body")
2403 (map (lambda (g913
) (cons
g902 (g393 g913 g904
)))
2405 (g263 (g264 g899
) (cons
g903 (g265 g899
)))))
2406 (g304
'() '() '())))
2407 (cons '("placeholder" placeholder
) g900
))))
2409 (lambda (g1635 g1630 g1634 g1631 g1633 g1632
)
2411 (lambda (g1640 g1639
)
2413 (cons (g1636 (car g1640
) g1639
)
2414 (g1636 (cdr g1640
) g1639
))
2417 ((lambda (g1643 g1642
)
2419 (if (if (pair
? g1643
)
2428 (g263 (cons g1639 g1643
)
2460 (make-vector g1644
)))
2461 (vector-length g1640
))
2464 (g394 g1630 g1631 g1633
)
2465 '"encountered raw symbol "
2466 (format '"~s" g1640
)
2467 '" in output of macro")
2471 (if (procedure? g1637)
2474 (begin (if (not (identifier? g1638))
2477 '"environment argument is not an identifier")
2479 (g253 (g377 g1638
'(())) g1634))))
2481 (g1635 (g394 g1630 (g349 g1631) g1633)))
2484 (lambda (g918 g914 g917 g915 g916
)
2489 (lambda (g923 g921 g922
) (g256 g921
))
2493 (lambda (g926 g924 g925)
2497 (if (memv g929 '(macro
!))
2498 ((lambda (g931 g930
)
2499 (g398 (g436 (g233 g928
)
2500 (list
'#(syntax-object
2608 check-module-exports
2612 set-module-binding-val!
2613 set-module-binding-imps!
2614 set-module-binding-label!
2615 set-module-binding-id!
2616 set-module-binding-type!
2619 module-binding-label
2624 make-resolved-interface
2625 make-trimmed-interface
2626 set-interface-token!
2627 set-interface-exports!
2651 id-var-name-loc&marks
2656 make-trimmed-syntax-object
2658 lookup-import-binding-name
2659 extend-ribcage-subst!
2660 extend-ribcage-barrier-help!
2661 extend-ribcage-barrier!
2677 set-ribcage-symnames!
2706 displaced-lexical-error
2722 set-syntax-object-wrap!
2723 set-syntax-object-expression!
2725 syntax-object-expression
2736 build-module-definition
2737 build-global-definition
2738 build-global-assignment
2739 build-global-reference
2740 build-lexical-assignment
2741 build-lexical-reference
2746 get-global-definition-hook
2747 put-global-definition-hook
3146 (lambda (g935 g932 g934 g933
)
3147 ((lambda (g937 g936
)
3161 '(displaced-lexical))
3165 '"identifier out of context")
3172 (g432 g925 g932 g934
)
3182 (syntax-error
(g394 g918 g917 g915
)))
3184 ($syntax-dispatch g919
'(any any any))))
3187 (lambda (g1622 g1618 g1621 g1619 g1620)
3192 (lambda (g1626 g1625)
3194 (map (lambda (g1628)
3195 (g432 g1628 g1621 g1619))
3199 (syntax-error (g394 g1618 g1619 g1620)))
3201 ($syntax-dispatch g1623 '(any
. each-any
))))
3204 (lambda (g946 g941 g945 g942 g944 g943
)
3206 (if (memv g947
'(lexical))
3208 (if (memv g947 '(core
))
3209 (g941 g945 g942 g944 g943
)
3210 (if (memv g947
'(lexical-call))
3211 (g434 g941 g945 g942 g944 g943)
3212 (if (memv g947 '(constant
))
3214 (g450 (g394 g945 g944 g943) '(())))
3215 (if (memv g947
'(global))
3217 (if (memv g947 '(call
))
3218 (g434 (g432 (car g945
) g942 g944
)
3223 (if (memv g947
'(begin-form))
3246 '(local-syntax-form))
3294 '"invalid context for definition")
3301 '"reference to pattern variable outside syntax form")
3303 '(displaced-lexical))
3313 (lambda (g1612 g1610 g1611)
3315 (lambda () (g398 g1612 g1610 g1611 '#f '#f))
3316 (lambda (g1617 g1613 g1616 g1614 g1615
)
3317 (g433 g1617 g1613 g1616 g1610 g1614 g1615
)))))
3319 (lambda (g965 g963 g964
)
3321 (if (memv g966
'(c))
3322 (if (memq 'compile g963
)
3325 (if (memq
'load g963) g967 (g446))))
3327 (if (memq 'load g963
) (g964
) (g446
)))
3328 (if (memv g966
'(c&e))
3329 ((lambda (g968) (begin (g91 g968) g968)) (g964))
3330 (begin (if (memq 'eval g963
) (g91 (g964
)) (void
))
3334 (lambda (g1609 g1608
)
3337 (list
'quote (g231 'do-import g1608
)))))
3343 (if (not (= g973 g971
))
3344 (begin (g970 (vector-ref g969 g973
))
3349 (vector-length g969
))))
3351 (lambda (g1604 g1603
)
3353 (lambda (g1607 g1606
)
3358 (cons (g1604 (vector-ref g1603 g1607
))
3361 (- (vector-length g1603
) '1)
3364 (lambda (g982 g974 g981 g975 g980 g976 g979 g977 g978
)
3366 (lambda (g1050 g1049
)
3368 (map (lambda (g1052
)
3370 (if (not (g392 g1053 g1051
))
3381 (map (lambda (g1054
)
3382 (if (pair
? g1054
) (car g1054
) g1054
))
3390 (if (if (pair? (car g1045))
3395 (g1044 (cdr g1045
)))))))
3399 (lambda (g1048 g1046 g1047
)
3400 (begin (g426 g974 g1046
)
3401 (g425 g974 g976 g1046
)
3402 (g978 g1048 g1047
)))))
3404 (lambda (g990 g987 g989 g988
)
3406 (g983 g989 g987 g988
)
3407 ((lambda (g992 g991
)
3410 (g398 g992 g991
'(()) '#f g982))
3411 (lambda (g997 g993 g996 g994 g995
)
3413 (if (memv g998
'(define-form))
3444 '(define-syntax-form
))
3496 (map (lambda (g1024
)
3550 (g408 g1014)))))))))
3584 '(displaced-lexical))
3588 '"import from unknown module"))))
3602 (g986 ((letrec ((g1034
3626 '(local-syntax-form
))
3636 (g986 ((letrec ((g1041
3659 (cdr g990
)))))))))))
3669 (lambda (g1560 g1559)
3671 (lambda (g1597 g1595 g1596)
3674 (if (g367 ((lambda (g1599)
3677 (annotation-expression
3687 (g264 (g206 g1597
))))
3692 (lambda (g1602 g1601
)
3693 (if (g1561 g1602 g1597
)
3699 (lambda (g1575 g1573 g1574
)
3704 ((lambda (g1581 g1580
)
3705 (if (fx
> (vector-length g1581
)
3706 (vector-length g1580
))
3707 (values g1575 g1580
)
3708 (values g1573 g1581
)))
3711 (lambda (g1577 g1576
)
3714 (lambda (g1579 g1578
)
3715 (g1564 g1579 g1577 g1578
))
3717 (g1564 g1573 g1575 g1574
))
3719 (g1564 g1575 g1573 g1574
)
3720 (if (g1561 g1575 g1573
)
3724 (lambda (g1590 g1588 g1589
)
3727 (lambda (g1594 g1593
)
3733 (vector-ref g1590 g1594)
3738 (vector-length g1590
))))
3740 (lambda (g1583 g1582
)
3748 (annotation-expression
3755 (g373 (g264 (g206 g1582
))
3763 (annotation-expression
3770 (g373 (g264 (g206 g1583
))
3773 (g388 g1583 g1582
))))))
3774 (if (not (null
? g1559
))
3776 (lambda (g1568 g1566 g1567
)
3778 (if (not (null
? g1567
))
3782 '"duplicate definition for "
3783 (symbol->string (car g1569))
3785 (syntax-object-
>datum g1567
))
3788 (lambda (g1572 g1571
)
3809 (lambda (g1057 g1055 g1056)
3811 (lambda (g1065 g1064)
3817 (g367 ((lambda (g1068)
3820 (annotation-expression
3828 (g264 (g206 g1065)))
3846 (- (vector-length g1070
)
3850 (g388 g1065 g1066)))
3853 (lambda (g1061 g1060)
3855 (if (not (null? g1060))
3858 '"missing definition for export(s)")
3860 ((lambda (g1063 g1062
)
3861 (if (g1058 g1063 g1056
)
3863 (g1059
g1062 (cons g1063 g1060
))))
3870 (lambda (g1558 g1556 g1557)
3871 (set-cdr! g1558 (g246 g1556 g1557 (cdr g1558)))))
3873 (lambda (g1075 g1074)
3876 (if (g392 (car g1075
) g1074
)
3877 (g423 (cdr g1075
) g1074
)
3878 (cons (car g1075
) (g423 (cdr g1075
) g1074
))))))
3892 (g394 g1491 g1483 g1489
)
3893 (map (lambda (g1555
) (cons g1482 g1555
)) g1486
)
3899 (lambda (g1494 g1493
)
3936 (map (lambda (g1518
)
3946 'define-syntax-form)
3964 (if (g373 (g264 (g206 g1485))
3976 (g264 (g206 g1485
)))))
3980 (list (list '$sc-put
-cte
3996 (annotation-expression
4005 (map (lambda (g1517
)
4031 (map (lambda (g1530
)
4036 (map (lambda (g1528)
4041 (map (lambda (g1529
)
4061 (g451 (g413 g1531)))
4063 '(define-syntax-form
4069 (error
'sc-expand-internal
4070 '"unexpected module binding type"))))
4077 ((lambda (g1535 g1534
)
4089 (if (g388 (g413 (car g1554
))
4106 (lambda (g1538 g1537)
4126 '(define-syntax-form))
4153 (error
'sc-expand-internal
4154 '"unexpected module binding type")))))
4159 (g101 ((lambda (g1546
)
4162 (annotation-expression
4188 (g421 (lambda (g1077 g1076) (vector-set! g1077 '5 g1076
)))
4189 (g420 (lambda (g1481 g1480
) (vector-set
! g1481
'4 g1480)))
4190 (g419 (lambda (g1079 g1078) (vector-set! g1079 '3 g1078
)))
4191 (g418 (lambda (g1479 g1478
) (vector-set
! g1479
'2 g1478)))
4192 (g417 (lambda (g1081 g1080) (vector-set! g1081 '1 g1080
)))
4193 (g416 (lambda (g1477
) (vector-ref g1477
'5)))
4194 (g415 (lambda (g1082) (vector-ref g1082 '4)))
4195 (g414 (lambda (g1476
) (vector-ref g1476
'3)))
4196 (g413 (lambda (g1083) (vector-ref g1083 '2)))
4197 (g412 (lambda (g1475
) (vector-ref g1475
'1)))
4201 (if (= (vector-length g1084) '6)
4202 (eq
? (vector-ref g1084
'0) 'module-binding
)
4206 (lambda (g1474 g1470 g1473 g1471 g1472
)
4207 (vector
'module-binding g1474 g1470 g1473 g1471 g1472)))
4209 (lambda (g1086 g1085)
4211 (map (lambda (g1087)
4212 (g369 (if (pair? g1087) (car g1087) g1087)))
4218 (map (lambda (g1469)
4219 (if (pair? g1469) (car g1469) g1469))
4222 (g407 (lambda (g1089 g1088
) (vector-set
! g1089
'2 g1088)))
4223 (g406 (lambda (g1467 g1466) (vector-set! g1467 '1 g1466
)))
4224 (g405 (lambda (g1090
) (vector-ref g1090
'2)))
4225 (g404 (lambda (g1465) (vector-ref g1465 '1)))
4229 (if (= (vector-length g1091
) '3)
4230 (eq? (vector-ref g1091 '0) 'interface)
4234 (lambda (g1464 g1463) (vector 'interface g1464 g1463
)))
4238 (lambda (g1095 g1094
)
4243 (if (pair
? (car g1095
))
4244 (g1093 (car g1095
) g1094
)
4245 (cons (car g1095
) g1094
)))))))
4250 (lambda (g1390 g1385 g1389 g1386 g1388 g1387)
4252 (lambda () (g398 g1390 g1385 g1389 '#f g1387))
4253 (lambda (g1401 g1397 g1400 g1398 g1399
)
4255 (if (memv g1402
'(begin-form))
4259 (apply (lambda (g1405) (g446)) g1404)
4263 (lambda (g1409 g1407 g1408)
4264 (g396 (cons g1407 g1408)
4272 (syntax-error g1403)))
4275 '(any any
. each-any
)))))
4276 ($syntax-dispatch g1403
'(any))))
4278 (if (memv g1402 '(local-syntax-form
))
4284 (lambda (g1414 g1411 g1413 g1412
)
4292 (if (memv g1402
'(eval-when-form))
4301 ((lambda (g1422 g1421)
4315 (if ((lambda (g1423
)
4343 (if ((lambda (g1424)
4353 (begin (g91 (g396 g1421
4362 (g397 g1400 g1417 g1398)
4363 (cons g1419 g1418)))
4365 (syntax-error g1415)))
4368 '(any each-any any
. each-any
))))
4370 (if (memv g1402
'(define-syntax-form))
4374 (lambda (g1429 g1427 g1428)
4376 (begin ((lambda (g1435)
4380 '(displaced-lexical
))
4394 (if (g373 (g264 (g206 g1430))
4406 (g264 (g206 g1430
)))))
4410 (annotation-expression
4420 (g393 g1429 g1428
))))
4421 (if (memv g1402
'(define-form))
4425 (lambda (g1440 g1438 g1439)
4427 (begin ((lambda (g1448)
4431 '(displaced-lexical
))
4459 (g264 (g206 g1441
)))))
4464 (begin (if (eq
? g1386
4474 (if (g373 (g264 (g206 g1441
))
4481 (annotation-expression
4488 (g393 g1440 g1439))))
4489 (if (memv g1402 '(module-form
))
4490 ((lambda (g1452 g1451
)
4501 (begin ((lambda (g1456
)
4505 '(displaced-lexical))
4534 (cons '("top-level module placeholder"
4552 '"not valid at top-level")
4559 (g405 (g233 g1460
)))
4561 '(displaced-lexical))
4565 '"import from unknown module"))))
4571 (begin (if (eq
? g1386
4584 (lambda (g1099 g1096 g1098 g1097)
4586 (lambda () (g398 g1099 g1096 g1098 '#f g1097))
4587 (lambda (g1104 g1100 g1103 g1101 g1102
)
4588 (g433 g1104 g1100 g1103 g1096 g1101 g1102
)))))
4590 (lambda (g1370 g1366 g1369 g1367 g1368
)
4597 (if (memv g1374
'(lexical))
4604 (if (memv g1374 '(global
))
4611 (if (memv g1374
'(macro macro!))
4612 (g398 (g436 (g233 g1372)
4630 (g253 g1371 g1366)))
4640 (if (memv g1379 '(lexical
))
4649 (g398 (g436 (g233 g1377
)
4741 (g253 g1376 g1366
)))
4743 (values
'call '#f g1370 g1369 g1367)))
4748 (g371
g1369 (g206 g1370
))
4752 (g398 (annotation-expression g1370)
4755 (annotation-source g1370)
4757 (if ((lambda (g1380)
4778 (values 'constant
'#f g1370 g1369 g1367)
4786 (lambda (g1107 g1105 g1106)
4788 (lambda (g1110 g1109)
4793 (cons ((lambda (g1111)
4865 check-module-exports
4869 set-module-binding-val
!
4870 set-module-binding-imps
!
4871 set-module-binding-label
!
4872 set-module-binding-id
!
4873 set-module-binding-type
!
4876 module-binding-label
4881 make-resolved-interface
4882 make-trimmed-interface
4883 set-interface-token
!
4884 set-interface-exports
!
4908 id-var-name-loc
&marks
4913 make-trimmed-syntax-object
4915 lookup-import-binding-name
4916 extend-ribcage-subst
!
4917 extend-ribcage-barrier-help
!
4918 extend-ribcage-barrier
!
4934 set-ribcage-symnames
!
4963 displaced-lexical-error
4979 set-syntax-object-wrap
!
4980 set-syntax-object-expression
!
4982 syntax-object-expression
4993 build-module-definition
4994 build-global-definition
4995 build-global-assignment
4996 build-global-reference
4997 build-lexical-assignment
4998 build-lexical-reference
5003 get-global-definition-hook
5004 put-global-definition-hook
5466 check-module-exports
5470 set-module-binding-val
!
5471 set-module-binding-imps
!
5472 set-module-binding-label
!
5473 set-module-binding-id
!
5474 set-module-binding-type
!
5477 module-binding-label
5482 make-resolved-interface
5483 make-trimmed-interface
5484 set-interface-token
!
5485 set-interface-exports
!
5509 id-var-name-loc
&marks
5514 make-trimmed-syntax-object
5516 lookup-import-binding-name
5517 extend-ribcage-subst
!
5518 extend-ribcage-barrier-help
!
5519 extend-ribcage-barrier
!
5535 set-ribcage-symnames
!
5564 displaced-lexical-error
5580 set-syntax-object-wrap
!
5581 set-syntax-object-expression
!
5583 syntax-object-expression
5594 build-module-definition
5595 build-global-definition
5596 build-global-assignment
5597 build-global-reference
5598 build-lexical-assignment
5599 build-lexical-reference
5604 get-global-definition-hook
5605 put-global-definition-hook
6068 check-module-exports
6072 set-module-binding-val
!
6073 set-module-binding-imps
!
6074 set-module-binding-label
!
6075 set-module-binding-id
!
6076 set-module-binding-type
!
6079 module-binding-label
6084 make-resolved-interface
6085 make-trimmed-interface
6086 set-interface-token
!
6087 set-interface-exports
!
6111 id-var-name-loc
&marks
6116 make-trimmed-syntax-object
6118 lookup-import-binding-name
6119 extend-ribcage-subst
!
6120 extend-ribcage-barrier-help
!
6121 extend-ribcage-barrier
!
6137 set-ribcage-symnames
!
6166 displaced-lexical-error
6182 set-syntax-object-wrap
!
6183 set-syntax-object-expression
!
6185 syntax-object-expression
6196 build-module-definition
6197 build-global-definition
6198 build-global-assignment
6199 build-global-reference
6200 build-lexical-assignment
6201 build-lexical-reference
6206 get-global-definition-hook
6207 put-global-definition-hook
6595 '"invalid eval-when situation")))))
6602 (lambda (g1358 g1352 g1357 g1353 g1356 g1354 g1355)
6605 (lambda (g1364 g1360 g1363 g1361 g1362)
6629 (lambda (g1115 g1112 g1114 g1113
)
6632 (lambda (g1119 g1117 g1118
)
6641 (g432 (car g1119) g1117 g1118))))))
6647 (lambda (g1351 g1349 g1350)
6648 (g393 (if g1350 (make-annotation g1351 g1350 '#f) g1351)
6651 (lambda (g1122 g1121
)
6652 (if (if (null
? (g264 g1121
)) (null
? (g265 g1121
)) '#f)
6655 (g203 (g205 g1122) (g371 g1121 (g206 g1122)))
6656 (if (null? g1122) g1122 (g203 g1122 g1121))))))
6658 (lambda (g1347 g1346)
6659 (if (not (null? g1346))
6661 (if g1348 g1348 (g392 g1347 (cdr g1346))))
6662 (g388 g1347 (car g1346)))
6665 (lambda (g1125 g1123 g1124
)
6667 (lambda (g1128 g1127
)
6669 (syntax-error g1123
)
6670 (if (g256 (car g1128
))
6671 (if (g392 (car g1128
) g1127
)
6678 (cons (car g1128) g1127)))
6693 (if (not (g392 (car g1344) (cdr g1344)))
6701 (if ((letrec ((g1130
6706 (if (g256 (car g1131
))
6715 (lambda (g1337 g1336
)
6716 (if (if (g204 g1337
) (g204 g1336
) '#f)
6717 (if (eq? ((lambda (g1339)
6719 (annotation-expression g1339)
6724 (annotation-expression g1338)
6727 (g373 (g264 (g206 g1337)) (g264 (g206 g1336)))
6729 (eq
? ((lambda (g1341
)
6731 (annotation-expression g1341
)
6736 (annotation-expression g1340
)
6740 (lambda (g1134 g1133
)
6741 (if (eq
? ((lambda (g1137
)
6744 (annotation-expression g1138
)
6746 (if (g204 g1137
) (g205 g1137
) g1137
)))
6751 (annotation-expression g1136
)
6753 (if (g204 g1135
) (g205 g1135
) g1135
)))
6755 (eq
? (g377 g1134
'(())) (g377 g1133 '(())))
6758 (lambda (g1333 g1332)
6760 (lambda () (g374 g1333 g1332))
6761 (lambda (g1335 g1334)
6762 (if (g301 g1335) (g302 g1335) g1335)))))
6764 (lambda (g1140 g1139)
6766 (lambda () (g374 g1140 g1139))
6767 (lambda (g1142 g1141) g1142))))
6769 (lambda (g1329 g1328)
6771 (lambda () (g374 g1329 g1328))
6772 (lambda (g1331 g1330)
6773 (values (if (g301 g1331) (g302 g1331) g1331) g1330)))))
6775 (lambda (g1144 g1143)
6777 (lambda (g1174 g1170 g1173 g1171 g1172)
6786 (if (if (eq? (vector-ref
6800 (g1176 (+ g1177
'1)))))))
6803 (vector-length g1171
))))
6805 (lambda (g1159 g1155 g1158 g1156 g1157
)
6807 (lambda (g1162 g1161
)
6809 (g1145
g1159 (cdr g1155
) g1158
)
6810 (if (if (eq
? (car g1162
) g1159
)
6821 (if (g357 (car g1162))
6839 (if (if (eq
? (car g1162
)
6855 (lambda (g1167 g1165 g1166
)
6857 (values g1167 g1166
)
6859 (if (eq
? g1168
'shift)
6860 (g1145 g1167 (cdr g1165) (cdr g1166))
6878 (g1145 g1144 (g265 g1143) (g264 g1143))
6880 ((lambda (g1149 g1148)
6884 (g1145 g1149 (g265 g1143) g1150))
6885 (lambda (g1152 g1151)
6886 (if (eq? g1152 g1149)
6887 (g1145 g1149 (g265 g1148) g1151)
6888 (values g1152 g1151)))))
6889 (g372 (g264 g1143) (g264 g1148))))
6892 (annotation-expression g1153)
6900 (annotation-expression g1154)
6905 (g93 'id-var-name
'"invalid id" g1144)))))))
6907 (lambda (g1326 g1325)
6911 (if (not (null? g1326))
6912 (if (not (null? g1325))
6913 (if (eq? (car g1326) (car g1325))
6914 (g373 (cdr g1326) (cdr g1325))
6918 (eq
? g1326 g1325
))))
6919 (g372 (lambda (g1179 g1178
) (g370 g1179 g1178
)))
6921 (lambda (g1322 g1321
)
6922 ((lambda (g1324 g1323
)
6926 (g263 (g264 g1321
) (g370
g1323 (g265 g1321
))))
6927 (g263 (g370
g1324 (g264 g1321
))
6928 (g370
g1323 (g265 g1321
)))))
6932 (lambda (g1181 g1180
)
6933 (if (null
? g1180
) g1181 (append g1181 g1180
))))
6937 (lambda () (g375 g1315
'(())))
6938 (lambda (g1317 g1316)
6939 (begin (if (not g1317)
6942 '"identifier not visible for export")
6947 (list (g304 (vector g1318
)
6953 (annotation-expression g1320
)
6955 (if (g204 g1319
) (g205 g1319
) g1319
)))
6958 (lambda (g1184 g1182 g1183
)
6962 (cons ((lambda (g1185
)
6964 ((lambda (g1188 g1187
)
6965 (begin ((letrec ((g1189
6992 (g304 g1188 g1187 g1185
)))
6994 (make-vector g1186
)))
6995 (vector-length g1185
)))
6996 (list-
>vector g1182
))
6999 (lambda (g1310 g1308 g1309
)
7008 (g1312 (cdr g1313
))))
7009 (g1312 (car g1313
)))
7010 (if (g373
g1309 (g264 (g206 g1313
)))
7016 (g100 g1310 g1308
))))
7018 (lambda (g1195 g1194
)
7019 (g309
g1195 (cons (g356 g1194
) (g306 g1195
)))))
7021 (lambda (g1307 g1306
)
7022 (begin (g309
g1307 (cons
g354 (g306 g1307
)))
7023 (g310
g1307 (cons (g264 g1306
) (g307 g1307
))))))
7024 (g364 (lambda (g1197 g1196
) (g365
g1197 (g206 g1196
))))
7026 (lambda (g1304 g1302 g1303
)
7028 (cons ((lambda (g1305
)
7030 (annotation-expression g1305
)
7034 (g310
g1304 (cons (g264 (g206 g1302
)) (g307 g1304
)))
7035 (g311
g1304 (cons
g1303 (g308 g1304
))))))
7039 (if (pair
? g1301
) (eq
? (car g1301
) g355
) '#f)))
7040 (g356 (lambda (g1198) (cons g355 g1198)))
7041 (g355 'import-token
)
7045 (g263 (cons '#f (g264 g1300)) (cons 'shift (g265 g1300)))))
7046 (g311 (lambda (g1200 g1199
) (vector-set
! g1200
'3 g1199)))
7047 (g310 (lambda (g1299 g1298) (vector-set! g1299 '2 g1298
)))
7048 (g309 (lambda (g1202 g1201
) (vector-set
! g1202
'1 g1201)))
7049 (g308 (lambda (g1297) (vector-ref g1297 '3)))
7050 (g307 (lambda (g1203
) (vector-ref g1203
'2)))
7051 (g306 (lambda (g1296) (vector-ref g1296 '1)))
7055 (if (= (vector-length g1204
) '4)
7056 (eq? (vector-ref g1204 '0) 'ribcage)
7060 (lambda (g1295 g1293 g1294)
7061 (vector 'ribcage g1295 g1293 g1294
)))
7065 (g300 (lambda () (list (g297
))))
7068 (if (null
? g1205
) '() (cons (g297) (g299 (cdr g1205))))))
7074 ((lambda (g1292) (if g1292 g1292 (g301 g1290)))
7077 (g297 (lambda () (string '#\i)))
7082 (lambda (g1207 g1206
)
7087 (annotation-expression g1208
)
7090 (g372 (g264 g1206
) (g264 (g206 g1207
))))
7094 (annotation-expression g1209
)
7106 (annotation-expression g1289)
7110 (symbol? (annotation-expression g1288))
7118 (annotation-expression g1211
)
7123 (lambda (g1287 g1285 g1286) (g98 g1285 (g231 g1287 g1286))))
7125 (lambda (g1213 g1212)
7127 (lambda (g1221 g1220)
7128 (begin (g234 g1221 (g232 g1220))
7129 (g235 g1221 (g233 g1220))))))
7132 (if (memv g1216 '(deferred
))
7141 '"invalid transformer")))
7143 (g92 (g233 g1215))))
7144 ((lambda (g1219) g1215) (g232 g1215)))
7147 (g251 g1213 g1212)))))
7150 (if (procedure? g1283)
7154 (if (memv g1284
'(core macro macro!))
7155 (if (procedure? (g233 g1283)) g1283 '#f)
7156 (if (memv g1284
'(module))
7157 (if (g403 (g233 g1283)) g1283 '#f)
7162 (lambda (g1223 g1222)
7168 (if g1225 g1225 (g231 'global g1223
)))
7170 (g231
'displaced-lexical '#f))))
7171 (assq g1223 g1222
))))
7176 (if (g377 g1282
'(()))
7177 '"identifier out of context"
7178 '"identifier not visible"))))
7184 (if (eq
? (cadr g1227
) 'lexical)
7186 (cons g1227 (g249 (cdr g1226)))))
7189 (lambda (g1281 g1279 g1280)
7195 (g231 'lexical (car g1279
))
7198 (lambda (g1230 g1228 g1229
)
7203 (g246 (car g1230
) (car g1228
) g1229
)))))
7205 (lambda (g1278 g1276 g1277
)
7206 (cons (cons g1278 g1276
) g1277
)))
7209 (if (pair
? g1231
) (symbol
? (car g1231
)) '#f)))
7214 (g231 (lambda (g1275 g1274) (cons g1275 g1274)))
7218 (annotation-source g1232)
7219 (if (g204 g1232) (g223 (g205 g1232)) '#f))))
7220 (g208 (lambda (g1273 g1272
) (vector-set
! g1273
'2 g1272)))
7221 (g207 (lambda (g1234 g1233) (vector-set! g1234 '1 g1233
)))
7222 (g206 (lambda (g1271
) (vector-ref g1271
'2)))
7223 (g205 (lambda (g1235) (vector-ref g1235 '1)))
7227 (if (= (vector-length g1270
) '3)
7228 (eq? (vector-ref g1270 '0) 'syntax-object)
7232 (lambda (g1237 g1236) (vector 'syntax-object g1237 g1236
)))
7234 (lambda (g1269 g1266 g1268 g1267
)
7237 (list
'letrec (map list g1266 g1268) g1267))))
7239 (lambda (g1239 g1238)
7240 (if (null? (cdr g1238)) (car g1238) (cons 'begin g1238
))))
7246 (lambda (g1263 g1262
)
7249 (cons (g1253 g1263
) g1262
))
7250 ((lambda (g1265 g1264
)
7255 (modulo g1263 g1251
)
7256 (quotient g1263 g1251
))))))
7261 (lambda (g1259) (integer->char (+ g1259 '33))))
7262 (g1252 (lambda () '0)))
7263 ((lambda (g1256 g1255)
7265 (begin (set! g1255 (+ g1255 '1))
7266 ((lambda (g1258
) g1258
)
7275 (g100 (lambda (g1241 g1240) (getprop g1241 g1240)))
7276 (g99 (lambda (g1250) (getprop g1250 '*sc-expander
*)))
7277 (g98 (lambda (g1243 g1242
) ($sc-put
-cte g1243 g1242
)))
7279 (lambda (g1249 g1247 g1248
)
7280 (error g1249
'"~a ~s" g1247 g1248)))
7281 (g92 (lambda (g1244) (eval (list g53 g1244))))
7282 (g91 (lambda (g1246) (eval (list g53 g1246))))
7283 (g90 (lambda (g1245) '#f))
7285 (begin (set! $sc-put-cte
7290 (putprop g832 '*sc-expander
* g830
))
7291 (if (symbol
? g831
) g831 (g377 g831
'(()))))))
7294 (g429 (lambda (g816) (g803 g816 g814)) g815)))
7300 (if (g388 (car g827) g828)
7301 (g820 g828 (cdr g827))
7316 (cons g826 g825
)))))
7319 (if (if (not g822
) (symbol
? g818
) '#f)
7325 (g820 g818 (getprop g821 g817))))
7329 (annotation-expression g824)
7331 (if (g204 g823) (g205 g823) g823)))
7335 (if (memv g807 '(module))
7336 (begin ((lambda (g808
)
7337 (g804 (g404 g808
) (g405 g808
)))
7340 (if (memv g807
'(do-import))
7344 (if (memv g811 '(module))
7346 (begin (if (not (eq
? (g405 g812
)
7350 '"import mismatch for module")
7357 '"import from unknown module")))
7359 (g253 (g377 g802 '(())) '())))
7366 (error 'define-syntax
7367 '"invalid transformer ~s"
7370 (g254 'local-syntax
'letrec-syntax '#t)
7371 (g254
'local-syntax 'let-syntax
'#f)
7374 (lambda (g456 g453 g455 g454)
7379 (lambda (g463 g459 g462 g460 g461)
7384 (lambda (g469 g465 g468 g466 g467
)
7390 '(displaced-lexical))
7394 (g232 (g253 g476 g453))))
7397 (g437 (cons g466 g467)
7398 (g394 g456 g455 g454)
7410 (map (lambda (g480
) (g377 g480 g455
))
7414 (syntax-error
(g394 g456 g455 g454
)))
7418 '(any #(each (any any)) any . each-any))))
7422 (lambda (g795 g792 g794 g793)
7428 (list 'quote (g450 g798 g794
)))
7431 (syntax-error
(g394 g795 g794 g793
)))
7433 ($syntax-dispatch g796
'(any any))))
7441 (if (memv g585 '(ref
))
7443 (if (memv g585
'(primitive))
7445 (if (memv g585 '(quote
))
7446 (list
'quote (cadr g584))
7447 (if (memv g585 '(lambda
))
7452 (if (memv g585 '(map
))
7454 (cons (if (= (length
7468 (if (eq? (car g502) 'list
)
7469 (cons
'vector (cdr g502))
7470 (if (eq? (car g502) 'quote
)
7472 (list->vector (cadr g502)))
7473 (list 'list-
>vector g502
)))))
7476 (if (equal
? g582
''())
7478 (list
'append g583 g582))))
7482 (if (memv g505 '(quote
))
7483 (if (eq
? (car g504
) 'quote)
7487 (if (eq
? (cadr g503
) '())
7489 (list
'cons g504 g503)))
7490 (if (memv g505 '(list
))
7492 (cons g504 (cdr g503)))
7493 (list 'cons g504 g503
))))
7497 ((lambda (g577 g576
)
7498 (if (eq
? (car g575
) 'ref)
7502 (if (eq? (car g578) 'ref
)
7503 (memq (cadr g578
) g577
)
7507 (cons (list
'primitive
7509 (map ((lambda (g579)
7511 (cdr (assq (cadr g580)
7524 (list 'ref (car g581
)))
7532 (lambda (g569 g566 g568 g567
)
7538 '"missing ellipsis in syntax form")
7554 (cons (cons (cons g571
7559 (assq
g571 (car g567
)))))))))
7561 (lambda (g512 g508 g511 g509 g510
)
7565 (if (eq
? (g232 g514
) 'syntax)
7581 '"misplaced ellipsis in syntax form")
7644 '"extra ellipsis in syntax form")
7692 '"extra ellipsis in syntax form")
7761 '(any any
. any
)))))
7766 (lambda (g493 g490 g492 g491)
7783 ((lambda (g501
) (syntax-error g494
))
7785 ($syntax-dispatch g495
'(any any))))
7787 (g394 g493 g492 g491)))))))
7790 (lambda (g785 g782 g784 g783)
7796 (g444 (g394 g785 g784 g783)
7801 (list 'lambda g791 g790
))))
7803 (syntax-error g786
)))
7804 ($syntax-dispatch g786
'(any . any))))
7808 (lambda (g590 g587 g589 g588)
7813 (lambda (g597 g593 g596 g594 g595)
7815 (if (not (g389 g598))
7816 (g391 (map (lambda (g599)
7819 (g394 g590 g589 g588)
7821 ((lambda (g601 g600
)
7822 ((lambda (g603 g602
)
7830 (g437 (cons g594 g595
)
7836 (g368 g598 g601 g589
)
7837 (g248 g601 g600 g587
)))
7843 (syntax-error
(g394 g590 g589 g588
)))
7847 '(any #(each (any any)) any . each-any))))
7851 (lambda (g770 g767 g769 g768)
7856 (lambda (g775 g773 g774)
7858 (g432 g773 g767 g769
)
7859 (g432 g774 g767 g769
)
7865 (lambda (g780 g777 g779 g778
)
7867 (g432 g777 g767 g769)
7868 (g432 g779 g767 g769)
7869 (g432 g778 g767 g769)))
7873 (g394 g770 g769 g768)))
7877 '(any any any any
)))))
7878 ($syntax-dispatch g771
'(any any any))))
7880 (g254 'set
! 'set! '())
7881 (g254
'begin 'begin '())
7882 (g254 'module-key
'module '())
7883 (g254
'import 'import
'#f)
7884 (g254 'import
'import-only '#t)
7885 (g254
'define 'define
'())
7886 (g254 'define-syntax
'define-syntax '())
7887 (g254
'eval-when 'eval-when
'())
7892 (lambda (g693 g690 g692 g691)
7894 (list 'syntax-error g693
)
7906 ((lambda (g699 g698
)
7946 '"invalid syntax-case clause"))
7956 (lambda (g635 g629 g634 g630 g633 g631 g632
)
7958 (lambda () (g609 g633 g629
))
7960 (if (not (g390 (map car g636
)))
7961 (g391 (map car g636
)
7963 '"pattern variable")
7966 (not (g447 (car g638))))
7970 '"misplaced ellipsis in syntax-case pattern")
8007 (list
'$syntax-dispatch
8013 (lambda (g683 g680 g682 g681)
8014 ((lambda (g685 g684)
8015 ((lambda (g687 g686)
8041 (lambda (g657 g655 g656)
8043 (if (g392 g657 g652)
8159 (lambda (g616 g613 g615 g614
)
8165 (lambda (g623 g620 g622 g621
)
8185 '"invalid literals list in")))
8187 (syntax-error g618)))
8190 '(any any each-any
. each-any
))))
8192 (g394 g616 g615 g614
)))))))
8194 ((lambda (g763 g761 g762
)
8197 (if (if (pair
? g765
) (equal
? (car g765
) g53
) '#f)
8199 (g400 g765 '() g764 g763 g761 g762
))))
8200 (g263 (g264
'((top))) (cons g762 (g265 '((top
)))))))
8203 ((lambda (g766
) (begin (g366 g766
'*top*) g766))
8204 (g304 '() '() '()))))
8205 (set
! identifier
? (lambda (g705
) (g255 g705
)))
8206 (set
! datum-
>syntax-object
8208 (begin ((lambda (g760
)
8209 (if (not (g255 g760
))
8210 (g93
'datum->syntax-object
8215 (g203
g758 (g206 g759
)))))
8216 (set
! syntax-object-
>datum
8217 (lambda (g706
) (g450 g706
'(()))))
8218 (set! generate-temporaries
8220 (begin ((lambda (g757)
8221 (if (not (list? g757))
8222 (g93 'generate-temporaries
8227 (map (lambda (g756) (g393 (gensym) '((top
))))
8229 (set
! free-identifier
=?
8231 (begin ((lambda (g710
)
8232 (if (not (g255 g710
))
8233 (g93
'free-identifier=?
8239 (if (not (g255 g709
))
8240 (g93
'free-identifier=?
8246 (set
! bound-identifier
=?
8248 (begin ((lambda (g754
)
8249 (if (not (g255 g754
))
8250 (g93
'bound-identifier=?
8256 (if (not (g255 g753
))
8257 (g93
'bound-identifier=?
8264 (lambda (g711
. g712
)
8268 (if (not (string
? g715
))
8275 ((lambda (g713
) (g93
'#f g713 (g450 g711 '(()))))
8278 (apply string-append g712))))))
8281 (lambda (g748 g745 g747 g746)
8285 (cons (g393 g748 g747) g746)
8287 (g719 ((lambda (g749)
8289 (annotation-expression
8294 (g371 g747 (g206 g748))
8296 (g719 ((lambda (g750)
8298 (annotation-expression
8306 (lambda (g728 g725 g727 g726)
8308 (if (null? g728) g726 '#f)
8319 (if (eq? g725 'each-any
)
8321 (if g729 (cons g729 g726
) '#f))
8324 (if (memv g730 '(each
))
8349 (if (memv g730 '(free-id
))
8351 (if (g378 (g393 g728
8359 (if (memv g730 '(atom
))
8381 (vector-ref g725 '0)))))))
8390 (g718 (cdr g743
) g742
))
8391 (if (eq
? g743
'each-any)
8394 (if (memv g744
'(each))
8410 (vector-ref g743 '0))))))))
8414 (g717 (annotation-expression g735
) g734
)
8418 (cons (g393 (car g735
) g734
)
8421 (g717 (cdr g735) g734))
8426 (g371
g734 (g206 g735
)))
8429 (lambda (g739 g737 g738)
8431 (g716 (annotation-expression g739)
8441 (g716 (cdr g739
) g737 g738
))
8443 (g720 (car g739) g737 g738 '()))
8449 (g371 g738 (g206 g739)))
8451 (set
! $syntax-dispatch
8456 (g719 ((lambda (g723)
8458 (annotation-expression g723)
8464 (g719 ((lambda (g724
)
8466 (annotation-expression g724
)
8479 (lambda (g1833 g1831 g1832)
8480 (cons '#(syntax-object
8485 #((top) (top) (top))
8488 #(ribcage #(x) #((top)) #("i"))
8489 #(ribcage ((import-token . *top*)) () ())))
8490 (cons g1831 g1832
)))
8495 (lambda (g1840 g1836 g1839 g1837 g1838
)
8496 (list
'#(syntax-object
8501 #((top) (top) (top) (top) (top))
8502 #("i" "i" "i" "i" "i"))
8504 #(ribcage #(x) #((top)) #("i"))
8506 ((import-token . *top*))
8512 (cons
'#(syntax-object
8522 #("i" "i" "i" "i" "i"))
8529 ((import-token . *top*))
8532 (cons g1837 g1838)))))
8537 (lambda (g1847 g1843 g1846 g1844 g1845)
8538 (list '#(syntax-object
8548 #("i" "i" "i" "i" "i"))
8550 #(ribcage #(x) #((top)) #("i"))
8552 ((import-token
. *top
*))
8555 (cons
'#(syntax-object
8565 #("i" "i" "i" "i" "i"))
8572 ((import-token . *top*))
8578 (cons
'#(syntax-object
8604 (cons g1844 g1845)))))
8606 (syntax-error g1829)))
8609 '(any
#(each (any any)) any . each-any)))))
8612 '(any ((any any)) any . each-any)))))
8613 ($syntax-dispatch g1829 '(any () any
. each-any
))))
8622 (lambda (g1858 g1854 g1857 g1855 g1856)
8623 (list '#(syntax-object
8627 #(_ k keyword pattern template)
8628 #((top) (top) (top) (top) (top))
8629 #("i" "i" "i" "i" "i"))
8631 #(ribcage #(x) #((top)) #("i"))
8632 #(ribcage ((import-token . *top*)) () ())))
8637 #(_ k keyword pattern template)
8638 #((top) (top) (top) (top) (top))
8639 #("i" "i" "i" "i" "i"))
8641 #(ribcage #(x) #((top)) #("i"))
8642 #(ribcage ((import-token . *top*)) () ()))))
8643 (cons '#(syntax-object
8647 #(_ k keyword pattern template)
8648 #((top) (top) (top) (top) (top))
8649 #("i" "i" "i" "i" "i"))
8651 #(ribcage #(x) #((top)) #("i"))
8653 ((import-token
. *top
*))
8656 (cons
'#(syntax-object
8660 #(_ k keyword pattern template)
8661 #((top) (top) (top) (top) (top))
8662 #("i" "i" "i" "i" "i"))
8664 #(ribcage #(x) #((top)) #("i"))
8666 ((import-token . *top*))
8670 (map (lambda (g1861 g1860)
8671 (list (cons '#(syntax-object
8705 (list
'#(syntax-object
8742 (syntax-error g1852)))
8745 '(any each-any
. #(each ((any . any) any))))))
8758 #(ribcage #(_) #((top)) #("i"))
8760 #(ribcage #(x) #((top)) #("i"))
8761 #(ribcage ((import-token . *top*)) () ()))))
8765 (apply (lambda (g1868 g1867
) g1867
) g1866
)
8769 (lambda (g1873 g1870 g1872 g1871
)
8770 (list
'#(syntax-object
8775 #((top) (top) (top) (top))
8778 #(ribcage #(x) #((top)) #("i"))
8780 ((import-token . *top*))
8783 (list (list '#(syntax-object
8805 (list
'#(syntax-object
8821 ((import-token . *top*))
8840 ((import-token
. *top
*))
8859 ((import-token . *top*))
8862 (cons '#(syntax-object
8883 (cons g1872 g1871
)))))
8885 (syntax-error g1863
)))
8886 ($syntax-dispatch g1863
'(any any any . each-any)))))
8887 ($syntax-dispatch g1863 '(any any
)))))
8888 ($syntax-dispatch g1863
'(any))))
8897 (lambda (g1881 g1878 g1880 g1879
)
8898 (cons
'#(syntax-object
8903 #((top) (top) (top) (top))
8906 #(ribcage #(x) #((top)) #("i"))
8907 #(ribcage ((import-token . *top*)) () ())))
8909 (cons (cons '#(syntax-object
8914 #((top) (top) (top) (top))
8922 ((import-token
. *top
*))
8931 #((top) (top) (top) (top))
8934 #(ribcage #(x) #((top)) #("i"))
8936 ((import-token . *top*))
8942 (apply (lambda (g1885 g1884) g1884) g1883)
8950 #(ribcage #(_) #((top)) #("i"))
8952 #(ribcage #(x) #((top)) #("i"))
8954 ((import-token
. *top
*))
8958 (syntax-error g1876
)))
8959 ($syntax-dispatch g1876
'(any)))))
8960 ($syntax-dispatch g1876 '(any any
)))))
8961 ($syntax-dispatch g1876
'(any any any . each-any))))
8970 (lambda (g1895 g1891 g1894 g1892 g1893
)
8971 (andmap identifier
? g1891
))
8975 (lambda (g1901 g1897 g1900 g1898 g1899)
8976 (cons (cons '#(syntax-object
8981 #((top) (top) (top) (top) (top))
8982 #("i" "i" "i" "i" "i"))
8984 #(ribcage #(x) #((top)) #("i"))
8986 ((import-token
. *top
*))
8989 (cons
g1897 (cons g1898 g1899
)))
8995 (lambda (g1911 g1906 g1910 g1907 g1909 g1908
)
8996 (andmap identifier
? (cons g1906 g1910
)))
9000 (lambda (g1918 g1913 g1917 g1914 g1916 g1915)
9001 (cons (list '#(syntax-object
9012 #("i" "i" "i" "i" "i" "i"))
9014 #(ribcage #(x) #((top)) #("i"))
9016 ((import-token
. *top
*))
9020 (cons
'#(syntax-object
9062 (syntax-error g1889)))
9065 '(any any
#(each (any any)) any . each-any)))))
9068 '(any #(each (any any)) any . each-any))))
9077 (lambda (g1929 g1925 g1928 g1926 g1927
)
9078 (andmap identifier
? g1925
))
9082 (lambda (g1935 g1931 g1934 g1932 g1933)
9086 (cons '#(syntax-object
9105 #("i" "i" "i" "i" "i"))
9112 ((import-token
. *top
*))
9115 (cons
'() (cons g1932 g1933)))
9120 (lambda (g1942 g1941)
9121 (list '#(syntax-object
9174 (syntax-error g1939
)))
9178 (list (g1936 (cdr g1937))
9181 (map list g1931 g1934)))
9183 (syntax-error g1923)))
9186 '(any
#(each (any any)) any . each-any))))
9195 (lambda (g1950 g1948 g1949)
9197 (lambda (g1953 g1952)
9203 (lambda (g1957 g1956)
9204 (cons '#(syntax-object
9246 (cons g1957 g1956
)))
9252 (cons
'#(syntax-object
9298 (cons (list (list '#(syntax-object
9489 (list '#(syntax-object
9538 (list (list
'#(syntax-object
9588 (list '#(syntax-object
9743 (list
'#(syntax-object
9796 (cons '#(syntax-object
9926 #((top) (top) (top))
9934 ((import-token
. *top
*))
9948 (list
'#(syntax-object
9998 (list (list '#(syntax-object
10049 (list
'#(syntax-object
10206 (list '#(syntax-object
10259 (list (list
'#(syntax-object
10313 (list '#(syntax-object
10481 (list
'#(syntax-object
10538 (cons '#(syntax-object
10662 (g1951 (car g1952) (cdr g1952)))))))
10667 (syntax-error g1946)))
10668 ($syntax-dispatch g1946 '(any any
. each-any
))))
10677 (lambda (g1994 g1988 g1993 g1989 g1992 g1990 g1991)
10688 (list '#(syntax-object
10717 #(ribcage () () ())
10757 #(ribcage () () ())
10768 (map list g1988 g1993)
10769 (list '#(syntax-object
10812 (list
'#(syntax-object
10856 (cons '#(syntax-object
10901 (list (cons
'#(syntax-object
10949 (lambda (g2016 g2015)
10950 (list '#(syntax-object
11051 (list '#(syntax-object
11102 (cons
'#(syntax-object
11154 (cons '#(syntax-object
11206 (list (cons
'#(syntax-object
11258 (syntax-error g2007)))
11261 '(any
. each-any
)))))
11262 ($syntax-dispatch g2007
'())))
11265 (syntax-error g1995)))
11266 ($syntax-dispatch g1995 'each-any
)))
11267 (map (lambda (g1999 g1998
)
11271 (apply (lambda () g1999
) g2001
)
11275 (lambda (g2003
) g2003
)
11278 (syntax-error g1985
))
11280 ($syntax-dispatch g2000
'(any)))))
11281 ($syntax-dispatch g2000 '())))
11286 (syntax-error g1986
)))
11289 '(any #(each (any any . any))
11298 (if (identifier
? g2142
)
11304 #(ribcage () () ())
11305 #(ribcage () () ())
11306 #(ribcage #(x) #((top)) #("i"))
11326 #("i" "i" "i" "i" "i" "i" "i" "i" "i"))
11327 #(ribcage ((import-token . *top*)) () ()))))
11331 (if (identifier
? g2036
)
11337 #(ribcage () () ())
11338 #(ribcage () () ())
11339 #(ribcage #(x) #((top)) #("i"))
11359 #("i" "i" "i" "i" "i" "i" "i" "i" "i"))
11360 #(ribcage ((import-token . *top*)) () ()))))
11364 (if (identifier
? g2141
)
11370 #(ribcage () () ())
11371 #(ribcage () () ())
11372 #(ribcage #(x) #((top)) #("i"))
11392 #("i" "i" "i" "i" "i" "i" "i" "i" "i"))
11393 #(ribcage ((import-token . *top*)) () ()))))
11400 (apply (lambda (g2040
) (g2030 g2040
)) g2039
)
11401 ((lambda (g2041
) '#f) g2038)))
11402 ($syntax-dispatch g2038 '(any ()))))
11405 (lambda (g2138 g2137
)
11410 (g2024 (car g2140
) (g2139 (cdr g2140
)))))))
11414 (lambda (g2043 g2042
)
11419 (lambda (g2047 g2046
)
11424 (lambda (g2051 g2050
)
11429 (lambda (g2053 g2052)
11440 (lambda (g2059 g2058
)
11441 (list
'#(syntax-object
11517 (list '#(syntax-object
11588 (list
'#(syntax-object
11669 (lambda (g2063 g2062
)
11674 (lambda (g2065 g2064)
11675 (cons '#(syntax-object
11732 (cons g2047 g2064
)))
11735 (list
'#(syntax-object
11798 ($syntax-dispatch g2048
'(any any))))
11801 (syntax-error g2044)))
11802 ($syntax-dispatch g2044 '(any any
))))
11803 (list g2043 g2042
))))
11805 (lambda (g2129 g2128
)
11811 #(ribcage () () ())
11812 #(ribcage () () ())
11813 #(ribcage #(ls) #((top)) #("i"))
11814 #(ribcage () () ())
11815 #(ribcage () () ())
11816 #(ribcage #(x y) #((top) (top)) #("i" "i"))
11836 #("i" "i" "i" "i" "i" "i" "i" "i" "i"))
11837 #(ribcage ((import-token . *top*)) () ())))
11839 (if (null? (cdr g2130))
11846 (cons '#(syntax-object
11853 #(ribcage () () ())
11854 #(ribcage () () ())
11859 #(ribcage () () ())
11860 #(ribcage () () ())
11894 ((import-token
. *top
*))
11899 (syntax-error g2131
)))
11900 ($syntax-dispatch g2131
'each-any)))
11905 (if (g2023 g2128) '() (list g2128
))
11906 (if (g2023 (car g2136
))
11907 (g2135 (cdr g2136
))
11909 (g2135 (cdr g2136
))))))))
11920 (lambda (g2073 g2072
) (g2030 g2073
))
11924 (lambda (g2075 g2074)
11925 (list '#(syntax-object
11936 #(ribcage () () ())
11937 #(ribcage () () ())
11938 #(ribcage #(x) #((top)) #("i"))
11968 ((import-token
. *top
*))
11971 (list-
>vector g2074
)))
11975 (lambda (g2080 g2079
)
11990 (map (lambda (g2087)
11991 (list '#(syntax-object
12110 (list
'#(syntax-object
12203 (cons
'#(syntax-object
12206 #(ribcage () () ())
12207 #(ribcage () () ())
12220 #(ribcage () () ())
12221 #(ribcage () () ())
12255 ((import-token . *top*))
12260 ($syntax-dispatch g2070 '(any each-any
))))
12265 (lambda (g2105 g2104
)
12277 #(ribcage #(p) #((top)) #("i"))
12278 #(ribcage () () ())
12312 ((import-token
. *top
*))
12318 #(ribcage #(p) #((top)) #("i"))
12319 #(ribcage () () ())
12353 ((import-token
. *top
*))
12356 (g2026 (list g2108
) (- g2104
'1)))))
12361 (lambda (g2111 g2110)
12363 (g2028
g2111 (g2026 g2110 g2104
))
12373 #(ribcage () () ())
12407 ((import-token . *top*))
12417 #(ribcage () () ())
12451 ((import-token . *top*))
12454 (g2026 g2111 (- g2104 '1)))
12455 (g2026 g2110 g2104
))))
12460 (lambda (g2116 g2115
)
12464 (g2026 g2115 g2104))
12474 #(ribcage () () ())
12520 #(ribcage () () ())
12562 (g2026 g2115 g2104))))
12576 #(ribcage () () ())
12671 (lambda (g2123 g2122)
12690 (list '#(syntax-object
12757 #(ribcage () () ())
12791 ((import-token . *top*))
12801 #(ribcage () () ())
12835 ((import-token
. *top
*))
12848 #(ribcage () () ())
12882 ((import-token . *top*))
12895 #(ribcage () () ())
12896 #(ribcage #(p lev) #((top) (top)) #("i" "i"))
12916 #("i" "i" "i" "i" "i" "i" "i" "i" "i"))
12917 #(ribcage ((import-token . *top*)) () ()))))
12924 (apply (lambda (g2035 g2034
) (g2026 g2034
'0)) g2033)
12925 (syntax-error g2032)))
12926 ($syntax-dispatch g2032 '(any any
))))
12932 (lambda (g2155 g2154)
12937 (if (eof-object? g2158)
12938 (begin (close-input-port g2156) '())
12939 (cons (datum-
>syntax-object
12945 (open-input-file g2155
)))))
12950 (lambda (g2148 g2147
)
12957 (cons
'#(syntax-object
12964 #(ribcage () () ())
12965 #(ribcage () () ())
12983 ((import-token . *top*))
12988 (syntax-error g2150)))
12989 ($syntax-dispatch g2150 'each-any
)))
12990 (g2144 g2149 g2148
)))
12991 (syntax-object-
>datum g2147
)))
12993 (syntax-error g2145
)))
12994 ($syntax-dispatch g2145
'(any any))))
13003 (lambda (g2163 g2162
)
13006 '"expression not valid outside of quasiquote"))
13008 (syntax-error g2160)))
13009 ($syntax-dispatch g2160 '(any
. each-any
))))
13018 (lambda (g2168 g2167)
13021 '"expression not valid outside of quasiquote"))
13023 (syntax-error g2165
)))
13024 ($syntax-dispatch g2165
'(any . each-any))))
13033 (lambda (g2175 g2172 g2174 g2173
)
13036 (list
'#(syntax-object
13039 #(ribcage #(body) #((top)) #("i"))
13042 #((top) (top) (top) (top))
13043 #("i" "i" "i" "i"))
13044 #(ribcage () () ())
13045 #(ribcage #(x) #((top)) #("i"))
13047 ((import-token . *top*))
13050 (list (list '#(syntax-object
13059 #((top) (top) (top) (top))
13060 #("i" "i" "i" "i"))
13061 #(ribcage () () ())
13067 ((import-token
. *top
*))
13074 (lambda (g2179 g2178
)
13080 (lambda (g2183 g2182
)
13081 (cons
'#(syntax-object
13136 (list '#(syntax-object
13191 (list
'#(syntax-object
13301 (list
'#(syntax-object
13357 (cons '#(syntax-object
13431 #(ribcage () () ())
13446 #("i" "i" "i" "i"))
13447 #(ribcage () () ())
13453 ((import-token
. *top
*))
13469 (list
'#(syntax-object
13528 (list '#(syntax-object
13646 (list '#(syntax-object
13706 (cons
'#(syntax-object
13781 (g2177 (car g2178
) (cdr g2178
)))))))
13786 (syntax-error g2170
)))
13787 ($syntax-dispatch g2170
'(any any any . each-any))))
13796 (lambda (g2208 g2207
)
13797 (list
'#(syntax-object
13800 #(ribcage #(_ e) #((top) (top)) #("i" "i"))
13801 #(ribcage () () ())
13802 #(ribcage #(x) #((top)) #("i"))
13803 #(ribcage ((import-token . *top*)) () ())))
13807 #(ribcage #(_ e) #((top) (top)) #("i" "i"))
13808 #(ribcage () () ())
13809 #(ribcage #(x) #((top)) #("i"))
13810 #(ribcage ((import-token . *top*)) () ()))))
13811 (list
'#(syntax-object
13818 #(ribcage () () ())
13819 #(ribcage #(x) #((top)) #("i"))
13821 ((import-token . *top*))
13831 #(ribcage () () ())
13832 #(ribcage #(x) #((top)) #("i"))
13834 ((import-token
. *top
*))
13838 (list '#(syntax-object
13845 #(ribcage () () ())
13846 #(ribcage #(x) #((top)) #("i"))
13848 ((import-token
. *top
*))
13858 #(ribcage () () ())
13859 #(ribcage #(x) #((top)) #("i"))
13861 ((import-token . *top*))
13871 #(ribcage () () ())
13872 #(ribcage #(x) #((top)) #("i"))
13874 ((import-token . *top*))
13884 #(ribcage () () ())
13885 #(ribcage #(x) #((top)) #("i"))
13887 ((import-token . *top*))
13890 (list '#(syntax-object
13897 #(ribcage () () ())
13903 ((import-token
. *top
*))
13915 #(ribcage () () ())
13921 ((import-token . *top*))
13931 #(ribcage () () ())
13937 ((import-token . *top*))
13940 (list '#(syntax-object
13947 #(ribcage () () ())
13953 ((import-token
. *top
*))
13964 #(ribcage () () ())
13982 #(ribcage () () ())
13997 (lambda (g2215 g2210 g2214 g2211 g2213 g2212)
13998 (if (identifier? g2210)
13999 (identifier? g2211)
14004 (lambda (g2221 g2216 g2220 g2217 g2219 g2218)
14005 (list '#(syntax-object
14009 #(_ id exp1 var val exp2)
14010 #((top) (top) (top) (top) (top) (top))
14011 #("i" "i" "i" "i" "i" "i"))
14012 #(ribcage () () ())
14013 #(ribcage #(x) #((top)) #("i"))
14015 ((import-token
. *top
*))
14022 #(_ id exp1 var val exp2)
14029 #("i" "i" "i" "i" "i" "i"))
14030 #(ribcage () () ())
14031 #(ribcage #(x) #((top)) #("i"))
14033 ((import-token . *top*))
14040 #(_ id exp1 var val exp2)
14047 #("i" "i" "i" "i" "i" "i"))
14048 #(ribcage () () ())
14049 #(ribcage #(x) #((top)) #("i"))
14051 ((import-token . *top*))
14054 (list '#(syntax-object
14058 #(_ id exp1 var val exp2)
14065 #("i" "i" "i" "i" "i" "i"))
14066 #(ribcage () () ())
14067 #(ribcage #(x) #((top)) #("i"))
14069 ((import-token
. *top
*))
14076 #(_ id exp1 var val exp2)
14083 #("i" "i" "i" "i" "i" "i"))
14084 #(ribcage () () ())
14085 #(ribcage #(x) #((top)) #("i"))
14087 ((import-token . *top*))
14090 (list '#(syntax-object
14094 #(_ id exp1 var val exp2)
14107 #(ribcage () () ())
14113 ((import-token
. *top
*))
14120 #(_ id exp1 var val exp2)
14133 #(ribcage () () ())
14139 ((import-token . *top*))
14146 #(_ id exp1 var val exp2)
14159 #(ribcage () () ())
14165 ((import-token
. *top
*))
14168 (list (list
'#(syntax-object
14206 (list '#(syntax-object
14316 (list '#(syntax-object
14426 (list '#(syntax-object
14462 (list
'#(syntax-object
14499 (list '#(syntax-object
14537 (syntax-error g2205
)))
14545 #(ribcage () () ())
14546 #(ribcage #(x) #((top)) #("i"))
14547 #(ribcage ((import-token . *top*)) () ()))))
14551 ($syntax-dispatch g2205 '(any any
))))
HCoop / bpt / guile.git / blob