andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

psyntax.pp: drop syntax-rules

This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-30 21:09:41 +01:00
parent 7f48f26372
commit 044177d8b1
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 607 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

607
mes/module/mes/psyntax.pp
View File

@ -6666,613 +6666,6 @@
'(any () any . each-any))))
syntmp-x-1462)))
(install-global-transformer
'syntax-rules
(lambda (syntmp-xx-1503)
(letrec ((syntmp-expand-syntax-rules-1504
(lambda (syntmp-dots-1505
syntmp-keys-1506
syntmp-docstrings-1507
syntmp-clauses-1508)
((lambda (syntmp-tmp-1509)
((lambda (syntmp-tmp-1510)
(if syntmp-tmp-1510
(apply (lambda (syntmp-k-1511
syntmp-docstring-1512
syntmp-keyword-1513
syntmp-pattern-1514
syntmp-template-1515)
((lambda (syntmp-tmp-1516)
((lambda (syntmp-form-1517)
(if syntmp-dots-1505
((lambda (syntmp-tmp-1518)
((lambda (syntmp-dots-1519)
(list '#(syntax-object
with-ellipsis
((top)
#(ribcage () () ())
#(ribcage
#(dots)
#((top))
#("i"))
#(ribcage () () ())
#(ribcage
#(form)
#((top))
#("i"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(dots
keys
docstrings
clauses)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage
#(xx)
#((top))
#("i"))))
syntmp-dots-1519
syntmp-form-1517))
syntmp-tmp-1518))
syntmp-dots-1505)
syntmp-form-1517))
syntmp-tmp-1516))
(cons '#(syntax-object
lambda
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(dots keys docstrings clauses)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage #(xx) #((top)) #("i"))))
(cons '(#(syntax-object
x
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(dots
keys
docstrings
clauses)
#((top)
(top)
(top)
(top))
#("i" "i" "i" "i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage
#(xx)
#((top))
#("i")))))
(append
syntmp-docstring-1512
(list (cons '#(syntax-object
syntax-case
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(dots
keys
docstrings
clauses)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage
#(xx)
#((top))
#("i"))))
(cons '#(syntax-object
x
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(dots
keys
docstrings
clauses)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage
#(xx)
#((top))
#("i"))))
(cons syntmp-k-1511
(map (lambda (syntmp-tmp-1522
syntmp-tmp-1521)
(list (cons '#(syntax-object
dummy
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(dots
keys
docstrings
clauses)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage
#(xx)
#((top))
#("i"))))
syntmp-tmp-1521)
(list '#(syntax-object
syntax
((top)
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(k
docstring
keyword
pattern
template)
#((top)
(top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"
"i"))
#(ribcage
()
()
())
#(ribcage
()
()
())
#(ribcage
#(dots
keys
docstrings
clauses)
#((top)
(top)
(top)
(top))
#("i"
"i"
"i"
"i"))
#(ribcage
(expand-syntax-rules)
((top))
("i"))
#(ribcage
#(xx)
#((top))
#("i"))))
syntmp-tmp-1522)))
syntmp-template-1515
syntmp-pattern-1514))))))))))
syntmp-tmp-1510)
(syntax-error syntmp-tmp-1509)))
(syntax-dispatch
syntmp-tmp-1509
'(each-any each-any #(each ((any . any) any))))))
(list syntmp-keys-1506
syntmp-docstrings-1507
syntmp-clauses-1508)))))
((lambda (syntmp-tmp-1524)
((lambda (syntmp-tmp-1525)
(if syntmp-tmp-1525
(apply (lambda (syntmp-_-1526
syntmp-k-1527
syntmp-keyword-1528
syntmp-pattern-1529
syntmp-template-1530)
(syntmp-expand-syntax-rules-1504
#f
syntmp-k-1527
'()
(map (lambda (syntmp-tmp-1534
syntmp-tmp-1533
syntmp-tmp-1532)
(list (cons syntmp-tmp-1532 syntmp-tmp-1533)
syntmp-tmp-1534))
syntmp-template-1530
syntmp-pattern-1529
syntmp-keyword-1528)))
syntmp-tmp-1525)
((lambda (syntmp-tmp-1535)
(if (if syntmp-tmp-1535
(apply (lambda (syntmp-_-1536
syntmp-k-1537
syntmp-docstring-1538
syntmp-keyword-1539
syntmp-pattern-1540
syntmp-template-1541)
(string?
(syntax-object->datum
syntmp-docstring-1538)))
syntmp-tmp-1535)
#f)
(apply (lambda (syntmp-_-1542
syntmp-k-1543
syntmp-docstring-1544
syntmp-keyword-1545
syntmp-pattern-1546
syntmp-template-1547)
(syntmp-expand-syntax-rules-1504
#f
syntmp-k-1543
(list syntmp-docstring-1544)
(map (lambda (syntmp-tmp-1551
syntmp-tmp-1550
syntmp-tmp-1549)
(list (cons syntmp-tmp-1549
syntmp-tmp-1550)
syntmp-tmp-1551))
syntmp-template-1547
syntmp-pattern-1546
syntmp-keyword-1545)))
syntmp-tmp-1535)
((lambda (syntmp-tmp-1552)
(if (if syntmp-tmp-1552
(apply (lambda (syntmp-_-1553
syntmp-dots-1554
syntmp-k-1555
syntmp-keyword-1556
syntmp-pattern-1557
syntmp-template-1558)
(identifier? syntmp-dots-1554))
syntmp-tmp-1552)
#f)
(apply (lambda (syntmp-_-1559
syntmp-dots-1560
syntmp-k-1561
syntmp-keyword-1562
syntmp-pattern-1563
syntmp-template-1564)
(syntmp-expand-syntax-rules-1504
syntmp-dots-1560
syntmp-k-1561
'()
(map (lambda (syntmp-tmp-1568
syntmp-tmp-1567
syntmp-tmp-1566)
(list (cons syntmp-tmp-1566
syntmp-tmp-1567)
syntmp-tmp-1568))
syntmp-template-1564
syntmp-pattern-1563
syntmp-keyword-1562)))
syntmp-tmp-1552)
((lambda (syntmp-tmp-1569)
(if (if syntmp-tmp-1569
(apply (lambda (syntmp-_-1570
syntmp-dots-1571
syntmp-k-1572
syntmp-docstring-1573
syntmp-keyword-1574
syntmp-pattern-1575
syntmp-template-1576)
(and (identifier? syntmp-dots-1571)
(string?
(syntax-object->datum
syntmp-docstring-1573))))
syntmp-tmp-1569)
#f)
(apply (lambda (syntmp-_-1577
syntmp-dots-1578
syntmp-k-1579
syntmp-docstring-1580
syntmp-keyword-1581
syntmp-pattern-1582
syntmp-template-1583)
(syntmp-expand-syntax-rules-1504
syntmp-dots-1578
syntmp-k-1579
(list syntmp-docstring-1580)
(map (lambda (syntmp-tmp-1587
syntmp-tmp-1586
syntmp-tmp-1585)
(list (cons syntmp-tmp-1585
syntmp-tmp-1586)
syntmp-tmp-1587))
syntmp-template-1583
syntmp-pattern-1582
syntmp-keyword-1581)))
syntmp-tmp-1569)
(syntax-error syntmp-tmp-1524)))
(syntax-dispatch
syntmp-tmp-1524
'(any any
each-any
any
.
#(each ((any . any) any)))))))
(syntax-dispatch
syntmp-tmp-1524
'(any any each-any . #(each ((any . any) any)))))))
(syntax-dispatch
syntmp-tmp-1524
'(any each-any any . #(each ((any . any) any)))))))
(syntax-dispatch
syntmp-tmp-1524
'(any each-any . #(each ((any . any) any))))))
syntmp-xx-1503))))
(install-global-transformer
'define-syntax-rule
(lambda (syntmp-x-1667)
((lambda (syntmp-tmp-1668)
((lambda (syntmp-tmp-1669)
(if syntmp-tmp-1669
(apply (lambda (syntmp-_-1670
syntmp-name-1671
syntmp-pattern-1672
syntmp-template-1673)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(_ name pattern template)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
syntmp-name-1671
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(_ name pattern template)
#((top) (top) (top) (top))
#("i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
'()
(list (cons syntmp-_-1670 syntmp-pattern-1672)
syntmp-template-1673))))
syntmp-tmp-1669)
((lambda (syntmp-tmp-1674)
(if (if syntmp-tmp-1674
(apply (lambda (syntmp-_-1675
syntmp-name-1676
syntmp-pattern-1677
syntmp-docstring-1678
syntmp-template-1679)
(string?
(syntax-object->datum syntmp-docstring-1678)))
syntmp-tmp-1674)
#f)
(apply (lambda (syntmp-_-1680
syntmp-name-1681
syntmp-pattern-1682
syntmp-docstring-1683
syntmp-template-1684)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(_ name pattern docstring template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
syntmp-name-1681
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(_
name
pattern
docstring
template)
#((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i"))
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))))
'()
syntmp-docstring-1683
(list (cons syntmp-_-1680
syntmp-pattern-1682)
syntmp-template-1684))))
syntmp-tmp-1674)
(syntax-error syntmp-tmp-1668)))
(syntax-dispatch
syntmp-tmp-1668
'(any (any . any) any any)))))
(syntax-dispatch
syntmp-tmp-1668
'(any (any . any) any))))
syntmp-x-1667)))
(install-global-transformer
'identifier-syntax
(lambda (syntmp-x-2043)