Lines Matching +refs:lambda +refs:t
13 ((= i (vector-length v)) #t)
22 (letrec ((t (make-hash-table))
23 (dl? (lambda (l)
26 ((hash-table-get t (car l) (lambda () #f)) =>
27 (lambda (x) x))
29 (hash-table-put! t (car l) (car l))
36 (let ((t (make-hash-table)))
38 (lambda (sl)
41 ((hash-table-get t (syntax-object->datum (car sl)) (lambda () #f))
44 (hash-table-put! t (syntax-object->datum (car sl)) #t)
52 (let ((t (make-hash-table)))
53 (for-each (lambda (s1)
54 (hash-table-put! t s1 s1))
56 (for-each (lambda (s2)
58 ((hash-table-get t s2 (lambda () #f)) =>
59 (lambda (o) (ret o)))))
72 (lambda (rhs)
73 (for-each (lambda (sym) (p "~a " (hash-table-get term-table sym (lambda () sym))))
79 (lambda (t)
81 (lambda (t)
82 (hash-table-put! term-table t (format "'~a'" t)))
83 (syntax-object->datum (e-terminals-def-t t))))
86 (lambda (t)
88 (lambda (t)
89 (p "%token ~a\n" t)
90 (hash-table-put! term-table t (format "~a" t)))
91 (syntax-object->datum (terminals-def-t t))))
94 (for-each (lambda (prec)
96 (for-each (lambda (tok)
104 (for-each (lambda (prod)
108 (for-each (lambda (rhs)