1.
(module test-infix mzscheme (require "infix.ss" (lib "etc.ss ...
... expected) (error 'assert-token-type-sequence "more than expected: ~a" ... expected stx) (define (error name msg . args) (raise-syntax-error name (apply ...
2.
(module xml-pull mzscheme (require (lib "etc.ss") (lib "struct.ss ...
#t] [pstate-lst '()])] [else seed]))])) (define ((finish-element-handler yield) elem-gi attributes ... We use a taffy to pull off morsels ;; of chewy XML. ...
3.
(module test-infix mzscheme (require "infix.ss" (lib "etc.ss ...
(token-name token) type)) (define (error name msg . args) (raise-syntax-error name ... (assert-sequence '(lparen plus minus times divide rparen ) (syntax (+ ...
4.
(module scheme-dstx-text-mixin mzscheme (require (lib "class.ss ...
dstx -> boolean ;; Returns true if this is a fusion that is in an inconsistent state. (define (bad-unary-fusion? a-dstx) (and (fusion? a-dstx) ...
5.
(module relations mzscheme ;; A small module to prototype what ...
(context-relations a-context) a-name r) r)))) ;; A tuple is a row of values. (define-struct tuple (vals)) ;; make-tuple: val* -> tuple (define (-make-tuple ...
6.
7.
8.
9.
10.