(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((#{gen-label _85hotwsCta0JfYIjI4J3p}# (if #f #f))
- (#{transformer-environment _85hotwsCta0JfYIjI4J39}#
+(let ((#{gen-label _hoQGWMnyQPAh3k2jhWHTD}# (if #f #f))
+ (#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#
(if #f #f)))
(letrec*
- ((#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
- (lambda (#{x _85hotwsCta0JfYIjI4PLs}#
- #{mod _85hotwsCta0JfYIjI4PLt}#)
- (primitive-eval #{x _85hotwsCta0JfYIjI4PLs}#)))
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- (lambda (#{symbol _85hotwsCta0JfYIjI4MjC}#
- #{module _85hotwsCta0JfYIjI4MjD}#)
+ ((#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMnv}#
+ #{mod _hoQGWMnyQPAh3k2jhWMnw}#)
+ (primitive-eval #{x _hoQGWMnyQPAh3k2jhWMnv}#)))
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ (lambda (#{symbol _hoQGWMnyQPAh3k2jhWJ@F}#
+ #{module _hoQGWMnyQPAh3k2jhWJ@G}#)
(begin
- (if (if (not #{module _85hotwsCta0JfYIjI4MjD}#)
+ (if (if (not #{module _hoQGWMnyQPAh3k2jhWJ@G}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{symbol _85hotwsCta0JfYIjI4MjC}#))
- (let ((#{v _85hotwsCta0JfYIjI4MjE}#
+ #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWJ@H}#
(module-variable
- (if #{module _85hotwsCta0JfYIjI4MjD}#
+ (if #{module _hoQGWMnyQPAh3k2jhWJ@G}#
(resolve-module
- (cdr #{module _85hotwsCta0JfYIjI4MjD}#))
+ (cdr #{module _hoQGWMnyQPAh3k2jhWJ@G}#))
(current-module))
- #{symbol _85hotwsCta0JfYIjI4MjC}#)))
- (if #{v _85hotwsCta0JfYIjI4MjE}#
- (if (variable-bound? #{v _85hotwsCta0JfYIjI4MjE}#)
- (let ((#{val _85hotwsCta0JfYIjI4MjG}#
- (variable-ref #{v _85hotwsCta0JfYIjI4MjE}#)))
- (if (macro? #{val _85hotwsCta0JfYIjI4MjG}#)
- (if (macro-type #{val _85hotwsCta0JfYIjI4MjG}#)
- (cons (macro-type #{val _85hotwsCta0JfYIjI4MjG}#)
- (macro-binding #{val _85hotwsCta0JfYIjI4MjG}#))
+ #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#)))
+ (if #{v _hoQGWMnyQPAh3k2jhWJ@H}#
+ (if (variable-bound? #{v _hoQGWMnyQPAh3k2jhWJ@H}#)
+ (let ((#{val _hoQGWMnyQPAh3k2jhWJ@J}#
+ (variable-ref #{v _hoQGWMnyQPAh3k2jhWJ@H}#)))
+ (if (macro? #{val _hoQGWMnyQPAh3k2jhWJ@J}#)
+ (if (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#)
+ (cons (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#)
+ (macro-binding #{val _hoQGWMnyQPAh3k2jhWJ@J}#))
#f)
#f))
#f)
#f)))))
- (#{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
- (lambda (#{name _85hotwsCta0JfYIjI4Mnb}#
- #{val _85hotwsCta0JfYIjI4Mnc}#)
- (if (if (struct? #{val _85hotwsCta0JfYIjI4Mnc}#)
- (eq? (struct-vtable #{val _85hotwsCta0JfYIjI4Mnc}#)
+ (#{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}#
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWKDe}#
+ #{val _hoQGWMnyQPAh3k2jhWKDf}#)
+ (if (if (struct? #{val _hoQGWMnyQPAh3k2jhWKDf}#)
+ (eq? (struct-vtable #{val _hoQGWMnyQPAh3k2jhWKDf}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _85hotwsCta0JfYIjI4Mnj}#
- (struct-ref #{val _85hotwsCta0JfYIjI4Mnc}# 1)))
- (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mnj}#))
- (let ((#{v _85hotwsCta0JfYIjI4Mno}#
- (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mnb}#)
- #{meta _85hotwsCta0JfYIjI4Mnj}#)))
+ (let ((#{meta _hoQGWMnyQPAh3k2jhWKDm}#
+ (struct-ref #{val _hoQGWMnyQPAh3k2jhWKDf}# 1)))
+ (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKDm}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWKDr}#
+ (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWKDe}#)
+ #{meta _hoQGWMnyQPAh3k2jhWKDm}#)))
(struct-set!
- #{val _85hotwsCta0JfYIjI4Mnc}#
+ #{val _hoQGWMnyQPAh3k2jhWKDf}#
1
- #{v _85hotwsCta0JfYIjI4Mno}#)))))))
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
- (lambda (#{source _85hotwsCta0JfYIjI4MjI}#
- #{fun-exp _85hotwsCta0JfYIjI4MjJ}#
- #{arg-exps _85hotwsCta0JfYIjI4MjK}#)
+ #{v _hoQGWMnyQPAh3k2jhWKDr}#)))))))
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@L}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source _85hotwsCta0JfYIjI4MjI}#
- #{fun-exp _85hotwsCta0JfYIjI4MjJ}#
- #{arg-exps _85hotwsCta0JfYIjI4MjK}#)))
- (#{build-conditional _85hotwsCta0JfYIjI4J3H}#
- (lambda (#{source _85hotwsCta0JfYIjI4MjQ}#
- #{test-exp _85hotwsCta0JfYIjI4MjR}#
- #{then-exp _85hotwsCta0JfYIjI4MjS}#
- #{else-exp _85hotwsCta0JfYIjI4MjT}#)
+ #{source _hoQGWMnyQPAh3k2jhWJ@L}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#)))
+ (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@T}#
+ #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}#
+ #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}#
+ #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source _85hotwsCta0JfYIjI4MjQ}#
- #{test-exp _85hotwsCta0JfYIjI4MjR}#
- #{then-exp _85hotwsCta0JfYIjI4MjS}#
- #{else-exp _85hotwsCta0JfYIjI4MjT}#)))
- (#{build-dynlet _85hotwsCta0JfYIjI4J3I}#
- (lambda (#{source _85hotwsCta0JfYIjI4Mja}#
- #{fluids _85hotwsCta0JfYIjI4Mjb}#
- #{vals _85hotwsCta0JfYIjI4Mjc}#
- #{body _85hotwsCta0JfYIjI4Mjd}#)
+ #{source _hoQGWMnyQPAh3k2jhWJ@T}#
+ #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}#
+ #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}#
+ #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#)))
+ (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@d}#
+ #{fluids _hoQGWMnyQPAh3k2jhWJ@e}#
+ #{vals _hoQGWMnyQPAh3k2jhWJ@f}#
+ #{body _hoQGWMnyQPAh3k2jhWJ@g}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source _85hotwsCta0JfYIjI4Mja}#
- #{fluids _85hotwsCta0JfYIjI4Mjb}#
- #{vals _85hotwsCta0JfYIjI4Mjc}#
- #{body _85hotwsCta0JfYIjI4Mjd}#)))
- (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}#
- (lambda (#{type _85hotwsCta0JfYIjI4PLu}#
- #{source _85hotwsCta0JfYIjI4PLv}#
- #{name _85hotwsCta0JfYIjI4PLw}#
- #{var _85hotwsCta0JfYIjI4PLx}#)
+ #{source _hoQGWMnyQPAh3k2jhWJ@d}#
+ #{fluids _hoQGWMnyQPAh3k2jhWJ@e}#
+ #{vals _hoQGWMnyQPAh3k2jhWJ@f}#
+ #{body _hoQGWMnyQPAh3k2jhWJ@g}#)))
+ (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWMnx}#
+ #{source _hoQGWMnyQPAh3k2jhWMny}#
+ #{name _hoQGWMnyQPAh3k2jhWMnz}#
+ #{var _hoQGWMnyQPAh3k2jhWMn0}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source _85hotwsCta0JfYIjI4PLv}#
- #{name _85hotwsCta0JfYIjI4PLw}#
- #{var _85hotwsCta0JfYIjI4PLx}#)))
- (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}#
- (lambda (#{source _85hotwsCta0JfYIjI4Mjk}#
- #{name _85hotwsCta0JfYIjI4Mjl}#
- #{var _85hotwsCta0JfYIjI4Mjm}#
- #{exp _85hotwsCta0JfYIjI4Mjn}#)
+ #{source _hoQGWMnyQPAh3k2jhWMny}#
+ #{name _hoQGWMnyQPAh3k2jhWMnz}#
+ #{var _hoQGWMnyQPAh3k2jhWMn0}#)))
+ (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@n}#
+ #{name _hoQGWMnyQPAh3k2jhWJ@o}#
+ #{var _hoQGWMnyQPAh3k2jhWJ@p}#
+ #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)
(begin
- (if (if (struct? #{exp _85hotwsCta0JfYIjI4Mjn}#)
- (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Mjn}#)
+ (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)
+ (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _85hotwsCta0JfYIjI4Mj3}#
- (struct-ref #{exp _85hotwsCta0JfYIjI4Mjn}# 1)))
- (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mj3}#))
- (let ((#{v _85hotwsCta0JfYIjI4Mj$}#
- (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mjl}#)
- #{meta _85hotwsCta0JfYIjI4Mj3}#)))
+ (let ((#{meta _hoQGWMnyQPAh3k2jhWJ@6}#
+ (struct-ref #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1)))
+ (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWJ@6}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWKAB}#
+ (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWJ@o}#)
+ #{meta _hoQGWMnyQPAh3k2jhWJ@6}#)))
(struct-set!
- #{exp _85hotwsCta0JfYIjI4Mjn}#
+ #{exp _hoQGWMnyQPAh3k2jhWJ@q}#
1
- #{v _85hotwsCta0JfYIjI4Mj$}#)))))
+ #{v _hoQGWMnyQPAh3k2jhWKAB}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source _85hotwsCta0JfYIjI4Mjk}#
- #{name _85hotwsCta0JfYIjI4Mjl}#
- #{var _85hotwsCta0JfYIjI4Mjm}#
- #{exp _85hotwsCta0JfYIjI4Mjn}#))))
- (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
- (lambda (#{mod _85hotwsCta0JfYIjI4PL3}#
- #{var _85hotwsCta0JfYIjI4PL4}#
- #{modref-cont _85hotwsCta0JfYIjI4PL5}#
- #{bare-cont _85hotwsCta0JfYIjI4PL6}#)
- (if (not #{mod _85hotwsCta0JfYIjI4PL3}#)
- (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
- #{var _85hotwsCta0JfYIjI4PL4}#)
- (let ((#{kind _85hotwsCta0JfYIjI4PL7}#
- (car #{mod _85hotwsCta0JfYIjI4PL3}#))
- (#{mod _85hotwsCta0JfYIjI4PL8}#
- (cdr #{mod _85hotwsCta0JfYIjI4PL3}#)))
- (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'public)
- (#{modref-cont _85hotwsCta0JfYIjI4PL5}#
- #{mod _85hotwsCta0JfYIjI4PL8}#
- #{var _85hotwsCta0JfYIjI4PL4}#
+ #{source _hoQGWMnyQPAh3k2jhWJ@n}#
+ #{name _hoQGWMnyQPAh3k2jhWJ@o}#
+ #{var _hoQGWMnyQPAh3k2jhWJ@p}#
+ #{exp _hoQGWMnyQPAh3k2jhWJ@q}#))))
+ (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWMn6}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#
+ #{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
+ #{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#)
+ (if (not #{mod _hoQGWMnyQPAh3k2jhWMn6}#)
+ (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#)
+ (let ((#{kind _hoQGWMnyQPAh3k2jhWMn$}#
+ (car #{mod _hoQGWMnyQPAh3k2jhWMn6}#))
+ (#{mod _hoQGWMnyQPAh3k2jhWMn@}#
+ (cdr #{mod _hoQGWMnyQPAh3k2jhWMn6}#)))
+ (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'public)
+ (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMn@}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#
#t)
- (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'private)
+ (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'private)
(if (not (equal?
- #{mod _85hotwsCta0JfYIjI4PL8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMn@}#
(module-name (current-module))))
- (#{modref-cont _85hotwsCta0JfYIjI4PL5}#
- #{mod _85hotwsCta0JfYIjI4PL8}#
- #{var _85hotwsCta0JfYIjI4PL4}#
+ (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMn@}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#
#f)
- (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
- #{var _85hotwsCta0JfYIjI4PL4}#))
- (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'bare)
- (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
- #{var _85hotwsCta0JfYIjI4PL4}#)
- (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'hygiene)
+ (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#))
+ (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'bare)
+ (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#)
+ (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'hygiene)
(if (if (not (equal?
- #{mod _85hotwsCta0JfYIjI4PL8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMn@}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod _85hotwsCta0JfYIjI4PL8}#)
- #{var _85hotwsCta0JfYIjI4PL4}#)
+ (resolve-module #{mod _hoQGWMnyQPAh3k2jhWMn@}#)
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#)
#f)
- (#{modref-cont _85hotwsCta0JfYIjI4PL5}#
- #{mod _85hotwsCta0JfYIjI4PL8}#
- #{var _85hotwsCta0JfYIjI4PL4}#
+ (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMn@}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#
#f)
- (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
- #{var _85hotwsCta0JfYIjI4PL4}#))
+ (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#))
(syntax-violation
#f
"bad module kind"
- #{var _85hotwsCta0JfYIjI4PL4}#
- #{mod _85hotwsCta0JfYIjI4PL8}#)))))))))
- (#{build-global-reference _85hotwsCta0JfYIjI4J3M}#
- (lambda (#{source _85hotwsCta0JfYIjI4PML}#
- #{var _85hotwsCta0JfYIjI4PMM}#
- #{mod _85hotwsCta0JfYIjI4PMN}#)
- (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
- #{mod _85hotwsCta0JfYIjI4PMN}#
- #{var _85hotwsCta0JfYIjI4PMM}#
- (lambda (#{mod _85hotwsCta0JfYIjI4PMQ}#
- #{var _85hotwsCta0JfYIjI4PMR}#
- #{public? _85hotwsCta0JfYIjI4PMS}#)
+ #{var _hoQGWMnyQPAh3k2jhWMn7}#
+ #{mod _hoQGWMnyQPAh3k2jhWMn@}#)))))))))
+ (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWMoO}#
+ #{var _hoQGWMnyQPAh3k2jhWMoP}#
+ #{mod _hoQGWMnyQPAh3k2jhWMoQ}#)
+ (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
+ #{mod _hoQGWMnyQPAh3k2jhWMoQ}#
+ #{var _hoQGWMnyQPAh3k2jhWMoP}#
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWMoT}#
+ #{var _hoQGWMnyQPAh3k2jhWMoU}#
+ #{public? _hoQGWMnyQPAh3k2jhWMoV}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source _85hotwsCta0JfYIjI4PML}#
- #{mod _85hotwsCta0JfYIjI4PMQ}#
- #{var _85hotwsCta0JfYIjI4PMR}#
- #{public? _85hotwsCta0JfYIjI4PMS}#))
- (lambda (#{var _85hotwsCta0JfYIjI4PMa}#)
+ #{source _hoQGWMnyQPAh3k2jhWMoO}#
+ #{mod _hoQGWMnyQPAh3k2jhWMoT}#
+ #{var _hoQGWMnyQPAh3k2jhWMoU}#
+ #{public? _hoQGWMnyQPAh3k2jhWMoV}#))
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWMod}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source _85hotwsCta0JfYIjI4PML}#
- #{var _85hotwsCta0JfYIjI4PMa}#)))))
- (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}#
- (lambda (#{source _85hotwsCta0JfYIjI4MkH}#
- #{var _85hotwsCta0JfYIjI4MkI}#
- #{exp _85hotwsCta0JfYIjI4MkJ}#
- #{mod _85hotwsCta0JfYIjI4MkK}#)
+ #{source _hoQGWMnyQPAh3k2jhWMoO}#
+ #{var _hoQGWMnyQPAh3k2jhWMod}#)))))
+ (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWKAK}#
+ #{var _hoQGWMnyQPAh3k2jhWKAL}#
+ #{exp _hoQGWMnyQPAh3k2jhWKAM}#
+ #{mod _hoQGWMnyQPAh3k2jhWKAN}#)
(begin
- (if (if (struct? #{exp _85hotwsCta0JfYIjI4MkJ}#)
- (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4MkJ}#)
+ (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWKAM}#)
+ (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWKAM}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _85hotwsCta0JfYIjI4Mka}#
- (struct-ref #{exp _85hotwsCta0JfYIjI4MkJ}# 1)))
- (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mka}#))
- (let ((#{v _85hotwsCta0JfYIjI4Mkh}#
- (cons (cons 'name #{var _85hotwsCta0JfYIjI4MkI}#)
- #{meta _85hotwsCta0JfYIjI4Mka}#)))
+ (let ((#{meta _hoQGWMnyQPAh3k2jhWKAd}#
+ (struct-ref #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1)))
+ (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKAd}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWKAk}#
+ (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWKAL}#)
+ #{meta _hoQGWMnyQPAh3k2jhWKAd}#)))
(struct-set!
- #{exp _85hotwsCta0JfYIjI4MkJ}#
+ #{exp _hoQGWMnyQPAh3k2jhWKAM}#
1
- #{v _85hotwsCta0JfYIjI4Mkh}#)))))
- (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
- #{mod _85hotwsCta0JfYIjI4MkK}#
- #{var _85hotwsCta0JfYIjI4MkI}#
- (lambda (#{mod _85hotwsCta0JfYIjI4Mkm}#
- #{var _85hotwsCta0JfYIjI4Mkn}#
- #{public? _85hotwsCta0JfYIjI4Mko}#)
+ #{v _hoQGWMnyQPAh3k2jhWKAk}#)))))
+ (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
+ #{mod _hoQGWMnyQPAh3k2jhWKAN}#
+ #{var _hoQGWMnyQPAh3k2jhWKAL}#
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWKAp}#
+ #{var _hoQGWMnyQPAh3k2jhWKAq}#
+ #{public? _hoQGWMnyQPAh3k2jhWKAr}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source _85hotwsCta0JfYIjI4MkH}#
- #{mod _85hotwsCta0JfYIjI4Mkm}#
- #{var _85hotwsCta0JfYIjI4Mkn}#
- #{public? _85hotwsCta0JfYIjI4Mko}#
- #{exp _85hotwsCta0JfYIjI4MkJ}#))
- (lambda (#{var _85hotwsCta0JfYIjI4Mkw}#)
+ #{source _hoQGWMnyQPAh3k2jhWKAK}#
+ #{mod _hoQGWMnyQPAh3k2jhWKAp}#
+ #{var _hoQGWMnyQPAh3k2jhWKAq}#
+ #{public? _hoQGWMnyQPAh3k2jhWKAr}#
+ #{exp _hoQGWMnyQPAh3k2jhWKAM}#))
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWKAz}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source _85hotwsCta0JfYIjI4MkH}#
- #{var _85hotwsCta0JfYIjI4Mkw}#
- #{exp _85hotwsCta0JfYIjI4MkJ}#))))))
- (#{build-global-definition _85hotwsCta0JfYIjI4J3O}#
- (lambda (#{source _85hotwsCta0JfYIjI4PMg}#
- #{var _85hotwsCta0JfYIjI4PMh}#
- #{exp _85hotwsCta0JfYIjI4PMi}#)
+ #{source _hoQGWMnyQPAh3k2jhWKAK}#
+ #{var _hoQGWMnyQPAh3k2jhWKAz}#
+ #{exp _hoQGWMnyQPAh3k2jhWKAM}#))))))
+ (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}#
+ (lambda (#{source _hoQGWMnyQPAh3k2jhWMoj}#
+ #{var _hoQGWMnyQPAh3k2jhWMok}#
+ #{exp _hoQGWMnyQPAh3k2jhWMol}#)
(begin
- (if (if (struct? #{exp _85hotwsCta0JfYIjI4PMi}#)
- (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4PMi}#)
+ (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWMol}#)
+ (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWMol}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _85hotwsCta0JfYIjI4PMy}#
- (struct-ref #{exp _85hotwsCta0JfYIjI4PMi}# 1)))
- (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4PMy}#))
- (let ((#{v _85hotwsCta0JfYIjI4PM5}#
- (cons (cons 'name #{var _85hotwsCta0JfYIjI4PMh}#)
- #{meta _85hotwsCta0JfYIjI4PMy}#)))
+ (let ((#{meta _hoQGWMnyQPAh3k2jhWMo1}#
+ (struct-ref #{exp _hoQGWMnyQPAh3k2jhWMol}# 1)))
+ (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWMo1}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWMo8}#
+ (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWMok}#)
+ #{meta _hoQGWMnyQPAh3k2jhWMo1}#)))
(struct-set!
- #{exp _85hotwsCta0JfYIjI4PMi}#
+ #{exp _hoQGWMnyQPAh3k2jhWMol}#
1
- #{v _85hotwsCta0JfYIjI4PM5}#)))))
+ #{v _hoQGWMnyQPAh3k2jhWMo8}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source _85hotwsCta0JfYIjI4PMg}#
- #{var _85hotwsCta0JfYIjI4PMh}#
- #{exp _85hotwsCta0JfYIjI4PMi}#))))
- (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
- (lambda (#{src _85hotwsCta0JfYIjI4Mk2}#
- #{req _85hotwsCta0JfYIjI4Mk3}#
- #{rest _85hotwsCta0JfYIjI4Mk4}#
- #{vars _85hotwsCta0JfYIjI4Mk5}#
- #{meta _85hotwsCta0JfYIjI4Mk6}#
- #{exp _85hotwsCta0JfYIjI4Mk7}#)
- (let ((#{body _85hotwsCta0JfYIjI4MlB}#
+ #{source _hoQGWMnyQPAh3k2jhWMoj}#
+ #{var _hoQGWMnyQPAh3k2jhWMok}#
+ #{exp _hoQGWMnyQPAh3k2jhWMol}#))))
+ (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWKA5}#
+ #{req _hoQGWMnyQPAh3k2jhWKA6}#
+ #{rest _hoQGWMnyQPAh3k2jhWKA7}#
+ #{vars _hoQGWMnyQPAh3k2jhWKA8}#
+ #{meta _hoQGWMnyQPAh3k2jhWKA9}#
+ #{exp _hoQGWMnyQPAh3k2jhWKA$}#)
+ (let ((#{body _hoQGWMnyQPAh3k2jhWKBE}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src _85hotwsCta0JfYIjI4Mk2}#
- #{req _85hotwsCta0JfYIjI4Mk3}#
+ #{src _hoQGWMnyQPAh3k2jhWKA5}#
+ #{req _hoQGWMnyQPAh3k2jhWKA6}#
#f
- #{rest _85hotwsCta0JfYIjI4Mk4}#
+ #{rest _hoQGWMnyQPAh3k2jhWKA7}#
#f
'()
- #{vars _85hotwsCta0JfYIjI4Mk5}#
- #{exp _85hotwsCta0JfYIjI4Mk7}#
+ #{vars _hoQGWMnyQPAh3k2jhWKA8}#
+ #{exp _hoQGWMnyQPAh3k2jhWKA$}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src _85hotwsCta0JfYIjI4Mk2}#
- #{meta _85hotwsCta0JfYIjI4Mk6}#
- #{body _85hotwsCta0JfYIjI4MlB}#))))
- (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
- (lambda (#{src _85hotwsCta0JfYIjI4PNB}#
- #{exps _85hotwsCta0JfYIjI4PNC}#)
- (if (null? (cdr #{exps _85hotwsCta0JfYIjI4PNC}#))
- (car #{exps _85hotwsCta0JfYIjI4PNC}#)
+ #{src _hoQGWMnyQPAh3k2jhWKA5}#
+ #{meta _hoQGWMnyQPAh3k2jhWKA9}#
+ #{body _hoQGWMnyQPAh3k2jhWKBE}#))))
+ (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWMpE}#
+ #{exps _hoQGWMnyQPAh3k2jhWMpF}#)
+ (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWMpF}#))
+ (car #{exps _hoQGWMnyQPAh3k2jhWMpF}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src _85hotwsCta0JfYIjI4PNB}#
- #{exps _85hotwsCta0JfYIjI4PNC}#))))
- (#{build-let _85hotwsCta0JfYIjI4J3V}#
- (lambda (#{src _85hotwsCta0JfYIjI4MlN}#
- #{ids _85hotwsCta0JfYIjI4MlO}#
- #{vars _85hotwsCta0JfYIjI4MlP}#
- #{val-exps _85hotwsCta0JfYIjI4MlQ}#
- #{body-exp _85hotwsCta0JfYIjI4MlR}#)
+ #{src _hoQGWMnyQPAh3k2jhWMpE}#
+ #{exps _hoQGWMnyQPAh3k2jhWMpF}#))))
+ (#{build-let _hoQGWMnyQPAh3k2jhWHSv}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWKBQ}#
+ #{ids _hoQGWMnyQPAh3k2jhWKBR}#
+ #{vars _hoQGWMnyQPAh3k2jhWKBS}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#
+ #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#)
(begin
(for-each
- #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
- #{ids _85hotwsCta0JfYIjI4MlO}#
- #{val-exps _85hotwsCta0JfYIjI4MlQ}#)
- (if (null? #{vars _85hotwsCta0JfYIjI4MlP}#)
- #{body-exp _85hotwsCta0JfYIjI4MlR}#
+ #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}#
+ #{ids _hoQGWMnyQPAh3k2jhWKBR}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#)
+ (if (null? #{vars _hoQGWMnyQPAh3k2jhWKBS}#)
+ #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src _85hotwsCta0JfYIjI4MlN}#
- #{ids _85hotwsCta0JfYIjI4MlO}#
- #{vars _85hotwsCta0JfYIjI4MlP}#
- #{val-exps _85hotwsCta0JfYIjI4MlQ}#
- #{body-exp _85hotwsCta0JfYIjI4MlR}#)))))
- (#{build-named-let _85hotwsCta0JfYIjI4J3W}#
- (lambda (#{src _85hotwsCta0JfYIjI4Mlp}#
- #{ids _85hotwsCta0JfYIjI4Mlq}#
- #{vars _85hotwsCta0JfYIjI4Mlr}#
- #{val-exps _85hotwsCta0JfYIjI4Mls}#
- #{body-exp _85hotwsCta0JfYIjI4Mlt}#)
- (let ((#{f _85hotwsCta0JfYIjI4Mlu}#
- (car #{vars _85hotwsCta0JfYIjI4Mlr}#))
- (#{f-name _85hotwsCta0JfYIjI4Mlv}#
- (car #{ids _85hotwsCta0JfYIjI4Mlq}#))
- (#{vars _85hotwsCta0JfYIjI4Mlw}#
- (cdr #{vars _85hotwsCta0JfYIjI4Mlr}#))
- (#{ids _85hotwsCta0JfYIjI4Mlx}#
- (cdr #{ids _85hotwsCta0JfYIjI4Mlq}#)))
- (let ((#{proc _85hotwsCta0JfYIjI4Mly}#
- (let ((#{body _85hotwsCta0JfYIjI4MmG}#
+ #{src _hoQGWMnyQPAh3k2jhWKBQ}#
+ #{ids _hoQGWMnyQPAh3k2jhWKBR}#
+ #{vars _hoQGWMnyQPAh3k2jhWKBS}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#
+ #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#)))))
+ (#{build-named-let _hoQGWMnyQPAh3k2jhWHSw}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWKBs}#
+ #{ids _hoQGWMnyQPAh3k2jhWKBt}#
+ #{vars _hoQGWMnyQPAh3k2jhWKBu}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#
+ #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#)
+ (let ((#{f _hoQGWMnyQPAh3k2jhWKBx}#
+ (car #{vars _hoQGWMnyQPAh3k2jhWKBu}#))
+ (#{f-name _hoQGWMnyQPAh3k2jhWKBy}#
+ (car #{ids _hoQGWMnyQPAh3k2jhWKBt}#))
+ (#{vars _hoQGWMnyQPAh3k2jhWKBz}#
+ (cdr #{vars _hoQGWMnyQPAh3k2jhWKBu}#))
+ (#{ids _hoQGWMnyQPAh3k2jhWKB0}#
+ (cdr #{ids _hoQGWMnyQPAh3k2jhWKBt}#)))
+ (let ((#{proc _hoQGWMnyQPAh3k2jhWKB1}#
+ (let ((#{body _hoQGWMnyQPAh3k2jhWKCJ}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src _85hotwsCta0JfYIjI4Mlp}#
- #{ids _85hotwsCta0JfYIjI4Mlx}#
+ #{src _hoQGWMnyQPAh3k2jhWKBs}#
+ #{ids _hoQGWMnyQPAh3k2jhWKB0}#
#f
#f
#f
'()
- #{vars _85hotwsCta0JfYIjI4Mlw}#
- #{body-exp _85hotwsCta0JfYIjI4Mlt}#
+ #{vars _hoQGWMnyQPAh3k2jhWKBz}#
+ #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src _85hotwsCta0JfYIjI4Mlp}#
+ #{src _hoQGWMnyQPAh3k2jhWKBs}#
'()
- #{body _85hotwsCta0JfYIjI4MmG}#))))
+ #{body _hoQGWMnyQPAh3k2jhWKCJ}#))))
(begin
- (if (if (struct? #{proc _85hotwsCta0JfYIjI4Mly}#)
- (eq? (struct-vtable #{proc _85hotwsCta0JfYIjI4Mly}#)
+ (if (if (struct? #{proc _hoQGWMnyQPAh3k2jhWKB1}#)
+ (eq? (struct-vtable #{proc _hoQGWMnyQPAh3k2jhWKB1}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _85hotwsCta0JfYIjI4Mme}#
- (struct-ref #{proc _85hotwsCta0JfYIjI4Mly}# 1)))
- (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mme}#))
- (let ((#{v _85hotwsCta0JfYIjI4Mml}#
+ (let ((#{meta _hoQGWMnyQPAh3k2jhWKCh}#
+ (struct-ref #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1)))
+ (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKCh}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWKCo}#
(cons (cons 'name
- #{f-name _85hotwsCta0JfYIjI4Mlv}#)
- #{meta _85hotwsCta0JfYIjI4Mme}#)))
+ #{f-name _hoQGWMnyQPAh3k2jhWKBy}#)
+ #{meta _hoQGWMnyQPAh3k2jhWKCh}#)))
(struct-set!
- #{proc _85hotwsCta0JfYIjI4Mly}#
+ #{proc _hoQGWMnyQPAh3k2jhWKB1}#
1
- #{v _85hotwsCta0JfYIjI4Mml}#)))))
+ #{v _hoQGWMnyQPAh3k2jhWKCo}#)))))
(for-each
- #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
- #{ids _85hotwsCta0JfYIjI4Mlx}#
- #{val-exps _85hotwsCta0JfYIjI4Mls}#)
- (let ((#{names _85hotwsCta0JfYIjI4Mm9}#
- (list #{f-name _85hotwsCta0JfYIjI4Mlv}#))
- (#{gensyms _85hotwsCta0JfYIjI4Mm$}#
- (list #{f _85hotwsCta0JfYIjI4Mlu}#))
- (#{vals _85hotwsCta0JfYIjI4Mm@}#
- (list #{proc _85hotwsCta0JfYIjI4Mly}#))
- (#{body _85hotwsCta0JfYIjI4MnA}#
- (let ((#{fun-exp _85hotwsCta0JfYIjI4MnE}#
+ #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}#
+ #{ids _hoQGWMnyQPAh3k2jhWKB0}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#)
+ (let ((#{names _hoQGWMnyQPAh3k2jhWKDA}#
+ (list #{f-name _hoQGWMnyQPAh3k2jhWKBy}#))
+ (#{gensyms _hoQGWMnyQPAh3k2jhWKDB}#
+ (list #{f _hoQGWMnyQPAh3k2jhWKBx}#))
+ (#{vals _hoQGWMnyQPAh3k2jhWKDC}#
+ (list #{proc _hoQGWMnyQPAh3k2jhWKB1}#))
+ (#{body _hoQGWMnyQPAh3k2jhWKDD}#
+ (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWKDH}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src _85hotwsCta0JfYIjI4Mlp}#
- #{f-name _85hotwsCta0JfYIjI4Mlv}#
- #{f _85hotwsCta0JfYIjI4Mlu}#)))
+ #{src _hoQGWMnyQPAh3k2jhWKBs}#
+ #{f-name _hoQGWMnyQPAh3k2jhWKBy}#
+ #{f _hoQGWMnyQPAh3k2jhWKBx}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src _85hotwsCta0JfYIjI4Mlp}#
- #{fun-exp _85hotwsCta0JfYIjI4MnE}#
- #{val-exps _85hotwsCta0JfYIjI4Mls}#))))
+ #{src _hoQGWMnyQPAh3k2jhWKBs}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWKDH}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src _85hotwsCta0JfYIjI4Mlp}#
+ #{src _hoQGWMnyQPAh3k2jhWKBs}#
#f
- #{names _85hotwsCta0JfYIjI4Mm9}#
- #{gensyms _85hotwsCta0JfYIjI4Mm$}#
- #{vals _85hotwsCta0JfYIjI4Mm@}#
- #{body _85hotwsCta0JfYIjI4MnA}#)))))))
- (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
- (lambda (#{src _85hotwsCta0JfYIjI4MnU}#
- #{in-order? _85hotwsCta0JfYIjI4MnV}#
- #{ids _85hotwsCta0JfYIjI4MnW}#
- #{vars _85hotwsCta0JfYIjI4MnX}#
- #{val-exps _85hotwsCta0JfYIjI4MnY}#
- #{body-exp _85hotwsCta0JfYIjI4MnZ}#)
- (if (null? #{vars _85hotwsCta0JfYIjI4MnX}#)
- #{body-exp _85hotwsCta0JfYIjI4MnZ}#
+ #{names _hoQGWMnyQPAh3k2jhWKDA}#
+ #{gensyms _hoQGWMnyQPAh3k2jhWKDB}#
+ #{vals _hoQGWMnyQPAh3k2jhWKDC}#
+ #{body _hoQGWMnyQPAh3k2jhWKDD}#)))))))
+ (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWKDX}#
+ #{in-order? _hoQGWMnyQPAh3k2jhWKDY}#
+ #{ids _hoQGWMnyQPAh3k2jhWKDZ}#
+ #{vars _hoQGWMnyQPAh3k2jhWKDa}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#
+ #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#)
+ (if (null? #{vars _hoQGWMnyQPAh3k2jhWKDa}#)
+ #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#
(begin
(for-each
- #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
- #{ids _85hotwsCta0JfYIjI4MnW}#
- #{val-exps _85hotwsCta0JfYIjI4MnY}#)
+ #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}#
+ #{ids _hoQGWMnyQPAh3k2jhWKDZ}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src _85hotwsCta0JfYIjI4MnU}#
- #{in-order? _85hotwsCta0JfYIjI4MnV}#
- #{ids _85hotwsCta0JfYIjI4MnW}#
- #{vars _85hotwsCta0JfYIjI4MnX}#
- #{val-exps _85hotwsCta0JfYIjI4MnY}#
- #{body-exp _85hotwsCta0JfYIjI4MnZ}#)))))
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- (lambda (#{x _85hotwsCta0JfYIjI4Mnz}#)
- (if (if (vector? #{x _85hotwsCta0JfYIjI4Mnz}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4Mnz}#)
+ #{src _hoQGWMnyQPAh3k2jhWKDX}#
+ #{in-order? _hoQGWMnyQPAh3k2jhWKDY}#
+ #{ids _hoQGWMnyQPAh3k2jhWKDZ}#
+ #{vars _hoQGWMnyQPAh3k2jhWKDa}#
+ #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#
+ #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#)))))
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWKD2}#)
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKD2}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKD2}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 0)
'syntax-object)
#f)
#f)
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 1))
- (if (pair? #{x _85hotwsCta0JfYIjI4Mnz}#)
- (let ((#{props _85hotwsCta0JfYIjI4MoC}#
- (source-properties #{x _85hotwsCta0JfYIjI4Mnz}#)))
- (if (pair? #{props _85hotwsCta0JfYIjI4MoC}#)
- #{props _85hotwsCta0JfYIjI4MoC}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 1))
+ (if (pair? #{x _hoQGWMnyQPAh3k2jhWKD2}#)
+ (let ((#{props _hoQGWMnyQPAh3k2jhWKEF}#
+ (source-properties #{x _hoQGWMnyQPAh3k2jhWKD2}#)))
+ (if (pair? #{props _hoQGWMnyQPAh3k2jhWKEF}#)
+ #{props _hoQGWMnyQPAh3k2jhWKEF}#
#f))
#f))))
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- (lambda (#{labels _85hotwsCta0JfYIjI4MoE}#
- #{bindings _85hotwsCta0JfYIjI4MoF}#
- #{r _85hotwsCta0JfYIjI4MoG}#)
- (if (null? #{labels _85hotwsCta0JfYIjI4MoE}#)
- #{r _85hotwsCta0JfYIjI4MoG}#
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- (cdr #{labels _85hotwsCta0JfYIjI4MoE}#)
- (cdr #{bindings _85hotwsCta0JfYIjI4MoF}#)
- (cons (cons (car #{labels _85hotwsCta0JfYIjI4MoE}#)
- (car #{bindings _85hotwsCta0JfYIjI4MoF}#))
- #{r _85hotwsCta0JfYIjI4MoG}#)))))
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- (lambda (#{labels _85hotwsCta0JfYIjI4MoH}#
- #{vars _85hotwsCta0JfYIjI4MoI}#
- #{r _85hotwsCta0JfYIjI4MoJ}#)
- (if (null? #{labels _85hotwsCta0JfYIjI4MoH}#)
- #{r _85hotwsCta0JfYIjI4MoJ}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- (cdr #{labels _85hotwsCta0JfYIjI4MoH}#)
- (cdr #{vars _85hotwsCta0JfYIjI4MoI}#)
- (cons (cons (car #{labels _85hotwsCta0JfYIjI4MoH}#)
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEH}#
+ #{bindings _hoQGWMnyQPAh3k2jhWKEI}#
+ #{r _hoQGWMnyQPAh3k2jhWKEJ}#)
+ (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEH}#)
+ #{r _hoQGWMnyQPAh3k2jhWKEJ}#
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ (cdr #{labels _hoQGWMnyQPAh3k2jhWKEH}#)
+ (cdr #{bindings _hoQGWMnyQPAh3k2jhWKEI}#)
+ (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEH}#)
+ (car #{bindings _hoQGWMnyQPAh3k2jhWKEI}#))
+ #{r _hoQGWMnyQPAh3k2jhWKEJ}#)))))
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEK}#
+ #{vars _hoQGWMnyQPAh3k2jhWKEL}#
+ #{r _hoQGWMnyQPAh3k2jhWKEM}#)
+ (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEK}#)
+ #{r _hoQGWMnyQPAh3k2jhWKEM}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ (cdr #{labels _hoQGWMnyQPAh3k2jhWKEK}#)
+ (cdr #{vars _hoQGWMnyQPAh3k2jhWKEL}#)
+ (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEK}#)
(cons 'lexical
- (car #{vars _85hotwsCta0JfYIjI4MoI}#)))
- #{r _85hotwsCta0JfYIjI4MoJ}#)))))
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- (lambda (#{r _85hotwsCta0JfYIjI4MoK}#)
- (if (null? #{r _85hotwsCta0JfYIjI4MoK}#)
+ (car #{vars _hoQGWMnyQPAh3k2jhWKEL}#)))
+ #{r _hoQGWMnyQPAh3k2jhWKEM}#)))))
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWKEN}#)
+ (if (null? #{r _hoQGWMnyQPAh3k2jhWKEN}#)
'()
- (let ((#{a _85hotwsCta0JfYIjI4MoL}#
- (car #{r _85hotwsCta0JfYIjI4MoK}#)))
- (if (eq? (car (cdr #{a _85hotwsCta0JfYIjI4MoL}#))
+ (let ((#{a _hoQGWMnyQPAh3k2jhWKEO}#
+ (car #{r _hoQGWMnyQPAh3k2jhWKEN}#)))
+ (if (eq? (car (cdr #{a _hoQGWMnyQPAh3k2jhWKEO}#))
'macro)
- (cons #{a _85hotwsCta0JfYIjI4MoL}#
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- (cdr #{r _85hotwsCta0JfYIjI4MoK}#)))
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- (cdr #{r _85hotwsCta0JfYIjI4MoK}#)))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
- (lambda (#{type _85hotwsCta0JfYIjI4MoN}#
- #{sym _85hotwsCta0JfYIjI4MoO}#
- #{val _85hotwsCta0JfYIjI4MoP}#)
+ (cons #{a _hoQGWMnyQPAh3k2jhWKEO}#
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#)))
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#)))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWKEQ}#
+ #{sym _hoQGWMnyQPAh3k2jhWKER}#
+ #{val _hoQGWMnyQPAh3k2jhWKES}#)
(module-define!
(current-module)
- #{sym _85hotwsCta0JfYIjI4MoO}#
+ #{sym _hoQGWMnyQPAh3k2jhWKER}#
(make-syntax-transformer
- #{sym _85hotwsCta0JfYIjI4MoO}#
- #{type _85hotwsCta0JfYIjI4MoN}#
- #{val _85hotwsCta0JfYIjI4MoP}#))))
- (#{id? _85hotwsCta0JfYIjI4J3n}#
- (lambda (#{x _85hotwsCta0JfYIjI4LJz}#)
- (if (symbol? #{x _85hotwsCta0JfYIjI4LJz}#)
+ #{sym _hoQGWMnyQPAh3k2jhWKER}#
+ #{type _hoQGWMnyQPAh3k2jhWKEQ}#
+ #{val _hoQGWMnyQPAh3k2jhWKES}#))))
+ (#{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWIlN}#)
+ (if (symbol? #{x _hoQGWMnyQPAh3k2jhWIlN}#)
#t
- (if (if (vector? #{x _85hotwsCta0JfYIjI4LJz}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4LJz}#)
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIlN}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIlN}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 1))
#f))))
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- (lambda (#{ls _85hotwsCta0JfYIjI4Moc}#)
- (if (null? #{ls _85hotwsCta0JfYIjI4Moc}#)
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ (lambda (#{ls _hoQGWMnyQPAh3k2jhWKEf}#)
+ (if (null? #{ls _hoQGWMnyQPAh3k2jhWKEf}#)
'()
- (cons (#{gen-label _85hotwsCta0JfYIjI4J3p}#)
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- (cdr #{ls _85hotwsCta0JfYIjI4Moc}#))))))
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- (lambda (#{ids _85hotwsCta0JfYIjI4Mod}#
- #{labels _85hotwsCta0JfYIjI4Moe}#
- #{w _85hotwsCta0JfYIjI4Mof}#)
- (if (null? #{ids _85hotwsCta0JfYIjI4Mod}#)
- #{w _85hotwsCta0JfYIjI4Mof}#
- (cons (car #{w _85hotwsCta0JfYIjI4Mof}#)
- (cons (let ((#{labelvec _85hotwsCta0JfYIjI4Mog}#
+ (cons (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ (cdr #{ls _hoQGWMnyQPAh3k2jhWKEf}#))))))
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEg}#
+ #{labels _hoQGWMnyQPAh3k2jhWKEh}#
+ #{w _hoQGWMnyQPAh3k2jhWKEi}#)
+ (if (null? #{ids _hoQGWMnyQPAh3k2jhWKEg}#)
+ #{w _hoQGWMnyQPAh3k2jhWKEi}#
+ (cons (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)
+ (cons (let ((#{labelvec _hoQGWMnyQPAh3k2jhWKEj}#
(list->vector
- #{labels _85hotwsCta0JfYIjI4Moe}#)))
- (let ((#{n _85hotwsCta0JfYIjI4Moh}#
+ #{labels _hoQGWMnyQPAh3k2jhWKEh}#)))
+ (let ((#{n _hoQGWMnyQPAh3k2jhWKEk}#
(vector-length
- #{labelvec _85hotwsCta0JfYIjI4Mog}#)))
- (let ((#{symnamevec _85hotwsCta0JfYIjI4Moi}#
- (make-vector #{n _85hotwsCta0JfYIjI4Moh}#))
- (#{marksvec _85hotwsCta0JfYIjI4Moj}#
- (make-vector #{n _85hotwsCta0JfYIjI4Moh}#)))
+ #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#)))
+ (let ((#{symnamevec _hoQGWMnyQPAh3k2jhWKEl}#
+ (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#))
+ (#{marksvec _hoQGWMnyQPAh3k2jhWKEm}#
+ (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#)))
(begin
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Mok}#
- (lambda (#{ids _85hotwsCta0JfYIjI4Mon}#
- #{i _85hotwsCta0JfYIjI4Moo}#)
- (if (not (null? #{ids _85hotwsCta0JfYIjI4Mon}#))
+ ((#{f _hoQGWMnyQPAh3k2jhWKEn}#
+ (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEq}#
+ #{i _hoQGWMnyQPAh3k2jhWKEr}#)
+ (if (not (null? #{ids _hoQGWMnyQPAh3k2jhWKEq}#))
(call-with-values
(lambda ()
- (let ((#{x _85hotwsCta0JfYIjI4Mor}#
- (car #{ids _85hotwsCta0JfYIjI4Mon}#)))
+ (let ((#{x _hoQGWMnyQPAh3k2jhWKEu}#
+ (car #{ids _hoQGWMnyQPAh3k2jhWKEq}#)))
(if (if (vector?
- #{x _85hotwsCta0JfYIjI4Mor}#)
+ #{x _hoQGWMnyQPAh3k2jhWKEu}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Mor}#)
+ #{x _hoQGWMnyQPAh3k2jhWKEu}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Mor}#
+ #{x _hoQGWMnyQPAh3k2jhWKEu}#
0)
'syntax-object)
#f)
#f)
(values
(vector-ref
- #{x _85hotwsCta0JfYIjI4Mor}#
+ #{x _hoQGWMnyQPAh3k2jhWKEu}#
1)
- (let ((#{m1 _85hotwsCta0JfYIjI4Mo7}#
- (car #{w _85hotwsCta0JfYIjI4Mof}#))
- (#{m2 _85hotwsCta0JfYIjI4Mo8}#
+ (let ((#{m1 _hoQGWMnyQPAh3k2jhWKE$}#
+ (car #{w _hoQGWMnyQPAh3k2jhWKEi}#))
+ (#{m2 _hoQGWMnyQPAh3k2jhWKE@}#
(car (vector-ref
- #{x _85hotwsCta0JfYIjI4Mor}#
+ #{x _hoQGWMnyQPAh3k2jhWKEu}#
2))))
- (if (null? #{m2 _85hotwsCta0JfYIjI4Mo8}#)
- #{m1 _85hotwsCta0JfYIjI4Mo7}#
+ (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKE@}#)
+ #{m1 _hoQGWMnyQPAh3k2jhWKE$}#
(append
- #{m1 _85hotwsCta0JfYIjI4Mo7}#
- #{m2 _85hotwsCta0JfYIjI4Mo8}#))))
+ #{m1 _hoQGWMnyQPAh3k2jhWKE$}#
+ #{m2 _hoQGWMnyQPAh3k2jhWKE@}#))))
(values
- #{x _85hotwsCta0JfYIjI4Mor}#
- (car #{w _85hotwsCta0JfYIjI4Mof}#)))))
- (lambda (#{symname _85hotwsCta0JfYIjI4MpQ}#
- #{marks _85hotwsCta0JfYIjI4MpR}#)
+ #{x _hoQGWMnyQPAh3k2jhWKEu}#
+ (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)))))
+ (lambda (#{symname _hoQGWMnyQPAh3k2jhWKFT}#
+ #{marks _hoQGWMnyQPAh3k2jhWKFU}#)
(begin
(vector-set!
- #{symnamevec _85hotwsCta0JfYIjI4Moi}#
- #{i _85hotwsCta0JfYIjI4Moo}#
- #{symname _85hotwsCta0JfYIjI4MpQ}#)
+ #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}#
+ #{i _hoQGWMnyQPAh3k2jhWKEr}#
+ #{symname _hoQGWMnyQPAh3k2jhWKFT}#)
(vector-set!
- #{marksvec _85hotwsCta0JfYIjI4Moj}#
- #{i _85hotwsCta0JfYIjI4Moo}#
- #{marks _85hotwsCta0JfYIjI4MpR}#)
- (#{f _85hotwsCta0JfYIjI4Mok}#
- (cdr #{ids _85hotwsCta0JfYIjI4Mon}#)
- (#{1+}# #{i _85hotwsCta0JfYIjI4Moo}#)))))))))
- (#{f _85hotwsCta0JfYIjI4Mok}#
- #{ids _85hotwsCta0JfYIjI4Mod}#
+ #{marksvec _hoQGWMnyQPAh3k2jhWKEm}#
+ #{i _hoQGWMnyQPAh3k2jhWKEr}#
+ #{marks _hoQGWMnyQPAh3k2jhWKFU}#)
+ (#{f _hoQGWMnyQPAh3k2jhWKEn}#
+ (cdr #{ids _hoQGWMnyQPAh3k2jhWKEq}#)
+ (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKEr}#)))))))))
+ (#{f _hoQGWMnyQPAh3k2jhWKEn}#
+ #{ids _hoQGWMnyQPAh3k2jhWKEg}#
0))
(vector
'ribcage
- #{symnamevec _85hotwsCta0JfYIjI4Moi}#
- #{marksvec _85hotwsCta0JfYIjI4Moj}#
- #{labelvec _85hotwsCta0JfYIjI4Mog}#)))))
- (cdr #{w _85hotwsCta0JfYIjI4Mof}#))))))
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- (lambda (#{w1 _85hotwsCta0JfYIjI4Mpa}#
- #{w2 _85hotwsCta0JfYIjI4Mpb}#)
- (let ((#{m1 _85hotwsCta0JfYIjI4Mpc}#
- (car #{w1 _85hotwsCta0JfYIjI4Mpa}#))
- (#{s1 _85hotwsCta0JfYIjI4Mpd}#
- (cdr #{w1 _85hotwsCta0JfYIjI4Mpa}#)))
- (if (null? #{m1 _85hotwsCta0JfYIjI4Mpc}#)
- (if (null? #{s1 _85hotwsCta0JfYIjI4Mpd}#)
- #{w2 _85hotwsCta0JfYIjI4Mpb}#
- (cons (car #{w2 _85hotwsCta0JfYIjI4Mpb}#)
- (let ((#{m2 _85hotwsCta0JfYIjI4Mpk}#
- (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#)))
- (if (null? #{m2 _85hotwsCta0JfYIjI4Mpk}#)
- #{s1 _85hotwsCta0JfYIjI4Mpd}#
+ #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}#
+ #{marksvec _hoQGWMnyQPAh3k2jhWKEm}#
+ #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#)))))
+ (cdr #{w _hoQGWMnyQPAh3k2jhWKEi}#))))))
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ (lambda (#{w1 _hoQGWMnyQPAh3k2jhWKFd}#
+ #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)
+ (let ((#{m1 _hoQGWMnyQPAh3k2jhWKFf}#
+ (car #{w1 _hoQGWMnyQPAh3k2jhWKFd}#))
+ (#{s1 _hoQGWMnyQPAh3k2jhWKFg}#
+ (cdr #{w1 _hoQGWMnyQPAh3k2jhWKFd}#)))
+ (if (null? #{m1 _hoQGWMnyQPAh3k2jhWKFf}#)
+ (if (null? #{s1 _hoQGWMnyQPAh3k2jhWKFg}#)
+ #{w2 _hoQGWMnyQPAh3k2jhWKFe}#
+ (cons (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)
+ (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFn}#
+ (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)))
+ (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFn}#)
+ #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
(append
- #{s1 _85hotwsCta0JfYIjI4Mpd}#
- #{m2 _85hotwsCta0JfYIjI4Mpk}#)))))
- (cons (let ((#{m2 _85hotwsCta0JfYIjI4Mpt}#
- (car #{w2 _85hotwsCta0JfYIjI4Mpb}#)))
- (if (null? #{m2 _85hotwsCta0JfYIjI4Mpt}#)
- #{m1 _85hotwsCta0JfYIjI4Mpc}#
+ #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
+ #{m2 _hoQGWMnyQPAh3k2jhWKFn}#)))))
+ (cons (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFw}#
+ (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)))
+ (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFw}#)
+ #{m1 _hoQGWMnyQPAh3k2jhWKFf}#
(append
- #{m1 _85hotwsCta0JfYIjI4Mpc}#
- #{m2 _85hotwsCta0JfYIjI4Mpt}#)))
- (let ((#{m2 _85hotwsCta0JfYIjI4Mp2}#
- (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#)))
- (if (null? #{m2 _85hotwsCta0JfYIjI4Mp2}#)
- #{s1 _85hotwsCta0JfYIjI4Mpd}#
+ #{m1 _hoQGWMnyQPAh3k2jhWKFf}#
+ #{m2 _hoQGWMnyQPAh3k2jhWKFw}#)))
+ (let ((#{m2 _hoQGWMnyQPAh3k2jhWKF5}#
+ (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)))
+ (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKF5}#)
+ #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
(append
- #{s1 _85hotwsCta0JfYIjI4Mpd}#
- #{m2 _85hotwsCta0JfYIjI4Mp2}#))))))))
- (#{same-marks? _85hotwsCta0JfYIjI4J35}#
- (lambda (#{x _85hotwsCta0JfYIjI4Mp7}#
- #{y _85hotwsCta0JfYIjI4Mp8}#)
- (if (eq? #{x _85hotwsCta0JfYIjI4Mp7}#
- #{y _85hotwsCta0JfYIjI4Mp8}#)
- (eq? #{x _85hotwsCta0JfYIjI4Mp7}#
- #{y _85hotwsCta0JfYIjI4Mp8}#)
- (if (not (null? #{x _85hotwsCta0JfYIjI4Mp7}#))
- (if (not (null? #{y _85hotwsCta0JfYIjI4Mp8}#))
- (if (eq? (car #{x _85hotwsCta0JfYIjI4Mp7}#)
- (car #{y _85hotwsCta0JfYIjI4Mp8}#))
- (#{same-marks? _85hotwsCta0JfYIjI4J35}#
- (cdr #{x _85hotwsCta0JfYIjI4Mp7}#)
- (cdr #{y _85hotwsCta0JfYIjI4Mp8}#))
+ #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
+ #{m2 _hoQGWMnyQPAh3k2jhWKF5}#))))))))
+ (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWKF$}#
+ #{y _hoQGWMnyQPAh3k2jhWKF@}#)
+ (if (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}#
+ #{y _hoQGWMnyQPAh3k2jhWKF@}#)
+ (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}#
+ #{y _hoQGWMnyQPAh3k2jhWKF@}#)
+ (if (not (null? #{x _hoQGWMnyQPAh3k2jhWKF$}#))
+ (if (not (null? #{y _hoQGWMnyQPAh3k2jhWKF@}#))
+ (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWKF$}#)
+ (car #{y _hoQGWMnyQPAh3k2jhWKF@}#))
+ (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWKF$}#)
+ (cdr #{y _hoQGWMnyQPAh3k2jhWKF@}#))
#f)
#f)
#f))))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- (lambda (#{id _85hotwsCta0JfYIjI4MqE}#
- #{w _85hotwsCta0JfYIjI4MqF}#)
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWKGH}#
+ #{w _hoQGWMnyQPAh3k2jhWKGI}#)
(letrec*
- ((#{search _85hotwsCta0JfYIjI4MqG}#
- (lambda (#{sym _85hotwsCta0JfYIjI4MrD}#
- #{subst _85hotwsCta0JfYIjI4MrE}#
- #{marks _85hotwsCta0JfYIjI4MrF}#)
- (if (null? #{subst _85hotwsCta0JfYIjI4MrE}#)
- (values #f #{marks _85hotwsCta0JfYIjI4MrF}#)
- (let ((#{fst _85hotwsCta0JfYIjI4MrG}#
- (car #{subst _85hotwsCta0JfYIjI4MrE}#)))
- (if (eq? #{fst _85hotwsCta0JfYIjI4MrG}# 'shift)
- (#{search _85hotwsCta0JfYIjI4MqG}#
- #{sym _85hotwsCta0JfYIjI4MrD}#
- (cdr #{subst _85hotwsCta0JfYIjI4MrE}#)
- (cdr #{marks _85hotwsCta0JfYIjI4MrF}#))
- (let ((#{symnames _85hotwsCta0JfYIjI4MrI}#
- (vector-ref #{fst _85hotwsCta0JfYIjI4MrG}# 1)))
- (if (vector? #{symnames _85hotwsCta0JfYIjI4MrI}#)
- (let ((#{n _85hotwsCta0JfYIjI4MrU}#
+ ((#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ (lambda (#{sym _hoQGWMnyQPAh3k2jhWKHG}#
+ #{subst _hoQGWMnyQPAh3k2jhWKHH}#
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
+ (if (null? #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
+ (values #f #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
+ (let ((#{fst _hoQGWMnyQPAh3k2jhWKHJ}#
+ (car #{subst _hoQGWMnyQPAh3k2jhWKHH}#)))
+ (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 'shift)
+ (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ #{sym _hoQGWMnyQPAh3k2jhWKHG}#
+ (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
+ (cdr #{marks _hoQGWMnyQPAh3k2jhWKHI}#))
+ (let ((#{symnames _hoQGWMnyQPAh3k2jhWKHL}#
+ (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 1)))
+ (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKHL}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWKHX}#
(vector-length
- #{symnames _85hotwsCta0JfYIjI4MrI}#)))
+ #{symnames _hoQGWMnyQPAh3k2jhWKHL}#)))
(letrec*
- ((#{f _85hotwsCta0JfYIjI4MrV}#
- (lambda (#{i _85hotwsCta0JfYIjI4MrX}#)
- (if (= #{i _85hotwsCta0JfYIjI4MrX}#
- #{n _85hotwsCta0JfYIjI4MrU}#)
- (#{search _85hotwsCta0JfYIjI4MqG}#
- #{sym _85hotwsCta0JfYIjI4MrD}#
- (cdr #{subst _85hotwsCta0JfYIjI4MrE}#)
- #{marks _85hotwsCta0JfYIjI4MrF}#)
+ ((#{f _hoQGWMnyQPAh3k2jhWKHY}#
+ (lambda (#{i _hoQGWMnyQPAh3k2jhWKHa}#)
+ (if (= #{i _hoQGWMnyQPAh3k2jhWKHa}#
+ #{n _hoQGWMnyQPAh3k2jhWKHX}#)
+ (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ #{sym _hoQGWMnyQPAh3k2jhWKHG}#
+ (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
(if (if (eq? (vector-ref
- #{symnames _85hotwsCta0JfYIjI4MrI}#
- #{i _85hotwsCta0JfYIjI4MrX}#)
- #{sym _85hotwsCta0JfYIjI4MrD}#)
- (#{same-marks? _85hotwsCta0JfYIjI4J35}#
- #{marks _85hotwsCta0JfYIjI4MrF}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKHL}#
+ #{i _hoQGWMnyQPAh3k2jhWKHa}#)
+ #{sym _hoQGWMnyQPAh3k2jhWKHG}#)
+ (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#
(vector-ref
(vector-ref
- #{fst _85hotwsCta0JfYIjI4MrG}#
+ #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
2)
- #{i _85hotwsCta0JfYIjI4MrX}#))
+ #{i _hoQGWMnyQPAh3k2jhWKHa}#))
#f)
(values
(vector-ref
(vector-ref
- #{fst _85hotwsCta0JfYIjI4MrG}#
+ #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
3)
- #{i _85hotwsCta0JfYIjI4MrX}#)
- #{marks _85hotwsCta0JfYIjI4MrF}#)
- (#{f _85hotwsCta0JfYIjI4MrV}#
- (#{1+}# #{i _85hotwsCta0JfYIjI4MrX}#)))))))
- (#{f _85hotwsCta0JfYIjI4MrV}# 0)))
+ #{i _hoQGWMnyQPAh3k2jhWKHa}#)
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
+ (#{f _hoQGWMnyQPAh3k2jhWKHY}#
+ (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKHa}#)))))))
+ (#{f _hoQGWMnyQPAh3k2jhWKHY}# 0)))
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Mr4}#
- (lambda (#{symnames _85hotwsCta0JfYIjI4Mr6}#
- #{i _85hotwsCta0JfYIjI4Mr7}#)
- (if (null? #{symnames _85hotwsCta0JfYIjI4Mr6}#)
- (#{search _85hotwsCta0JfYIjI4MqG}#
- #{sym _85hotwsCta0JfYIjI4MrD}#
- (cdr #{subst _85hotwsCta0JfYIjI4MrE}#)
- #{marks _85hotwsCta0JfYIjI4MrF}#)
- (if (if (eq? (car #{symnames _85hotwsCta0JfYIjI4Mr6}#)
- #{sym _85hotwsCta0JfYIjI4MrD}#)
- (#{same-marks? _85hotwsCta0JfYIjI4J35}#
- #{marks _85hotwsCta0JfYIjI4MrF}#
+ ((#{f _hoQGWMnyQPAh3k2jhWKH7}#
+ (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKH9}#
+ #{i _hoQGWMnyQPAh3k2jhWKH$}#)
+ (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKH9}#)
+ (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ #{sym _hoQGWMnyQPAh3k2jhWKHG}#
+ (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
+ (if (if (eq? (car #{symnames _hoQGWMnyQPAh3k2jhWKH9}#)
+ #{sym _hoQGWMnyQPAh3k2jhWKHG}#)
+ (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#
(list-ref
(vector-ref
- #{fst _85hotwsCta0JfYIjI4MrG}#
+ #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
2)
- #{i _85hotwsCta0JfYIjI4Mr7}#))
+ #{i _hoQGWMnyQPAh3k2jhWKH$}#))
#f)
(values
(list-ref
(vector-ref
- #{fst _85hotwsCta0JfYIjI4MrG}#
+ #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
3)
- #{i _85hotwsCta0JfYIjI4Mr7}#)
- #{marks _85hotwsCta0JfYIjI4MrF}#)
- (#{f _85hotwsCta0JfYIjI4Mr4}#
- (cdr #{symnames _85hotwsCta0JfYIjI4Mr6}#)
- (#{1+}# #{i _85hotwsCta0JfYIjI4Mr7}#)))))))
- (#{f _85hotwsCta0JfYIjI4Mr4}#
- #{symnames _85hotwsCta0JfYIjI4MrI}#
+ #{i _hoQGWMnyQPAh3k2jhWKH$}#)
+ #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
+ (#{f _hoQGWMnyQPAh3k2jhWKH7}#
+ (cdr #{symnames _hoQGWMnyQPAh3k2jhWKH9}#)
+ (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKH$}#)))))))
+ (#{f _hoQGWMnyQPAh3k2jhWKH7}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKHL}#
0))))))))))
- (if (symbol? #{id _85hotwsCta0JfYIjI4MqE}#)
- (let ((#{t _85hotwsCta0JfYIjI4MqJ}#
- (#{search _85hotwsCta0JfYIjI4MqG}#
- #{id _85hotwsCta0JfYIjI4MqE}#
- (cdr #{w _85hotwsCta0JfYIjI4MqF}#)
- (car #{w _85hotwsCta0JfYIjI4MqF}#))))
- (if #{t _85hotwsCta0JfYIjI4MqJ}#
- #{t _85hotwsCta0JfYIjI4MqJ}#
- #{id _85hotwsCta0JfYIjI4MqE}#))
- (if (if (vector? #{id _85hotwsCta0JfYIjI4MqE}#)
- (if (= (vector-length #{id _85hotwsCta0JfYIjI4MqE}#)
+ (if (symbol? #{id _hoQGWMnyQPAh3k2jhWKGH}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWKGM}#
+ (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ #{id _hoQGWMnyQPAh3k2jhWKGH}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#)
+ (car #{w _hoQGWMnyQPAh3k2jhWKGI}#))))
+ (if #{t _hoQGWMnyQPAh3k2jhWKGM}#
+ #{t _hoQGWMnyQPAh3k2jhWKGM}#
+ #{id _hoQGWMnyQPAh3k2jhWKGH}#))
+ (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWKGH}#)
+ (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWKGH}#)
4)
- (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 0)
+ (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 0)
'syntax-object)
#f)
#f)
- (let ((#{id _85hotwsCta0JfYIjI4MqY}#
- (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 1))
- (#{w1 _85hotwsCta0JfYIjI4MqZ}#
- (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 2)))
- (let ((#{marks _85hotwsCta0JfYIjI4Mqa}#
- (let ((#{m1 _85hotwsCta0JfYIjI4Mqk}#
- (car #{w _85hotwsCta0JfYIjI4MqF}#))
- (#{m2 _85hotwsCta0JfYIjI4Mql}#
- (car #{w1 _85hotwsCta0JfYIjI4MqZ}#)))
- (if (null? #{m2 _85hotwsCta0JfYIjI4Mql}#)
- #{m1 _85hotwsCta0JfYIjI4Mqk}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWKGb}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 1))
+ (#{w1 _hoQGWMnyQPAh3k2jhWKGc}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 2)))
+ (let ((#{marks _hoQGWMnyQPAh3k2jhWKGd}#
+ (let ((#{m1 _hoQGWMnyQPAh3k2jhWKGn}#
+ (car #{w _hoQGWMnyQPAh3k2jhWKGI}#))
+ (#{m2 _hoQGWMnyQPAh3k2jhWKGo}#
+ (car #{w1 _hoQGWMnyQPAh3k2jhWKGc}#)))
+ (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKGo}#)
+ #{m1 _hoQGWMnyQPAh3k2jhWKGn}#
(append
- #{m1 _85hotwsCta0JfYIjI4Mqk}#
- #{m2 _85hotwsCta0JfYIjI4Mql}#)))))
+ #{m1 _hoQGWMnyQPAh3k2jhWKGn}#
+ #{m2 _hoQGWMnyQPAh3k2jhWKGo}#)))))
(call-with-values
(lambda ()
- (#{search _85hotwsCta0JfYIjI4MqG}#
- #{id _85hotwsCta0JfYIjI4MqY}#
- (cdr #{w _85hotwsCta0JfYIjI4MqF}#)
- #{marks _85hotwsCta0JfYIjI4Mqa}#))
- (lambda (#{new-id _85hotwsCta0JfYIjI4Mq1}#
- #{marks _85hotwsCta0JfYIjI4Mq2}#)
- (if #{new-id _85hotwsCta0JfYIjI4Mq1}#
- #{new-id _85hotwsCta0JfYIjI4Mq1}#
- (let ((#{t _85hotwsCta0JfYIjI4Mq$}#
- (#{search _85hotwsCta0JfYIjI4MqG}#
- #{id _85hotwsCta0JfYIjI4MqY}#
- (cdr #{w1 _85hotwsCta0JfYIjI4MqZ}#)
- #{marks _85hotwsCta0JfYIjI4Mq2}#)))
- (if #{t _85hotwsCta0JfYIjI4Mq$}#
- #{t _85hotwsCta0JfYIjI4Mq$}#
- #{id _85hotwsCta0JfYIjI4MqY}#)))))))
+ (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ #{id _hoQGWMnyQPAh3k2jhWKGb}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#)
+ #{marks _hoQGWMnyQPAh3k2jhWKGd}#))
+ (lambda (#{new-id _hoQGWMnyQPAh3k2jhWKG4}#
+ #{marks _hoQGWMnyQPAh3k2jhWKG5}#)
+ (if #{new-id _hoQGWMnyQPAh3k2jhWKG4}#
+ #{new-id _hoQGWMnyQPAh3k2jhWKG4}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWKHB}#
+ (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
+ #{id _hoQGWMnyQPAh3k2jhWKGb}#
+ (cdr #{w1 _hoQGWMnyQPAh3k2jhWKGc}#)
+ #{marks _hoQGWMnyQPAh3k2jhWKG5}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWKHB}#
+ #{t _hoQGWMnyQPAh3k2jhWKHB}#
+ #{id _hoQGWMnyQPAh3k2jhWKGb}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id _85hotwsCta0JfYIjI4MqE}#))))))
- (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}#
- (lambda (#{w _85hotwsCta0JfYIjI4MsR}#
- #{mod _85hotwsCta0JfYIjI4MsS}#)
+ #{id _hoQGWMnyQPAh3k2jhWKGH}#))))))
+ (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}#
+ (lambda (#{w _hoQGWMnyQPAh3k2jhWKIU}#
+ #{mod _hoQGWMnyQPAh3k2jhWKIV}#)
(letrec*
- ((#{scan _85hotwsCta0JfYIjI4MsT}#
- (lambda (#{subst _85hotwsCta0JfYIjI4MsY}#
- #{results _85hotwsCta0JfYIjI4MsZ}#)
- (if (null? #{subst _85hotwsCta0JfYIjI4MsY}#)
- #{results _85hotwsCta0JfYIjI4MsZ}#
- (let ((#{fst _85hotwsCta0JfYIjI4Msa}#
- (car #{subst _85hotwsCta0JfYIjI4MsY}#)))
- (if (eq? #{fst _85hotwsCta0JfYIjI4Msa}# 'shift)
- (#{scan _85hotwsCta0JfYIjI4MsT}#
- (cdr #{subst _85hotwsCta0JfYIjI4MsY}#)
- #{results _85hotwsCta0JfYIjI4MsZ}#)
- (let ((#{symnames _85hotwsCta0JfYIjI4Msc}#
- (vector-ref #{fst _85hotwsCta0JfYIjI4Msa}# 1))
- (#{marks _85hotwsCta0JfYIjI4Msd}#
- (vector-ref #{fst _85hotwsCta0JfYIjI4Msa}# 2)))
- (if (vector? #{symnames _85hotwsCta0JfYIjI4Msc}#)
- (#{scan-vector-rib _85hotwsCta0JfYIjI4MsV}#
- #{subst _85hotwsCta0JfYIjI4MsY}#
- #{symnames _85hotwsCta0JfYIjI4Msc}#
- #{marks _85hotwsCta0JfYIjI4Msd}#
- #{results _85hotwsCta0JfYIjI4MsZ}#)
- (#{scan-list-rib _85hotwsCta0JfYIjI4MsU}#
- #{subst _85hotwsCta0JfYIjI4MsY}#
- #{symnames _85hotwsCta0JfYIjI4Msc}#
- #{marks _85hotwsCta0JfYIjI4Msd}#
- #{results _85hotwsCta0JfYIjI4MsZ}#))))))))
- (#{scan-list-rib _85hotwsCta0JfYIjI4MsU}#
- (lambda (#{subst _85hotwsCta0JfYIjI4Mt@}#
- #{symnames _85hotwsCta0JfYIjI4MuA}#
- #{marks _85hotwsCta0JfYIjI4MuB}#
- #{results _85hotwsCta0JfYIjI4MuC}#)
+ ((#{scan _hoQGWMnyQPAh3k2jhWKIW}#
+ (lambda (#{subst _hoQGWMnyQPAh3k2jhWKIb}#
+ #{results _hoQGWMnyQPAh3k2jhWKIc}#)
+ (if (null? #{subst _hoQGWMnyQPAh3k2jhWKIb}#)
+ #{results _hoQGWMnyQPAh3k2jhWKIc}#
+ (let ((#{fst _hoQGWMnyQPAh3k2jhWKId}#
+ (car #{subst _hoQGWMnyQPAh3k2jhWKIb}#)))
+ (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKId}# 'shift)
+ (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
+ (cdr #{subst _hoQGWMnyQPAh3k2jhWKIb}#)
+ #{results _hoQGWMnyQPAh3k2jhWKIc}#)
+ (let ((#{symnames _hoQGWMnyQPAh3k2jhWKIf}#
+ (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 1))
+ (#{marks _hoQGWMnyQPAh3k2jhWKIg}#
+ (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 2)))
+ (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKIf}#)
+ (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}#
+ #{subst _hoQGWMnyQPAh3k2jhWKIb}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKIf}#
+ #{marks _hoQGWMnyQPAh3k2jhWKIg}#
+ #{results _hoQGWMnyQPAh3k2jhWKIc}#)
+ (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}#
+ #{subst _hoQGWMnyQPAh3k2jhWKIb}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKIf}#
+ #{marks _hoQGWMnyQPAh3k2jhWKIg}#
+ #{results _hoQGWMnyQPAh3k2jhWKIc}#))))))))
+ (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}#
+ (lambda (#{subst _hoQGWMnyQPAh3k2jhWKKC}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKKD}#
+ #{marks _hoQGWMnyQPAh3k2jhWKKE}#
+ #{results _hoQGWMnyQPAh3k2jhWKKF}#)
(letrec*
- ((#{f _85hotwsCta0JfYIjI4MuD}#
- (lambda (#{symnames _85hotwsCta0JfYIjI4Mvn}#
- #{marks _85hotwsCta0JfYIjI4Mvo}#
- #{results _85hotwsCta0JfYIjI4Mvp}#)
- (if (null? #{symnames _85hotwsCta0JfYIjI4Mvn}#)
- (#{scan _85hotwsCta0JfYIjI4MsT}#
- (cdr #{subst _85hotwsCta0JfYIjI4Mt@}#)
- #{results _85hotwsCta0JfYIjI4Mvp}#)
- (#{f _85hotwsCta0JfYIjI4MuD}#
- (cdr #{symnames _85hotwsCta0JfYIjI4Mvn}#)
- (cdr #{marks _85hotwsCta0JfYIjI4Mvo}#)
- (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (car #{symnames _85hotwsCta0JfYIjI4Mvn}#)
- (let ((#{w _85hotwsCta0JfYIjI4Mvx}#
- (cons (car #{marks _85hotwsCta0JfYIjI4Mvo}#)
- #{subst _85hotwsCta0JfYIjI4Mt@}#)))
+ ((#{f _hoQGWMnyQPAh3k2jhWKKG}#
+ (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKLq}#
+ #{marks _hoQGWMnyQPAh3k2jhWKLr}#
+ #{results _hoQGWMnyQPAh3k2jhWKLs}#)
+ (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKLq}#)
+ (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
+ (cdr #{subst _hoQGWMnyQPAh3k2jhWKKC}#)
+ #{results _hoQGWMnyQPAh3k2jhWKLs}#)
+ (#{f _hoQGWMnyQPAh3k2jhWKKG}#
+ (cdr #{symnames _hoQGWMnyQPAh3k2jhWKLq}#)
+ (cdr #{marks _hoQGWMnyQPAh3k2jhWKLr}#)
+ (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (car #{symnames _hoQGWMnyQPAh3k2jhWKLq}#)
+ (let ((#{w _hoQGWMnyQPAh3k2jhWKL0}#
+ (cons (car #{marks _hoQGWMnyQPAh3k2jhWKLr}#)
+ #{subst _hoQGWMnyQPAh3k2jhWKKC}#)))
(cons (cons #f
- (car #{w _85hotwsCta0JfYIjI4Mvx}#))
+ (car #{w _hoQGWMnyQPAh3k2jhWKL0}#))
(cons 'shift
- (cdr #{w _85hotwsCta0JfYIjI4Mvx}#))))
- #{mod _85hotwsCta0JfYIjI4MsS}#)
- #{results _85hotwsCta0JfYIjI4Mvp}#))))))
- (#{f _85hotwsCta0JfYIjI4MuD}#
- #{symnames _85hotwsCta0JfYIjI4MuA}#
- #{marks _85hotwsCta0JfYIjI4MuB}#
- #{results _85hotwsCta0JfYIjI4MuC}#))))
- (#{scan-vector-rib _85hotwsCta0JfYIjI4MsV}#
- (lambda (#{subst _85hotwsCta0JfYIjI4Mvy}#
- #{symnames _85hotwsCta0JfYIjI4Mvz}#
- #{marks _85hotwsCta0JfYIjI4Mv0}#
- #{results _85hotwsCta0JfYIjI4Mv1}#)
- (let ((#{n _85hotwsCta0JfYIjI4Mv2}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWKL0}#))))
+ #{mod _hoQGWMnyQPAh3k2jhWKIV}#)
+ #{results _hoQGWMnyQPAh3k2jhWKLs}#))))))
+ (#{f _hoQGWMnyQPAh3k2jhWKKG}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKKD}#
+ #{marks _hoQGWMnyQPAh3k2jhWKKE}#
+ #{results _hoQGWMnyQPAh3k2jhWKKF}#))))
+ (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}#
+ (lambda (#{subst _hoQGWMnyQPAh3k2jhWKL1}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKL2}#
+ #{marks _hoQGWMnyQPAh3k2jhWKL3}#
+ #{results _hoQGWMnyQPAh3k2jhWKL4}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWKL5}#
(vector-length
- #{symnames _85hotwsCta0JfYIjI4Mvz}#)))
+ #{symnames _hoQGWMnyQPAh3k2jhWKL2}#)))
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Mv3}#
- (lambda (#{i _85hotwsCta0JfYIjI4MxK}#
- #{results _85hotwsCta0JfYIjI4MxL}#)
- (if (= #{i _85hotwsCta0JfYIjI4MxK}#
- #{n _85hotwsCta0JfYIjI4Mv2}#)
- (#{scan _85hotwsCta0JfYIjI4MsT}#
- (cdr #{subst _85hotwsCta0JfYIjI4Mvy}#)
- #{results _85hotwsCta0JfYIjI4MxL}#)
- (#{f _85hotwsCta0JfYIjI4Mv3}#
- (#{1+}# #{i _85hotwsCta0JfYIjI4MxK}#)
- (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ ((#{f _hoQGWMnyQPAh3k2jhWKL6}#
+ (lambda (#{i _hoQGWMnyQPAh3k2jhWKNN}#
+ #{results _hoQGWMnyQPAh3k2jhWKNO}#)
+ (if (= #{i _hoQGWMnyQPAh3k2jhWKNN}#
+ #{n _hoQGWMnyQPAh3k2jhWKL5}#)
+ (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
+ (cdr #{subst _hoQGWMnyQPAh3k2jhWKL1}#)
+ #{results _hoQGWMnyQPAh3k2jhWKNO}#)
+ (#{f _hoQGWMnyQPAh3k2jhWKL6}#
+ (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKNN}#)
+ (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(vector-ref
- #{symnames _85hotwsCta0JfYIjI4Mvz}#
- #{i _85hotwsCta0JfYIjI4MxK}#)
- (let ((#{w _85hotwsCta0JfYIjI4MxT}#
+ #{symnames _hoQGWMnyQPAh3k2jhWKL2}#
+ #{i _hoQGWMnyQPAh3k2jhWKNN}#)
+ (let ((#{w _hoQGWMnyQPAh3k2jhWKNW}#
(cons (vector-ref
- #{marks _85hotwsCta0JfYIjI4Mv0}#
- #{i _85hotwsCta0JfYIjI4MxK}#)
- #{subst _85hotwsCta0JfYIjI4Mvy}#)))
+ #{marks _hoQGWMnyQPAh3k2jhWKL3}#
+ #{i _hoQGWMnyQPAh3k2jhWKNN}#)
+ #{subst _hoQGWMnyQPAh3k2jhWKL1}#)))
(cons (cons #f
- (car #{w _85hotwsCta0JfYIjI4MxT}#))
+ (car #{w _hoQGWMnyQPAh3k2jhWKNW}#))
(cons 'shift
- (cdr #{w _85hotwsCta0JfYIjI4MxT}#))))
- #{mod _85hotwsCta0JfYIjI4MsS}#)
- #{results _85hotwsCta0JfYIjI4MxL}#))))))
- (#{f _85hotwsCta0JfYIjI4Mv3}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWKNW}#))))
+ #{mod _hoQGWMnyQPAh3k2jhWKIV}#)
+ #{results _hoQGWMnyQPAh3k2jhWKNO}#))))))
+ (#{f _hoQGWMnyQPAh3k2jhWKL6}#
0
- #{results _85hotwsCta0JfYIjI4Mv1}#))))))
- (#{scan _85hotwsCta0JfYIjI4MsT}#
- (cdr #{w _85hotwsCta0JfYIjI4MsR}#)
+ #{results _hoQGWMnyQPAh3k2jhWKL4}#))))))
+ (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWKIU}#)
'()))))
- (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- (lambda (#{ids _85hotwsCta0JfYIjI4MxU}#)
+ (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ (lambda (#{ids _hoQGWMnyQPAh3k2jhWKNX}#)
(if (letrec*
- ((#{all-ids? _85hotwsCta0JfYIjI4MxV}#
- (lambda (#{ids _85hotwsCta0JfYIjI4Mz3}#)
- (if (null? #{ids _85hotwsCta0JfYIjI4Mz3}#)
- (null? #{ids _85hotwsCta0JfYIjI4Mz3}#)
- (if (let ((#{x _85hotwsCta0JfYIjI4M0C}#
- (car #{ids _85hotwsCta0JfYIjI4Mz3}#)))
- (if (symbol? #{x _85hotwsCta0JfYIjI4M0C}#)
+ ((#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}#
+ (lambda (#{ids _hoQGWMnyQPAh3k2jhWKP6}#)
+ (if (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#)
+ (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#)
+ (if (let ((#{x _hoQGWMnyQPAh3k2jhWKQF}#
+ (car #{ids _hoQGWMnyQPAh3k2jhWKP6}#)))
+ (if (symbol? #{x _hoQGWMnyQPAh3k2jhWKQF}#)
#t
- (if (if (vector? #{x _85hotwsCta0JfYIjI4M0C}#)
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKQF}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4M0C}#)
+ #{x _hoQGWMnyQPAh3k2jhWKQF}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4M0C}#
+ #{x _hoQGWMnyQPAh3k2jhWKQF}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4M0C}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWKQF}# 1))
#f)))
- (#{all-ids? _85hotwsCta0JfYIjI4MxV}#
- (cdr #{ids _85hotwsCta0JfYIjI4Mz3}#))
+ (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}#
+ (cdr #{ids _hoQGWMnyQPAh3k2jhWKP6}#))
#f)))))
- (#{all-ids? _85hotwsCta0JfYIjI4MxV}#
- #{ids _85hotwsCta0JfYIjI4MxU}#))
- (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
- #{ids _85hotwsCta0JfYIjI4MxU}#)
+ (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}#
+ #{ids _hoQGWMnyQPAh3k2jhWKNX}#))
+ (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
+ #{ids _hoQGWMnyQPAh3k2jhWKNX}#)
#f)))
- (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
- (lambda (#{ids _85hotwsCta0JfYIjI4M2C}#)
+ (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
+ (lambda (#{ids _hoQGWMnyQPAh3k2jhWKSF}#)
(letrec*
- ((#{distinct? _85hotwsCta0JfYIjI4M2D}#
- (lambda (#{ids _85hotwsCta0JfYIjI4M3z}#)
- (if (null? #{ids _85hotwsCta0JfYIjI4M3z}#)
- (null? #{ids _85hotwsCta0JfYIjI4M3z}#)
- (if (not (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
- (car #{ids _85hotwsCta0JfYIjI4M3z}#)
- (cdr #{ids _85hotwsCta0JfYIjI4M3z}#)))
- (#{distinct? _85hotwsCta0JfYIjI4M2D}#
- (cdr #{ids _85hotwsCta0JfYIjI4M3z}#))
+ ((#{distinct? _hoQGWMnyQPAh3k2jhWKSG}#
+ (lambda (#{ids _hoQGWMnyQPAh3k2jhWKT2}#)
+ (if (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#)
+ (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#)
+ (if (not (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
+ (car #{ids _hoQGWMnyQPAh3k2jhWKT2}#)
+ (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#)))
+ (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}#
+ (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#))
#f)))))
- (#{distinct? _85hotwsCta0JfYIjI4M2D}#
- #{ids _85hotwsCta0JfYIjI4M2C}#))))
- (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
- (lambda (#{x _85hotwsCta0JfYIjI4M7F}#
- #{list _85hotwsCta0JfYIjI4M7G}#)
- (if (not (null? #{list _85hotwsCta0JfYIjI4M7G}#))
- (let ((#{t _85hotwsCta0JfYIjI4M7H}#
- (let ((#{j _85hotwsCta0JfYIjI4M8Y}#
- (car #{list _85hotwsCta0JfYIjI4M7G}#)))
- (if (if (if (vector? #{x _85hotwsCta0JfYIjI4M7F}#)
+ (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}#
+ #{ids _hoQGWMnyQPAh3k2jhWKSF}#))))
+ (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWKXI}#
+ #{list _hoQGWMnyQPAh3k2jhWKXJ}#)
+ (if (not (null? #{list _hoQGWMnyQPAh3k2jhWKXJ}#))
+ (let ((#{t _hoQGWMnyQPAh3k2jhWKXK}#
+ (let ((#{j _hoQGWMnyQPAh3k2jhWKYb}#
+ (car #{list _hoQGWMnyQPAh3k2jhWKXJ}#)))
+ (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKXI}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4M7F}#)
+ #{x _hoQGWMnyQPAh3k2jhWKXI}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4M7F}#
+ #{x _hoQGWMnyQPAh3k2jhWKXI}#
0)
'syntax-object)
#f)
#f)
- (if (vector? #{j _85hotwsCta0JfYIjI4M8Y}#)
+ (if (vector? #{j _hoQGWMnyQPAh3k2jhWKYb}#)
(if (= (vector-length
- #{j _85hotwsCta0JfYIjI4M8Y}#)
+ #{j _hoQGWMnyQPAh3k2jhWKYb}#)
4)
- (eq? (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 0)
+ (eq? (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 0)
'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M7F}# 1)
- (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 1))
- (#{same-marks? _85hotwsCta0JfYIjI4J35}#
- (car (vector-ref #{x _85hotwsCta0JfYIjI4M7F}# 2))
- (car (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 2)))
+ (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 1)
+ (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 1))
+ (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
+ (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 2))
+ (car (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 2)))
#f)
- (eq? #{x _85hotwsCta0JfYIjI4M7F}#
- #{j _85hotwsCta0JfYIjI4M8Y}#)))))
- (if #{t _85hotwsCta0JfYIjI4M7H}#
- #{t _85hotwsCta0JfYIjI4M7H}#
- (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
- #{x _85hotwsCta0JfYIjI4M7F}#
- (cdr #{list _85hotwsCta0JfYIjI4M7G}#))))
+ (eq? #{x _hoQGWMnyQPAh3k2jhWKXI}#
+ #{j _hoQGWMnyQPAh3k2jhWKYb}#)))))
+ (if #{t _hoQGWMnyQPAh3k2jhWKXK}#
+ #{t _hoQGWMnyQPAh3k2jhWKXK}#
+ (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
+ #{x _hoQGWMnyQPAh3k2jhWKXI}#
+ (cdr #{list _hoQGWMnyQPAh3k2jhWKXJ}#))))
#f)))
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (lambda (#{x _85hotwsCta0JfYIjI4M9E}#
- #{w _85hotwsCta0JfYIjI4M9F}#
- #{defmod _85hotwsCta0JfYIjI4M9G}#)
- (if (if (null? (car #{w _85hotwsCta0JfYIjI4M9F}#))
- (null? (cdr #{w _85hotwsCta0JfYIjI4M9F}#))
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWKZH}#
+ #{w _hoQGWMnyQPAh3k2jhWKZI}#
+ #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#)
+ (if (if (null? (car #{w _hoQGWMnyQPAh3k2jhWKZI}#))
+ (null? (cdr #{w _hoQGWMnyQPAh3k2jhWKZI}#))
#f)
- #{x _85hotwsCta0JfYIjI4M9E}#
- (if (if (vector? #{x _85hotwsCta0JfYIjI4M9E}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4M9E}#)
+ #{x _hoQGWMnyQPAh3k2jhWKZH}#
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKZH}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKZH}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression _85hotwsCta0JfYIjI4M9U}#
- (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 1))
- (#{wrap _85hotwsCta0JfYIjI4M9V}#
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4M9F}#
- (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 2)))
- (#{module _85hotwsCta0JfYIjI4M9W}#
- (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 3)))
+ (let ((#{expression _hoQGWMnyQPAh3k2jhWKZX}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 1))
+ (#{wrap _hoQGWMnyQPAh3k2jhWKZY}#
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWKZI}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 2)))
+ (#{module _hoQGWMnyQPAh3k2jhWKZZ}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 3)))
(vector
'syntax-object
- #{expression _85hotwsCta0JfYIjI4M9U}#
- #{wrap _85hotwsCta0JfYIjI4M9V}#
- #{module _85hotwsCta0JfYIjI4M9W}#))
- (if (null? #{x _85hotwsCta0JfYIjI4M9E}#)
- #{x _85hotwsCta0JfYIjI4M9E}#
+ #{expression _hoQGWMnyQPAh3k2jhWKZX}#
+ #{wrap _hoQGWMnyQPAh3k2jhWKZY}#
+ #{module _hoQGWMnyQPAh3k2jhWKZZ}#))
+ (if (null? #{x _hoQGWMnyQPAh3k2jhWKZH}#)
+ #{x _hoQGWMnyQPAh3k2jhWKZH}#
(vector
'syntax-object
- #{x _85hotwsCta0JfYIjI4M9E}#
- #{w _85hotwsCta0JfYIjI4M9F}#
- #{defmod _85hotwsCta0JfYIjI4M9G}#))))))
- (#{source-wrap _85hotwsCta0JfYIjI4J4F}#
- (lambda (#{x _85hotwsCta0JfYIjI4M9n}#
- #{w _85hotwsCta0JfYIjI4M9o}#
- #{s _85hotwsCta0JfYIjI4M9p}#
- #{defmod _85hotwsCta0JfYIjI4M9q}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{x _hoQGWMnyQPAh3k2jhWKZH}#
+ #{w _hoQGWMnyQPAh3k2jhWKZI}#
+ #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#))))))
+ (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWKZq}#
+ #{w _hoQGWMnyQPAh3k2jhWKZr}#
+ #{s _hoQGWMnyQPAh3k2jhWKZs}#
+ #{defmod _hoQGWMnyQPAh3k2jhWKZt}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{x _85hotwsCta0JfYIjI4M9n}#)
- #{s _85hotwsCta0JfYIjI4M9p}#
+ (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWKZq}#)
+ #{s _hoQGWMnyQPAh3k2jhWKZs}#
#f)
(set-source-properties!
- #{x _85hotwsCta0JfYIjI4M9n}#
- #{s _85hotwsCta0JfYIjI4M9p}#))
- #{x _85hotwsCta0JfYIjI4M9n}#)
- #{w _85hotwsCta0JfYIjI4M9o}#
- #{defmod _85hotwsCta0JfYIjI4M9q}#)))
- (#{expand-sequence _85hotwsCta0JfYIjI4J4G}#
- (lambda (#{body _85hotwsCta0JfYIjI4PNH}#
- #{r _85hotwsCta0JfYIjI4PNI}#
- #{w _85hotwsCta0JfYIjI4PNJ}#
- #{s _85hotwsCta0JfYIjI4PNK}#
- #{mod _85hotwsCta0JfYIjI4PNL}#)
- (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
- #{s _85hotwsCta0JfYIjI4PNK}#
+ #{x _hoQGWMnyQPAh3k2jhWKZq}#
+ #{s _hoQGWMnyQPAh3k2jhWKZs}#))
+ #{x _hoQGWMnyQPAh3k2jhWKZq}#)
+ #{w _hoQGWMnyQPAh3k2jhWKZr}#
+ #{defmod _hoQGWMnyQPAh3k2jhWKZt}#)))
+ (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWMpK}#
+ #{r _hoQGWMnyQPAh3k2jhWMpL}#
+ #{w _hoQGWMnyQPAh3k2jhWMpM}#
+ #{s _hoQGWMnyQPAh3k2jhWMpN}#
+ #{mod _hoQGWMnyQPAh3k2jhWMpO}#)
+ (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
+ #{s _hoQGWMnyQPAh3k2jhWMpN}#
(letrec*
- ((#{dobody _85hotwsCta0JfYIjI4POb}#
- (lambda (#{body _85hotwsCta0JfYIjI4PT5}#
- #{r _85hotwsCta0JfYIjI4PT6}#
- #{w _85hotwsCta0JfYIjI4PT7}#
- #{mod _85hotwsCta0JfYIjI4PT8}#)
- (if (null? #{body _85hotwsCta0JfYIjI4PT5}#)
+ ((#{dobody _hoQGWMnyQPAh3k2jhWMqe}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWMv8}#
+ #{r _hoQGWMnyQPAh3k2jhWMv9}#
+ #{w _hoQGWMnyQPAh3k2jhWMv$}#
+ #{mod _hoQGWMnyQPAh3k2jhWMv@}#)
+ (if (null? #{body _hoQGWMnyQPAh3k2jhWMv8}#)
'()
- (let ((#{first _85hotwsCta0JfYIjI4PT9}#
- (let ((#{e _85hotwsCta0JfYIjI4PUB}#
- (car #{body _85hotwsCta0JfYIjI4PT5}#)))
+ (let ((#{first _hoQGWMnyQPAh3k2jhWMwA}#
+ (let ((#{e _hoQGWMnyQPAh3k2jhWMwE}#
+ (car #{body _hoQGWMnyQPAh3k2jhWMv8}#)))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4PUB}#
- #{r _85hotwsCta0JfYIjI4PT6}#
- #{w _85hotwsCta0JfYIjI4PT7}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4PUB}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWMwE}#
+ #{r _hoQGWMnyQPAh3k2jhWMv9}#
+ #{w _hoQGWMnyQPAh3k2jhWMv$}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWMwE}#)
#f
- #{mod _85hotwsCta0JfYIjI4PT8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMv@}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4PUI}#
- #{value _85hotwsCta0JfYIjI4PUJ}#
- #{e _85hotwsCta0JfYIjI4PUK}#
- #{w _85hotwsCta0JfYIjI4PUL}#
- #{s _85hotwsCta0JfYIjI4PUM}#
- #{mod _85hotwsCta0JfYIjI4PUN}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4PUI}#
- #{value _85hotwsCta0JfYIjI4PUJ}#
- #{e _85hotwsCta0JfYIjI4PUK}#
- #{r _85hotwsCta0JfYIjI4PT6}#
- #{w _85hotwsCta0JfYIjI4PUL}#
- #{s _85hotwsCta0JfYIjI4PUM}#
- #{mod _85hotwsCta0JfYIjI4PUN}#))))))
- (cons #{first _85hotwsCta0JfYIjI4PT9}#
- (#{dobody _85hotwsCta0JfYIjI4POb}#
- (cdr #{body _85hotwsCta0JfYIjI4PT5}#)
- #{r _85hotwsCta0JfYIjI4PT6}#
- #{w _85hotwsCta0JfYIjI4PT7}#
- #{mod _85hotwsCta0JfYIjI4PT8}#)))))))
- (#{dobody _85hotwsCta0JfYIjI4POb}#
- #{body _85hotwsCta0JfYIjI4PNH}#
- #{r _85hotwsCta0JfYIjI4PNI}#
- #{w _85hotwsCta0JfYIjI4PNJ}#
- #{mod _85hotwsCta0JfYIjI4PNL}#)))))
- (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
- (lambda (#{body _85hotwsCta0JfYIjI4M98}#
- #{r _85hotwsCta0JfYIjI4M99}#
- #{w _85hotwsCta0JfYIjI4M9$}#
- #{s _85hotwsCta0JfYIjI4M9@}#
- #{m _85hotwsCta0JfYIjI4M$A}#
- #{esew _85hotwsCta0JfYIjI4M$B}#
- #{mod _85hotwsCta0JfYIjI4M$C}#)
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWMwL}#
+ #{value _hoQGWMnyQPAh3k2jhWMwM}#
+ #{e _hoQGWMnyQPAh3k2jhWMwN}#
+ #{w _hoQGWMnyQPAh3k2jhWMwO}#
+ #{s _hoQGWMnyQPAh3k2jhWMwP}#
+ #{mod _hoQGWMnyQPAh3k2jhWMwQ}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWMwL}#
+ #{value _hoQGWMnyQPAh3k2jhWMwM}#
+ #{e _hoQGWMnyQPAh3k2jhWMwN}#
+ #{r _hoQGWMnyQPAh3k2jhWMv9}#
+ #{w _hoQGWMnyQPAh3k2jhWMwO}#
+ #{s _hoQGWMnyQPAh3k2jhWMwP}#
+ #{mod _hoQGWMnyQPAh3k2jhWMwQ}#))))))
+ (cons #{first _hoQGWMnyQPAh3k2jhWMwA}#
+ (#{dobody _hoQGWMnyQPAh3k2jhWMqe}#
+ (cdr #{body _hoQGWMnyQPAh3k2jhWMv8}#)
+ #{r _hoQGWMnyQPAh3k2jhWMv9}#
+ #{w _hoQGWMnyQPAh3k2jhWMv$}#
+ #{mod _hoQGWMnyQPAh3k2jhWMv@}#)))))))
+ (#{dobody _hoQGWMnyQPAh3k2jhWMqe}#
+ #{body _hoQGWMnyQPAh3k2jhWMpK}#
+ #{r _hoQGWMnyQPAh3k2jhWMpL}#
+ #{w _hoQGWMnyQPAh3k2jhWMpM}#
+ #{mod _hoQGWMnyQPAh3k2jhWMpO}#)))))
+ (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWKZ@}#
+ #{r _hoQGWMnyQPAh3k2jhWKaA}#
+ #{w _hoQGWMnyQPAh3k2jhWKaB}#
+ #{s _hoQGWMnyQPAh3k2jhWKaC}#
+ #{m _hoQGWMnyQPAh3k2jhWKaD}#
+ #{esew _hoQGWMnyQPAh3k2jhWKaE}#
+ #{mod _hoQGWMnyQPAh3k2jhWKaF}#)
(letrec*
- ((#{scan _85hotwsCta0JfYIjI4M$D}#
- (lambda (#{body _85hotwsCta0JfYIjI4NAG}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NAI}#
- #{s _85hotwsCta0JfYIjI4NAJ}#
- #{m _85hotwsCta0JfYIjI4NAK}#
- #{esew _85hotwsCta0JfYIjI4NAL}#
- #{mod _85hotwsCta0JfYIjI4NAM}#
- #{exps _85hotwsCta0JfYIjI4NAN}#)
- (if (null? #{body _85hotwsCta0JfYIjI4NAG}#)
- #{exps _85hotwsCta0JfYIjI4NAN}#
+ ((#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWKcJ}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKcL}#
+ #{s _hoQGWMnyQPAh3k2jhWKcM}#
+ #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#
+ #{mod _hoQGWMnyQPAh3k2jhWKcP}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
+ (if (null? #{body _hoQGWMnyQPAh3k2jhWKcJ}#)
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e _85hotwsCta0JfYIjI4NAO}#
- (car #{body _85hotwsCta0JfYIjI4NAG}#)))
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4NAO}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NAI}#
- (let ((#{t _85hotwsCta0JfYIjI4NAS}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4NAO}#)))
- (if #{t _85hotwsCta0JfYIjI4NAS}#
- #{t _85hotwsCta0JfYIjI4NAS}#
- #{s _85hotwsCta0JfYIjI4NAJ}#))
+ (let ((#{e _hoQGWMnyQPAh3k2jhWKcR}#
+ (car #{body _hoQGWMnyQPAh3k2jhWKcJ}#)))
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWKcR}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKcL}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWKcV}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWKcR}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWKcV}#
+ #{t _hoQGWMnyQPAh3k2jhWKcV}#
+ #{s _hoQGWMnyQPAh3k2jhWKcM}#))
#f
- #{mod _85hotwsCta0JfYIjI4NAM}#
+ #{mod _hoQGWMnyQPAh3k2jhWKcP}#
#f)))
- (lambda (#{type _85hotwsCta0JfYIjI4ND9}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWKgA}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
'begin-form)
- (let ((#{tmp _85hotwsCta0JfYIjI4NEH}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgK}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4ND@}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
'(_))))
- (if #{tmp _85hotwsCta0JfYIjI4NEH}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWKgK}#
(@apply
- (lambda () #{exps _85hotwsCta0JfYIjI4NAN}#)
- #{tmp _85hotwsCta0JfYIjI4NEH}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4NEL}#
+ (lambda () #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWKgK}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgO}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4ND@}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
'(_ any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4NEL}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWKgO}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4NEP}#
- #{e2 _85hotwsCta0JfYIjI4NEQ}#)
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- (cons #{e1 _85hotwsCta0JfYIjI4NEP}#
- #{e2 _85hotwsCta0JfYIjI4NEQ}#)
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{m _85hotwsCta0JfYIjI4NAK}#
- #{esew _85hotwsCta0JfYIjI4NAL}#
- #{mod _85hotwsCta0JfYIjI4NEC}#
- #{exps _85hotwsCta0JfYIjI4NAN}#))
- #{tmp _85hotwsCta0JfYIjI4NEL}#)
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWKgS}#
+ #{e2 _hoQGWMnyQPAh3k2jhWKgT}#)
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWKgS}#
+ #{e2 _hoQGWMnyQPAh3k2jhWKgT}#)
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWKgO}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4ND@}#)))))
- (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#)))))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
'local-syntax-form)
- (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{mod _85hotwsCta0JfYIjI4NEC}#
- (lambda (#{body _85hotwsCta0JfYIjI4NEf}#
- #{r _85hotwsCta0JfYIjI4NEg}#
- #{w _85hotwsCta0JfYIjI4NEh}#
- #{s _85hotwsCta0JfYIjI4NEi}#
- #{mod _85hotwsCta0JfYIjI4NEj}#)
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- #{body _85hotwsCta0JfYIjI4NEf}#
- #{r _85hotwsCta0JfYIjI4NEg}#
- #{w _85hotwsCta0JfYIjI4NEh}#
- #{s _85hotwsCta0JfYIjI4NEi}#
- #{m _85hotwsCta0JfYIjI4NAK}#
- #{esew _85hotwsCta0JfYIjI4NAL}#
- #{mod _85hotwsCta0JfYIjI4NEj}#
- #{exps _85hotwsCta0JfYIjI4NAN}#)))
- (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWKgi}#
+ #{r _hoQGWMnyQPAh3k2jhWKgj}#
+ #{w _hoQGWMnyQPAh3k2jhWKgk}#
+ #{s _hoQGWMnyQPAh3k2jhWKgl}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgm}#)
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ #{body _hoQGWMnyQPAh3k2jhWKgi}#
+ #{r _hoQGWMnyQPAh3k2jhWKgj}#
+ #{w _hoQGWMnyQPAh3k2jhWKgk}#
+ #{s _hoQGWMnyQPAh3k2jhWKgl}#
+ #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgm}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
'eval-when-form)
- (let ((#{tmp _85hotwsCta0JfYIjI4NEo}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgr}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4ND@}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
'(_ each-any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4NEo}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWKgr}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4NEs}#
- #{e1 _85hotwsCta0JfYIjI4NEt}#
- #{e2 _85hotwsCta0JfYIjI4NEu}#)
- (let ((#{when-list _85hotwsCta0JfYIjI4NEv}#
- (#{parse-when-list _85hotwsCta0JfYIjI4J4J}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{x _85hotwsCta0JfYIjI4NEs}#))
- (#{body _85hotwsCta0JfYIjI4NEw}#
- (cons #{e1 _85hotwsCta0JfYIjI4NEt}#
- #{e2 _85hotwsCta0JfYIjI4NEu}#)))
- (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWKgv}#
+ #{e1 _hoQGWMnyQPAh3k2jhWKgw}#
+ #{e2 _hoQGWMnyQPAh3k2jhWKgx}#)
+ (let ((#{when-list _hoQGWMnyQPAh3k2jhWKgy}#
+ (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{x _hoQGWMnyQPAh3k2jhWKgv}#))
+ (#{body _hoQGWMnyQPAh3k2jhWKgz}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWKgw}#
+ #{e2 _hoQGWMnyQPAh3k2jhWKgx}#)))
+ (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'e)
(if (memq 'eval
- #{when-list _85hotwsCta0JfYIjI4NEv}#)
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- #{body _85hotwsCta0JfYIjI4NEw}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ #{body _hoQGWMnyQPAh3k2jhWKgz}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
(if (memq 'expand
- #{when-list _85hotwsCta0JfYIjI4NEv}#)
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
'c&e
'e)
'(eval)
- #{mod _85hotwsCta0JfYIjI4NEC}#
- #{exps _85hotwsCta0JfYIjI4NAN}#)
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
(begin
(if (memq 'expand
- #{when-list _85hotwsCta0JfYIjI4NEv}#)
- (let ((#{x _85hotwsCta0JfYIjI4NF9}#
- (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
- #{body _85hotwsCta0JfYIjI4NEw}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
+ (let ((#{x _hoQGWMnyQPAh3k2jhWKiA}#
+ (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
+ #{body _hoQGWMnyQPAh3k2jhWKgz}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
'e
'(eval)
- #{mod _85hotwsCta0JfYIjI4NEC}#)))
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
(primitive-eval
- #{x _85hotwsCta0JfYIjI4NF9}#)))
+ #{x _hoQGWMnyQPAh3k2jhWKiA}#)))
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#)))
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
(if (memq 'load
- #{when-list _85hotwsCta0JfYIjI4NEv}#)
- (if (let ((#{t _85hotwsCta0JfYIjI4NGX}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
+ (if (let ((#{t _hoQGWMnyQPAh3k2jhWKia}#
(memq 'compile
- #{when-list _85hotwsCta0JfYIjI4NEv}#)))
- (if #{t _85hotwsCta0JfYIjI4NGX}#
- #{t _85hotwsCta0JfYIjI4NGX}#
- (let ((#{t _85hotwsCta0JfYIjI4NHI}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWKia}#
+ #{t _hoQGWMnyQPAh3k2jhWKia}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWKjL}#
(memq 'expand
- #{when-list _85hotwsCta0JfYIjI4NEv}#)))
- (if #{t _85hotwsCta0JfYIjI4NHI}#
- #{t _85hotwsCta0JfYIjI4NHI}#
- (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWKjL}#
+ #{t _hoQGWMnyQPAh3k2jhWKjL}#
+ (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e)
(memq 'eval
- #{when-list _85hotwsCta0JfYIjI4NEv}#)
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
#f)))))
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- #{body _85hotwsCta0JfYIjI4NEw}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ #{body _hoQGWMnyQPAh3k2jhWKgz}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
'c&e
'(compile load)
- #{mod _85hotwsCta0JfYIjI4NEC}#
- #{exps _85hotwsCta0JfYIjI4NAN}#)
- (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
+ (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c)
#t
- (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e))
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- #{body _85hotwsCta0JfYIjI4NEw}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ #{body _hoQGWMnyQPAh3k2jhWKgz}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
'c
'(load)
- #{mod _85hotwsCta0JfYIjI4NEC}#
- #{exps _85hotwsCta0JfYIjI4NAN}#)
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#)))
- (if (let ((#{t _85hotwsCta0JfYIjI4NJJ}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
+ (if (let ((#{t _hoQGWMnyQPAh3k2jhWKlM}#
(memq 'compile
- #{when-list _85hotwsCta0JfYIjI4NEv}#)))
- (if #{t _85hotwsCta0JfYIjI4NJJ}#
- #{t _85hotwsCta0JfYIjI4NJJ}#
- (let ((#{t _85hotwsCta0JfYIjI4NJ6}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWKlM}#
+ #{t _hoQGWMnyQPAh3k2jhWKlM}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWKl9}#
(memq 'expand
- #{when-list _85hotwsCta0JfYIjI4NEv}#)))
- (if #{t _85hotwsCta0JfYIjI4NJ6}#
- #{t _85hotwsCta0JfYIjI4NJ6}#
- (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWKl9}#
+ #{t _hoQGWMnyQPAh3k2jhWKl9}#
+ (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e)
(memq 'eval
- #{when-list _85hotwsCta0JfYIjI4NEv}#)
+ #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
#f)))))
(begin
- (let ((#{x _85hotwsCta0JfYIjI4NL2}#
- (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
- #{body _85hotwsCta0JfYIjI4NEw}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
+ (let ((#{x _hoQGWMnyQPAh3k2jhWKn5}#
+ (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
+ #{body _hoQGWMnyQPAh3k2jhWKgz}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
'e
'(eval)
- #{mod _85hotwsCta0JfYIjI4NEC}#)))
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
(primitive-eval
- #{x _85hotwsCta0JfYIjI4NL2}#))
+ #{x _hoQGWMnyQPAh3k2jhWKn5}#))
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#))
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#))))))
- #{tmp _85hotwsCta0JfYIjI4NEo}#)
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWKgr}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4ND@}#)))
- (if (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#)))
+ (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
'define-syntax-form)
#t
- (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
'define-syntax-parameter-form))
- (let ((#{n _85hotwsCta0JfYIjI4NMk}#
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{w _85hotwsCta0JfYIjI4NEA}#))
- (#{r _85hotwsCta0JfYIjI4NMl}#
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- #{r _85hotwsCta0JfYIjI4NAH}#)))
- (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}# 'c)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWKon}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#))
+ (#{r _hoQGWMnyQPAh3k2jhWKoo}#
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#)))
+ (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c)
(if (memq 'compile
- #{esew _85hotwsCta0JfYIjI4NAL}#)
- (let ((#{e _85hotwsCta0JfYIjI4NMp}#
- (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
- #{n _85hotwsCta0JfYIjI4NMk}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NMl}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))))
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWKos}#
+ (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
+ #{n _hoQGWMnyQPAh3k2jhWKon}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKoo}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
(begin
- (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
- #{e _85hotwsCta0JfYIjI4NMp}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)
+ (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
+ #{e _hoQGWMnyQPAh3k2jhWKos}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
(if (memq 'load
- #{esew _85hotwsCta0JfYIjI4NAL}#)
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
(values
- (cons #{e _85hotwsCta0JfYIjI4NMp}#
- #{exps _85hotwsCta0JfYIjI4NAN}#))
+ (cons #{e _hoQGWMnyQPAh3k2jhWKos}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#))))
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))
(if (memq 'load
- #{esew _85hotwsCta0JfYIjI4NAL}#)
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
(values
- (cons (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
- #{n _85hotwsCta0JfYIjI4NMk}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NMl}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))
- #{exps _85hotwsCta0JfYIjI4NAN}#))
+ (cons (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
+ #{n _hoQGWMnyQPAh3k2jhWKon}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKoo}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#)))
- (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
+ (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e)
- (let ((#{e _85hotwsCta0JfYIjI4NTo}#
- (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
- #{n _85hotwsCta0JfYIjI4NMk}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NMl}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))))
+ (let ((#{e _hoQGWMnyQPAh3k2jhWKvr}#
+ (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
+ #{n _hoQGWMnyQPAh3k2jhWKon}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKoo}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
(begin
- (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
- #{e _85hotwsCta0JfYIjI4NTo}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)
+ (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
+ #{e _hoQGWMnyQPAh3k2jhWKvr}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
(values
- (cons #{e _85hotwsCta0JfYIjI4NTo}#
- #{exps _85hotwsCta0JfYIjI4NAN}#))))
+ (cons #{e _hoQGWMnyQPAh3k2jhWKvr}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))
(begin
(if (memq 'eval
- #{esew _85hotwsCta0JfYIjI4NAL}#)
- (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
- (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
- #{n _85hotwsCta0JfYIjI4NMk}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NMl}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))
- #{mod _85hotwsCta0JfYIjI4NEC}#))
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
+ (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
+ (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
+ #{n _hoQGWMnyQPAh3k2jhWKon}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKoo}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
(values
- #{exps _85hotwsCta0JfYIjI4NAN}#)))))
- (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
'define-form)
- (let ((#{n _85hotwsCta0JfYIjI4Ndj}#
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{w _85hotwsCta0JfYIjI4NEA}#)))
- (let ((#{type _85hotwsCta0JfYIjI4Ndk}#
- (car (let ((#{t _85hotwsCta0JfYIjI4Ndr}#
- (assq #{n _85hotwsCta0JfYIjI4Ndj}#
- #{r _85hotwsCta0JfYIjI4NAH}#)))
- (if #{t _85hotwsCta0JfYIjI4Ndr}#
- (cdr #{t _85hotwsCta0JfYIjI4Ndr}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWK5m}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#)))
+ (let ((#{type _hoQGWMnyQPAh3k2jhWK5n}#
+ (car (let ((#{t _hoQGWMnyQPAh3k2jhWK5u}#
+ (assq #{n _hoQGWMnyQPAh3k2jhWK5m}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWK5u}#
+ (cdr #{t _hoQGWMnyQPAh3k2jhWK5u}#)
(if (symbol?
- #{n _85hotwsCta0JfYIjI4Ndj}#)
- (let ((#{t _85hotwsCta0JfYIjI4Ndx}#
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- #{n _85hotwsCta0JfYIjI4Ndj}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)))
- (if #{t _85hotwsCta0JfYIjI4Ndx}#
- #{t _85hotwsCta0JfYIjI4Ndx}#
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWK50}#
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWK50}#
+ #{t _hoQGWMnyQPAh3k2jhWK50}#
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
'global)
#t
- (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
'core)
#t
- (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
'macro)
#t
- (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
'module-ref))))
(begin
- (if (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ (if (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c)
#t
- (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e))
(if (not (module-local-variable
(current-module)
- #{n _85hotwsCta0JfYIjI4Ndj}#))
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#))
(current-module)
#f)
#f)
- (let ((#{old _85hotwsCta0JfYIjI4NeQ}#
+ (let ((#{old _hoQGWMnyQPAh3k2jhWK6T}#
(module-variable
(current-module)
- #{n _85hotwsCta0JfYIjI4Ndj}#)))
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#)))
(if (if (variable?
- #{old _85hotwsCta0JfYIjI4NeQ}#)
+ #{old _hoQGWMnyQPAh3k2jhWK6T}#)
(variable-bound?
- #{old _85hotwsCta0JfYIjI4NeQ}#)
+ #{old _hoQGWMnyQPAh3k2jhWK6T}#)
#f)
(module-define!
(current-module)
- #{n _85hotwsCta0JfYIjI4Ndj}#
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#
(variable-ref
- #{old _85hotwsCta0JfYIjI4NeQ}#))
+ #{old _hoQGWMnyQPAh3k2jhWK6T}#))
(module-add!
(current-module)
- #{n _85hotwsCta0JfYIjI4Ndj}#
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e)
- (let ((#{x _85hotwsCta0JfYIjI4NeS}#
- (#{build-global-definition _85hotwsCta0JfYIjI4J3O}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{n _85hotwsCta0JfYIjI4Ndj}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))))
+ (let ((#{x _hoQGWMnyQPAh3k2jhWK6V}#
+ (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
(begin
- (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
- #{x _85hotwsCta0JfYIjI4NeS}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)
- #{x _85hotwsCta0JfYIjI4NeS}#))
+ (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
+ #{x _hoQGWMnyQPAh3k2jhWK6V}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
+ #{x _hoQGWMnyQPAh3k2jhWK6V}#))
(lambda ()
- (#{build-global-definition _85hotwsCta0JfYIjI4J3O}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{n _85hotwsCta0JfYIjI4Ndj}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))))
- #{exps _85hotwsCta0JfYIjI4NAN}#)))
- (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{n _hoQGWMnyQPAh3k2jhWK5m}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e _85hotwsCta0JfYIjI4ND@}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e _85hotwsCta0JfYIjI4ND@}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{mod _85hotwsCta0JfYIjI4NEC}#))))))
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))))
(values
- (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
'c&e)
- (let ((#{x _85hotwsCta0JfYIjI4NlQ}#
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4ND9}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)))
+ (let ((#{x _hoQGWMnyQPAh3k2jhWLBT}#
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
(begin
(primitive-eval
- #{x _85hotwsCta0JfYIjI4NlQ}#)
- #{x _85hotwsCta0JfYIjI4NlQ}#))
+ #{x _hoQGWMnyQPAh3k2jhWLBT}#)
+ #{x _hoQGWMnyQPAh3k2jhWLBT}#))
(lambda ()
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4ND9}#
- #{value _85hotwsCta0JfYIjI4ND$}#
- #{e _85hotwsCta0JfYIjI4ND@}#
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NEA}#
- #{s _85hotwsCta0JfYIjI4NEB}#
- #{mod _85hotwsCta0JfYIjI4NEC}#)))
- #{exps _85hotwsCta0JfYIjI4NAN}#))))))))))
- (lambda (#{exps _85hotwsCta0JfYIjI4NlZ}#)
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- (cdr #{body _85hotwsCta0JfYIjI4NAG}#)
- #{r _85hotwsCta0JfYIjI4NAH}#
- #{w _85hotwsCta0JfYIjI4NAI}#
- #{s _85hotwsCta0JfYIjI4NAJ}#
- #{m _85hotwsCta0JfYIjI4NAK}#
- #{esew _85hotwsCta0JfYIjI4NAL}#
- #{mod _85hotwsCta0JfYIjI4NAM}#
- #{exps _85hotwsCta0JfYIjI4NlZ}#)))))))
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ #{value _hoQGWMnyQPAh3k2jhWKgB}#
+ #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKgD}#
+ #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
+ #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))))))))
+ (lambda (#{exps _hoQGWMnyQPAh3k2jhWLBc}#)
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ (cdr #{body _hoQGWMnyQPAh3k2jhWKcJ}#)
+ #{r _hoQGWMnyQPAh3k2jhWKcK}#
+ #{w _hoQGWMnyQPAh3k2jhWKcL}#
+ #{s _hoQGWMnyQPAh3k2jhWKcM}#
+ #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{esew _hoQGWMnyQPAh3k2jhWKcO}#
+ #{mod _hoQGWMnyQPAh3k2jhWKcP}#
+ #{exps _hoQGWMnyQPAh3k2jhWLBc}#)))))))
(call-with-values
(lambda ()
- (#{scan _85hotwsCta0JfYIjI4M$D}#
- #{body _85hotwsCta0JfYIjI4M98}#
- #{r _85hotwsCta0JfYIjI4M99}#
- #{w _85hotwsCta0JfYIjI4M9$}#
- #{s _85hotwsCta0JfYIjI4M9@}#
- #{m _85hotwsCta0JfYIjI4M$A}#
- #{esew _85hotwsCta0JfYIjI4M$B}#
- #{mod _85hotwsCta0JfYIjI4M$C}#
+ (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
+ #{body _hoQGWMnyQPAh3k2jhWKZ@}#
+ #{r _hoQGWMnyQPAh3k2jhWKaA}#
+ #{w _hoQGWMnyQPAh3k2jhWKaB}#
+ #{s _hoQGWMnyQPAh3k2jhWKaC}#
+ #{m _hoQGWMnyQPAh3k2jhWKaD}#
+ #{esew _hoQGWMnyQPAh3k2jhWKaE}#
+ #{mod _hoQGWMnyQPAh3k2jhWKaF}#
'()))
- (lambda (#{exps _85hotwsCta0JfYIjI4M$G}#)
- (if (null? #{exps _85hotwsCta0JfYIjI4M$G}#)
+ (lambda (#{exps _hoQGWMnyQPAh3k2jhWKaJ}#)
+ (if (null? #{exps _hoQGWMnyQPAh3k2jhWKaJ}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s _85hotwsCta0JfYIjI4M9@}#)
- (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
- #{s _85hotwsCta0JfYIjI4M9@}#
+ #{s _hoQGWMnyQPAh3k2jhWKaC}#)
+ (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
+ #{s _hoQGWMnyQPAh3k2jhWKaC}#
(letrec*
- ((#{lp _85hotwsCta0JfYIjI4M$u}#
- (lambda (#{in _85hotwsCta0JfYIjI4NAC}#
- #{out _85hotwsCta0JfYIjI4NAD}#)
- (if (null? #{in _85hotwsCta0JfYIjI4NAC}#)
- #{out _85hotwsCta0JfYIjI4NAD}#
- (let ((#{e _85hotwsCta0JfYIjI4NAE}#
- (car #{in _85hotwsCta0JfYIjI4NAC}#)))
- (#{lp _85hotwsCta0JfYIjI4M$u}#
- (cdr #{in _85hotwsCta0JfYIjI4NAC}#)
+ ((#{lp _hoQGWMnyQPAh3k2jhWKax}#
+ (lambda (#{in _hoQGWMnyQPAh3k2jhWKcF}#
+ #{out _hoQGWMnyQPAh3k2jhWKcG}#)
+ (if (null? #{in _hoQGWMnyQPAh3k2jhWKcF}#)
+ #{out _hoQGWMnyQPAh3k2jhWKcG}#
+ (let ((#{e _hoQGWMnyQPAh3k2jhWKcH}#
+ (car #{in _hoQGWMnyQPAh3k2jhWKcF}#)))
+ (#{lp _hoQGWMnyQPAh3k2jhWKax}#
+ (cdr #{in _hoQGWMnyQPAh3k2jhWKcF}#)
(cons (if (procedure?
- #{e _85hotwsCta0JfYIjI4NAE}#)
- (#{e _85hotwsCta0JfYIjI4NAE}#)
- #{e _85hotwsCta0JfYIjI4NAE}#)
- #{out _85hotwsCta0JfYIjI4NAD}#)))))))
- (#{lp _85hotwsCta0JfYIjI4M$u}#
- #{exps _85hotwsCta0JfYIjI4M$G}#
+ #{e _hoQGWMnyQPAh3k2jhWKcH}#)
+ (#{e _hoQGWMnyQPAh3k2jhWKcH}#)
+ #{e _hoQGWMnyQPAh3k2jhWKcH}#)
+ #{out _hoQGWMnyQPAh3k2jhWKcG}#)))))))
+ (#{lp _hoQGWMnyQPAh3k2jhWKax}#
+ #{exps _hoQGWMnyQPAh3k2jhWKaJ}#
'())))))))))
- (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
- (lambda (#{name _85hotwsCta0JfYIjI4Nla}#
- #{e _85hotwsCta0JfYIjI4Nlb}#)
- (let ((#{exp _85hotwsCta0JfYIjI4Nlh}#
- (let ((#{fun-exp _85hotwsCta0JfYIjI4Nlr}#
+ (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLBd}#
+ #{e _hoQGWMnyQPAh3k2jhWLBe}#)
+ (let ((#{exp _hoQGWMnyQPAh3k2jhWLBk}#
+ (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWLBu}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps _85hotwsCta0JfYIjI4Nls}#
+ (#{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name _85hotwsCta0JfYIjI4Nla}#)
+ #{name _hoQGWMnyQPAh3k2jhWLBd}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e _85hotwsCta0JfYIjI4Nlb}#)))
+ #{e _hoQGWMnyQPAh3k2jhWLBe}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _85hotwsCta0JfYIjI4Nlr}#
- #{arg-exps _85hotwsCta0JfYIjI4Nls}#))))
+ #{fun-exp _hoQGWMnyQPAh3k2jhWLBu}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#))))
(begin
- (if (if (struct? #{exp _85hotwsCta0JfYIjI4Nlh}#)
- (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Nlh}#)
+ (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWLBk}#)
+ (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWLBk}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _85hotwsCta0JfYIjI4NmV}#
- (struct-ref #{exp _85hotwsCta0JfYIjI4Nlh}# 1)))
- (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4NmV}#))
- (let ((#{v _85hotwsCta0JfYIjI4Nmc}#
- (cons (cons 'name #{name _85hotwsCta0JfYIjI4Nla}#)
- #{meta _85hotwsCta0JfYIjI4NmV}#)))
+ (let ((#{meta _hoQGWMnyQPAh3k2jhWLCY}#
+ (struct-ref #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1)))
+ (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWLCY}#))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWLCf}#
+ (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWLBd}#)
+ #{meta _hoQGWMnyQPAh3k2jhWLCY}#)))
(struct-set!
- #{exp _85hotwsCta0JfYIjI4Nlh}#
+ #{exp _hoQGWMnyQPAh3k2jhWLBk}#
1
- #{v _85hotwsCta0JfYIjI4Nmc}#)))))
+ #{v _hoQGWMnyQPAh3k2jhWLCf}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name _85hotwsCta0JfYIjI4Nla}#
- #{exp _85hotwsCta0JfYIjI4Nlh}#)))))
- (#{parse-when-list _85hotwsCta0JfYIjI4J4J}#
- (lambda (#{e _85hotwsCta0JfYIjI4Nmn}#
- #{when-list _85hotwsCta0JfYIjI4Nmo}#)
- (let ((#{result _85hotwsCta0JfYIjI4Nmp}#
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{when-list _85hotwsCta0JfYIjI4Nmo}#
+ #{name _hoQGWMnyQPAh3k2jhWLBd}#
+ #{exp _hoQGWMnyQPAh3k2jhWLBk}#)))))
+ (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWLCq}#
+ #{when-list _hoQGWMnyQPAh3k2jhWLCr}#)
+ (let ((#{result _hoQGWMnyQPAh3k2jhWLCs}#
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{when-list _hoQGWMnyQPAh3k2jhWLCr}#
'(()))))
(letrec*
- ((#{lp _85hotwsCta0JfYIjI4Nmq}#
- (lambda (#{l _85hotwsCta0JfYIjI4Nng}#)
- (if (null? #{l _85hotwsCta0JfYIjI4Nng}#)
- #{result _85hotwsCta0JfYIjI4Nmp}#
- (if (let ((#{t _85hotwsCta0JfYIjI4Nni}#
- (car #{l _85hotwsCta0JfYIjI4Nng}#)))
- (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'compile)
+ ((#{lp _hoQGWMnyQPAh3k2jhWLCt}#
+ (lambda (#{l _hoQGWMnyQPAh3k2jhWLDj}#)
+ (if (null? #{l _hoQGWMnyQPAh3k2jhWLDj}#)
+ #{result _hoQGWMnyQPAh3k2jhWLCs}#
+ (if (let ((#{t _hoQGWMnyQPAh3k2jhWLDl}#
+ (car #{l _hoQGWMnyQPAh3k2jhWLDj}#)))
+ (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'compile)
#t
- (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'load)
+ (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'load)
#t
- (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'eval)
+ (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'eval)
#t
- (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'expand)))))
- (#{lp _85hotwsCta0JfYIjI4Nmq}#
- (cdr #{l _85hotwsCta0JfYIjI4Nng}#))
+ (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'expand)))))
+ (#{lp _hoQGWMnyQPAh3k2jhWLCt}#
+ (cdr #{l _hoQGWMnyQPAh3k2jhWLDj}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e _85hotwsCta0JfYIjI4Nmn}#
- (car #{l _85hotwsCta0JfYIjI4Nng}#)))))))
- (#{lp _85hotwsCta0JfYIjI4Nmq}#
- #{result _85hotwsCta0JfYIjI4Nmp}#)))))
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- (lambda (#{e _85hotwsCta0JfYIjI4Nnk}#
- #{r _85hotwsCta0JfYIjI4Nnl}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#
- #{for-car? _85hotwsCta0JfYIjI4Nnq}#)
- (if (symbol? #{e _85hotwsCta0JfYIjI4Nnk}#)
- (let ((#{n _85hotwsCta0JfYIjI4Nnr}#
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#)))
- (let ((#{b _85hotwsCta0JfYIjI4Nns}#
- (let ((#{t _85hotwsCta0JfYIjI4Nn0}#
- (assq #{n _85hotwsCta0JfYIjI4Nnr}#
- #{r _85hotwsCta0JfYIjI4Nnl}#)))
- (if #{t _85hotwsCta0JfYIjI4Nn0}#
- (cdr #{t _85hotwsCta0JfYIjI4Nn0}#)
- (if (symbol? #{n _85hotwsCta0JfYIjI4Nnr}#)
- (let ((#{t _85hotwsCta0JfYIjI4Nn6}#
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- #{n _85hotwsCta0JfYIjI4Nnr}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)))
- (if #{t _85hotwsCta0JfYIjI4Nn6}#
- #{t _85hotwsCta0JfYIjI4Nn6}#
+ #{e _hoQGWMnyQPAh3k2jhWLCq}#
+ (car #{l _hoQGWMnyQPAh3k2jhWLDj}#)))))))
+ (#{lp _hoQGWMnyQPAh3k2jhWLCt}#
+ #{result _hoQGWMnyQPAh3k2jhWLCs}#)))))
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#
+ #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)
+ (if (symbol? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWLDu}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#)))
+ (let ((#{b _hoQGWMnyQPAh3k2jhWLDv}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWLD3}#
+ (assq #{n _hoQGWMnyQPAh3k2jhWLDu}#
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWLD3}#
+ (cdr #{t _hoQGWMnyQPAh3k2jhWLD3}#)
+ (if (symbol? #{n _hoQGWMnyQPAh3k2jhWLDu}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWLD9}#
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ #{n _hoQGWMnyQPAh3k2jhWLDu}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWLD9}#
+ #{t _hoQGWMnyQPAh3k2jhWLD9}#
'(global)))
'(displaced-lexical))))))
- (let ((#{type _85hotwsCta0JfYIjI4Nnt}#
- (car #{b _85hotwsCta0JfYIjI4Nns}#)))
- (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'lexical)
+ (let ((#{type _hoQGWMnyQPAh3k2jhWLDw}#
+ (car #{b _hoQGWMnyQPAh3k2jhWLDv}#)))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'lexical)
(values
- #{type _85hotwsCta0JfYIjI4Nnt}#
- (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'global)
+ #{type _hoQGWMnyQPAh3k2jhWLDw}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'global)
(values
- #{type _85hotwsCta0JfYIjI4Nnt}#
- #{n _85hotwsCta0JfYIjI4Nnr}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'macro)
- (if #{for-car? _85hotwsCta0JfYIjI4Nnq}#
+ #{type _hoQGWMnyQPAh3k2jhWLDw}#
+ #{n _hoQGWMnyQPAh3k2jhWLDu}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'macro)
+ (if #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#
(values
- #{type _85hotwsCta0JfYIjI4Nnt}#
- (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
- (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{r _85hotwsCta0JfYIjI4Nnl}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{type _hoQGWMnyQPAh3k2jhWLDw}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
'(())
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#
#f))
(values
- #{type _85hotwsCta0JfYIjI4Nnt}#
- (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)))))))
- (if (pair? #{e _85hotwsCta0JfYIjI4Nnk}#)
- (let ((#{first _85hotwsCta0JfYIjI4NoO}#
- (car #{e _85hotwsCta0JfYIjI4Nnk}#)))
+ #{type _hoQGWMnyQPAh3k2jhWLDw}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))))))
+ (if (pair? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
+ (let ((#{first _hoQGWMnyQPAh3k2jhWLER}#
+ (car #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{first _85hotwsCta0JfYIjI4NoO}#
- #{r _85hotwsCta0JfYIjI4Nnl}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{first _hoQGWMnyQPAh3k2jhWLER}#
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#
#t))
- (lambda (#{ftype _85hotwsCta0JfYIjI4NoQ}#
- #{fval _85hotwsCta0JfYIjI4NoR}#
- #{fe _85hotwsCta0JfYIjI4NoS}#
- #{fw _85hotwsCta0JfYIjI4NoT}#
- #{fs _85hotwsCta0JfYIjI4NoU}#
- #{fmod _85hotwsCta0JfYIjI4NoV}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'lexical)
+ (lambda (#{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{fe _hoQGWMnyQPAh3k2jhWLEV}#
+ #{fw _hoQGWMnyQPAh3k2jhWLEW}#
+ #{fs _hoQGWMnyQPAh3k2jhWLEX}#
+ #{fmod _hoQGWMnyQPAh3k2jhWLEY}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'lexical)
(values
'lexical-call
- #{fval _85hotwsCta0JfYIjI4NoR}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'global)
+ #{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval _85hotwsCta0JfYIjI4NoR}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{fmod _85hotwsCta0JfYIjI4NoV}#)
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'macro)
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
- #{fval _85hotwsCta0JfYIjI4NoR}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{r _85hotwsCta0JfYIjI4Nnl}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{fmod _hoQGWMnyQPAh3k2jhWLEY}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'macro)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
+ #{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
'(())
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#
- #{for-car? _85hotwsCta0JfYIjI4Nnq}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#
+ #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'module-ref)
(call-with-values
(lambda ()
- (#{fval _85hotwsCta0JfYIjI4NoR}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{r _85hotwsCta0JfYIjI4Nnl}#
- #{w _85hotwsCta0JfYIjI4Nnm}#))
- (lambda (#{e _85hotwsCta0JfYIjI4Noq}#
- #{r _85hotwsCta0JfYIjI4Nor}#
- #{w _85hotwsCta0JfYIjI4Nos}#
- #{s _85hotwsCta0JfYIjI4Not}#
- #{mod _85hotwsCta0JfYIjI4Nou}#)
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4Noq}#
- #{r _85hotwsCta0JfYIjI4Nor}#
- #{w _85hotwsCta0JfYIjI4Nos}#
- #{s _85hotwsCta0JfYIjI4Not}#
- #{rib _85hotwsCta0JfYIjI4Nno}#
- #{mod _85hotwsCta0JfYIjI4Nou}#
- #{for-car? _85hotwsCta0JfYIjI4Nnq}#)))
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'core)
+ (#{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWLEt}#
+ #{r _hoQGWMnyQPAh3k2jhWLEu}#
+ #{w _hoQGWMnyQPAh3k2jhWLEv}#
+ #{s _hoQGWMnyQPAh3k2jhWLEw}#
+ #{mod _hoQGWMnyQPAh3k2jhWLEx}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWLEt}#
+ #{r _hoQGWMnyQPAh3k2jhWLEu}#
+ #{w _hoQGWMnyQPAh3k2jhWLEv}#
+ #{s _hoQGWMnyQPAh3k2jhWLEw}#
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ #{mod _hoQGWMnyQPAh3k2jhWLEx}#
+ #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)))
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'core)
(values
'core-form
- #{fval _85hotwsCta0JfYIjI4NoR}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'local-syntax)
(values
'local-syntax-form
- #{fval _85hotwsCta0JfYIjI4NoR}#
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{fval _hoQGWMnyQPAh3k2jhWLEU}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'begin)
(values
'begin-form
#f
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'eval-when)
(values
'eval-when-form
#f
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'define)
- (let ((#{tmp _85hotwsCta0JfYIjI4No@}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFC}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
'(_ any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4No@}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFC}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4NpD}#
- #{val _85hotwsCta0JfYIjI4NpE}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLFG}#
+ #{val _hoQGWMnyQPAh3k2jhWLFH}#)
(if (symbol?
- #{name _85hotwsCta0JfYIjI4NpD}#)
+ #{name _hoQGWMnyQPAh3k2jhWLFG}#)
#t
(if (if (vector?
- #{name _85hotwsCta0JfYIjI4NpD}#)
+ #{name _hoQGWMnyQPAh3k2jhWLFG}#)
(if (= (vector-length
- #{name _85hotwsCta0JfYIjI4NpD}#)
+ #{name _hoQGWMnyQPAh3k2jhWLFG}#)
4)
(eq? (vector-ref
- #{name _85hotwsCta0JfYIjI4NpD}#
+ #{name _hoQGWMnyQPAh3k2jhWLFG}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _85hotwsCta0JfYIjI4NpD}#
+ #{name _hoQGWMnyQPAh3k2jhWLFG}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4No@}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWLFC}#)
#f)
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Npf}#
- #{val _85hotwsCta0JfYIjI4Npg}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLFi}#
+ #{val _hoQGWMnyQPAh3k2jhWLFj}#)
(values
'define-form
- #{name _85hotwsCta0JfYIjI4Npf}#
- #{val _85hotwsCta0JfYIjI4Npg}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))
- #{tmp _85hotwsCta0JfYIjI4No@}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Nph}#
+ #{name _hoQGWMnyQPAh3k2jhWLFi}#
+ #{val _hoQGWMnyQPAh3k2jhWLFj}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLFC}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFk}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Nph}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFk}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Npl}#
- #{args _85hotwsCta0JfYIjI4Npm}#
- #{e1 _85hotwsCta0JfYIjI4Npn}#
- #{e2 _85hotwsCta0JfYIjI4Npo}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLFo}#
+ #{args _hoQGWMnyQPAh3k2jhWLFp}#
+ #{e1 _hoQGWMnyQPAh3k2jhWLFq}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLFr}#)
(if (if (symbol?
- #{name _85hotwsCta0JfYIjI4Npl}#)
+ #{name _hoQGWMnyQPAh3k2jhWLFo}#)
#t
(if (if (vector?
- #{name _85hotwsCta0JfYIjI4Npl}#)
+ #{name _hoQGWMnyQPAh3k2jhWLFo}#)
(if (= (vector-length
- #{name _85hotwsCta0JfYIjI4Npl}#)
+ #{name _hoQGWMnyQPAh3k2jhWLFo}#)
4)
(eq? (vector-ref
- #{name _85hotwsCta0JfYIjI4Npl}#
+ #{name _hoQGWMnyQPAh3k2jhWLFo}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _85hotwsCta0JfYIjI4Npl}#
+ #{name _hoQGWMnyQPAh3k2jhWLFo}#
1))
#f))
- (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
(letrec*
- ((#{lvl _85hotwsCta0JfYIjI4Nr9}#
- (lambda (#{vars _85hotwsCta0JfYIjI4Nr@}#
- #{ls _85hotwsCta0JfYIjI4NsA}#
- #{w _85hotwsCta0JfYIjI4NsB}#)
- (if (pair? #{vars _85hotwsCta0JfYIjI4Nr@}#)
- (#{lvl _85hotwsCta0JfYIjI4Nr9}#
- (cdr #{vars _85hotwsCta0JfYIjI4Nr@}#)
- (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (car #{vars _85hotwsCta0JfYIjI4Nr@}#)
- #{w _85hotwsCta0JfYIjI4NsB}#
+ ((#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
+ (lambda (#{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{ls _hoQGWMnyQPAh3k2jhWLID}#
+ #{w _hoQGWMnyQPAh3k2jhWLIE}#)
+ (if (pair? #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ (#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
+ (cdr #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (car #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{w _hoQGWMnyQPAh3k2jhWLIE}#
#f)
- #{ls _85hotwsCta0JfYIjI4NsA}#)
- #{w _85hotwsCta0JfYIjI4NsB}#)
+ #{ls _hoQGWMnyQPAh3k2jhWLID}#)
+ #{w _hoQGWMnyQPAh3k2jhWLIE}#)
(if (if (symbol?
- #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
#t
(if (if (vector?
- #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
(if (= (vector-length
- #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
4)
(eq? (vector-ref
- #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#
1))
#f))
- (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{vars _85hotwsCta0JfYIjI4Nr@}#
- #{w _85hotwsCta0JfYIjI4NsB}#
+ (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{w _hoQGWMnyQPAh3k2jhWLIE}#
#f)
- #{ls _85hotwsCta0JfYIjI4NsA}#)
- (if (null? #{vars _85hotwsCta0JfYIjI4Nr@}#)
- #{ls _85hotwsCta0JfYIjI4NsA}#
+ #{ls _hoQGWMnyQPAh3k2jhWLID}#)
+ (if (null? #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{ls _hoQGWMnyQPAh3k2jhWLID}#
(if (if (vector?
- #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
(if (= (vector-length
- #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
4)
(eq? (vector-ref
- #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#
0)
'syntax-object)
#f)
#f)
- (#{lvl _85hotwsCta0JfYIjI4Nr9}#
+ (#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
(vector-ref
- #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#
1)
- #{ls _85hotwsCta0JfYIjI4NsA}#
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4NsB}#
+ #{ls _hoQGWMnyQPAh3k2jhWLID}#
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWLIE}#
(vector-ref
- #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{vars _hoQGWMnyQPAh3k2jhWLIC}#
2)))
- (cons #{vars _85hotwsCta0JfYIjI4Nr@}#
- #{ls _85hotwsCta0JfYIjI4NsA}#))))))))
- (#{lvl _85hotwsCta0JfYIjI4Nr9}#
- #{args _85hotwsCta0JfYIjI4Npm}#
+ (cons #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{ls _hoQGWMnyQPAh3k2jhWLID}#))))))))
+ (#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
+ #{args _hoQGWMnyQPAh3k2jhWLFp}#
'()
'(()))))
#f))
- #{tmp _85hotwsCta0JfYIjI4Nph}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWLFk}#)
#f)
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Nst}#
- #{args _85hotwsCta0JfYIjI4Nsu}#
- #{e1 _85hotwsCta0JfYIjI4Nsv}#
- #{e2 _85hotwsCta0JfYIjI4Nsw}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLIw}#
+ #{args _hoQGWMnyQPAh3k2jhWLIx}#
+ #{e1 _hoQGWMnyQPAh3k2jhWLIy}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLIz}#)
(values
'define-form
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{name _85hotwsCta0JfYIjI4Nst}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
- (let ((#{e _85hotwsCta0JfYIjI4Ns2}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{name _hoQGWMnyQPAh3k2jhWLIw}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWLI5}#
(cons '#(syntax-object
lambda
((top)
"1oe")))
(hygiene
guile))
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (cons #{args _85hotwsCta0JfYIjI4Nsu}#
- (cons #{e1 _85hotwsCta0JfYIjI4Nsv}#
- #{e2 _85hotwsCta0JfYIjI4Nsw}#))
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))))
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (cons #{args _hoQGWMnyQPAh3k2jhWLIx}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWLIy}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLIz}#))
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4Ns2}#)
- #{s _85hotwsCta0JfYIjI4Nnn}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLI5}#)
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4Ns2}#
- #{s _85hotwsCta0JfYIjI4Nnn}#))
- #{e _85hotwsCta0JfYIjI4Ns2}#))
+ #{e _hoQGWMnyQPAh3k2jhWLI5}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#))
+ #{e _hoQGWMnyQPAh3k2jhWLI5}#))
'(())
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))
- #{tmp _85hotwsCta0JfYIjI4Nph}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ns9}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLFk}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJA}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
'(_ any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Ns9}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJA}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4NtB}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLJE}#)
(if (symbol?
- #{name _85hotwsCta0JfYIjI4NtB}#)
+ #{name _hoQGWMnyQPAh3k2jhWLJE}#)
#t
(if (if (vector?
- #{name _85hotwsCta0JfYIjI4NtB}#)
+ #{name _hoQGWMnyQPAh3k2jhWLJE}#)
(if (= (vector-length
- #{name _85hotwsCta0JfYIjI4NtB}#)
+ #{name _hoQGWMnyQPAh3k2jhWLJE}#)
4)
(eq? (vector-ref
- #{name _85hotwsCta0JfYIjI4NtB}#
+ #{name _hoQGWMnyQPAh3k2jhWLJE}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _85hotwsCta0JfYIjI4NtB}#
+ #{name _hoQGWMnyQPAh3k2jhWLJE}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Ns9}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWLJA}#)
#f)
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Ntc}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLJf}#)
(values
'define-form
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{name _85hotwsCta0JfYIjI4Ntc}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{name _hoQGWMnyQPAh3k2jhWLJf}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
'(#(syntax-object
if
((top)
"1oe")))
(hygiene guile)))
'(())
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))
- #{tmp _85hotwsCta0JfYIjI4Ns9}#)
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLJA}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4Nnk}#)))))))
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#)))))))
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'define-syntax)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ntv}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJy}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
'(_ any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Ntv}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJy}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Ntz}#
- #{val _85hotwsCta0JfYIjI4Nt0}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLJ2}#
+ #{val _hoQGWMnyQPAh3k2jhWLJ3}#)
(if (symbol?
- #{name _85hotwsCta0JfYIjI4Ntz}#)
+ #{name _hoQGWMnyQPAh3k2jhWLJ2}#)
#t
(if (if (vector?
- #{name _85hotwsCta0JfYIjI4Ntz}#)
+ #{name _hoQGWMnyQPAh3k2jhWLJ2}#)
(if (= (vector-length
- #{name _85hotwsCta0JfYIjI4Ntz}#)
+ #{name _hoQGWMnyQPAh3k2jhWLJ2}#)
4)
(eq? (vector-ref
- #{name _85hotwsCta0JfYIjI4Ntz}#
+ #{name _hoQGWMnyQPAh3k2jhWLJ2}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _85hotwsCta0JfYIjI4Ntz}#
+ #{name _hoQGWMnyQPAh3k2jhWLJ2}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Ntv}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWLJy}#)
#f)
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4NuP}#
- #{val _85hotwsCta0JfYIjI4NuQ}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLKS}#
+ #{val _hoQGWMnyQPAh3k2jhWLKT}#)
(values
'define-syntax-form
- #{name _85hotwsCta0JfYIjI4NuP}#
- #{val _85hotwsCta0JfYIjI4NuQ}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))
- #{tmp _85hotwsCta0JfYIjI4Ntv}#)
+ #{name _hoQGWMnyQPAh3k2jhWLKS}#
+ #{val _hoQGWMnyQPAh3k2jhWLKT}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLJy}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4Nnk}#)))
- (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
+ (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
'define-syntax-parameter)
- (let ((#{tmp _85hotwsCta0JfYIjI4Nub}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLKe}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
'(_ any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Nub}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWLKe}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Nuf}#
- #{val _85hotwsCta0JfYIjI4Nug}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLKi}#
+ #{val _hoQGWMnyQPAh3k2jhWLKj}#)
(if (symbol?
- #{name _85hotwsCta0JfYIjI4Nuf}#)
+ #{name _hoQGWMnyQPAh3k2jhWLKi}#)
#t
(if (if (vector?
- #{name _85hotwsCta0JfYIjI4Nuf}#)
+ #{name _hoQGWMnyQPAh3k2jhWLKi}#)
(if (= (vector-length
- #{name _85hotwsCta0JfYIjI4Nuf}#)
+ #{name _hoQGWMnyQPAh3k2jhWLKi}#)
4)
(eq? (vector-ref
- #{name _85hotwsCta0JfYIjI4Nuf}#
+ #{name _hoQGWMnyQPAh3k2jhWLKi}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _85hotwsCta0JfYIjI4Nuf}#
+ #{name _hoQGWMnyQPAh3k2jhWLKi}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Nub}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWLKe}#)
#f)
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4Nu7}#
- #{val _85hotwsCta0JfYIjI4Nu8}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWLK$}#
+ #{val _hoQGWMnyQPAh3k2jhWLK@}#)
(values
'define-syntax-parameter-form
- #{name _85hotwsCta0JfYIjI4Nu7}#
- #{val _85hotwsCta0JfYIjI4Nu8}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))
- #{tmp _85hotwsCta0JfYIjI4Nub}#)
+ #{name _hoQGWMnyQPAh3k2jhWLK$}#
+ #{val _hoQGWMnyQPAh3k2jhWLK@}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLKe}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4Nnk}#)))
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
(values
'call
#f
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)))))))))))))))
- (if (if (vector? #{e _85hotwsCta0JfYIjI4Nnk}#)
- (if (= (vector-length #{e _85hotwsCta0JfYIjI4Nnk}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))))))))))))))
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
+ (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWLDn}#)
4)
- (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 0)
+ (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 0)
'syntax-object)
#f)
#f)
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 1)
- #{r _85hotwsCta0JfYIjI4Nnl}#
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 2))
- (let ((#{t _85hotwsCta0JfYIjI4NvX}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4Nnk}#)))
- (if #{t _85hotwsCta0JfYIjI4NvX}#
- #{t _85hotwsCta0JfYIjI4NvX}#
- #{s _85hotwsCta0JfYIjI4Nnn}#))
- #{rib _85hotwsCta0JfYIjI4Nno}#
- (let ((#{t _85hotwsCta0JfYIjI4NzC}#
- (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 3)))
- (if #{t _85hotwsCta0JfYIjI4NzC}#
- #{t _85hotwsCta0JfYIjI4NzC}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#))
- #{for-car? _85hotwsCta0JfYIjI4Nnq}#)
- (if (self-evaluating? #{e _85hotwsCta0JfYIjI4Nnk}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 1)
+ #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 2))
+ (let ((#{t _hoQGWMnyQPAh3k2jhWLLa}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWLLa}#
+ #{t _hoQGWMnyQPAh3k2jhWLLa}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#))
+ #{rib _hoQGWMnyQPAh3k2jhWLDr}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWLPF}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 3)))
+ (if #{t _hoQGWMnyQPAh3k2jhWLPF}#
+ #{t _hoQGWMnyQPAh3k2jhWLPF}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
+ #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)
+ (if (self-evaluating? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
(values
'constant
#f
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
(values
'other
#f
- #{e _85hotwsCta0JfYIjI4Nnk}#
- #{w _85hotwsCta0JfYIjI4Nnm}#
- #{s _85hotwsCta0JfYIjI4Nnn}#
- #{mod _85hotwsCta0JfYIjI4Nnp}#)))))))
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- (lambda (#{e _85hotwsCta0JfYIjI4NzL}#
- #{r _85hotwsCta0JfYIjI4NzM}#
- #{w _85hotwsCta0JfYIjI4NzN}#
- #{mod _85hotwsCta0JfYIjI4NzO}#)
+ #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{w _hoQGWMnyQPAh3k2jhWLDp}#
+ #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))))))
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWLPO}#
+ #{r _hoQGWMnyQPAh3k2jhWLPP}#
+ #{w _hoQGWMnyQPAh3k2jhWLPQ}#
+ #{mod _hoQGWMnyQPAh3k2jhWLPR}#)
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4NzL}#
- #{r _85hotwsCta0JfYIjI4NzM}#
- #{w _85hotwsCta0JfYIjI4NzN}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4NzL}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWLPO}#
+ #{r _hoQGWMnyQPAh3k2jhWLPP}#
+ #{w _hoQGWMnyQPAh3k2jhWLPQ}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWLPO}#)
#f
- #{mod _85hotwsCta0JfYIjI4NzO}#
+ #{mod _hoQGWMnyQPAh3k2jhWLPR}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4N1p}#
- #{value _85hotwsCta0JfYIjI4N1q}#
- #{e _85hotwsCta0JfYIjI4N1r}#
- #{w _85hotwsCta0JfYIjI4N1s}#
- #{s _85hotwsCta0JfYIjI4N1t}#
- #{mod _85hotwsCta0JfYIjI4N1u}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4N1p}#
- #{value _85hotwsCta0JfYIjI4N1q}#
- #{e _85hotwsCta0JfYIjI4N1r}#
- #{r _85hotwsCta0JfYIjI4NzM}#
- #{w _85hotwsCta0JfYIjI4N1s}#
- #{s _85hotwsCta0JfYIjI4N1t}#
- #{mod _85hotwsCta0JfYIjI4N1u}#)))))
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- (lambda (#{type _85hotwsCta0JfYIjI4N1x}#
- #{value _85hotwsCta0JfYIjI4N1y}#
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'lexical)
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWLRs}#
+ #{value _hoQGWMnyQPAh3k2jhWLRt}#
+ #{e _hoQGWMnyQPAh3k2jhWLRu}#
+ #{w _hoQGWMnyQPAh3k2jhWLRv}#
+ #{s _hoQGWMnyQPAh3k2jhWLRw}#
+ #{mod _hoQGWMnyQPAh3k2jhWLRx}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWLRs}#
+ #{value _hoQGWMnyQPAh3k2jhWLRt}#
+ #{e _hoQGWMnyQPAh3k2jhWLRu}#
+ #{r _hoQGWMnyQPAh3k2jhWLPP}#
+ #{w _hoQGWMnyQPAh3k2jhWLRv}#
+ #{s _hoQGWMnyQPAh3k2jhWLRw}#
+ #{mod _hoQGWMnyQPAh3k2jhWLRx}#)))))
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWLR0}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s _85hotwsCta0JfYIjI4N12}#
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{value _85hotwsCta0JfYIjI4N1y}#)
- (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#)
+ (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core)
#t
- (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core-form))
- (#{value _85hotwsCta0JfYIjI4N1y}#
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core-form))
+ (#{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'module-ref)
(call-with-values
(lambda ()
- (#{value _85hotwsCta0JfYIjI4N1y}#
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#))
- (lambda (#{e _85hotwsCta0JfYIjI4N2R}#
- #{r _85hotwsCta0JfYIjI4N2S}#
- #{w _85hotwsCta0JfYIjI4N2T}#
- #{s _85hotwsCta0JfYIjI4N2U}#
- #{mod _85hotwsCta0JfYIjI4N2V}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4N2R}#
- #{r _85hotwsCta0JfYIjI4N2S}#
- #{w _85hotwsCta0JfYIjI4N2T}#
- #{mod _85hotwsCta0JfYIjI4N2V}#)))
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ (#{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWLSU}#
+ #{r _hoQGWMnyQPAh3k2jhWLSV}#
+ #{w _hoQGWMnyQPAh3k2jhWLSW}#
+ #{s _hoQGWMnyQPAh3k2jhWLSX}#
+ #{mod _hoQGWMnyQPAh3k2jhWLSY}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWLSU}#
+ #{r _hoQGWMnyQPAh3k2jhWLSV}#
+ #{w _hoQGWMnyQPAh3k2jhWLSW}#
+ #{mod _hoQGWMnyQPAh3k2jhWLSY}#)))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'lexical-call)
- (#{expand-application _85hotwsCta0JfYIjI4J4N}#
- (let ((#{id _85hotwsCta0JfYIjI4N3g}#
- (car #{e _85hotwsCta0JfYIjI4N1z}#)))
- (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}#
+ (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWLTj}#
+ (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)))
+ (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}#
'fun
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{id _85hotwsCta0JfYIjI4N3g}#)
- (if (if (vector? #{id _85hotwsCta0JfYIjI4N3g}#)
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{id _hoQGWMnyQPAh3k2jhWLTj}#)
+ (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWLTj}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4N3g}#)
+ #{id _hoQGWMnyQPAh3k2jhWLTj}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4N3g}#
+ #{id _hoQGWMnyQPAh3k2jhWLTj}#
0)
'syntax-object)
#f)
#f)
- (syntax->datum #{id _85hotwsCta0JfYIjI4N3g}#)
- #{id _85hotwsCta0JfYIjI4N3g}#)
- #{value _85hotwsCta0JfYIjI4N1y}#))
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ (syntax->datum #{id _hoQGWMnyQPAh3k2jhWLTj}#)
+ #{id _hoQGWMnyQPAh3k2jhWLTj}#)
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'global-call)
- (#{expand-application _85hotwsCta0JfYIjI4J4N}#
- (#{build-global-reference _85hotwsCta0JfYIjI4J3M}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- (car #{e _85hotwsCta0JfYIjI4N1z}#))
- (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#)
+ (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}#
+ (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ (car #{e _hoQGWMnyQPAh3k2jhWLR2}#))
+ (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#)
(if (= (vector-length
- #{value _85hotwsCta0JfYIjI4N1y}#)
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#)
4)
(eq? (vector-ref
- #{value _85hotwsCta0JfYIjI4N1y}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 1)
- #{value _85hotwsCta0JfYIjI4N1y}#)
- (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#)
+ (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 1)
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#)
+ (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#)
(if (= (vector-length
- #{value _85hotwsCta0JfYIjI4N1y}#)
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#)
4)
(eq? (vector-ref
- #{value _85hotwsCta0JfYIjI4N1y}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 3)
- #{mod _85hotwsCta0JfYIjI4N13}#))
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'constant)
- (let ((#{exp _85hotwsCta0JfYIjI4N8x}#
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 3)
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'constant)
+ (let ((#{exp _hoQGWMnyQPAh3k2jhWLY0}#
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
- #{s _85hotwsCta0JfYIjI4N12}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{s _85hotwsCta0JfYIjI4N12}#))
- #{e _85hotwsCta0JfYIjI4N1z}#)
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s _85hotwsCta0JfYIjI4N12}#
- #{exp _85hotwsCta0JfYIjI4N8x}#))
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'global)
- (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
- #{mod _85hotwsCta0JfYIjI4N13}#
- #{value _85hotwsCta0JfYIjI4N1y}#
- (lambda (#{mod _85hotwsCta0JfYIjI4N9V}#
- #{var _85hotwsCta0JfYIjI4N9W}#
- #{public? _85hotwsCta0JfYIjI4N9X}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{exp _hoQGWMnyQPAh3k2jhWLY0}#))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global)
+ (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWLZY}#
+ #{var _hoQGWMnyQPAh3k2jhWLZZ}#
+ #{public? _hoQGWMnyQPAh3k2jhWLZa}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N9V}#
- #{var _85hotwsCta0JfYIjI4N9W}#
- #{public? _85hotwsCta0JfYIjI4N9X}#))
- (lambda (#{var _85hotwsCta0JfYIjI4N9g}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLZY}#
+ #{var _hoQGWMnyQPAh3k2jhWLZZ}#
+ #{public? _hoQGWMnyQPAh3k2jhWLZa}#))
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWLZj}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s _85hotwsCta0JfYIjI4N12}#
- #{var _85hotwsCta0JfYIjI4N9g}#)))
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'call)
- (#{expand-application _85hotwsCta0JfYIjI4J4N}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- (car #{e _85hotwsCta0JfYIjI4N1z}#)
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{var _hoQGWMnyQPAh3k2jhWLZj}#)))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'call)
+ (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'begin-form)
- (let ((#{tmp _85hotwsCta0JfYIjI4N$r}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLau}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4N1z}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
'(_ any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4N$r}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWLau}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4N$v}#
- #{e2 _85hotwsCta0JfYIjI4N$w}#)
- (#{expand-sequence _85hotwsCta0JfYIjI4J4G}#
- (cons #{e1 _85hotwsCta0JfYIjI4N$v}#
- #{e2 _85hotwsCta0JfYIjI4N$w}#)
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#))
- #{tmp _85hotwsCta0JfYIjI4N$r}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OAH}#
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLay}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLaz}#)
+ (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWLay}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLaz}#)
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLau}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLcK}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4N1z}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
'(_))))
- (if #{tmp _85hotwsCta0JfYIjI4OAH}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWLcK}#
(@apply
(lambda ()
(if (include-deprecated-features)
(syntax-violation
#f
"sequence of zero expressions"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
- #{s _85hotwsCta0JfYIjI4N12}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{s _85hotwsCta0JfYIjI4N12}#))
- #{e _85hotwsCta0JfYIjI4N1z}#)
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#))))
- #{tmp _85hotwsCta0JfYIjI4OAH}#)
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWLcK}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4N1z}#)))))
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)))))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'local-syntax-form)
- (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
- #{value _85hotwsCta0JfYIjI4N1y}#
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#
- #{expand-sequence _85hotwsCta0JfYIjI4J4G}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#
+ #{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'eval-when-form)
- (let ((#{tmp _85hotwsCta0JfYIjI4OB2}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLd5}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4N1z}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
'(_ each-any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4OB2}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWLd5}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4OB6}#
- #{e1 _85hotwsCta0JfYIjI4OB7}#
- #{e2 _85hotwsCta0JfYIjI4OB8}#)
- (let ((#{when-list _85hotwsCta0JfYIjI4OB9}#
- (#{parse-when-list _85hotwsCta0JfYIjI4J4J}#
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{x _85hotwsCta0JfYIjI4OB6}#)))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWLd9}#
+ #{e1 _hoQGWMnyQPAh3k2jhWLd$}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLd@}#)
+ (let ((#{when-list _hoQGWMnyQPAh3k2jhWLeA}#
+ (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{x _hoQGWMnyQPAh3k2jhWLd9}#)))
(if (memq 'eval
- #{when-list _85hotwsCta0JfYIjI4OB9}#)
- (#{expand-sequence _85hotwsCta0JfYIjI4J4G}#
- (cons #{e1 _85hotwsCta0JfYIjI4OB7}#
- #{e2 _85hotwsCta0JfYIjI4OB8}#)
- #{r _85hotwsCta0JfYIjI4N10}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{s _85hotwsCta0JfYIjI4N12}#
- #{mod _85hotwsCta0JfYIjI4N13}#)
+ #{when-list _hoQGWMnyQPAh3k2jhWLeA}#)
+ (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWLd$}#
+ #{e2 _hoQGWMnyQPAh3k2jhWLd@}#)
+ #{r _hoQGWMnyQPAh3k2jhWLR3}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp _85hotwsCta0JfYIjI4OB2}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWLd5}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4N1z}#)))
- (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)))
+ (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'define-form)
#t
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'define-syntax-form)
#t
- (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e _85hotwsCta0JfYIjI4N1z}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{value _85hotwsCta0JfYIjI4N1y}#
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#))
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
- #{s _85hotwsCta0JfYIjI4N12}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{s _85hotwsCta0JfYIjI4N12}#))
- #{e _85hotwsCta0JfYIjI4N1z}#)
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#))
- (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
- #{s _85hotwsCta0JfYIjI4N12}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{s _85hotwsCta0JfYIjI4N12}#))
- #{e _85hotwsCta0JfYIjI4N1z}#)
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
- #{s _85hotwsCta0JfYIjI4N12}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4N1z}#
- #{s _85hotwsCta0JfYIjI4N12}#))
- #{e _85hotwsCta0JfYIjI4N1z}#)
- #{w _85hotwsCta0JfYIjI4N11}#
- #{mod _85hotwsCta0JfYIjI4N13}#))))))))))))))))))
- (#{expand-application _85hotwsCta0JfYIjI4J4N}#
- (lambda (#{x _85hotwsCta0JfYIjI4OFt}#
- #{e _85hotwsCta0JfYIjI4OFu}#
- #{r _85hotwsCta0JfYIjI4OFv}#
- #{w _85hotwsCta0JfYIjI4OFw}#
- #{s _85hotwsCta0JfYIjI4OFx}#
- #{mod _85hotwsCta0JfYIjI4OFy}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OF0}#
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{s _hoQGWMnyQPAh3k2jhWLR5}#))
+ #{e _hoQGWMnyQPAh3k2jhWLR2}#)
+ #{w _hoQGWMnyQPAh3k2jhWLR4}#
+ #{mod _hoQGWMnyQPAh3k2jhWLR6}#))))))))))))))))))
+ (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWLhw}#
+ #{e _hoQGWMnyQPAh3k2jhWLhx}#
+ #{r _hoQGWMnyQPAh3k2jhWLhy}#
+ #{w _hoQGWMnyQPAh3k2jhWLhz}#
+ #{s _hoQGWMnyQPAh3k2jhWLh0}#
+ #{mod _hoQGWMnyQPAh3k2jhWLh1}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLh3}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4OFu}#
+ #{e _hoQGWMnyQPAh3k2jhWLhx}#
'(any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4OF0}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWLh3}#
(@apply
- (lambda (#{e0 _85hotwsCta0JfYIjI4OF4}#
- #{e1 _85hotwsCta0JfYIjI4OF5}#)
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
- #{s _85hotwsCta0JfYIjI4OFx}#
- #{x _85hotwsCta0JfYIjI4OFt}#
- (map (lambda (#{e _85hotwsCta0JfYIjI4OHJ}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{e _85hotwsCta0JfYIjI4OHJ}#
- #{r _85hotwsCta0JfYIjI4OFv}#
- #{w _85hotwsCta0JfYIjI4OFw}#
- #{mod _85hotwsCta0JfYIjI4OFy}#))
- #{e1 _85hotwsCta0JfYIjI4OF5}#)))
- #{tmp _85hotwsCta0JfYIjI4OF0}#)
+ (lambda (#{e0 _hoQGWMnyQPAh3k2jhWLh7}#
+ #{e1 _hoQGWMnyQPAh3k2jhWLh8}#)
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ #{s _hoQGWMnyQPAh3k2jhWLh0}#
+ #{x _hoQGWMnyQPAh3k2jhWLhw}#
+ (map (lambda (#{e _hoQGWMnyQPAh3k2jhWLjM}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{e _hoQGWMnyQPAh3k2jhWLjM}#
+ #{r _hoQGWMnyQPAh3k2jhWLhy}#
+ #{w _hoQGWMnyQPAh3k2jhWLhz}#
+ #{mod _hoQGWMnyQPAh3k2jhWLh1}#))
+ #{e1 _hoQGWMnyQPAh3k2jhWLh8}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWLh3}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4OFu}#)))))
- (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
- (lambda (#{p _85hotwsCta0JfYIjI4OIV}#
- #{e _85hotwsCta0JfYIjI4OIW}#
- #{r _85hotwsCta0JfYIjI4OIX}#
- #{w _85hotwsCta0JfYIjI4OIY}#
- #{s _85hotwsCta0JfYIjI4OIZ}#
- #{rib _85hotwsCta0JfYIjI4OIa}#
- #{mod _85hotwsCta0JfYIjI4OIb}#)
+ #{e _hoQGWMnyQPAh3k2jhWLhx}#)))))
+ (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWLkY}#
+ #{e _hoQGWMnyQPAh3k2jhWLkZ}#
+ #{r _hoQGWMnyQPAh3k2jhWLka}#
+ #{w _hoQGWMnyQPAh3k2jhWLkb}#
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#
+ #{rib _hoQGWMnyQPAh3k2jhWLkd}#
+ #{mod _hoQGWMnyQPAh3k2jhWLke}#)
(letrec*
- ((#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
- (lambda (#{x _85hotwsCta0JfYIjI4OI9}#
- #{m _85hotwsCta0JfYIjI4OI$}#)
- (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#)
- (let ((#{e _85hotwsCta0JfYIjI4OJC}#
- (cons (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
- (car #{x _85hotwsCta0JfYIjI4OI9}#)
- #{m _85hotwsCta0JfYIjI4OI$}#)
- (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
- (cdr #{x _85hotwsCta0JfYIjI4OI9}#)
- #{m _85hotwsCta0JfYIjI4OI$}#))))
+ ((#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWLlA}#
+ #{m _hoQGWMnyQPAh3k2jhWLlB}#)
+ (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWLlF}#
+ (cons (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
+ (car #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ #{m _hoQGWMnyQPAh3k2jhWLlB}#)
+ (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ #{m _hoQGWMnyQPAh3k2jhWLlB}#))))
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OJC}#)
- #{s _85hotwsCta0JfYIjI4OIZ}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlF}#)
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OJC}#
- #{s _85hotwsCta0JfYIjI4OIZ}#))
- #{e _85hotwsCta0JfYIjI4OJC}#))
- (if (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4OI9}#)
+ #{e _hoQGWMnyQPAh3k2jhWLlF}#
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#))
+ #{e _hoQGWMnyQPAh3k2jhWLlF}#))
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 0)
'syntax-object)
#f)
#f)
- (let ((#{w _85hotwsCta0JfYIjI4OJS}#
- (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 2)))
- (let ((#{ms _85hotwsCta0JfYIjI4OJT}#
- (car #{w _85hotwsCta0JfYIjI4OJS}#))
- (#{s _85hotwsCta0JfYIjI4OJU}#
- (cdr #{w _85hotwsCta0JfYIjI4OJS}#)))
- (if (if (pair? #{ms _85hotwsCta0JfYIjI4OJT}#)
- (eq? (car #{ms _85hotwsCta0JfYIjI4OJT}#) #f)
+ (let ((#{w _hoQGWMnyQPAh3k2jhWLlV}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 2)))
+ (let ((#{ms _hoQGWMnyQPAh3k2jhWLlW}#
+ (car #{w _hoQGWMnyQPAh3k2jhWLlV}#))
+ (#{s _hoQGWMnyQPAh3k2jhWLlX}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWLlV}#)))
+ (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWLlW}#)
+ (eq? (car #{ms _hoQGWMnyQPAh3k2jhWLlW}#) #f)
#f)
- (let ((#{expression _85hotwsCta0JfYIjI4OJc}#
- (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 1))
- (#{wrap _85hotwsCta0JfYIjI4OJd}#
- (cons (cdr #{ms _85hotwsCta0JfYIjI4OJT}#)
- (if #{rib _85hotwsCta0JfYIjI4OIa}#
- (cons #{rib _85hotwsCta0JfYIjI4OIa}#
- (cdr #{s _85hotwsCta0JfYIjI4OJU}#))
- (cdr #{s _85hotwsCta0JfYIjI4OJU}#))))
- (#{module _85hotwsCta0JfYIjI4OJe}#
- (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3)))
+ (let ((#{expression _hoQGWMnyQPAh3k2jhWLlf}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 1))
+ (#{wrap _hoQGWMnyQPAh3k2jhWLlg}#
+ (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWLlW}#)
+ (if #{rib _hoQGWMnyQPAh3k2jhWLkd}#
+ (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}#
+ (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#))
+ (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#))))
+ (#{module _hoQGWMnyQPAh3k2jhWLlh}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3)))
(vector
'syntax-object
- #{expression _85hotwsCta0JfYIjI4OJc}#
- #{wrap _85hotwsCta0JfYIjI4OJd}#
- #{module _85hotwsCta0JfYIjI4OJe}#))
- (let ((#{expression _85hotwsCta0JfYIjI4OJo}#
- (let ((#{e _85hotwsCta0JfYIjI4OJt}#
+ #{expression _hoQGWMnyQPAh3k2jhWLlf}#
+ #{wrap _hoQGWMnyQPAh3k2jhWLlg}#
+ #{module _hoQGWMnyQPAh3k2jhWLlh}#))
+ (let ((#{expression _hoQGWMnyQPAh3k2jhWLlr}#
+ (let ((#{e _hoQGWMnyQPAh3k2jhWLlw}#
(vector-ref
- #{x _85hotwsCta0JfYIjI4OI9}#
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#
1)))
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OJt}#)
- #{s _85hotwsCta0JfYIjI4OJU}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlw}#)
+ #{s _hoQGWMnyQPAh3k2jhWLlX}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OJt}#
- #{s _85hotwsCta0JfYIjI4OJU}#))
- #{e _85hotwsCta0JfYIjI4OJt}#)))
- (#{wrap _85hotwsCta0JfYIjI4OJp}#
- (cons (cons #{m _85hotwsCta0JfYIjI4OI$}#
- #{ms _85hotwsCta0JfYIjI4OJT}#)
- (if #{rib _85hotwsCta0JfYIjI4OIa}#
- (cons #{rib _85hotwsCta0JfYIjI4OIa}#
+ #{e _hoQGWMnyQPAh3k2jhWLlw}#
+ #{s _hoQGWMnyQPAh3k2jhWLlX}#))
+ #{e _hoQGWMnyQPAh3k2jhWLlw}#)))
+ (#{wrap _hoQGWMnyQPAh3k2jhWLls}#
+ (cons (cons #{m _hoQGWMnyQPAh3k2jhWLlB}#
+ #{ms _hoQGWMnyQPAh3k2jhWLlW}#)
+ (if #{rib _hoQGWMnyQPAh3k2jhWLkd}#
+ (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}#
(cons 'shift
- #{s _85hotwsCta0JfYIjI4OJU}#))
+ #{s _hoQGWMnyQPAh3k2jhWLlX}#))
(cons 'shift
- #{s _85hotwsCta0JfYIjI4OJU}#))))
- (#{module _85hotwsCta0JfYIjI4OJq}#
- (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3)))
+ #{s _hoQGWMnyQPAh3k2jhWLlX}#))))
+ (#{module _hoQGWMnyQPAh3k2jhWLlt}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3)))
(vector
'syntax-object
- #{expression _85hotwsCta0JfYIjI4OJo}#
- #{wrap _85hotwsCta0JfYIjI4OJp}#
- #{module _85hotwsCta0JfYIjI4OJq}#)))))
- (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#)
- (let ((#{n _85hotwsCta0JfYIjI4OJ5}#
- (vector-length #{x _85hotwsCta0JfYIjI4OI9}#)))
- (let ((#{v _85hotwsCta0JfYIjI4OJ6}#
- (let ((#{e _85hotwsCta0JfYIjI4OKC}#
+ #{expression _hoQGWMnyQPAh3k2jhWLlr}#
+ #{wrap _hoQGWMnyQPAh3k2jhWLls}#
+ #{module _hoQGWMnyQPAh3k2jhWLlt}#)))))
+ (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWLl8}#
+ (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#)))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWLl9}#
+ (let ((#{e _hoQGWMnyQPAh3k2jhWLmF}#
(make-vector
- #{n _85hotwsCta0JfYIjI4OJ5}#)))
+ #{n _hoQGWMnyQPAh3k2jhWLl8}#)))
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OKC}#)
- #{x _85hotwsCta0JfYIjI4OI9}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLmF}#)
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OKC}#
- #{x _85hotwsCta0JfYIjI4OI9}#))
- #{e _85hotwsCta0JfYIjI4OKC}#))))
+ #{e _hoQGWMnyQPAh3k2jhWLmF}#
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#))
+ #{e _hoQGWMnyQPAh3k2jhWLmF}#))))
(letrec*
- ((#{loop _85hotwsCta0JfYIjI4OJ7}#
- (lambda (#{i _85hotwsCta0JfYIjI4OKv}#)
- (if (= #{i _85hotwsCta0JfYIjI4OKv}#
- #{n _85hotwsCta0JfYIjI4OJ5}#)
- #{v _85hotwsCta0JfYIjI4OJ6}#
+ ((#{loop _hoQGWMnyQPAh3k2jhWLl$}#
+ (lambda (#{i _hoQGWMnyQPAh3k2jhWLmy}#)
+ (if (= #{i _hoQGWMnyQPAh3k2jhWLmy}#
+ #{n _hoQGWMnyQPAh3k2jhWLl8}#)
+ #{v _hoQGWMnyQPAh3k2jhWLl9}#
(begin
(vector-set!
- #{v _85hotwsCta0JfYIjI4OJ6}#
- #{i _85hotwsCta0JfYIjI4OKv}#
- (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
+ #{v _hoQGWMnyQPAh3k2jhWLl9}#
+ #{i _hoQGWMnyQPAh3k2jhWLmy}#
+ (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
(vector-ref
- #{x _85hotwsCta0JfYIjI4OI9}#
- #{i _85hotwsCta0JfYIjI4OKv}#)
- #{m _85hotwsCta0JfYIjI4OI$}#))
- (#{loop _85hotwsCta0JfYIjI4OJ7}#
- (#{1+}# #{i _85hotwsCta0JfYIjI4OKv}#)))))))
- (#{loop _85hotwsCta0JfYIjI4OJ7}# 0))))
- (if (symbol? #{x _85hotwsCta0JfYIjI4OI9}#)
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#
+ #{i _hoQGWMnyQPAh3k2jhWLmy}#)
+ #{m _hoQGWMnyQPAh3k2jhWLlB}#))
+ (#{loop _hoQGWMnyQPAh3k2jhWLl$}#
+ (#{1+}# #{i _hoQGWMnyQPAh3k2jhWLmy}#)))))))
+ (#{loop _hoQGWMnyQPAh3k2jhWLl$}# 0))))
+ (if (symbol? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s _85hotwsCta0JfYIjI4OK1}#
- (cdr #{w _85hotwsCta0JfYIjI4OIY}#)))
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (let ((#{s _hoQGWMnyQPAh3k2jhWLm4}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#)))
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#)
- #{s _85hotwsCta0JfYIjI4OK1}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
+ #{s _hoQGWMnyQPAh3k2jhWLm4}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OIW}#
- #{s _85hotwsCta0JfYIjI4OK1}#))
- #{e _85hotwsCta0JfYIjI4OIW}#)
- #{w _85hotwsCta0JfYIjI4OIY}#
- #{mod _85hotwsCta0JfYIjI4OIb}#))
- #{x _85hotwsCta0JfYIjI4OI9}#)
+ #{e _hoQGWMnyQPAh3k2jhWLkZ}#
+ #{s _hoQGWMnyQPAh3k2jhWLm4}#))
+ #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
+ #{w _hoQGWMnyQPAh3k2jhWLkb}#
+ #{mod _hoQGWMnyQPAh3k2jhWLke}#))
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#)
(begin
- (if (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#)
- #{s _85hotwsCta0JfYIjI4OIZ}#
+ (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#
#f)
(set-source-properties!
- #{x _85hotwsCta0JfYIjI4OI9}#
- #{s _85hotwsCta0JfYIjI4OIZ}#))
- #{x _85hotwsCta0JfYIjI4OI9}#))))))))
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#))
+ #{x _hoQGWMnyQPAh3k2jhWLlA}#))))))))
(with-fluids
- ((#{transformer-environment _85hotwsCta0JfYIjI4J39}#
- (lambda (#{k _85hotwsCta0JfYIjI4OId}#)
- (#{k _85hotwsCta0JfYIjI4OId}#
- #{e _85hotwsCta0JfYIjI4OIW}#
- #{r _85hotwsCta0JfYIjI4OIX}#
- #{w _85hotwsCta0JfYIjI4OIY}#
- #{s _85hotwsCta0JfYIjI4OIZ}#
- #{rib _85hotwsCta0JfYIjI4OIa}#
- #{mod _85hotwsCta0JfYIjI4OIb}#))))
- (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
- (#{p _85hotwsCta0JfYIjI4OIV}#
- (let ((#{w _85hotwsCta0JfYIjI4OIk}#
- (cons (cons #f (car #{w _85hotwsCta0JfYIjI4OIY}#))
+ ((#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWLkg}#)
+ (#{k _hoQGWMnyQPAh3k2jhWLkg}#
+ #{e _hoQGWMnyQPAh3k2jhWLkZ}#
+ #{r _hoQGWMnyQPAh3k2jhWLka}#
+ #{w _hoQGWMnyQPAh3k2jhWLkb}#
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#
+ #{rib _hoQGWMnyQPAh3k2jhWLkd}#
+ #{mod _hoQGWMnyQPAh3k2jhWLke}#))))
+ (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
+ (#{p _hoQGWMnyQPAh3k2jhWLkY}#
+ (let ((#{w _hoQGWMnyQPAh3k2jhWLkn}#
+ (cons (cons #f (car #{w _hoQGWMnyQPAh3k2jhWLkb}#))
(cons 'shift
- (cdr #{w _85hotwsCta0JfYIjI4OIY}#)))))
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#)))))
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#)
- #{s _85hotwsCta0JfYIjI4OIZ}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OIW}#
- #{s _85hotwsCta0JfYIjI4OIZ}#))
- #{e _85hotwsCta0JfYIjI4OIW}#)
- #{w _85hotwsCta0JfYIjI4OIk}#
- #{mod _85hotwsCta0JfYIjI4OIb}#)))
+ #{e _hoQGWMnyQPAh3k2jhWLkZ}#
+ #{s _hoQGWMnyQPAh3k2jhWLkc}#))
+ #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
+ #{w _hoQGWMnyQPAh3k2jhWLkn}#
+ #{mod _hoQGWMnyQPAh3k2jhWLke}#)))
(gensym "m"))))))
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- (lambda (#{body _85hotwsCta0JfYIjI4OLV}#
- #{outer-form _85hotwsCta0JfYIjI4OLW}#
- #{r _85hotwsCta0JfYIjI4OLX}#
- #{w _85hotwsCta0JfYIjI4OLY}#
- #{mod _85hotwsCta0JfYIjI4OLZ}#)
- (let ((#{r _85hotwsCta0JfYIjI4OLa}#
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWLnY}#
+ #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#
+ #{r _hoQGWMnyQPAh3k2jhWLna}#
+ #{w _hoQGWMnyQPAh3k2jhWLnb}#
+ #{mod _hoQGWMnyQPAh3k2jhWLnc}#)
+ (let ((#{r _hoQGWMnyQPAh3k2jhWLnd}#
(cons '("placeholder" placeholder)
- #{r _85hotwsCta0JfYIjI4OLX}#)))
- (let ((#{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{r _hoQGWMnyQPAh3k2jhWLna}#)))
+ (let ((#{ribcage _hoQGWMnyQPAh3k2jhWLne}#
(vector 'ribcage '() '() '())))
- (let ((#{w _85hotwsCta0JfYIjI4OLc}#
- (cons (car #{w _85hotwsCta0JfYIjI4OLY}#)
- (cons #{ribcage _85hotwsCta0JfYIjI4OLb}#
- (cdr #{w _85hotwsCta0JfYIjI4OLY}#)))))
+ (let ((#{w _hoQGWMnyQPAh3k2jhWLnf}#
+ (cons (car #{w _hoQGWMnyQPAh3k2jhWLnb}#)
+ (cons #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWLnb}#)))))
(letrec*
- ((#{parse _85hotwsCta0JfYIjI4OLd}#
- (lambda (#{body _85hotwsCta0JfYIjI4OLq}#
- #{ids _85hotwsCta0JfYIjI4OLr}#
- #{labels _85hotwsCta0JfYIjI4OLs}#
- #{var-ids _85hotwsCta0JfYIjI4OLt}#
- #{vars _85hotwsCta0JfYIjI4OLu}#
- #{vals _85hotwsCta0JfYIjI4OLv}#
- #{bindings _85hotwsCta0JfYIjI4OLw}#)
- (if (null? #{body _85hotwsCta0JfYIjI4OLq}#)
+ ((#{parse _hoQGWMnyQPAh3k2jhWLng}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWLnt}#
+ #{ids _hoQGWMnyQPAh3k2jhWLnu}#
+ #{labels _hoQGWMnyQPAh3k2jhWLnv}#
+ #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
+ #{vars _hoQGWMnyQPAh3k2jhWLnx}#
+ #{vals _hoQGWMnyQPAh3k2jhWLny}#
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)
+ (if (null? #{body _hoQGWMnyQPAh3k2jhWLnt}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form _85hotwsCta0JfYIjI4OLW}#)
- (let ((#{e _85hotwsCta0JfYIjI4OLx}#
- (cdr (car #{body _85hotwsCta0JfYIjI4OLq}#)))
- (#{er _85hotwsCta0JfYIjI4OLy}#
- (car (car #{body _85hotwsCta0JfYIjI4OLq}#))))
+ #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWLn0}#
+ (cdr (car #{body _hoQGWMnyQPAh3k2jhWLnt}#)))
+ (#{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (car (car #{body _hoQGWMnyQPAh3k2jhWLnt}#))))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4OLx}#
- #{er _85hotwsCta0JfYIjI4OLy}#
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWLn0}#
+ #{er _hoQGWMnyQPAh3k2jhWLn1}#
'(())
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{er _85hotwsCta0JfYIjI4OLy}#)
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
- #{mod _85hotwsCta0JfYIjI4OLZ}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{er _hoQGWMnyQPAh3k2jhWLn1}#)
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{mod _hoQGWMnyQPAh3k2jhWLnc}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4OOP}#
- #{value _85hotwsCta0JfYIjI4OOQ}#
- #{e _85hotwsCta0JfYIjI4OOR}#
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{s _85hotwsCta0JfYIjI4OOT}#
- #{mod _85hotwsCta0JfYIjI4OOU}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWLqS}#
+ #{value _hoQGWMnyQPAh3k2jhWLqT}#
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{s _hoQGWMnyQPAh3k2jhWLqW}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
'define-form)
- (let ((#{id _85hotwsCta0JfYIjI4OOY}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{value _85hotwsCta0JfYIjI4OOQ}#
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- (#{label _85hotwsCta0JfYIjI4OOZ}#
- (#{gen-label _85hotwsCta0JfYIjI4J3p}#)))
- (let ((#{var _85hotwsCta0JfYIjI4OOa}#
- (let ((#{id _85hotwsCta0JfYIjI4OPU}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWLqb}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{value _hoQGWMnyQPAh3k2jhWLqT}#
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ (#{label _hoQGWMnyQPAh3k2jhWLqc}#
+ (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)))
+ (let ((#{var _hoQGWMnyQPAh3k2jhWLqd}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWLrX}#
(if (if (vector?
- #{id _85hotwsCta0JfYIjI4OOY}#)
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4OOY}#)
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4OOY}#
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _85hotwsCta0JfYIjI4OOY}#
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#
1)
- #{id _85hotwsCta0JfYIjI4OOY}#)))
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#)))
(gensym
(string-append
(symbol->string
- #{id _85hotwsCta0JfYIjI4OPU}#)
+ #{id _hoQGWMnyQPAh3k2jhWLrX}#)
" ")))))
(begin
- (let ((#{update _85hotwsCta0JfYIjI4OPK}#
+ (let ((#{update _hoQGWMnyQPAh3k2jhWLrN}#
(cons (vector-ref
- #{id _85hotwsCta0JfYIjI4OOY}#
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#
1)
(vector-ref
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
1))))
(vector-set!
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
1
- #{update _85hotwsCta0JfYIjI4OPK}#))
- (let ((#{update _85hotwsCta0JfYIjI4OPM}#
+ #{update _hoQGWMnyQPAh3k2jhWLrN}#))
+ (let ((#{update _hoQGWMnyQPAh3k2jhWLrP}#
(cons (car (vector-ref
- #{id _85hotwsCta0JfYIjI4OOY}#
+ #{id _hoQGWMnyQPAh3k2jhWLqb}#
2))
(vector-ref
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
2))))
(vector-set!
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
2
- #{update _85hotwsCta0JfYIjI4OPM}#))
- (let ((#{update _85hotwsCta0JfYIjI4OPO}#
- (cons #{label _85hotwsCta0JfYIjI4OOZ}#
+ #{update _hoQGWMnyQPAh3k2jhWLrP}#))
+ (let ((#{update _hoQGWMnyQPAh3k2jhWLrR}#
+ (cons #{label _hoQGWMnyQPAh3k2jhWLqc}#
(vector-ref
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
3))))
(vector-set!
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
3
- #{update _85hotwsCta0JfYIjI4OPO}#))
- (#{parse _85hotwsCta0JfYIjI4OLd}#
- (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
- (cons #{id _85hotwsCta0JfYIjI4OOY}#
- #{ids _85hotwsCta0JfYIjI4OLr}#)
- (cons #{label _85hotwsCta0JfYIjI4OOZ}#
- #{labels _85hotwsCta0JfYIjI4OLs}#)
- (cons #{id _85hotwsCta0JfYIjI4OOY}#
- #{var-ids _85hotwsCta0JfYIjI4OLt}#)
- (cons #{var _85hotwsCta0JfYIjI4OOa}#
- #{vars _85hotwsCta0JfYIjI4OLu}#)
- (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{e _85hotwsCta0JfYIjI4OOR}#
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- #{vals _85hotwsCta0JfYIjI4OLv}#)
+ #{update _hoQGWMnyQPAh3k2jhWLrR}#))
+ (#{parse _hoQGWMnyQPAh3k2jhWLng}#
+ (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
+ (cons #{id _hoQGWMnyQPAh3k2jhWLqb}#
+ #{ids _hoQGWMnyQPAh3k2jhWLnu}#)
+ (cons #{label _hoQGWMnyQPAh3k2jhWLqc}#
+ #{labels _hoQGWMnyQPAh3k2jhWLnv}#)
+ (cons #{id _hoQGWMnyQPAh3k2jhWLqb}#
+ #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#)
+ (cons #{var _hoQGWMnyQPAh3k2jhWLqd}#
+ #{vars _hoQGWMnyQPAh3k2jhWLnx}#)
+ (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ #{vals _hoQGWMnyQPAh3k2jhWLny}#)
(cons (cons 'lexical
- #{var _85hotwsCta0JfYIjI4OOa}#)
- #{bindings _85hotwsCta0JfYIjI4OLw}#)))))
- (if (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ #{var _hoQGWMnyQPAh3k2jhWLqd}#)
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))))
+ (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
'define-syntax-form)
#t
- (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
'define-syntax-parameter-form))
- (let ((#{id _85hotwsCta0JfYIjI4OP1}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{value _85hotwsCta0JfYIjI4OOQ}#
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- (#{label _85hotwsCta0JfYIjI4OP2}#
- (#{gen-label _85hotwsCta0JfYIjI4J3p}#)))
+ (let ((#{id _hoQGWMnyQPAh3k2jhWLr4}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{value _hoQGWMnyQPAh3k2jhWLqT}#
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ (#{label _hoQGWMnyQPAh3k2jhWLr5}#
+ (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)))
(begin
- (let ((#{update _85hotwsCta0JfYIjI4OQm}#
+ (let ((#{update _hoQGWMnyQPAh3k2jhWLsp}#
(cons (vector-ref
- #{id _85hotwsCta0JfYIjI4OP1}#
+ #{id _hoQGWMnyQPAh3k2jhWLr4}#
1)
(vector-ref
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
1))))
(vector-set!
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
1
- #{update _85hotwsCta0JfYIjI4OQm}#))
- (let ((#{update _85hotwsCta0JfYIjI4OQo}#
+ #{update _hoQGWMnyQPAh3k2jhWLsp}#))
+ (let ((#{update _hoQGWMnyQPAh3k2jhWLsr}#
(cons (car (vector-ref
- #{id _85hotwsCta0JfYIjI4OP1}#
+ #{id _hoQGWMnyQPAh3k2jhWLr4}#
2))
(vector-ref
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
2))))
(vector-set!
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
2
- #{update _85hotwsCta0JfYIjI4OQo}#))
- (let ((#{update _85hotwsCta0JfYIjI4OQq}#
- (cons #{label _85hotwsCta0JfYIjI4OP2}#
+ #{update _hoQGWMnyQPAh3k2jhWLsr}#))
+ (let ((#{update _hoQGWMnyQPAh3k2jhWLst}#
+ (cons #{label _hoQGWMnyQPAh3k2jhWLr5}#
(vector-ref
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
3))))
(vector-set!
- #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
3
- #{update _85hotwsCta0JfYIjI4OQq}#))
- (#{parse _85hotwsCta0JfYIjI4OLd}#
- (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
- (cons #{id _85hotwsCta0JfYIjI4OP1}#
- #{ids _85hotwsCta0JfYIjI4OLr}#)
- (cons #{label _85hotwsCta0JfYIjI4OP2}#
- #{labels _85hotwsCta0JfYIjI4OLs}#)
- #{var-ids _85hotwsCta0JfYIjI4OLt}#
- #{vars _85hotwsCta0JfYIjI4OLu}#
- #{vals _85hotwsCta0JfYIjI4OLv}#
+ #{update _hoQGWMnyQPAh3k2jhWLst}#))
+ (#{parse _hoQGWMnyQPAh3k2jhWLng}#
+ (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
+ (cons #{id _hoQGWMnyQPAh3k2jhWLr4}#
+ #{ids _hoQGWMnyQPAh3k2jhWLnu}#)
+ (cons #{label _hoQGWMnyQPAh3k2jhWLr5}#
+ #{labels _hoQGWMnyQPAh3k2jhWLnv}#)
+ #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
+ #{vars _hoQGWMnyQPAh3k2jhWLnx}#
+ #{vals _hoQGWMnyQPAh3k2jhWLny}#
(cons (cons 'macro
- (cons #{er _85hotwsCta0JfYIjI4OLy}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{e _85hotwsCta0JfYIjI4OOR}#
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#)))
- #{bindings _85hotwsCta0JfYIjI4OLw}#))))
- (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#)))
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
'begin-form)
- (let ((#{tmp _85hotwsCta0JfYIjI4OQy}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWLs1}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4OOR}#
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
'(_ . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4OQy}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWLs1}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4OQ2}#)
- (#{parse _85hotwsCta0JfYIjI4OLd}#
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLs5}#)
+ (#{parse _hoQGWMnyQPAh3k2jhWLng}#
(letrec*
- ((#{f _85hotwsCta0JfYIjI4OQ3}#
- (lambda (#{forms _85hotwsCta0JfYIjI4OR2}#)
- (if (null? #{forms _85hotwsCta0JfYIjI4OR2}#)
- (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
- (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (car #{forms _85hotwsCta0JfYIjI4OR2}#)
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- (#{f _85hotwsCta0JfYIjI4OQ3}#
- (cdr #{forms _85hotwsCta0JfYIjI4OR2}#)))))))
- (#{f _85hotwsCta0JfYIjI4OQ3}#
- #{e1 _85hotwsCta0JfYIjI4OQ2}#))
- #{ids _85hotwsCta0JfYIjI4OLr}#
- #{labels _85hotwsCta0JfYIjI4OLs}#
- #{var-ids _85hotwsCta0JfYIjI4OLt}#
- #{vars _85hotwsCta0JfYIjI4OLu}#
- #{vals _85hotwsCta0JfYIjI4OLv}#
- #{bindings _85hotwsCta0JfYIjI4OLw}#))
- #{tmp _85hotwsCta0JfYIjI4OQy}#)
+ ((#{f _hoQGWMnyQPAh3k2jhWLs6}#
+ (lambda (#{forms _hoQGWMnyQPAh3k2jhWLt5}#)
+ (if (null? #{forms _hoQGWMnyQPAh3k2jhWLt5}#)
+ (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
+ (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (car #{forms _hoQGWMnyQPAh3k2jhWLt5}#)
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ (#{f _hoQGWMnyQPAh3k2jhWLs6}#
+ (cdr #{forms _hoQGWMnyQPAh3k2jhWLt5}#)))))))
+ (#{f _hoQGWMnyQPAh3k2jhWLs6}#
+ #{e1 _hoQGWMnyQPAh3k2jhWLs5}#))
+ #{ids _hoQGWMnyQPAh3k2jhWLnu}#
+ #{labels _hoQGWMnyQPAh3k2jhWLnv}#
+ #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
+ #{vars _hoQGWMnyQPAh3k2jhWLnx}#
+ #{vals _hoQGWMnyQPAh3k2jhWLny}#
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWLs1}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4OOR}#)))
- (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#)))
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
'local-syntax-form)
- (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
- #{value _85hotwsCta0JfYIjI4OOQ}#
- #{e _85hotwsCta0JfYIjI4OOR}#
- #{er _85hotwsCta0JfYIjI4OLy}#
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{s _85hotwsCta0JfYIjI4OOT}#
- #{mod _85hotwsCta0JfYIjI4OOU}#
- (lambda (#{forms _85hotwsCta0JfYIjI4OSE}#
- #{er _85hotwsCta0JfYIjI4OSF}#
- #{w _85hotwsCta0JfYIjI4OSG}#
- #{s _85hotwsCta0JfYIjI4OSH}#
- #{mod _85hotwsCta0JfYIjI4OSI}#)
- (#{parse _85hotwsCta0JfYIjI4OLd}#
+ (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
+ #{value _hoQGWMnyQPAh3k2jhWLqT}#
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{s _hoQGWMnyQPAh3k2jhWLqW}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#
+ (lambda (#{forms _hoQGWMnyQPAh3k2jhWLuH}#
+ #{er _hoQGWMnyQPAh3k2jhWLuI}#
+ #{w _hoQGWMnyQPAh3k2jhWLuJ}#
+ #{s _hoQGWMnyQPAh3k2jhWLuK}#
+ #{mod _hoQGWMnyQPAh3k2jhWLuL}#)
+ (#{parse _hoQGWMnyQPAh3k2jhWLng}#
(letrec*
- ((#{f _85hotwsCta0JfYIjI4OSJ}#
- (lambda (#{forms _85hotwsCta0JfYIjI4OTI}#)
- (if (null? #{forms _85hotwsCta0JfYIjI4OTI}#)
- (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
- (cons (cons #{er _85hotwsCta0JfYIjI4OSF}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (car #{forms _85hotwsCta0JfYIjI4OTI}#)
- #{w _85hotwsCta0JfYIjI4OSG}#
- #{mod _85hotwsCta0JfYIjI4OSI}#))
- (#{f _85hotwsCta0JfYIjI4OSJ}#
- (cdr #{forms _85hotwsCta0JfYIjI4OTI}#)))))))
- (#{f _85hotwsCta0JfYIjI4OSJ}#
- #{forms _85hotwsCta0JfYIjI4OSE}#))
- #{ids _85hotwsCta0JfYIjI4OLr}#
- #{labels _85hotwsCta0JfYIjI4OLs}#
- #{var-ids _85hotwsCta0JfYIjI4OLt}#
- #{vars _85hotwsCta0JfYIjI4OLu}#
- #{vals _85hotwsCta0JfYIjI4OLv}#
- #{bindings _85hotwsCta0JfYIjI4OLw}#)))
- (if (null? #{ids _85hotwsCta0JfYIjI4OLr}#)
- (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
+ ((#{f _hoQGWMnyQPAh3k2jhWLuM}#
+ (lambda (#{forms _hoQGWMnyQPAh3k2jhWLvL}#)
+ (if (null? #{forms _hoQGWMnyQPAh3k2jhWLvL}#)
+ (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
+ (cons (cons #{er _hoQGWMnyQPAh3k2jhWLuI}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (car #{forms _hoQGWMnyQPAh3k2jhWLvL}#)
+ #{w _hoQGWMnyQPAh3k2jhWLuJ}#
+ #{mod _hoQGWMnyQPAh3k2jhWLuL}#))
+ (#{f _hoQGWMnyQPAh3k2jhWLuM}#
+ (cdr #{forms _hoQGWMnyQPAh3k2jhWLvL}#)))))))
+ (#{f _hoQGWMnyQPAh3k2jhWLuM}#
+ #{forms _hoQGWMnyQPAh3k2jhWLuH}#))
+ #{ids _hoQGWMnyQPAh3k2jhWLnu}#
+ #{labels _hoQGWMnyQPAh3k2jhWLnv}#
+ #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
+ #{vars _hoQGWMnyQPAh3k2jhWLnx}#
+ #{vals _hoQGWMnyQPAh3k2jhWLny}#
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))
+ (if (null? #{ids _hoQGWMnyQPAh3k2jhWLnu}#)
+ (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
#f
- (map (lambda (#{x _85hotwsCta0JfYIjI4OUJ}#)
- (let ((#{e _85hotwsCta0JfYIjI4OUN}#
- (cdr #{x _85hotwsCta0JfYIjI4OUJ}#))
- (#{r _85hotwsCta0JfYIjI4OUO}#
- (car #{x _85hotwsCta0JfYIjI4OUJ}#)))
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLwM}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWLwQ}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWLwM}#))
+ (#{r _hoQGWMnyQPAh3k2jhWLwR}#
+ (car #{x _hoQGWMnyQPAh3k2jhWLwM}#)))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4OUN}#
- #{r _85hotwsCta0JfYIjI4OUO}#
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWLwQ}#
+ #{r _hoQGWMnyQPAh3k2jhWLwR}#
'(())
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4OUN}#)
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWLwQ}#)
#f
- #{mod _85hotwsCta0JfYIjI4OOU}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4OUS}#
- #{value _85hotwsCta0JfYIjI4OUT}#
- #{e _85hotwsCta0JfYIjI4OUU}#
- #{w _85hotwsCta0JfYIjI4OUV}#
- #{s _85hotwsCta0JfYIjI4OUW}#
- #{mod _85hotwsCta0JfYIjI4OUX}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4OUS}#
- #{value _85hotwsCta0JfYIjI4OUT}#
- #{e _85hotwsCta0JfYIjI4OUU}#
- #{r _85hotwsCta0JfYIjI4OUO}#
- #{w _85hotwsCta0JfYIjI4OUV}#
- #{s _85hotwsCta0JfYIjI4OUW}#
- #{mod _85hotwsCta0JfYIjI4OUX}#)))))
- (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWLwV}#
+ #{value _hoQGWMnyQPAh3k2jhWLwW}#
+ #{e _hoQGWMnyQPAh3k2jhWLwX}#
+ #{w _hoQGWMnyQPAh3k2jhWLwY}#
+ #{s _hoQGWMnyQPAh3k2jhWLwZ}#
+ #{mod _hoQGWMnyQPAh3k2jhWLwa}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWLwV}#
+ #{value _hoQGWMnyQPAh3k2jhWLwW}#
+ #{e _hoQGWMnyQPAh3k2jhWLwX}#
+ #{r _hoQGWMnyQPAh3k2jhWLwR}#
+ #{w _hoQGWMnyQPAh3k2jhWLwY}#
+ #{s _hoQGWMnyQPAh3k2jhWLwZ}#
+ #{mod _hoQGWMnyQPAh3k2jhWLwa}#)))))
+ (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#)
- #{s _85hotwsCta0JfYIjI4OOT}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#)
+ #{s _hoQGWMnyQPAh3k2jhWLqW}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OOR}#
- #{s _85hotwsCta0JfYIjI4OOT}#))
- #{e _85hotwsCta0JfYIjI4OOR}#)
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- (cdr #{body _85hotwsCta0JfYIjI4OLq}#))))
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{s _hoQGWMnyQPAh3k2jhWLqW}#))
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#)
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#))))
(begin
- (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- #{ids _85hotwsCta0JfYIjI4OLr}#))
+ (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ #{ids _hoQGWMnyQPAh3k2jhWLnu}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form _85hotwsCta0JfYIjI4OLW}#))
+ #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#))
(letrec*
- ((#{loop _85hotwsCta0JfYIjI4OV8}#
- (lambda (#{bs _85hotwsCta0JfYIjI4OV@}#
- #{er-cache _85hotwsCta0JfYIjI4OWA}#
- #{r-cache _85hotwsCta0JfYIjI4OWB}#)
- (if (not (null? #{bs _85hotwsCta0JfYIjI4OV@}#))
- (let ((#{b _85hotwsCta0JfYIjI4OWC}#
- (car #{bs _85hotwsCta0JfYIjI4OV@}#)))
- (if (eq? (car #{b _85hotwsCta0JfYIjI4OWC}#)
+ ((#{loop _hoQGWMnyQPAh3k2jhWLx@}#
+ (lambda (#{bs _hoQGWMnyQPAh3k2jhWLyC}#
+ #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#
+ #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#)
+ (if (not (null? #{bs _hoQGWMnyQPAh3k2jhWLyC}#))
+ (let ((#{b _hoQGWMnyQPAh3k2jhWLyF}#
+ (car #{bs _hoQGWMnyQPAh3k2jhWLyC}#)))
+ (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWLyF}#)
'macro)
- (let ((#{er _85hotwsCta0JfYIjI4OWE}#
- (car (cdr #{b _85hotwsCta0JfYIjI4OWC}#))))
- (let ((#{r-cache _85hotwsCta0JfYIjI4OWF}#
- (if (eq? #{er _85hotwsCta0JfYIjI4OWE}#
- #{er-cache _85hotwsCta0JfYIjI4OWA}#)
- #{r-cache _85hotwsCta0JfYIjI4OWB}#
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- #{er _85hotwsCta0JfYIjI4OWE}#))))
+ (let ((#{er _hoQGWMnyQPAh3k2jhWLyH}#
+ (car (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#))))
+ (let ((#{r-cache _hoQGWMnyQPAh3k2jhWLyI}#
+ (if (eq? #{er _hoQGWMnyQPAh3k2jhWLyH}#
+ #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#)
+ #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ #{er _hoQGWMnyQPAh3k2jhWLyH}#))))
(begin
(set-cdr!
- #{b _85hotwsCta0JfYIjI4OWC}#
- (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- (cdr (cdr #{b _85hotwsCta0JfYIjI4OWC}#))
- #{r-cache _85hotwsCta0JfYIjI4OWF}#
+ #{b _hoQGWMnyQPAh3k2jhWLyF}#
+ (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ (cdr (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#))
+ #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#
'(())
- #{mod _85hotwsCta0JfYIjI4OOU}#)
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- (#{loop _85hotwsCta0JfYIjI4OV8}#
- (cdr #{bs _85hotwsCta0JfYIjI4OV@}#)
- #{er _85hotwsCta0JfYIjI4OWE}#
- #{r-cache _85hotwsCta0JfYIjI4OWF}#))))
- (#{loop _85hotwsCta0JfYIjI4OV8}#
- (cdr #{bs _85hotwsCta0JfYIjI4OV@}#)
- #{er-cache _85hotwsCta0JfYIjI4OWA}#
- #{r-cache _85hotwsCta0JfYIjI4OWB}#)))))))
- (#{loop _85hotwsCta0JfYIjI4OV8}#
- #{bindings _85hotwsCta0JfYIjI4OLw}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#)
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ (#{loop _hoQGWMnyQPAh3k2jhWLx@}#
+ (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#)
+ #{er _hoQGWMnyQPAh3k2jhWLyH}#
+ #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#))))
+ (#{loop _hoQGWMnyQPAh3k2jhWLx@}#
+ (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#)
+ #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#
+ #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#)))))))
+ (#{loop _hoQGWMnyQPAh3k2jhWLx@}#
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#
#f
#f))
(set-cdr!
- #{r _85hotwsCta0JfYIjI4OLa}#
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- #{labels _85hotwsCta0JfYIjI4OLs}#
- #{bindings _85hotwsCta0JfYIjI4OLw}#
- (cdr #{r _85hotwsCta0JfYIjI4OLa}#)))
- (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
+ #{r _hoQGWMnyQPAh3k2jhWLnd}#
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ #{labels _hoQGWMnyQPAh3k2jhWLnv}#
+ #{bindings _hoQGWMnyQPAh3k2jhWLnz}#
+ (cdr #{r _hoQGWMnyQPAh3k2jhWLnd}#)))
+ (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids _85hotwsCta0JfYIjI4OLt}#))
+ #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#))
(reverse
- #{vars _85hotwsCta0JfYIjI4OLu}#)
- (map (lambda (#{x _85hotwsCta0JfYIjI4Obc}#)
- (let ((#{e _85hotwsCta0JfYIjI4Obg}#
- (cdr #{x _85hotwsCta0JfYIjI4Obc}#))
- (#{r _85hotwsCta0JfYIjI4Obh}#
- (car #{x _85hotwsCta0JfYIjI4Obc}#)))
+ #{vars _hoQGWMnyQPAh3k2jhWLnx}#)
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL3f}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWL3j}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWL3f}#))
+ (#{r _hoQGWMnyQPAh3k2jhWL3k}#
+ (car #{x _hoQGWMnyQPAh3k2jhWL3f}#)))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4Obg}#
- #{r _85hotwsCta0JfYIjI4Obh}#
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWL3j}#
+ #{r _hoQGWMnyQPAh3k2jhWL3k}#
'(())
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4Obg}#)
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWL3j}#)
#f
- #{mod _85hotwsCta0JfYIjI4OOU}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4Obl}#
- #{value _85hotwsCta0JfYIjI4Obm}#
- #{e _85hotwsCta0JfYIjI4Obn}#
- #{w _85hotwsCta0JfYIjI4Obo}#
- #{s _85hotwsCta0JfYIjI4Obp}#
- #{mod _85hotwsCta0JfYIjI4Obq}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4Obl}#
- #{value _85hotwsCta0JfYIjI4Obm}#
- #{e _85hotwsCta0JfYIjI4Obn}#
- #{r _85hotwsCta0JfYIjI4Obh}#
- #{w _85hotwsCta0JfYIjI4Obo}#
- #{s _85hotwsCta0JfYIjI4Obp}#
- #{mod _85hotwsCta0JfYIjI4Obq}#)))))
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWL3o}#
+ #{value _hoQGWMnyQPAh3k2jhWL3p}#
+ #{e _hoQGWMnyQPAh3k2jhWL3q}#
+ #{w _hoQGWMnyQPAh3k2jhWL3r}#
+ #{s _hoQGWMnyQPAh3k2jhWL3s}#
+ #{mod _hoQGWMnyQPAh3k2jhWL3t}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWL3o}#
+ #{value _hoQGWMnyQPAh3k2jhWL3p}#
+ #{e _hoQGWMnyQPAh3k2jhWL3q}#
+ #{r _hoQGWMnyQPAh3k2jhWL3k}#
+ #{w _hoQGWMnyQPAh3k2jhWL3r}#
+ #{s _hoQGWMnyQPAh3k2jhWL3s}#
+ #{mod _hoQGWMnyQPAh3k2jhWL3t}#)))))
(reverse
- #{vals _85hotwsCta0JfYIjI4OLv}#))
- (let ((#{exps _85hotwsCta0JfYIjI4Obw}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4Obx}#)
- (let ((#{e _85hotwsCta0JfYIjI4Ob0}#
- (cdr #{x _85hotwsCta0JfYIjI4Obx}#))
- (#{r _85hotwsCta0JfYIjI4Ob1}#
- (car #{x _85hotwsCta0JfYIjI4Obx}#)))
+ #{vals _hoQGWMnyQPAh3k2jhWLny}#))
+ (let ((#{exps _hoQGWMnyQPAh3k2jhWL3z}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL30}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWL33}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWL30}#))
+ (#{r _hoQGWMnyQPAh3k2jhWL34}#
+ (car #{x _hoQGWMnyQPAh3k2jhWL30}#)))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4Ob0}#
- #{r _85hotwsCta0JfYIjI4Ob1}#
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWL33}#
+ #{r _hoQGWMnyQPAh3k2jhWL34}#
'(())
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4Ob0}#)
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWL33}#)
#f
- #{mod _85hotwsCta0JfYIjI4OOU}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4Ob5}#
- #{value _85hotwsCta0JfYIjI4Ob6}#
- #{e _85hotwsCta0JfYIjI4Ob7}#
- #{w _85hotwsCta0JfYIjI4Ob8}#
- #{s _85hotwsCta0JfYIjI4Ob9}#
- #{mod _85hotwsCta0JfYIjI4Ob$}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4Ob5}#
- #{value _85hotwsCta0JfYIjI4Ob6}#
- #{e _85hotwsCta0JfYIjI4Ob7}#
- #{r _85hotwsCta0JfYIjI4Ob1}#
- #{w _85hotwsCta0JfYIjI4Ob8}#
- #{s _85hotwsCta0JfYIjI4Ob9}#
- #{mod _85hotwsCta0JfYIjI4Ob$}#)))))
- (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWL38}#
+ #{value _hoQGWMnyQPAh3k2jhWL39}#
+ #{e _hoQGWMnyQPAh3k2jhWL3$}#
+ #{w _hoQGWMnyQPAh3k2jhWL3@}#
+ #{s _hoQGWMnyQPAh3k2jhWL4A}#
+ #{mod _hoQGWMnyQPAh3k2jhWL4B}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWL38}#
+ #{value _hoQGWMnyQPAh3k2jhWL39}#
+ #{e _hoQGWMnyQPAh3k2jhWL3$}#
+ #{r _hoQGWMnyQPAh3k2jhWL34}#
+ #{w _hoQGWMnyQPAh3k2jhWL3@}#
+ #{s _hoQGWMnyQPAh3k2jhWL4A}#
+ #{mod _hoQGWMnyQPAh3k2jhWL4B}#)))))
+ (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#)
- #{s _85hotwsCta0JfYIjI4OOT}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#)
+ #{s _hoQGWMnyQPAh3k2jhWLqW}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OOR}#
- #{s _85hotwsCta0JfYIjI4OOT}#))
- #{e _85hotwsCta0JfYIjI4OOR}#)
- #{w _85hotwsCta0JfYIjI4OOS}#
- #{mod _85hotwsCta0JfYIjI4OOU}#))
- (cdr #{body _85hotwsCta0JfYIjI4OLq}#)))))
- (if (null? (cdr #{exps _85hotwsCta0JfYIjI4Obw}#))
- (car #{exps _85hotwsCta0JfYIjI4Obw}#)
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{s _hoQGWMnyQPAh3k2jhWLqW}#))
+ #{e _hoQGWMnyQPAh3k2jhWLqU}#)
+ #{w _hoQGWMnyQPAh3k2jhWLqV}#
+ #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
+ (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)))))
+ (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWL3z}#))
+ (car #{exps _hoQGWMnyQPAh3k2jhWL3z}#)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- #{exps _85hotwsCta0JfYIjI4Obw}#)))))))))))))))))
- (#{parse _85hotwsCta0JfYIjI4OLd}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4OLg}#)
- (cons #{r _85hotwsCta0JfYIjI4OLa}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{x _85hotwsCta0JfYIjI4OLg}#
- #{w _85hotwsCta0JfYIjI4OLc}#
- #{mod _85hotwsCta0JfYIjI4OLZ}#)))
- #{body _85hotwsCta0JfYIjI4OLV}#)
+ #{exps _hoQGWMnyQPAh3k2jhWL3z}#)))))))))))))))))
+ (#{parse _hoQGWMnyQPAh3k2jhWLng}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLnj}#)
+ (cons #{r _hoQGWMnyQPAh3k2jhWLnd}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{x _hoQGWMnyQPAh3k2jhWLnj}#
+ #{w _hoQGWMnyQPAh3k2jhWLnf}#
+ #{mod _hoQGWMnyQPAh3k2jhWLnc}#)))
+ #{body _hoQGWMnyQPAh3k2jhWLnY}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
- (lambda (#{rec? _85hotwsCta0JfYIjI4OcY}#
- #{e _85hotwsCta0JfYIjI4OcZ}#
- #{r _85hotwsCta0JfYIjI4Oca}#
- #{w _85hotwsCta0JfYIjI4Ocb}#
- #{s _85hotwsCta0JfYIjI4Occ}#
- #{mod _85hotwsCta0JfYIjI4Ocd}#
- #{k _85hotwsCta0JfYIjI4Oce}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ocg}#
+ (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
+ (lambda (#{rec? _hoQGWMnyQPAh3k2jhWL4b}#
+ #{e _hoQGWMnyQPAh3k2jhWL4c}#
+ #{r _hoQGWMnyQPAh3k2jhWL4d}#
+ #{w _hoQGWMnyQPAh3k2jhWL4e}#
+ #{s _hoQGWMnyQPAh3k2jhWL4f}#
+ #{mod _hoQGWMnyQPAh3k2jhWL4g}#
+ #{k _hoQGWMnyQPAh3k2jhWL4h}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWL4j}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4OcZ}#
+ #{e _hoQGWMnyQPAh3k2jhWL4c}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Ocg}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWL4j}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4Ock}#
- #{val _85hotwsCta0JfYIjI4Ocl}#
- #{e1 _85hotwsCta0JfYIjI4Ocm}#
- #{e2 _85hotwsCta0JfYIjI4Ocn}#)
- (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- #{id _85hotwsCta0JfYIjI4Ock}#))
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWL4n}#
+ #{val _hoQGWMnyQPAh3k2jhWL4o}#
+ #{e1 _hoQGWMnyQPAh3k2jhWL4p}#
+ #{e2 _hoQGWMnyQPAh3k2jhWL4q}#)
+ (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ #{id _hoQGWMnyQPAh3k2jhWL4n}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e _85hotwsCta0JfYIjI4OcZ}#)
- (let ((#{labels _85hotwsCta0JfYIjI4OeB}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{id _85hotwsCta0JfYIjI4Ock}#)))
- (let ((#{new-w _85hotwsCta0JfYIjI4OeC}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{id _85hotwsCta0JfYIjI4Ock}#
- #{labels _85hotwsCta0JfYIjI4OeB}#
- #{w _85hotwsCta0JfYIjI4Ocb}#)))
- (#{k _85hotwsCta0JfYIjI4Oce}#
- (cons #{e1 _85hotwsCta0JfYIjI4Ocm}#
- #{e2 _85hotwsCta0JfYIjI4Ocn}#)
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- #{labels _85hotwsCta0JfYIjI4OeB}#
- (let ((#{trans-r _85hotwsCta0JfYIjI4Oei}#
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- #{r _85hotwsCta0JfYIjI4Oca}#)))
+ #{e _hoQGWMnyQPAh3k2jhWL4c}#)
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWL6E}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{id _hoQGWMnyQPAh3k2jhWL4n}#)))
+ (let ((#{new-w _hoQGWMnyQPAh3k2jhWL6F}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{id _hoQGWMnyQPAh3k2jhWL4n}#
+ #{labels _hoQGWMnyQPAh3k2jhWL6E}#
+ #{w _hoQGWMnyQPAh3k2jhWL4e}#)))
+ (#{k _hoQGWMnyQPAh3k2jhWL4h}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWL4p}#
+ #{e2 _hoQGWMnyQPAh3k2jhWL4q}#)
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ #{labels _hoQGWMnyQPAh3k2jhWL6E}#
+ (let ((#{trans-r _hoQGWMnyQPAh3k2jhWL6l}#
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ #{r _hoQGWMnyQPAh3k2jhWL4d}#)))
(begin
- (if #{rec? _85hotwsCta0JfYIjI4OcY}#
- #{new-w _85hotwsCta0JfYIjI4OeC}#
- #{w _85hotwsCta0JfYIjI4Ocb}#)
- (map (lambda (#{x _85hotwsCta0JfYIjI4Oej}#)
+ (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}#
+ #{new-w _hoQGWMnyQPAh3k2jhWL6F}#
+ #{w _hoQGWMnyQPAh3k2jhWL4e}#)
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL6m}#)
(cons 'macro
- (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4Oej}#
- #{trans-r _85hotwsCta0JfYIjI4Oei}#
+ (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWL6m}#
+ #{trans-r _hoQGWMnyQPAh3k2jhWL6l}#
(values
- (if #{rec? _85hotwsCta0JfYIjI4OcY}#
- #{new-w _85hotwsCta0JfYIjI4OeC}#
- #{w _85hotwsCta0JfYIjI4Ocb}#))
- #{mod _85hotwsCta0JfYIjI4Ocd}#)
- #{mod _85hotwsCta0JfYIjI4Ocd}#)))
- #{val _85hotwsCta0JfYIjI4Ocl}#)))
- #{r _85hotwsCta0JfYIjI4Oca}#)
- #{new-w _85hotwsCta0JfYIjI4OeC}#
- #{s _85hotwsCta0JfYIjI4Occ}#
- #{mod _85hotwsCta0JfYIjI4Ocd}#)))))
- #{tmp _85hotwsCta0JfYIjI4Ocg}#)
+ (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}#
+ #{new-w _hoQGWMnyQPAh3k2jhWL6F}#
+ #{w _hoQGWMnyQPAh3k2jhWL4e}#))
+ #{mod _hoQGWMnyQPAh3k2jhWL4g}#)
+ #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))
+ #{val _hoQGWMnyQPAh3k2jhWL4o}#)))
+ #{r _hoQGWMnyQPAh3k2jhWL4d}#)
+ #{new-w _hoQGWMnyQPAh3k2jhWL6F}#
+ #{s _hoQGWMnyQPAh3k2jhWL4f}#
+ #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWL4j}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4OcZ}#)
- #{s _85hotwsCta0JfYIjI4Occ}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWL4c}#)
+ #{s _hoQGWMnyQPAh3k2jhWL4f}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4OcZ}#
- #{s _85hotwsCta0JfYIjI4Occ}#))
- #{e _85hotwsCta0JfYIjI4OcZ}#)
- #{w _85hotwsCta0JfYIjI4Ocb}#
- #{mod _85hotwsCta0JfYIjI4Ocd}#))))))
- (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
- (lambda (#{expanded _85hotwsCta0JfYIjI4Oi3}#
- #{mod _85hotwsCta0JfYIjI4Oi4}#)
- (let ((#{p _85hotwsCta0JfYIjI4Oi5}#
+ #{e _hoQGWMnyQPAh3k2jhWL4c}#
+ #{s _hoQGWMnyQPAh3k2jhWL4f}#))
+ #{e _hoQGWMnyQPAh3k2jhWL4c}#)
+ #{w _hoQGWMnyQPAh3k2jhWL4e}#
+ #{mod _hoQGWMnyQPAh3k2jhWL4g}#))))))
+ (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
+ (lambda (#{expanded _hoQGWMnyQPAh3k2jhWL$6}#
+ #{mod _hoQGWMnyQPAh3k2jhWL$7}#)
+ (let ((#{p _hoQGWMnyQPAh3k2jhWL$8}#
(primitive-eval
- #{expanded _85hotwsCta0JfYIjI4Oi3}#)))
- (if (procedure? #{p _85hotwsCta0JfYIjI4Oi5}#)
- #{p _85hotwsCta0JfYIjI4Oi5}#
+ #{expanded _hoQGWMnyQPAh3k2jhWL$6}#)))
+ (if (procedure? #{p _hoQGWMnyQPAh3k2jhWL$8}#)
+ #{p _hoQGWMnyQPAh3k2jhWL$8}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p _85hotwsCta0JfYIjI4Oi5}#)))))
- (#{ellipsis? _85hotwsCta0JfYIjI4J4T}#
- (lambda (#{x _85hotwsCta0JfYIjI4KCo}#)
- (if (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#)
+ #{p _hoQGWMnyQPAh3k2jhWL$8}#)))))
+ (#{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHeC}#)
+ (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1))
#f)
- (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#)
+ (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1)
- #{x _85hotwsCta0JfYIjI4KCo}#)
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1)
+ #{x _hoQGWMnyQPAh3k2jhWHeC}#)
(if (if (= (vector-length
'#(syntax-object
...
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{x _85hotwsCta0JfYIjI4KCo}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{x _hoQGWMnyQPAh3k2jhWHeC}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
...
((top)
'(())))
#f)
#f)))
- (#{lambda-formals _85hotwsCta0JfYIjI4J4U}#
- (lambda (#{orig-args _85hotwsCta0JfYIjI4Oi$}#)
+ (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}#
+ (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWL@B}#)
(letrec*
- ((#{req _85hotwsCta0JfYIjI4Oi@}#
- (lambda (#{args _85hotwsCta0JfYIjI4OjD}#
- #{rreq _85hotwsCta0JfYIjI4OjE}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OjG}#
+ ((#{req _hoQGWMnyQPAh3k2jhWL@C}#
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWL@G}#
+ #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWL@J}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4OjD}#
+ #{args _hoQGWMnyQPAh3k2jhWL@G}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4OjG}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWL@J}#
(@apply
(lambda ()
- (#{check _85hotwsCta0JfYIjI4OjA}#
- (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#)
+ (#{check _hoQGWMnyQPAh3k2jhWL@D}#
+ (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)
#f))
- #{tmp _85hotwsCta0JfYIjI4OjG}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OlB}#
+ #{tmp _hoQGWMnyQPAh3k2jhWL@J}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBE}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4OjD}#
+ #{args _hoQGWMnyQPAh3k2jhWL@G}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4OlB}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMBE}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OlF}#
- #{b _85hotwsCta0JfYIjI4OlG}#)
- (if (symbol? #{a _85hotwsCta0JfYIjI4OlF}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMBI}#
+ #{b _hoQGWMnyQPAh3k2jhWMBJ}#)
+ (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMBI}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4OlF}#)
+ #{a _hoQGWMnyQPAh3k2jhWMBI}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4OlF}#)
+ #{a _hoQGWMnyQPAh3k2jhWMBI}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4OlF}#
+ #{a _hoQGWMnyQPAh3k2jhWMBI}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4OlF}#
+ #{a _hoQGWMnyQPAh3k2jhWMBI}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4OlB}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMBE}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Olh}#
- #{b _85hotwsCta0JfYIjI4Oli}#)
- (#{req _85hotwsCta0JfYIjI4Oi@}#
- #{b _85hotwsCta0JfYIjI4Oli}#
- (cons #{a _85hotwsCta0JfYIjI4Olh}#
- #{rreq _85hotwsCta0JfYIjI4OjE}#)))
- #{tmp _85hotwsCta0JfYIjI4OlB}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Olj}#
- (list #{args _85hotwsCta0JfYIjI4OjD}#)))
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMBk}#
+ #{b _hoQGWMnyQPAh3k2jhWMBl}#)
+ (#{req _hoQGWMnyQPAh3k2jhWL@C}#
+ #{b _hoQGWMnyQPAh3k2jhWMBl}#
+ (cons #{a _hoQGWMnyQPAh3k2jhWMBk}#
+ #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMBE}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBm}#
+ (list #{args _hoQGWMnyQPAh3k2jhWL@G}#)))
(if (@apply
- (lambda (#{r _85hotwsCta0JfYIjI4Oll}#)
- (if (symbol? #{r _85hotwsCta0JfYIjI4Oll}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMBo}#)
+ (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMBo}#)
#t
(if (if (vector?
- #{r _85hotwsCta0JfYIjI4Oll}#)
+ #{r _hoQGWMnyQPAh3k2jhWMBo}#)
(if (= (vector-length
- #{r _85hotwsCta0JfYIjI4Oll}#)
+ #{r _hoQGWMnyQPAh3k2jhWMBo}#)
4)
(eq? (vector-ref
- #{r _85hotwsCta0JfYIjI4Oll}#
+ #{r _hoQGWMnyQPAh3k2jhWMBo}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _85hotwsCta0JfYIjI4Oll}#
+ #{r _hoQGWMnyQPAh3k2jhWMBo}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Olj}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMBm}#)
(@apply
- (lambda (#{r _85hotwsCta0JfYIjI4OmD}#)
- (#{check _85hotwsCta0JfYIjI4OjA}#
- (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#)
- #{r _85hotwsCta0JfYIjI4OmD}#))
- #{tmp _85hotwsCta0JfYIjI4Olj}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMCG}#)
+ (#{check _hoQGWMnyQPAh3k2jhWL@D}#
+ (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)
+ #{r _hoQGWMnyQPAh3k2jhWMCG}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWMBm}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args _85hotwsCta0JfYIjI4Oi$}#
- #{args _85hotwsCta0JfYIjI4OjD}#)))))))))
- (#{check _85hotwsCta0JfYIjI4OjA}#
- (lambda (#{req _85hotwsCta0JfYIjI4OoG}#
- #{rest _85hotwsCta0JfYIjI4OoH}#)
- (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
- (if #{rest _85hotwsCta0JfYIjI4OoH}#
- (cons #{rest _85hotwsCta0JfYIjI4OoH}#
- #{req _85hotwsCta0JfYIjI4OoG}#)
- #{req _85hotwsCta0JfYIjI4OoG}#))
+ #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#
+ #{args _hoQGWMnyQPAh3k2jhWL@G}#)))))))))
+ (#{check _hoQGWMnyQPAh3k2jhWL@D}#
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMEJ}#
+ #{rest _hoQGWMnyQPAh3k2jhWMEK}#)
+ (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
+ (if #{rest _hoQGWMnyQPAh3k2jhWMEK}#
+ (cons #{rest _hoQGWMnyQPAh3k2jhWMEK}#
+ #{req _hoQGWMnyQPAh3k2jhWMEJ}#)
+ #{req _hoQGWMnyQPAh3k2jhWMEJ}#))
(values
- #{req _85hotwsCta0JfYIjI4OoG}#
+ #{req _hoQGWMnyQPAh3k2jhWMEJ}#
#f
- #{rest _85hotwsCta0JfYIjI4OoH}#
+ #{rest _hoQGWMnyQPAh3k2jhWMEK}#
#f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args _85hotwsCta0JfYIjI4Oi$}#)))))
- (#{req _85hotwsCta0JfYIjI4Oi@}#
- #{orig-args _85hotwsCta0JfYIjI4Oi$}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#)))))
+ (#{req _hoQGWMnyQPAh3k2jhWL@C}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#
'()))))
- (#{expand-simple-lambda _85hotwsCta0JfYIjI4J4V}#
- (lambda (#{e _85hotwsCta0JfYIjI4Op7}#
- #{r _85hotwsCta0JfYIjI4Op8}#
- #{w _85hotwsCta0JfYIjI4Op9}#
- #{s _85hotwsCta0JfYIjI4Op$}#
- #{mod _85hotwsCta0JfYIjI4Op@}#
- #{req _85hotwsCta0JfYIjI4OqA}#
- #{rest _85hotwsCta0JfYIjI4OqB}#
- #{meta _85hotwsCta0JfYIjI4OqC}#
- #{body _85hotwsCta0JfYIjI4OqD}#)
- (let ((#{ids _85hotwsCta0JfYIjI4OqE}#
- (if #{rest _85hotwsCta0JfYIjI4OqB}#
+ (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWMF$}#
+ #{r _hoQGWMnyQPAh3k2jhWMF@}#
+ #{w _hoQGWMnyQPAh3k2jhWMGA}#
+ #{s _hoQGWMnyQPAh3k2jhWMGB}#
+ #{mod _hoQGWMnyQPAh3k2jhWMGC}#
+ #{req _hoQGWMnyQPAh3k2jhWMGD}#
+ #{rest _hoQGWMnyQPAh3k2jhWMGE}#
+ #{meta _hoQGWMnyQPAh3k2jhWMGF}#
+ #{body _hoQGWMnyQPAh3k2jhWMGG}#)
+ (let ((#{ids _hoQGWMnyQPAh3k2jhWMGH}#
+ (if #{rest _hoQGWMnyQPAh3k2jhWMGE}#
(append
- #{req _85hotwsCta0JfYIjI4OqA}#
- (list #{rest _85hotwsCta0JfYIjI4OqB}#))
- #{req _85hotwsCta0JfYIjI4OqA}#)))
- (let ((#{vars _85hotwsCta0JfYIjI4OqF}#
- (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
- #{ids _85hotwsCta0JfYIjI4OqE}#)))
- (let ((#{labels _85hotwsCta0JfYIjI4OqG}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{ids _85hotwsCta0JfYIjI4OqE}#)))
- (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
- #{s _85hotwsCta0JfYIjI4Op$}#
+ #{req _hoQGWMnyQPAh3k2jhWMGD}#
+ (list #{rest _hoQGWMnyQPAh3k2jhWMGE}#))
+ #{req _hoQGWMnyQPAh3k2jhWMGD}#)))
+ (let ((#{vars _hoQGWMnyQPAh3k2jhWMGI}#
+ (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ #{ids _hoQGWMnyQPAh3k2jhWMGH}#)))
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWMGJ}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{ids _hoQGWMnyQPAh3k2jhWMGH}#)))
+ (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
+ #{s _hoQGWMnyQPAh3k2jhWMGB}#
(map syntax->datum
- #{req _85hotwsCta0JfYIjI4OqA}#)
- (if #{rest _85hotwsCta0JfYIjI4OqB}#
- (syntax->datum #{rest _85hotwsCta0JfYIjI4OqB}#)
+ #{req _hoQGWMnyQPAh3k2jhWMGD}#)
+ (if #{rest _hoQGWMnyQPAh3k2jhWMGE}#
+ (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMGE}#)
#f)
- #{vars _85hotwsCta0JfYIjI4OqF}#
- #{meta _85hotwsCta0JfYIjI4OqC}#
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- #{body _85hotwsCta0JfYIjI4OqD}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{vars _hoQGWMnyQPAh3k2jhWMGI}#
+ #{meta _hoQGWMnyQPAh3k2jhWMGF}#
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ #{body _hoQGWMnyQPAh3k2jhWMGG}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4Op7}#)
- #{s _85hotwsCta0JfYIjI4Op$}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMF$}#)
+ #{s _hoQGWMnyQPAh3k2jhWMGB}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4Op7}#
- #{s _85hotwsCta0JfYIjI4Op$}#))
- #{e _85hotwsCta0JfYIjI4Op7}#)
- #{w _85hotwsCta0JfYIjI4Op9}#
- #{mod _85hotwsCta0JfYIjI4Op@}#)
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{labels _85hotwsCta0JfYIjI4OqG}#
- #{vars _85hotwsCta0JfYIjI4OqF}#
- #{r _85hotwsCta0JfYIjI4Op8}#)
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{ids _85hotwsCta0JfYIjI4OqE}#
- #{labels _85hotwsCta0JfYIjI4OqG}#
- #{w _85hotwsCta0JfYIjI4Op9}#)
- #{mod _85hotwsCta0JfYIjI4Op@}#)))))))
- (#{lambda*-formals _85hotwsCta0JfYIjI4J4W}#
- (lambda (#{orig-args _85hotwsCta0JfYIjI4OuW}#)
+ #{e _hoQGWMnyQPAh3k2jhWMF$}#
+ #{s _hoQGWMnyQPAh3k2jhWMGB}#))
+ #{e _hoQGWMnyQPAh3k2jhWMF$}#)
+ #{w _hoQGWMnyQPAh3k2jhWMGA}#
+ #{mod _hoQGWMnyQPAh3k2jhWMGC}#)
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{labels _hoQGWMnyQPAh3k2jhWMGJ}#
+ #{vars _hoQGWMnyQPAh3k2jhWMGI}#
+ #{r _hoQGWMnyQPAh3k2jhWMF@}#)
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{ids _hoQGWMnyQPAh3k2jhWMGH}#
+ #{labels _hoQGWMnyQPAh3k2jhWMGJ}#
+ #{w _hoQGWMnyQPAh3k2jhWMGA}#)
+ #{mod _hoQGWMnyQPAh3k2jhWMGC}#)))))))
+ (#{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}#
+ (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#)
(letrec*
- ((#{req _85hotwsCta0JfYIjI4OuX}#
- (lambda (#{args _85hotwsCta0JfYIjI4Oue}#
- #{rreq _85hotwsCta0JfYIjI4Ouf}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ouh}#
+ ((#{req _hoQGWMnyQPAh3k2jhWMKa}#
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWMKh}#
+ #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKk}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oue}#
+ #{args _hoQGWMnyQPAh3k2jhWMKh}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4Ouh}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMKk}#
(@apply
(lambda ()
- (#{check _85hotwsCta0JfYIjI4Oub}#
- (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#)
+ (#{check _hoQGWMnyQPAh3k2jhWMKe}#
+ (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
'()
#f
'()))
- #{tmp _85hotwsCta0JfYIjI4Ouh}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Oun}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMKk}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKq}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oue}#
+ #{args _hoQGWMnyQPAh3k2jhWMKh}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Oun}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMKq}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Our}#
- #{b _85hotwsCta0JfYIjI4Ous}#)
- (if (symbol? #{a _85hotwsCta0JfYIjI4Our}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMKu}#
+ #{b _hoQGWMnyQPAh3k2jhWMKv}#)
+ (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMKu}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4Our}#)
+ #{a _hoQGWMnyQPAh3k2jhWMKu}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4Our}#)
+ #{a _hoQGWMnyQPAh3k2jhWMKu}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4Our}#
+ #{a _hoQGWMnyQPAh3k2jhWMKu}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4Our}#
+ #{a _hoQGWMnyQPAh3k2jhWMKu}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Oun}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMKq}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OvH}#
- #{b _85hotwsCta0JfYIjI4OvI}#)
- (#{req _85hotwsCta0JfYIjI4OuX}#
- #{b _85hotwsCta0JfYIjI4OvI}#
- (cons #{a _85hotwsCta0JfYIjI4OvH}#
- #{rreq _85hotwsCta0JfYIjI4Ouf}#)))
- #{tmp _85hotwsCta0JfYIjI4Oun}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OvJ}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLK}#
+ #{b _hoQGWMnyQPAh3k2jhWMLL}#)
+ (#{req _hoQGWMnyQPAh3k2jhWMKa}#
+ #{b _hoQGWMnyQPAh3k2jhWMLL}#
+ (cons #{a _hoQGWMnyQPAh3k2jhWMLK}#
+ #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMKq}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLM}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oue}#
+ #{args _hoQGWMnyQPAh3k2jhWMKh}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4OvJ}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLM}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OvN}#
- #{b _85hotwsCta0JfYIjI4OvO}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLQ}#
+ #{b _hoQGWMnyQPAh3k2jhWMLR}#)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4OvN}#)
+ #{a _hoQGWMnyQPAh3k2jhWMLQ}#)
#:optional))
- #{tmp _85hotwsCta0JfYIjI4OvJ}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMLM}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OvP}#
- #{b _85hotwsCta0JfYIjI4OvQ}#)
- (#{opt _85hotwsCta0JfYIjI4OuY}#
- #{b _85hotwsCta0JfYIjI4OvQ}#
- (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLS}#
+ #{b _hoQGWMnyQPAh3k2jhWMLT}#)
+ (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
+ #{b _hoQGWMnyQPAh3k2jhWMLT}#
+ (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
'()))
- #{tmp _85hotwsCta0JfYIjI4OvJ}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OvT}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMLM}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLW}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oue}#
+ #{args _hoQGWMnyQPAh3k2jhWMKh}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4OvT}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLW}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OvX}#
- #{b _85hotwsCta0JfYIjI4OvY}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLa}#
+ #{b _hoQGWMnyQPAh3k2jhWMLb}#)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4OvX}#)
+ #{a _hoQGWMnyQPAh3k2jhWMLa}#)
#:key))
- #{tmp _85hotwsCta0JfYIjI4OvT}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMLW}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OvZ}#
- #{b _85hotwsCta0JfYIjI4Ova}#)
- (#{key _85hotwsCta0JfYIjI4OuZ}#
- #{b _85hotwsCta0JfYIjI4Ova}#
- (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLc}#
+ #{b _hoQGWMnyQPAh3k2jhWMLd}#)
+ (#{key _hoQGWMnyQPAh3k2jhWMKc}#
+ #{b _hoQGWMnyQPAh3k2jhWMLd}#
+ (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
'()
'()))
- #{tmp _85hotwsCta0JfYIjI4OvT}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ovd}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMLW}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLg}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oue}#
+ #{args _hoQGWMnyQPAh3k2jhWMKh}#
'(any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Ovd}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLg}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Ovh}#
- #{b _85hotwsCta0JfYIjI4Ovi}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLk}#
+ #{b _hoQGWMnyQPAh3k2jhWMLl}#)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4Ovh}#)
+ #{a _hoQGWMnyQPAh3k2jhWMLk}#)
#:rest))
- #{tmp _85hotwsCta0JfYIjI4Ovd}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMLg}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Ovj}#
- #{b _85hotwsCta0JfYIjI4Ovk}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{b _85hotwsCta0JfYIjI4Ovk}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMLm}#
+ #{b _hoQGWMnyQPAh3k2jhWMLn}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{b _hoQGWMnyQPAh3k2jhWMLn}#
(reverse
- #{rreq _85hotwsCta0JfYIjI4Ouf}#)
+ #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
'()
'()))
- #{tmp _85hotwsCta0JfYIjI4Ovd}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ovn}#
- (list #{args _85hotwsCta0JfYIjI4Oue}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMLg}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLq}#
+ (list #{args _hoQGWMnyQPAh3k2jhWMKh}#)))
(if (@apply
- (lambda (#{r _85hotwsCta0JfYIjI4Ovp}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMLs}#)
(if (symbol?
- #{r _85hotwsCta0JfYIjI4Ovp}#)
+ #{r _hoQGWMnyQPAh3k2jhWMLs}#)
#t
(if (if (vector?
- #{r _85hotwsCta0JfYIjI4Ovp}#)
+ #{r _hoQGWMnyQPAh3k2jhWMLs}#)
(if (= (vector-length
- #{r _85hotwsCta0JfYIjI4Ovp}#)
+ #{r _hoQGWMnyQPAh3k2jhWMLs}#)
4)
(eq? (vector-ref
- #{r _85hotwsCta0JfYIjI4Ovp}#
+ #{r _hoQGWMnyQPAh3k2jhWMLs}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _85hotwsCta0JfYIjI4Ovp}#
+ #{r _hoQGWMnyQPAh3k2jhWMLs}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Ovn}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMLq}#)
(@apply
- (lambda (#{r _85hotwsCta0JfYIjI4OwH}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{r _85hotwsCta0JfYIjI4OwH}#
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMMK}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{r _hoQGWMnyQPAh3k2jhWMMK}#
(reverse
- #{rreq _85hotwsCta0JfYIjI4Ouf}#)
+ #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
'()
'()))
- #{tmp _85hotwsCta0JfYIjI4Ovn}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMLq}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args _85hotwsCta0JfYIjI4OuW}#
- #{args _85hotwsCta0JfYIjI4Oue}#)))))))))))))))
- (#{opt _85hotwsCta0JfYIjI4OuY}#
- (lambda (#{args _85hotwsCta0JfYIjI4Owa}#
- #{req _85hotwsCta0JfYIjI4Owb}#
- #{ropt _85hotwsCta0JfYIjI4Owc}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Owe}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
+ #{args _hoQGWMnyQPAh3k2jhWMKh}#)))))))))))))))
+ (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWMMd}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMh}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Owa}#
+ #{args _hoQGWMnyQPAh3k2jhWMMd}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4Owe}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMMh}#
(@apply
(lambda ()
- (#{check _85hotwsCta0JfYIjI4Oub}#
- #{req _85hotwsCta0JfYIjI4Owb}#
- (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#)
+ (#{check _hoQGWMnyQPAh3k2jhWMKe}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
#f
'()))
- #{tmp _85hotwsCta0JfYIjI4Owe}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Owk}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMMh}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMn}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Owa}#
+ #{args _hoQGWMnyQPAh3k2jhWMMd}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Owk}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMMn}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Owo}#
- #{b _85hotwsCta0JfYIjI4Owp}#)
- (if (symbol? #{a _85hotwsCta0JfYIjI4Owo}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMMr}#
+ #{b _hoQGWMnyQPAh3k2jhWMMs}#)
+ (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMMr}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4Owo}#)
+ #{a _hoQGWMnyQPAh3k2jhWMMr}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4Owo}#)
+ #{a _hoQGWMnyQPAh3k2jhWMMr}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4Owo}#
+ #{a _hoQGWMnyQPAh3k2jhWMMr}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4Owo}#
+ #{a _hoQGWMnyQPAh3k2jhWMMr}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Owk}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMMn}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OxE}#
- #{b _85hotwsCta0JfYIjI4OxF}#)
- (#{opt _85hotwsCta0JfYIjI4OuY}#
- #{b _85hotwsCta0JfYIjI4OxF}#
- #{req _85hotwsCta0JfYIjI4Owb}#
- (cons (cons #{a _85hotwsCta0JfYIjI4OxE}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMNH}#
+ #{b _hoQGWMnyQPAh3k2jhWMNI}#)
+ (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
+ #{b _hoQGWMnyQPAh3k2jhWMNI}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ (cons (cons #{a _hoQGWMnyQPAh3k2jhWMNH}#
'(#(syntax-object
#f
((top)
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))))
- #{ropt _85hotwsCta0JfYIjI4Owc}#)))
- #{tmp _85hotwsCta0JfYIjI4Owk}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4OxG}#
+ #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMMn}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNJ}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Owa}#
+ #{args _hoQGWMnyQPAh3k2jhWMMd}#
'((any any) . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4OxG}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OxK}#
- #{init _85hotwsCta0JfYIjI4OxL}#
- #{b _85hotwsCta0JfYIjI4OxM}#)
- (if (symbol? #{a _85hotwsCta0JfYIjI4OxK}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMNN}#
+ #{init _hoQGWMnyQPAh3k2jhWMNO}#
+ #{b _hoQGWMnyQPAh3k2jhWMNP}#)
+ (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMNN}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4OxK}#)
+ #{a _hoQGWMnyQPAh3k2jhWMNN}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4OxK}#)
+ #{a _hoQGWMnyQPAh3k2jhWMNN}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4OxK}#
+ #{a _hoQGWMnyQPAh3k2jhWMNN}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4OxK}#
+ #{a _hoQGWMnyQPAh3k2jhWMNN}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4OxG}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Oxn}#
- #{init _85hotwsCta0JfYIjI4Oxo}#
- #{b _85hotwsCta0JfYIjI4Oxp}#)
- (#{opt _85hotwsCta0JfYIjI4OuY}#
- #{b _85hotwsCta0JfYIjI4Oxp}#
- #{req _85hotwsCta0JfYIjI4Owb}#
- (cons (list #{a _85hotwsCta0JfYIjI4Oxn}#
- #{init _85hotwsCta0JfYIjI4Oxo}#)
- #{ropt _85hotwsCta0JfYIjI4Owc}#)))
- #{tmp _85hotwsCta0JfYIjI4OxG}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Oxq}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMNq}#
+ #{init _hoQGWMnyQPAh3k2jhWMNr}#
+ #{b _hoQGWMnyQPAh3k2jhWMNs}#)
+ (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
+ #{b _hoQGWMnyQPAh3k2jhWMNs}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ (cons (list #{a _hoQGWMnyQPAh3k2jhWMNq}#
+ #{init _hoQGWMnyQPAh3k2jhWMNr}#)
+ #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNt}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Owa}#
+ #{args _hoQGWMnyQPAh3k2jhWMMd}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Oxq}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNt}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Oxu}#
- #{b _85hotwsCta0JfYIjI4Oxv}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMNx}#
+ #{b _hoQGWMnyQPAh3k2jhWMNy}#)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4Oxu}#)
+ #{a _hoQGWMnyQPAh3k2jhWMNx}#)
#:key))
- #{tmp _85hotwsCta0JfYIjI4Oxq}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMNt}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Oxw}#
- #{b _85hotwsCta0JfYIjI4Oxx}#)
- (#{key _85hotwsCta0JfYIjI4OuZ}#
- #{b _85hotwsCta0JfYIjI4Oxx}#
- #{req _85hotwsCta0JfYIjI4Owb}#
- (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMNz}#
+ #{b _hoQGWMnyQPAh3k2jhWMN0}#)
+ (#{key _hoQGWMnyQPAh3k2jhWMKc}#
+ #{b _hoQGWMnyQPAh3k2jhWMN0}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
'()))
- #{tmp _85hotwsCta0JfYIjI4Oxq}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ox0}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMNt}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMN3}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Owa}#
+ #{args _hoQGWMnyQPAh3k2jhWMMd}#
'(any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Ox0}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMN3}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Ox4}#
- #{b _85hotwsCta0JfYIjI4Ox5}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMN7}#
+ #{b _hoQGWMnyQPAh3k2jhWMN8}#)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4Ox4}#)
+ #{a _hoQGWMnyQPAh3k2jhWMN7}#)
#:rest))
- #{tmp _85hotwsCta0JfYIjI4Ox0}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMN3}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Ox6}#
- #{b _85hotwsCta0JfYIjI4Ox7}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{b _85hotwsCta0JfYIjI4Ox7}#
- #{req _85hotwsCta0JfYIjI4Owb}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMN9}#
+ #{b _hoQGWMnyQPAh3k2jhWMN$}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{b _hoQGWMnyQPAh3k2jhWMN$}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
(reverse
- #{ropt _85hotwsCta0JfYIjI4Owc}#)
+ #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
'()))
- #{tmp _85hotwsCta0JfYIjI4Ox0}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ox$}#
- (list #{args _85hotwsCta0JfYIjI4Owa}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMN3}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMOB}#
+ (list #{args _hoQGWMnyQPAh3k2jhWMMd}#)))
(if (@apply
- (lambda (#{r _85hotwsCta0JfYIjI4OyA}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMOD}#)
(if (symbol?
- #{r _85hotwsCta0JfYIjI4OyA}#)
+ #{r _hoQGWMnyQPAh3k2jhWMOD}#)
#t
(if (if (vector?
- #{r _85hotwsCta0JfYIjI4OyA}#)
+ #{r _hoQGWMnyQPAh3k2jhWMOD}#)
(if (= (vector-length
- #{r _85hotwsCta0JfYIjI4OyA}#)
+ #{r _hoQGWMnyQPAh3k2jhWMOD}#)
4)
(eq? (vector-ref
- #{r _85hotwsCta0JfYIjI4OyA}#
+ #{r _hoQGWMnyQPAh3k2jhWMOD}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _85hotwsCta0JfYIjI4OyA}#
+ #{r _hoQGWMnyQPAh3k2jhWMOD}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Ox$}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMOB}#)
(@apply
- (lambda (#{r _85hotwsCta0JfYIjI4Oye}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{r _85hotwsCta0JfYIjI4Oye}#
- #{req _85hotwsCta0JfYIjI4Owb}#
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMOh}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{r _hoQGWMnyQPAh3k2jhWMOh}#
+ #{req _hoQGWMnyQPAh3k2jhWMMe}#
(reverse
- #{ropt _85hotwsCta0JfYIjI4Owc}#)
+ #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
'()))
- #{tmp _85hotwsCta0JfYIjI4Ox$}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMOB}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args _85hotwsCta0JfYIjI4OuW}#
- #{args _85hotwsCta0JfYIjI4Owa}#)))))))))))))))
- (#{key _85hotwsCta0JfYIjI4OuZ}#
- (lambda (#{args _85hotwsCta0JfYIjI4Oyx}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
- #{rkey _85hotwsCta0JfYIjI4Oy0}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Oy2}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
+ #{args _hoQGWMnyQPAh3k2jhWMMd}#)))))))))))))))
+ (#{key _hoQGWMnyQPAh3k2jhWMKc}#
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWMO0}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO5}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4Oy2}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMO5}#
(@apply
(lambda ()
- (#{check _85hotwsCta0JfYIjI4Oub}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (#{check _hoQGWMnyQPAh3k2jhWMKe}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
#f
(cons #f
- (reverse #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4Oy2}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Oy8}#
+ (reverse #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMO5}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO@}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Oy8}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMO@}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4OzA}#
- #{b _85hotwsCta0JfYIjI4OzB}#)
- (if (symbol? #{a _85hotwsCta0JfYIjI4OzA}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMPD}#
+ #{b _hoQGWMnyQPAh3k2jhWMPE}#)
+ (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPD}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4OzA}#)
+ #{a _hoQGWMnyQPAh3k2jhWMPD}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4OzA}#)
+ #{a _hoQGWMnyQPAh3k2jhWMPD}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4OzA}#
+ #{a _hoQGWMnyQPAh3k2jhWMPD}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4OzA}#
+ #{a _hoQGWMnyQPAh3k2jhWMPD}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Oy8}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMO@}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Ozc}#
- #{b _85hotwsCta0JfYIjI4Ozd}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Oze}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMPf}#
+ #{b _hoQGWMnyQPAh3k2jhWMPg}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPh}#
(symbol->keyword
(syntax->datum
- #{a _85hotwsCta0JfYIjI4Ozc}#))))
- (#{key _85hotwsCta0JfYIjI4OuZ}#
- #{b _85hotwsCta0JfYIjI4Ozd}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
- (cons (cons #{tmp _85hotwsCta0JfYIjI4Oze}#
- (cons #{a _85hotwsCta0JfYIjI4Ozc}#
+ #{a _hoQGWMnyQPAh3k2jhWMPf}#))))
+ (#{key _hoQGWMnyQPAh3k2jhWMKc}#
+ #{b _hoQGWMnyQPAh3k2jhWMPg}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (cons (cons #{tmp _hoQGWMnyQPAh3k2jhWMPh}#
+ (cons #{a _hoQGWMnyQPAh3k2jhWMPf}#
'(#(syntax-object
#f
((top)
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile)))))
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4Oy8}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ozh}#
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMO@}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPk}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'((any any) . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Ozh}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMPk}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4Ozl}#
- #{init _85hotwsCta0JfYIjI4Ozm}#
- #{b _85hotwsCta0JfYIjI4Ozn}#)
- (if (symbol? #{a _85hotwsCta0JfYIjI4Ozl}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMPo}#
+ #{init _hoQGWMnyQPAh3k2jhWMPp}#
+ #{b _hoQGWMnyQPAh3k2jhWMPq}#)
+ (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPo}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4Ozl}#)
+ #{a _hoQGWMnyQPAh3k2jhWMPo}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4Ozl}#)
+ #{a _hoQGWMnyQPAh3k2jhWMPo}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4Ozl}#
+ #{a _hoQGWMnyQPAh3k2jhWMPo}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4Ozl}#
+ #{a _hoQGWMnyQPAh3k2jhWMPo}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4Ozh}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMPk}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4O0C}#
- #{init _85hotwsCta0JfYIjI4O0D}#
- #{b _85hotwsCta0JfYIjI4O0E}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O0F}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMQF}#
+ #{init _hoQGWMnyQPAh3k2jhWMQG}#
+ #{b _hoQGWMnyQPAh3k2jhWMQH}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQI}#
(symbol->keyword
(syntax->datum
- #{a _85hotwsCta0JfYIjI4O0C}#))))
- (#{key _85hotwsCta0JfYIjI4OuZ}#
- #{b _85hotwsCta0JfYIjI4O0E}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
- (cons (list #{tmp _85hotwsCta0JfYIjI4O0F}#
- #{a _85hotwsCta0JfYIjI4O0C}#
- #{init _85hotwsCta0JfYIjI4O0D}#)
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4Ozh}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O0I}#
+ #{a _hoQGWMnyQPAh3k2jhWMQF}#))))
+ (#{key _hoQGWMnyQPAh3k2jhWMKc}#
+ #{b _hoQGWMnyQPAh3k2jhWMQH}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (cons (list #{tmp _hoQGWMnyQPAh3k2jhWMQI}#
+ #{a _hoQGWMnyQPAh3k2jhWMQF}#
+ #{init _hoQGWMnyQPAh3k2jhWMQG}#)
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMPk}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQL}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'((any any any) . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4O0I}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQL}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4O0M}#
- #{init _85hotwsCta0JfYIjI4O0N}#
- #{k _85hotwsCta0JfYIjI4O0O}#
- #{b _85hotwsCta0JfYIjI4O0P}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMQP}#
+ #{init _hoQGWMnyQPAh3k2jhWMQQ}#
+ #{k _hoQGWMnyQPAh3k2jhWMQR}#
+ #{b _hoQGWMnyQPAh3k2jhWMQS}#)
(if (if (symbol?
- #{a _85hotwsCta0JfYIjI4O0M}#)
+ #{a _hoQGWMnyQPAh3k2jhWMQP}#)
#t
(if (if (vector?
- #{a _85hotwsCta0JfYIjI4O0M}#)
+ #{a _hoQGWMnyQPAh3k2jhWMQP}#)
(if (= (vector-length
- #{a _85hotwsCta0JfYIjI4O0M}#)
+ #{a _hoQGWMnyQPAh3k2jhWMQP}#)
4)
(eq? (vector-ref
- #{a _85hotwsCta0JfYIjI4O0M}#
+ #{a _hoQGWMnyQPAh3k2jhWMQP}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _85hotwsCta0JfYIjI4O0M}#
+ #{a _hoQGWMnyQPAh3k2jhWMQP}#
1))
#f))
(keyword?
(syntax->datum
- #{k _85hotwsCta0JfYIjI4O0O}#))
+ #{k _hoQGWMnyQPAh3k2jhWMQR}#))
#f))
- #{tmp _85hotwsCta0JfYIjI4O0I}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMQL}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4O0q}#
- #{init _85hotwsCta0JfYIjI4O0r}#
- #{k _85hotwsCta0JfYIjI4O0s}#
- #{b _85hotwsCta0JfYIjI4O0t}#)
- (#{key _85hotwsCta0JfYIjI4OuZ}#
- #{b _85hotwsCta0JfYIjI4O0t}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
- (cons (list #{k _85hotwsCta0JfYIjI4O0s}#
- #{a _85hotwsCta0JfYIjI4O0q}#
- #{init _85hotwsCta0JfYIjI4O0r}#)
- #{rkey _85hotwsCta0JfYIjI4Oy0}#)))
- #{tmp _85hotwsCta0JfYIjI4O0I}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O0u}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMQt}#
+ #{init _hoQGWMnyQPAh3k2jhWMQu}#
+ #{k _hoQGWMnyQPAh3k2jhWMQv}#
+ #{b _hoQGWMnyQPAh3k2jhWMQw}#)
+ (#{key _hoQGWMnyQPAh3k2jhWMKc}#
+ #{b _hoQGWMnyQPAh3k2jhWMQw}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (cons (list #{k _hoQGWMnyQPAh3k2jhWMQv}#
+ #{a _hoQGWMnyQPAh3k2jhWMQt}#
+ #{init _hoQGWMnyQPAh3k2jhWMQu}#)
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMQL}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQx}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'(any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4O0u}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQx}#
(@apply
- (lambda (#{aok _85hotwsCta0JfYIjI4O0y}#)
+ (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ1}#)
(eq? (syntax->datum
- #{aok _85hotwsCta0JfYIjI4O0y}#)
+ #{aok _hoQGWMnyQPAh3k2jhWMQ1}#)
#:allow-other-keys))
- #{tmp _85hotwsCta0JfYIjI4O0u}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMQx}#)
#f)
(@apply
- (lambda (#{aok _85hotwsCta0JfYIjI4O0z}#)
- (#{check _85hotwsCta0JfYIjI4Oub}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ2}#)
+ (#{check _hoQGWMnyQPAh3k2jhWMKe}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
#f
(cons #t
(reverse
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4O0u}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O02}#
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMQx}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQ5}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'(any any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4O02}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#
(@apply
- (lambda (#{aok _85hotwsCta0JfYIjI4O06}#
- #{a _85hotwsCta0JfYIjI4O07}#
- #{b _85hotwsCta0JfYIjI4O08}#)
+ (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ9}#
+ #{a _hoQGWMnyQPAh3k2jhWMQ$}#
+ #{b _hoQGWMnyQPAh3k2jhWMQ@}#)
(if (eq? (syntax->datum
- #{aok _85hotwsCta0JfYIjI4O06}#)
+ #{aok _hoQGWMnyQPAh3k2jhWMQ9}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4O07}#)
+ #{a _hoQGWMnyQPAh3k2jhWMQ$}#)
#:rest)
#f))
- #{tmp _85hotwsCta0JfYIjI4O02}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#)
#f)
(@apply
- (lambda (#{aok _85hotwsCta0JfYIjI4O09}#
- #{a _85hotwsCta0JfYIjI4O0$}#
- #{b _85hotwsCta0JfYIjI4O0@}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{b _85hotwsCta0JfYIjI4O0@}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRA}#
+ #{a _hoQGWMnyQPAh3k2jhWMRB}#
+ #{b _hoQGWMnyQPAh3k2jhWMRC}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{b _hoQGWMnyQPAh3k2jhWMRC}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
(cons #t
(reverse
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4O02}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O1C}#
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRF}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4O1C}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRF}#
(@apply
- (lambda (#{aok _85hotwsCta0JfYIjI4O1G}#
- #{r _85hotwsCta0JfYIjI4O1H}#)
+ (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRJ}#
+ #{r _hoQGWMnyQPAh3k2jhWMRK}#)
(if (eq? (syntax->datum
- #{aok _85hotwsCta0JfYIjI4O1G}#)
+ #{aok _hoQGWMnyQPAh3k2jhWMRJ}#)
#:allow-other-keys)
(if (symbol?
- #{r _85hotwsCta0JfYIjI4O1H}#)
+ #{r _hoQGWMnyQPAh3k2jhWMRK}#)
#t
(if (if (vector?
- #{r _85hotwsCta0JfYIjI4O1H}#)
+ #{r _hoQGWMnyQPAh3k2jhWMRK}#)
(if (= (vector-length
- #{r _85hotwsCta0JfYIjI4O1H}#)
+ #{r _hoQGWMnyQPAh3k2jhWMRK}#)
4)
(eq? (vector-ref
- #{r _85hotwsCta0JfYIjI4O1H}#
+ #{r _hoQGWMnyQPAh3k2jhWMRK}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _85hotwsCta0JfYIjI4O1H}#
+ #{r _hoQGWMnyQPAh3k2jhWMRK}#
1))
#f))
#f))
- #{tmp _85hotwsCta0JfYIjI4O1C}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMRF}#)
#f)
(@apply
- (lambda (#{aok _85hotwsCta0JfYIjI4O1i}#
- #{r _85hotwsCta0JfYIjI4O1j}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{r _85hotwsCta0JfYIjI4O1j}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRl}#
+ #{r _hoQGWMnyQPAh3k2jhWMRm}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{r _hoQGWMnyQPAh3k2jhWMRm}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
(cons #t
(reverse
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4O1C}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O1m}#
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMRF}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRp}#
($sc-dispatch
- #{args _85hotwsCta0JfYIjI4Oyx}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#
'(any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4O1m}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRp}#
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4O1q}#
- #{b _85hotwsCta0JfYIjI4O1r}#)
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMRt}#
+ #{b _hoQGWMnyQPAh3k2jhWMRu}#)
(eq? (syntax->datum
- #{a _85hotwsCta0JfYIjI4O1q}#)
+ #{a _hoQGWMnyQPAh3k2jhWMRt}#)
#:rest))
- #{tmp _85hotwsCta0JfYIjI4O1m}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMRp}#)
#f)
(@apply
- (lambda (#{a _85hotwsCta0JfYIjI4O1s}#
- #{b _85hotwsCta0JfYIjI4O1t}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{b _85hotwsCta0JfYIjI4O1t}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (lambda (#{a _hoQGWMnyQPAh3k2jhWMRv}#
+ #{b _hoQGWMnyQPAh3k2jhWMRw}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{b _hoQGWMnyQPAh3k2jhWMRw}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
(cons #f
(reverse
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4O1m}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O1w}#
- (list #{args _85hotwsCta0JfYIjI4Oyx}#)))
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMRp}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRz}#
+ (list #{args _hoQGWMnyQPAh3k2jhWMO0}#)))
(if (@apply
- (lambda (#{r _85hotwsCta0JfYIjI4O1y}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMR1}#)
(if (symbol?
- #{r _85hotwsCta0JfYIjI4O1y}#)
+ #{r _hoQGWMnyQPAh3k2jhWMR1}#)
#t
(if (if (vector?
- #{r _85hotwsCta0JfYIjI4O1y}#)
+ #{r _hoQGWMnyQPAh3k2jhWMR1}#)
(if (= (vector-length
- #{r _85hotwsCta0JfYIjI4O1y}#)
+ #{r _hoQGWMnyQPAh3k2jhWMR1}#)
4)
(eq? (vector-ref
- #{r _85hotwsCta0JfYIjI4O1y}#
+ #{r _hoQGWMnyQPAh3k2jhWMR1}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _85hotwsCta0JfYIjI4O1y}#
+ #{r _hoQGWMnyQPAh3k2jhWMR1}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4O1w}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMRz}#)
(@apply
- (lambda (#{r _85hotwsCta0JfYIjI4O2Q}#)
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- #{r _85hotwsCta0JfYIjI4O2Q}#
- #{req _85hotwsCta0JfYIjI4Oyy}#
- #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMST}#)
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ #{r _hoQGWMnyQPAh3k2jhWMST}#
+ #{req _hoQGWMnyQPAh3k2jhWMO1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMO2}#
(cons #f
(reverse
- #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
- #{tmp _85hotwsCta0JfYIjI4O1w}#)
+ #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMRz}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args _85hotwsCta0JfYIjI4OuW}#
- #{args _85hotwsCta0JfYIjI4Oyx}#)))))))))))))))))))))
- (#{rest _85hotwsCta0JfYIjI4Oua}#
- (lambda (#{args _85hotwsCta0JfYIjI4O2s}#
- #{req _85hotwsCta0JfYIjI4O2t}#
- #{opt _85hotwsCta0JfYIjI4O2u}#
- #{kw _85hotwsCta0JfYIjI4O2v}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O2x}#
- (list #{args _85hotwsCta0JfYIjI4O2s}#)))
+ #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
+ #{args _hoQGWMnyQPAh3k2jhWMO0}#)))))))))))))))))))))
+ (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWMSv}#
+ #{req _hoQGWMnyQPAh3k2jhWMSw}#
+ #{opt _hoQGWMnyQPAh3k2jhWMSx}#
+ #{kw _hoQGWMnyQPAh3k2jhWMSy}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMS0}#
+ (list #{args _hoQGWMnyQPAh3k2jhWMSv}#)))
(if (@apply
- (lambda (#{r _85hotwsCta0JfYIjI4O2z}#)
- (if (symbol? #{r _85hotwsCta0JfYIjI4O2z}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMS2}#)
+ (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMS2}#)
#t
- (if (if (vector? #{r _85hotwsCta0JfYIjI4O2z}#)
+ (if (if (vector? #{r _hoQGWMnyQPAh3k2jhWMS2}#)
(if (= (vector-length
- #{r _85hotwsCta0JfYIjI4O2z}#)
+ #{r _hoQGWMnyQPAh3k2jhWMS2}#)
4)
(eq? (vector-ref
- #{r _85hotwsCta0JfYIjI4O2z}#
+ #{r _hoQGWMnyQPAh3k2jhWMS2}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r _85hotwsCta0JfYIjI4O2z}# 1))
+ (vector-ref #{r _hoQGWMnyQPAh3k2jhWMS2}# 1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4O2x}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMS0}#)
(@apply
- (lambda (#{r _85hotwsCta0JfYIjI4O3R}#)
- (#{check _85hotwsCta0JfYIjI4Oub}#
- #{req _85hotwsCta0JfYIjI4O2t}#
- #{opt _85hotwsCta0JfYIjI4O2u}#
- #{r _85hotwsCta0JfYIjI4O3R}#
- #{kw _85hotwsCta0JfYIjI4O2v}#))
- #{tmp _85hotwsCta0JfYIjI4O2x}#)
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWMTU}#)
+ (#{check _hoQGWMnyQPAh3k2jhWMKe}#
+ #{req _hoQGWMnyQPAh3k2jhWMSw}#
+ #{opt _hoQGWMnyQPAh3k2jhWMSx}#
+ #{r _hoQGWMnyQPAh3k2jhWMTU}#
+ #{kw _hoQGWMnyQPAh3k2jhWMSy}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWMS0}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args _85hotwsCta0JfYIjI4OuW}#
- #{args _85hotwsCta0JfYIjI4O2s}#)))))
- (#{check _85hotwsCta0JfYIjI4Oub}#
- (lambda (#{req _85hotwsCta0JfYIjI4O3V}#
- #{opt _85hotwsCta0JfYIjI4O3W}#
- #{rest _85hotwsCta0JfYIjI4O3X}#
- #{kw _85hotwsCta0JfYIjI4O3Y}#)
- (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
+ #{args _hoQGWMnyQPAh3k2jhWMSv}#)))))
+ (#{check _hoQGWMnyQPAh3k2jhWMKe}#
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMTY}#
+ #{opt _hoQGWMnyQPAh3k2jhWMTZ}#
+ #{rest _hoQGWMnyQPAh3k2jhWMTa}#
+ #{kw _hoQGWMnyQPAh3k2jhWMTb}#)
+ (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
(append
- #{req _85hotwsCta0JfYIjI4O3V}#
- (map car #{opt _85hotwsCta0JfYIjI4O3W}#)
- (if #{rest _85hotwsCta0JfYIjI4O3X}#
- (list #{rest _85hotwsCta0JfYIjI4O3X}#)
+ #{req _hoQGWMnyQPAh3k2jhWMTY}#
+ (map car #{opt _hoQGWMnyQPAh3k2jhWMTZ}#)
+ (if #{rest _hoQGWMnyQPAh3k2jhWMTa}#
+ (list #{rest _hoQGWMnyQPAh3k2jhWMTa}#)
'())
- (if (pair? #{kw _85hotwsCta0JfYIjI4O3Y}#)
- (map cadr (cdr #{kw _85hotwsCta0JfYIjI4O3Y}#))
+ (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMTb}#)
+ (map cadr (cdr #{kw _hoQGWMnyQPAh3k2jhWMTb}#))
'())))
(values
- #{req _85hotwsCta0JfYIjI4O3V}#
- #{opt _85hotwsCta0JfYIjI4O3W}#
- #{rest _85hotwsCta0JfYIjI4O3X}#
- #{kw _85hotwsCta0JfYIjI4O3Y}#)
+ #{req _hoQGWMnyQPAh3k2jhWMTY}#
+ #{opt _hoQGWMnyQPAh3k2jhWMTZ}#
+ #{rest _hoQGWMnyQPAh3k2jhWMTa}#
+ #{kw _hoQGWMnyQPAh3k2jhWMTb}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args _85hotwsCta0JfYIjI4OuW}#)))))
- (#{req _85hotwsCta0JfYIjI4OuX}#
- #{orig-args _85hotwsCta0JfYIjI4OuW}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#)))))
+ (#{req _hoQGWMnyQPAh3k2jhWMKa}#
+ #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
'()))))
- (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
- (lambda (#{e _85hotwsCta0JfYIjI4O5M}#
- #{r _85hotwsCta0JfYIjI4O5N}#
- #{w _85hotwsCta0JfYIjI4O5O}#
- #{s _85hotwsCta0JfYIjI4O5P}#
- #{mod _85hotwsCta0JfYIjI4O5Q}#
- #{get-formals _85hotwsCta0JfYIjI4O5R}#
- #{clauses _85hotwsCta0JfYIjI4O5S}#)
+ (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWMVP}#
+ #{r _hoQGWMnyQPAh3k2jhWMVQ}#
+ #{w _hoQGWMnyQPAh3k2jhWMVR}#
+ #{s _hoQGWMnyQPAh3k2jhWMVS}#
+ #{mod _hoQGWMnyQPAh3k2jhWMVT}#
+ #{get-formals _hoQGWMnyQPAh3k2jhWMVU}#
+ #{clauses _hoQGWMnyQPAh3k2jhWMVV}#)
(letrec*
- ((#{parse-req _85hotwsCta0JfYIjI4O5T}#
- (lambda (#{req _85hotwsCta0JfYIjI4O7S}#
- #{opt _85hotwsCta0JfYIjI4O7T}#
- #{rest _85hotwsCta0JfYIjI4O7U}#
- #{kw _85hotwsCta0JfYIjI4O7V}#
- #{body _85hotwsCta0JfYIjI4O7W}#)
- (let ((#{vars _85hotwsCta0JfYIjI4O7X}#
- (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
- #{req _85hotwsCta0JfYIjI4O7S}#))
- (#{labels _85hotwsCta0JfYIjI4O7Y}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{req _85hotwsCta0JfYIjI4O7S}#)))
- (let ((#{r* _85hotwsCta0JfYIjI4O7Z}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{labels _85hotwsCta0JfYIjI4O7Y}#
- #{vars _85hotwsCta0JfYIjI4O7X}#
- #{r _85hotwsCta0JfYIjI4O5N}#))
- (#{w* _85hotwsCta0JfYIjI4O7a}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{req _85hotwsCta0JfYIjI4O7S}#
- #{labels _85hotwsCta0JfYIjI4O7Y}#
- #{w _85hotwsCta0JfYIjI4O5O}#)))
- (#{parse-opt _85hotwsCta0JfYIjI4O5U}#
+ ((#{parse-req _hoQGWMnyQPAh3k2jhWMVW}#
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMXV}#
+ #{opt _hoQGWMnyQPAh3k2jhWMXW}#
+ #{rest _hoQGWMnyQPAh3k2jhWMXX}#
+ #{kw _hoQGWMnyQPAh3k2jhWMXY}#
+ #{body _hoQGWMnyQPAh3k2jhWMXZ}#)
+ (let ((#{vars _hoQGWMnyQPAh3k2jhWMXa}#
+ (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ #{req _hoQGWMnyQPAh3k2jhWMXV}#))
+ (#{labels _hoQGWMnyQPAh3k2jhWMXb}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{req _hoQGWMnyQPAh3k2jhWMXV}#)))
+ (let ((#{r* _hoQGWMnyQPAh3k2jhWMXc}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{labels _hoQGWMnyQPAh3k2jhWMXb}#
+ #{vars _hoQGWMnyQPAh3k2jhWMXa}#
+ #{r _hoQGWMnyQPAh3k2jhWMVQ}#))
+ (#{w* _hoQGWMnyQPAh3k2jhWMXd}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{req _hoQGWMnyQPAh3k2jhWMXV}#
+ #{labels _hoQGWMnyQPAh3k2jhWMXb}#
+ #{w _hoQGWMnyQPAh3k2jhWMVR}#)))
+ (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}#
(map syntax->datum
- #{req _85hotwsCta0JfYIjI4O7S}#)
- #{opt _85hotwsCta0JfYIjI4O7T}#
- #{rest _85hotwsCta0JfYIjI4O7U}#
- #{kw _85hotwsCta0JfYIjI4O7V}#
- #{body _85hotwsCta0JfYIjI4O7W}#
- (reverse #{vars _85hotwsCta0JfYIjI4O7X}#)
- #{r* _85hotwsCta0JfYIjI4O7Z}#
- #{w* _85hotwsCta0JfYIjI4O7a}#
+ #{req _hoQGWMnyQPAh3k2jhWMXV}#)
+ #{opt _hoQGWMnyQPAh3k2jhWMXW}#
+ #{rest _hoQGWMnyQPAh3k2jhWMXX}#
+ #{kw _hoQGWMnyQPAh3k2jhWMXY}#
+ #{body _hoQGWMnyQPAh3k2jhWMXZ}#
+ (reverse #{vars _hoQGWMnyQPAh3k2jhWMXa}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMXc}#
+ #{w* _hoQGWMnyQPAh3k2jhWMXd}#
'()
'())))))
- (#{parse-opt _85hotwsCta0JfYIjI4O5U}#
- (lambda (#{req _85hotwsCta0JfYIjI4O$K}#
- #{opt _85hotwsCta0JfYIjI4O$L}#
- #{rest _85hotwsCta0JfYIjI4O$M}#
- #{kw _85hotwsCta0JfYIjI4O$N}#
- #{body _85hotwsCta0JfYIjI4O$O}#
- #{vars _85hotwsCta0JfYIjI4O$P}#
- #{r* _85hotwsCta0JfYIjI4O$Q}#
- #{w* _85hotwsCta0JfYIjI4O$R}#
- #{out _85hotwsCta0JfYIjI4O$S}#
- #{inits _85hotwsCta0JfYIjI4O$T}#)
- (if (pair? #{opt _85hotwsCta0JfYIjI4O$L}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O$U}#
- (car #{opt _85hotwsCta0JfYIjI4O$L}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4O$V}#
+ (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}#
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMaN}#
+ #{opt _hoQGWMnyQPAh3k2jhWMaO}#
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#
+ #{kw _hoQGWMnyQPAh3k2jhWMaQ}#
+ #{body _hoQGWMnyQPAh3k2jhWMaR}#
+ #{vars _hoQGWMnyQPAh3k2jhWMaS}#
+ #{r* _hoQGWMnyQPAh3k2jhWMaT}#
+ #{w* _hoQGWMnyQPAh3k2jhWMaU}#
+ #{out _hoQGWMnyQPAh3k2jhWMaV}#
+ #{inits _hoQGWMnyQPAh3k2jhWMaW}#)
+ (if (pair? #{opt _hoQGWMnyQPAh3k2jhWMaO}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaX}#
+ (car #{opt _hoQGWMnyQPAh3k2jhWMaO}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaY}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4O$U}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMaX}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4O$V}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMaY}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4O$X}#
- #{i _85hotwsCta0JfYIjI4O$Y}#)
- (let ((#{v _85hotwsCta0JfYIjI4O$Z}#
- (let ((#{id _85hotwsCta0JfYIjI4O$h}#
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWMaa}#
+ #{i _hoQGWMnyQPAh3k2jhWMab}#)
+ (let ((#{v _hoQGWMnyQPAh3k2jhWMac}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWMak}#
(if (if (vector?
- #{id _85hotwsCta0JfYIjI4O$X}#)
+ #{id _hoQGWMnyQPAh3k2jhWMaa}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4O$X}#)
+ #{id _hoQGWMnyQPAh3k2jhWMaa}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4O$X}#
+ #{id _hoQGWMnyQPAh3k2jhWMaa}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _85hotwsCta0JfYIjI4O$X}#
+ #{id _hoQGWMnyQPAh3k2jhWMaa}#
1)
- #{id _85hotwsCta0JfYIjI4O$X}#)))
+ #{id _hoQGWMnyQPAh3k2jhWMaa}#)))
(gensym
(string-append
(symbol->string
- #{id _85hotwsCta0JfYIjI4O$h}#)
+ #{id _hoQGWMnyQPAh3k2jhWMak}#)
" ")))))
- (let ((#{l _85hotwsCta0JfYIjI4O$a}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- (list #{v _85hotwsCta0JfYIjI4O$Z}#))))
- (let ((#{r** _85hotwsCta0JfYIjI4O$b}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{l _85hotwsCta0JfYIjI4O$a}#
- (list #{v _85hotwsCta0JfYIjI4O$Z}#)
- #{r* _85hotwsCta0JfYIjI4O$Q}#)))
- (let ((#{w** _85hotwsCta0JfYIjI4O$c}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- (list #{id _85hotwsCta0JfYIjI4O$X}#)
- #{l _85hotwsCta0JfYIjI4O$a}#
- #{w* _85hotwsCta0JfYIjI4O$R}#)))
- (#{parse-opt _85hotwsCta0JfYIjI4O5U}#
- #{req _85hotwsCta0JfYIjI4O$K}#
- (cdr #{opt _85hotwsCta0JfYIjI4O$L}#)
- #{rest _85hotwsCta0JfYIjI4O$M}#
- #{kw _85hotwsCta0JfYIjI4O$N}#
- #{body _85hotwsCta0JfYIjI4O$O}#
- (cons #{v _85hotwsCta0JfYIjI4O$Z}#
- #{vars _85hotwsCta0JfYIjI4O$P}#)
- #{r** _85hotwsCta0JfYIjI4O$b}#
- #{w** _85hotwsCta0JfYIjI4O$c}#
+ (let ((#{l _hoQGWMnyQPAh3k2jhWMad}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ (list #{v _hoQGWMnyQPAh3k2jhWMac}#))))
+ (let ((#{r** _hoQGWMnyQPAh3k2jhWMae}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{l _hoQGWMnyQPAh3k2jhWMad}#
+ (list #{v _hoQGWMnyQPAh3k2jhWMac}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMaT}#)))
+ (let ((#{w** _hoQGWMnyQPAh3k2jhWMaf}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ (list #{id _hoQGWMnyQPAh3k2jhWMaa}#)
+ #{l _hoQGWMnyQPAh3k2jhWMad}#
+ #{w* _hoQGWMnyQPAh3k2jhWMaU}#)))
+ (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}#
+ #{req _hoQGWMnyQPAh3k2jhWMaN}#
+ (cdr #{opt _hoQGWMnyQPAh3k2jhWMaO}#)
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#
+ #{kw _hoQGWMnyQPAh3k2jhWMaQ}#
+ #{body _hoQGWMnyQPAh3k2jhWMaR}#
+ (cons #{v _hoQGWMnyQPAh3k2jhWMac}#
+ #{vars _hoQGWMnyQPAh3k2jhWMaS}#)
+ #{r** _hoQGWMnyQPAh3k2jhWMae}#
+ #{w** _hoQGWMnyQPAh3k2jhWMaf}#
(cons (syntax->datum
- #{id _85hotwsCta0JfYIjI4O$X}#)
- #{out _85hotwsCta0JfYIjI4O$S}#)
- (cons (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{i _85hotwsCta0JfYIjI4O$Y}#
- #{r* _85hotwsCta0JfYIjI4O$Q}#
- #{w* _85hotwsCta0JfYIjI4O$R}#
- #{mod _85hotwsCta0JfYIjI4O5Q}#)
- #{inits _85hotwsCta0JfYIjI4O$T}#)))))))
- #{tmp _85hotwsCta0JfYIjI4O$V}#)
+ #{id _hoQGWMnyQPAh3k2jhWMaa}#)
+ #{out _hoQGWMnyQPAh3k2jhWMaV}#)
+ (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{i _hoQGWMnyQPAh3k2jhWMab}#
+ #{r* _hoQGWMnyQPAh3k2jhWMaT}#
+ #{w* _hoQGWMnyQPAh3k2jhWMaU}#
+ #{mod _hoQGWMnyQPAh3k2jhWMVT}#)
+ #{inits _hoQGWMnyQPAh3k2jhWMaW}#)))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMaY}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4O$U}#))))
- (if #{rest _85hotwsCta0JfYIjI4O$M}#
- (let ((#{v _85hotwsCta0JfYIjI4PCG}#
- (let ((#{id _85hotwsCta0JfYIjI4PCQ}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMaX}#))))
+ (if #{rest _hoQGWMnyQPAh3k2jhWMaP}#
+ (let ((#{v _hoQGWMnyQPAh3k2jhWMeJ}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWMeT}#
(if (if (vector?
- #{rest _85hotwsCta0JfYIjI4O$M}#)
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
(if (= (vector-length
- #{rest _85hotwsCta0JfYIjI4O$M}#)
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
4)
(eq? (vector-ref
- #{rest _85hotwsCta0JfYIjI4O$M}#
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{rest _85hotwsCta0JfYIjI4O$M}#
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#
1)
- #{rest _85hotwsCta0JfYIjI4O$M}#)))
+ #{rest _hoQGWMnyQPAh3k2jhWMaP}#)))
(gensym
(string-append
(symbol->string
- #{id _85hotwsCta0JfYIjI4PCQ}#)
+ #{id _hoQGWMnyQPAh3k2jhWMeT}#)
" ")))))
- (let ((#{l _85hotwsCta0JfYIjI4PCH}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- (list #{v _85hotwsCta0JfYIjI4PCG}#))))
- (let ((#{r* _85hotwsCta0JfYIjI4PCI}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{l _85hotwsCta0JfYIjI4PCH}#
- (list #{v _85hotwsCta0JfYIjI4PCG}#)
- #{r* _85hotwsCta0JfYIjI4O$Q}#)))
- (let ((#{w* _85hotwsCta0JfYIjI4PCJ}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- (list #{rest _85hotwsCta0JfYIjI4O$M}#)
- #{l _85hotwsCta0JfYIjI4PCH}#
- #{w* _85hotwsCta0JfYIjI4O$R}#)))
- (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
- #{req _85hotwsCta0JfYIjI4O$K}#
- (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#)
- (reverse #{out _85hotwsCta0JfYIjI4O$S}#)
+ (let ((#{l _hoQGWMnyQPAh3k2jhWMeK}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#))))
+ (let ((#{r* _hoQGWMnyQPAh3k2jhWMeL}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{l _hoQGWMnyQPAh3k2jhWMeK}#
+ (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMaT}#)))
+ (let ((#{w* _hoQGWMnyQPAh3k2jhWMeM}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ (list #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
+ #{l _hoQGWMnyQPAh3k2jhWMeK}#
+ #{w* _hoQGWMnyQPAh3k2jhWMaU}#)))
+ (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
+ #{req _hoQGWMnyQPAh3k2jhWMaN}#
+ (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#)
+ (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#)
#f)
- (syntax->datum #{rest _85hotwsCta0JfYIjI4O$M}#)
- (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
- (cdr #{kw _85hotwsCta0JfYIjI4O$N}#)
- #{kw _85hotwsCta0JfYIjI4O$N}#)
- #{body _85hotwsCta0JfYIjI4O$O}#
- (cons #{v _85hotwsCta0JfYIjI4PCG}#
- #{vars _85hotwsCta0JfYIjI4O$P}#)
- #{r* _85hotwsCta0JfYIjI4PCI}#
- #{w* _85hotwsCta0JfYIjI4PCJ}#
- (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
- (car #{kw _85hotwsCta0JfYIjI4O$N}#)
+ (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
+ (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ #{body _hoQGWMnyQPAh3k2jhWMaR}#
+ (cons #{v _hoQGWMnyQPAh3k2jhWMeJ}#
+ #{vars _hoQGWMnyQPAh3k2jhWMaS}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMeL}#
+ #{w* _hoQGWMnyQPAh3k2jhWMeM}#
+ (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
#f)
'()
- #{inits _85hotwsCta0JfYIjI4O$T}#)))))
- (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
- #{req _85hotwsCta0JfYIjI4O$K}#
- (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#)
- (reverse #{out _85hotwsCta0JfYIjI4O$S}#)
+ #{inits _hoQGWMnyQPAh3k2jhWMaW}#)))))
+ (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
+ #{req _hoQGWMnyQPAh3k2jhWMaN}#
+ (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#)
+ (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#)
#f)
#f
- (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
- (cdr #{kw _85hotwsCta0JfYIjI4O$N}#)
- #{kw _85hotwsCta0JfYIjI4O$N}#)
- #{body _85hotwsCta0JfYIjI4O$O}#
- #{vars _85hotwsCta0JfYIjI4O$P}#
- #{r* _85hotwsCta0JfYIjI4O$Q}#
- #{w* _85hotwsCta0JfYIjI4O$R}#
- (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
- (car #{kw _85hotwsCta0JfYIjI4O$N}#)
+ (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ #{body _hoQGWMnyQPAh3k2jhWMaR}#
+ #{vars _hoQGWMnyQPAh3k2jhWMaS}#
+ #{r* _hoQGWMnyQPAh3k2jhWMaT}#
+ #{w* _hoQGWMnyQPAh3k2jhWMaU}#
+ (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
#f)
'()
- #{inits _85hotwsCta0JfYIjI4O$T}#)))))
- (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
- (lambda (#{req _85hotwsCta0JfYIjI4PEy}#
- #{opt _85hotwsCta0JfYIjI4PEz}#
- #{rest _85hotwsCta0JfYIjI4PE0}#
- #{kw _85hotwsCta0JfYIjI4PE1}#
- #{body _85hotwsCta0JfYIjI4PE2}#
- #{vars _85hotwsCta0JfYIjI4PE3}#
- #{r* _85hotwsCta0JfYIjI4PE4}#
- #{w* _85hotwsCta0JfYIjI4PE5}#
- #{aok _85hotwsCta0JfYIjI4PE6}#
- #{out _85hotwsCta0JfYIjI4PE7}#
- #{inits _85hotwsCta0JfYIjI4PE8}#)
- (if (pair? #{kw _85hotwsCta0JfYIjI4PE1}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PE9}#
- (car #{kw _85hotwsCta0JfYIjI4PE1}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4PE$}#
+ #{inits _hoQGWMnyQPAh3k2jhWMaW}#)))))
+ (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMg1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMg2}#
+ #{rest _hoQGWMnyQPAh3k2jhWMg3}#
+ #{kw _hoQGWMnyQPAh3k2jhWMg4}#
+ #{body _hoQGWMnyQPAh3k2jhWMg5}#
+ #{vars _hoQGWMnyQPAh3k2jhWMg6}#
+ #{r* _hoQGWMnyQPAh3k2jhWMg7}#
+ #{w* _hoQGWMnyQPAh3k2jhWMg8}#
+ #{aok _hoQGWMnyQPAh3k2jhWMg9}#
+ #{out _hoQGWMnyQPAh3k2jhWMg$}#
+ #{inits _hoQGWMnyQPAh3k2jhWMg@}#)
+ (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMg4}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhA}#
+ (car #{kw _hoQGWMnyQPAh3k2jhWMg4}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhB}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4PE9}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMhA}#
'(any any any))))
- (if #{tmp _85hotwsCta0JfYIjI4PE$}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMhB}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4PFA}#
- #{id _85hotwsCta0JfYIjI4PFB}#
- #{i _85hotwsCta0JfYIjI4PFC}#)
- (let ((#{v _85hotwsCta0JfYIjI4PFD}#
- (let ((#{id _85hotwsCta0JfYIjI4PFL}#
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWMhD}#
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#
+ #{i _hoQGWMnyQPAh3k2jhWMhF}#)
+ (let ((#{v _hoQGWMnyQPAh3k2jhWMhG}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWMhO}#
(if (if (vector?
- #{id _85hotwsCta0JfYIjI4PFB}#)
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4PFB}#)
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4PFB}#
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _85hotwsCta0JfYIjI4PFB}#
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#
1)
- #{id _85hotwsCta0JfYIjI4PFB}#)))
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#)))
(gensym
(string-append
(symbol->string
- #{id _85hotwsCta0JfYIjI4PFL}#)
+ #{id _hoQGWMnyQPAh3k2jhWMhO}#)
" ")))))
- (let ((#{l _85hotwsCta0JfYIjI4PFE}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- (list #{v _85hotwsCta0JfYIjI4PFD}#))))
- (let ((#{r** _85hotwsCta0JfYIjI4PFF}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{l _85hotwsCta0JfYIjI4PFE}#
- (list #{v _85hotwsCta0JfYIjI4PFD}#)
- #{r* _85hotwsCta0JfYIjI4PE4}#)))
- (let ((#{w** _85hotwsCta0JfYIjI4PFG}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- (list #{id _85hotwsCta0JfYIjI4PFB}#)
- #{l _85hotwsCta0JfYIjI4PFE}#
- #{w* _85hotwsCta0JfYIjI4PE5}#)))
- (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
- #{req _85hotwsCta0JfYIjI4PEy}#
- #{opt _85hotwsCta0JfYIjI4PEz}#
- #{rest _85hotwsCta0JfYIjI4PE0}#
- (cdr #{kw _85hotwsCta0JfYIjI4PE1}#)
- #{body _85hotwsCta0JfYIjI4PE2}#
- (cons #{v _85hotwsCta0JfYIjI4PFD}#
- #{vars _85hotwsCta0JfYIjI4PE3}#)
- #{r** _85hotwsCta0JfYIjI4PFF}#
- #{w** _85hotwsCta0JfYIjI4PFG}#
- #{aok _85hotwsCta0JfYIjI4PE6}#
+ (let ((#{l _hoQGWMnyQPAh3k2jhWMhH}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ (list #{v _hoQGWMnyQPAh3k2jhWMhG}#))))
+ (let ((#{r** _hoQGWMnyQPAh3k2jhWMhI}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{l _hoQGWMnyQPAh3k2jhWMhH}#
+ (list #{v _hoQGWMnyQPAh3k2jhWMhG}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMg7}#)))
+ (let ((#{w** _hoQGWMnyQPAh3k2jhWMhJ}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ (list #{id _hoQGWMnyQPAh3k2jhWMhE}#)
+ #{l _hoQGWMnyQPAh3k2jhWMhH}#
+ #{w* _hoQGWMnyQPAh3k2jhWMg8}#)))
+ (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
+ #{req _hoQGWMnyQPAh3k2jhWMg1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMg2}#
+ #{rest _hoQGWMnyQPAh3k2jhWMg3}#
+ (cdr #{kw _hoQGWMnyQPAh3k2jhWMg4}#)
+ #{body _hoQGWMnyQPAh3k2jhWMg5}#
+ (cons #{v _hoQGWMnyQPAh3k2jhWMhG}#
+ #{vars _hoQGWMnyQPAh3k2jhWMg6}#)
+ #{r** _hoQGWMnyQPAh3k2jhWMhI}#
+ #{w** _hoQGWMnyQPAh3k2jhWMhJ}#
+ #{aok _hoQGWMnyQPAh3k2jhWMg9}#
(cons (list (syntax->datum
- #{k _85hotwsCta0JfYIjI4PFA}#)
+ #{k _hoQGWMnyQPAh3k2jhWMhD}#)
(syntax->datum
- #{id _85hotwsCta0JfYIjI4PFB}#)
- #{v _85hotwsCta0JfYIjI4PFD}#)
- #{out _85hotwsCta0JfYIjI4PE7}#)
- (cons (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{i _85hotwsCta0JfYIjI4PFC}#
- #{r* _85hotwsCta0JfYIjI4PE4}#
- #{w* _85hotwsCta0JfYIjI4PE5}#
- #{mod _85hotwsCta0JfYIjI4O5Q}#)
- #{inits _85hotwsCta0JfYIjI4PE8}#)))))))
- #{tmp _85hotwsCta0JfYIjI4PE$}#)
+ #{id _hoQGWMnyQPAh3k2jhWMhE}#)
+ #{v _hoQGWMnyQPAh3k2jhWMhG}#)
+ #{out _hoQGWMnyQPAh3k2jhWMg$}#)
+ (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{i _hoQGWMnyQPAh3k2jhWMhF}#
+ #{r* _hoQGWMnyQPAh3k2jhWMg7}#
+ #{w* _hoQGWMnyQPAh3k2jhWMg8}#
+ #{mod _hoQGWMnyQPAh3k2jhWMVT}#)
+ #{inits _hoQGWMnyQPAh3k2jhWMg@}#)))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMhB}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4PE9}#))))
- (#{parse-body _85hotwsCta0JfYIjI4O5W}#
- #{req _85hotwsCta0JfYIjI4PEy}#
- #{opt _85hotwsCta0JfYIjI4PEz}#
- #{rest _85hotwsCta0JfYIjI4PE0}#
- (if (if #{aok _85hotwsCta0JfYIjI4PE6}#
- #{aok _85hotwsCta0JfYIjI4PE6}#
- (pair? #{out _85hotwsCta0JfYIjI4PE7}#))
- (cons #{aok _85hotwsCta0JfYIjI4PE6}#
- (reverse #{out _85hotwsCta0JfYIjI4PE7}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWMhA}#))))
+ (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
+ #{req _hoQGWMnyQPAh3k2jhWMg1}#
+ #{opt _hoQGWMnyQPAh3k2jhWMg2}#
+ #{rest _hoQGWMnyQPAh3k2jhWMg3}#
+ (if (if #{aok _hoQGWMnyQPAh3k2jhWMg9}#
+ #{aok _hoQGWMnyQPAh3k2jhWMg9}#
+ (pair? #{out _hoQGWMnyQPAh3k2jhWMg$}#))
+ (cons #{aok _hoQGWMnyQPAh3k2jhWMg9}#
+ (reverse #{out _hoQGWMnyQPAh3k2jhWMg$}#))
#f)
- #{body _85hotwsCta0JfYIjI4PE2}#
- (reverse #{vars _85hotwsCta0JfYIjI4PE3}#)
- #{r* _85hotwsCta0JfYIjI4PE4}#
- #{w* _85hotwsCta0JfYIjI4PE5}#
- (reverse #{inits _85hotwsCta0JfYIjI4PE8}#)
+ #{body _hoQGWMnyQPAh3k2jhWMg5}#
+ (reverse #{vars _hoQGWMnyQPAh3k2jhWMg6}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMg7}#
+ #{w* _hoQGWMnyQPAh3k2jhWMg8}#
+ (reverse #{inits _hoQGWMnyQPAh3k2jhWMg@}#)
'()))))
- (#{parse-body _85hotwsCta0JfYIjI4O5W}#
- (lambda (#{req _85hotwsCta0JfYIjI4PI5}#
- #{opt _85hotwsCta0JfYIjI4PI6}#
- #{rest _85hotwsCta0JfYIjI4PI7}#
- #{kw _85hotwsCta0JfYIjI4PI8}#
- #{body _85hotwsCta0JfYIjI4PI9}#
- #{vars _85hotwsCta0JfYIjI4PI$}#
- #{r* _85hotwsCta0JfYIjI4PI@}#
- #{w* _85hotwsCta0JfYIjI4PJA}#
- #{inits _85hotwsCta0JfYIjI4PJB}#
- #{meta _85hotwsCta0JfYIjI4PJC}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PJE}#
+ (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMk8}#
+ #{opt _hoQGWMnyQPAh3k2jhWMk9}#
+ #{rest _hoQGWMnyQPAh3k2jhWMk$}#
+ #{kw _hoQGWMnyQPAh3k2jhWMk@}#
+ #{body _hoQGWMnyQPAh3k2jhWMlA}#
+ #{vars _hoQGWMnyQPAh3k2jhWMlB}#
+ #{r* _hoQGWMnyQPAh3k2jhWMlC}#
+ #{w* _hoQGWMnyQPAh3k2jhWMlD}#
+ #{inits _hoQGWMnyQPAh3k2jhWMlE}#
+ #{meta _hoQGWMnyQPAh3k2jhWMlF}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlH}#
($sc-dispatch
- #{body _85hotwsCta0JfYIjI4PI9}#
+ #{body _hoQGWMnyQPAh3k2jhWMlA}#
'(any any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4PJE}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMlH}#
(@apply
- (lambda (#{docstring _85hotwsCta0JfYIjI4PJI}#
- #{e1 _85hotwsCta0JfYIjI4PJJ}#
- #{e2 _85hotwsCta0JfYIjI4PJK}#)
+ (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlL}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMlM}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMlN}#)
(string?
(syntax->datum
- #{docstring _85hotwsCta0JfYIjI4PJI}#)))
- #{tmp _85hotwsCta0JfYIjI4PJE}#)
+ #{docstring _hoQGWMnyQPAh3k2jhWMlL}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMlH}#)
#f)
(@apply
- (lambda (#{docstring _85hotwsCta0JfYIjI4PJL}#
- #{e1 _85hotwsCta0JfYIjI4PJM}#
- #{e2 _85hotwsCta0JfYIjI4PJN}#)
- (#{parse-body _85hotwsCta0JfYIjI4O5W}#
- #{req _85hotwsCta0JfYIjI4PI5}#
- #{opt _85hotwsCta0JfYIjI4PI6}#
- #{rest _85hotwsCta0JfYIjI4PI7}#
- #{kw _85hotwsCta0JfYIjI4PI8}#
- (cons #{e1 _85hotwsCta0JfYIjI4PJM}#
- #{e2 _85hotwsCta0JfYIjI4PJN}#)
- #{vars _85hotwsCta0JfYIjI4PI$}#
- #{r* _85hotwsCta0JfYIjI4PI@}#
- #{w* _85hotwsCta0JfYIjI4PJA}#
- #{inits _85hotwsCta0JfYIjI4PJB}#
+ (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlO}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMlP}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#)
+ (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
+ #{req _hoQGWMnyQPAh3k2jhWMk8}#
+ #{opt _hoQGWMnyQPAh3k2jhWMk9}#
+ #{rest _hoQGWMnyQPAh3k2jhWMk$}#
+ #{kw _hoQGWMnyQPAh3k2jhWMk@}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMlP}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#)
+ #{vars _hoQGWMnyQPAh3k2jhWMlB}#
+ #{r* _hoQGWMnyQPAh3k2jhWMlC}#
+ #{w* _hoQGWMnyQPAh3k2jhWMlD}#
+ #{inits _hoQGWMnyQPAh3k2jhWMlE}#
(append
- #{meta _85hotwsCta0JfYIjI4PJC}#
+ #{meta _hoQGWMnyQPAh3k2jhWMlF}#
(list (cons 'documentation
(syntax->datum
- #{docstring _85hotwsCta0JfYIjI4PJL}#))))))
- #{tmp _85hotwsCta0JfYIjI4PJE}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PJO}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMlO}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMlH}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlR}#
($sc-dispatch
- #{body _85hotwsCta0JfYIjI4PI9}#
+ #{body _hoQGWMnyQPAh3k2jhWMlA}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PJO}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMlR}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4PJS}#
- #{v _85hotwsCta0JfYIjI4PJT}#
- #{e1 _85hotwsCta0JfYIjI4PJU}#
- #{e2 _85hotwsCta0JfYIjI4PJV}#)
- (#{parse-body _85hotwsCta0JfYIjI4O5W}#
- #{req _85hotwsCta0JfYIjI4PI5}#
- #{opt _85hotwsCta0JfYIjI4PI6}#
- #{rest _85hotwsCta0JfYIjI4PI7}#
- #{kw _85hotwsCta0JfYIjI4PI8}#
- (cons #{e1 _85hotwsCta0JfYIjI4PJU}#
- #{e2 _85hotwsCta0JfYIjI4PJV}#)
- #{vars _85hotwsCta0JfYIjI4PI$}#
- #{r* _85hotwsCta0JfYIjI4PI@}#
- #{w* _85hotwsCta0JfYIjI4PJA}#
- #{inits _85hotwsCta0JfYIjI4PJB}#
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWMlV}#
+ #{v _hoQGWMnyQPAh3k2jhWMlW}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMlX}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMlY}#)
+ (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
+ #{req _hoQGWMnyQPAh3k2jhWMk8}#
+ #{opt _hoQGWMnyQPAh3k2jhWMk9}#
+ #{rest _hoQGWMnyQPAh3k2jhWMk$}#
+ #{kw _hoQGWMnyQPAh3k2jhWMk@}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMlX}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMlY}#)
+ #{vars _hoQGWMnyQPAh3k2jhWMlB}#
+ #{r* _hoQGWMnyQPAh3k2jhWMlC}#
+ #{w* _hoQGWMnyQPAh3k2jhWMlD}#
+ #{inits _hoQGWMnyQPAh3k2jhWMlE}#
(append
- #{meta _85hotwsCta0JfYIjI4PJC}#
+ #{meta _hoQGWMnyQPAh3k2jhWMlF}#
(syntax->datum
(map cons
- #{k _85hotwsCta0JfYIjI4PJS}#
- #{v _85hotwsCta0JfYIjI4PJT}#)))))
- #{tmp _85hotwsCta0JfYIjI4PJO}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PJW}#
+ #{k _hoQGWMnyQPAh3k2jhWMlV}#
+ #{v _hoQGWMnyQPAh3k2jhWMlW}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMlR}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlZ}#
($sc-dispatch
- #{body _85hotwsCta0JfYIjI4PI9}#
+ #{body _hoQGWMnyQPAh3k2jhWMlA}#
'(any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PJW}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4PJa}#
- #{e2 _85hotwsCta0JfYIjI4PJb}#)
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMld}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMle}#)
(values
- #{meta _85hotwsCta0JfYIjI4PJC}#
- #{req _85hotwsCta0JfYIjI4PI5}#
- #{opt _85hotwsCta0JfYIjI4PI6}#
- #{rest _85hotwsCta0JfYIjI4PI7}#
- #{kw _85hotwsCta0JfYIjI4PI8}#
- #{inits _85hotwsCta0JfYIjI4PJB}#
- #{vars _85hotwsCta0JfYIjI4PI$}#
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- (cons #{e1 _85hotwsCta0JfYIjI4PJa}#
- #{e2 _85hotwsCta0JfYIjI4PJb}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{meta _hoQGWMnyQPAh3k2jhWMlF}#
+ #{req _hoQGWMnyQPAh3k2jhWMk8}#
+ #{opt _hoQGWMnyQPAh3k2jhWMk9}#
+ #{rest _hoQGWMnyQPAh3k2jhWMk$}#
+ #{kw _hoQGWMnyQPAh3k2jhWMk@}#
+ #{inits _hoQGWMnyQPAh3k2jhWMlE}#
+ #{vars _hoQGWMnyQPAh3k2jhWMlB}#
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMld}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMle}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4O5M}#)
- #{s _85hotwsCta0JfYIjI4O5P}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMVP}#)
+ #{s _hoQGWMnyQPAh3k2jhWMVS}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4O5M}#
- #{s _85hotwsCta0JfYIjI4O5P}#))
- #{e _85hotwsCta0JfYIjI4O5M}#)
- #{w _85hotwsCta0JfYIjI4O5O}#
- #{mod _85hotwsCta0JfYIjI4O5Q}#)
- #{r* _85hotwsCta0JfYIjI4PI@}#
- #{w* _85hotwsCta0JfYIjI4PJA}#
- #{mod _85hotwsCta0JfYIjI4O5Q}#)))
- #{tmp _85hotwsCta0JfYIjI4PJW}#)
+ #{e _hoQGWMnyQPAh3k2jhWMVP}#
+ #{s _hoQGWMnyQPAh3k2jhWMVS}#))
+ #{e _hoQGWMnyQPAh3k2jhWMVP}#)
+ #{w _hoQGWMnyQPAh3k2jhWMVR}#
+ #{mod _hoQGWMnyQPAh3k2jhWMVT}#)
+ #{r* _hoQGWMnyQPAh3k2jhWMlC}#
+ #{w* _hoQGWMnyQPAh3k2jhWMlD}#
+ #{mod _hoQGWMnyQPAh3k2jhWMVT}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body _85hotwsCta0JfYIjI4PI9}#))))))))))
- (let ((#{tmp _85hotwsCta0JfYIjI4O5Y}#
+ #{body _hoQGWMnyQPAh3k2jhWMlA}#))))))))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVb}#
($sc-dispatch
- #{clauses _85hotwsCta0JfYIjI4O5S}#
+ #{clauses _hoQGWMnyQPAh3k2jhWMVV}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4O5Y}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMVb}#
(@apply
(lambda () (values '() #f))
- #{tmp _85hotwsCta0JfYIjI4O5Y}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4O5c}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMVb}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVf}#
($sc-dispatch
- #{clauses _85hotwsCta0JfYIjI4O5S}#
+ #{clauses _hoQGWMnyQPAh3k2jhWMVV}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp _85hotwsCta0JfYIjI4O5c}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMVf}#
(@apply
- (lambda (#{args _85hotwsCta0JfYIjI4O5g}#
- #{e1 _85hotwsCta0JfYIjI4O5h}#
- #{e2 _85hotwsCta0JfYIjI4O5i}#
- #{args* _85hotwsCta0JfYIjI4O5j}#
- #{e1* _85hotwsCta0JfYIjI4O5k}#
- #{e2* _85hotwsCta0JfYIjI4O5l}#)
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWMVj}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMVk}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMVl}#
+ #{args* _hoQGWMnyQPAh3k2jhWMVm}#
+ #{e1* _hoQGWMnyQPAh3k2jhWMVn}#
+ #{e2* _hoQGWMnyQPAh3k2jhWMVo}#)
(call-with-values
(lambda ()
- (#{get-formals _85hotwsCta0JfYIjI4O5R}#
- #{args _85hotwsCta0JfYIjI4O5g}#))
- (lambda (#{req _85hotwsCta0JfYIjI4O5m}#
- #{opt _85hotwsCta0JfYIjI4O5n}#
- #{rest _85hotwsCta0JfYIjI4O5o}#
- #{kw _85hotwsCta0JfYIjI4O5p}#)
+ (#{get-formals _hoQGWMnyQPAh3k2jhWMVU}#
+ #{args _hoQGWMnyQPAh3k2jhWMVj}#))
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWMVp}#
+ #{opt _hoQGWMnyQPAh3k2jhWMVq}#
+ #{rest _hoQGWMnyQPAh3k2jhWMVr}#
+ #{kw _hoQGWMnyQPAh3k2jhWMVs}#)
(call-with-values
(lambda ()
- (#{parse-req _85hotwsCta0JfYIjI4O5T}#
- #{req _85hotwsCta0JfYIjI4O5m}#
- #{opt _85hotwsCta0JfYIjI4O5n}#
- #{rest _85hotwsCta0JfYIjI4O5o}#
- #{kw _85hotwsCta0JfYIjI4O5p}#
- (cons #{e1 _85hotwsCta0JfYIjI4O5h}#
- #{e2 _85hotwsCta0JfYIjI4O5i}#)))
- (lambda (#{meta _85hotwsCta0JfYIjI4O6m}#
- #{req _85hotwsCta0JfYIjI4O6n}#
- #{opt _85hotwsCta0JfYIjI4O6o}#
- #{rest _85hotwsCta0JfYIjI4O6p}#
- #{kw _85hotwsCta0JfYIjI4O6q}#
- #{inits _85hotwsCta0JfYIjI4O6r}#
- #{vars _85hotwsCta0JfYIjI4O6s}#
- #{body _85hotwsCta0JfYIjI4O6t}#)
+ (#{parse-req _hoQGWMnyQPAh3k2jhWMVW}#
+ #{req _hoQGWMnyQPAh3k2jhWMVp}#
+ #{opt _hoQGWMnyQPAh3k2jhWMVq}#
+ #{rest _hoQGWMnyQPAh3k2jhWMVr}#
+ #{kw _hoQGWMnyQPAh3k2jhWMVs}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMVk}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMVl}#)))
+ (lambda (#{meta _hoQGWMnyQPAh3k2jhWMWp}#
+ #{req _hoQGWMnyQPAh3k2jhWMWq}#
+ #{opt _hoQGWMnyQPAh3k2jhWMWr}#
+ #{rest _hoQGWMnyQPAh3k2jhWMWs}#
+ #{kw _hoQGWMnyQPAh3k2jhWMWt}#
+ #{inits _hoQGWMnyQPAh3k2jhWMWu}#
+ #{vars _hoQGWMnyQPAh3k2jhWMWv}#
+ #{body _hoQGWMnyQPAh3k2jhWMWw}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
- #{e _85hotwsCta0JfYIjI4O5M}#
- #{r _85hotwsCta0JfYIjI4O5N}#
- #{w _85hotwsCta0JfYIjI4O5O}#
- #{s _85hotwsCta0JfYIjI4O5P}#
- #{mod _85hotwsCta0JfYIjI4O5Q}#
- #{get-formals _85hotwsCta0JfYIjI4O5R}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4Jns _85hotwsCta0JfYIjI4O6u}#
- #{tmp _85hotwsCta0JfYIjI4Jnr _85hotwsCta0JfYIjI4O6v}#
- #{tmp _85hotwsCta0JfYIjI4Jnq _85hotwsCta0JfYIjI4O6w}#)
- (cons #{tmp _85hotwsCta0JfYIjI4Jnq _85hotwsCta0JfYIjI4O6w}#
- (cons #{tmp _85hotwsCta0JfYIjI4Jnr _85hotwsCta0JfYIjI4O6v}#
- #{tmp _85hotwsCta0JfYIjI4Jns _85hotwsCta0JfYIjI4O6u}#)))
- #{e2* _85hotwsCta0JfYIjI4O5l}#
- #{e1* _85hotwsCta0JfYIjI4O5k}#
- #{args* _85hotwsCta0JfYIjI4O5j}#)))
- (lambda (#{meta* _85hotwsCta0JfYIjI4O6x}#
- #{else* _85hotwsCta0JfYIjI4O6y}#)
+ (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
+ #{e _hoQGWMnyQPAh3k2jhWMVP}#
+ #{r _hoQGWMnyQPAh3k2jhWMVQ}#
+ #{w _hoQGWMnyQPAh3k2jhWMVR}#
+ #{s _hoQGWMnyQPAh3k2jhWMVS}#
+ #{mod _hoQGWMnyQPAh3k2jhWMVT}#
+ #{get-formals _hoQGWMnyQPAh3k2jhWMVU}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#)
+ (cons #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#
+ (cons #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#)))
+ #{e2* _hoQGWMnyQPAh3k2jhWMVo}#
+ #{e1* _hoQGWMnyQPAh3k2jhWMVn}#
+ #{args* _hoQGWMnyQPAh3k2jhWMVm}#)))
+ (lambda (#{meta* _hoQGWMnyQPAh3k2jhWMW0}#
+ #{else* _hoQGWMnyQPAh3k2jhWMW1}#)
(values
(append
- #{meta _85hotwsCta0JfYIjI4O6m}#
- #{meta* _85hotwsCta0JfYIjI4O6x}#)
+ #{meta _hoQGWMnyQPAh3k2jhWMWp}#
+ #{meta* _hoQGWMnyQPAh3k2jhWMW0}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s _85hotwsCta0JfYIjI4O5P}#
- #{req _85hotwsCta0JfYIjI4O6n}#
- #{opt _85hotwsCta0JfYIjI4O6o}#
- #{rest _85hotwsCta0JfYIjI4O6p}#
- #{kw _85hotwsCta0JfYIjI4O6q}#
- #{inits _85hotwsCta0JfYIjI4O6r}#
- #{vars _85hotwsCta0JfYIjI4O6s}#
- #{body _85hotwsCta0JfYIjI4O6t}#
- #{else* _85hotwsCta0JfYIjI4O6y}#)))))))))
- #{tmp _85hotwsCta0JfYIjI4O5c}#)
+ #{s _hoQGWMnyQPAh3k2jhWMVS}#
+ #{req _hoQGWMnyQPAh3k2jhWMWq}#
+ #{opt _hoQGWMnyQPAh3k2jhWMWr}#
+ #{rest _hoQGWMnyQPAh3k2jhWMWs}#
+ #{kw _hoQGWMnyQPAh3k2jhWMWt}#
+ #{inits _hoQGWMnyQPAh3k2jhWMWu}#
+ #{vars _hoQGWMnyQPAh3k2jhWMWv}#
+ #{body _hoQGWMnyQPAh3k2jhWMWw}#
+ #{else* _hoQGWMnyQPAh3k2jhWMW1}#)))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMVf}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses _85hotwsCta0JfYIjI4O5S}#))))))))
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- (lambda (#{x _85hotwsCta0JfYIjI4PKA}#
- #{w _85hotwsCta0JfYIjI4PKB}#)
- (if (memq 'top (car #{w _85hotwsCta0JfYIjI4PKB}#))
- #{x _85hotwsCta0JfYIjI4PKA}#
+ #{clauses _hoQGWMnyQPAh3k2jhWMVV}#))))))))
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMmD}#
+ #{w _hoQGWMnyQPAh3k2jhWMmE}#)
+ (if (memq 'top (car #{w _hoQGWMnyQPAh3k2jhWMmE}#))
+ #{x _hoQGWMnyQPAh3k2jhWMmD}#
(letrec*
- ((#{f _85hotwsCta0JfYIjI4PKC}#
- (lambda (#{x _85hotwsCta0JfYIjI4PKF}#)
- (if (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4PKF}#)
+ ((#{f _hoQGWMnyQPAh3k2jhWMmF}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMmI}#)
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWMmI}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 0)
'syntax-object)
#f)
#f)
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 1)
- (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 2))
- (if (pair? #{x _85hotwsCta0JfYIjI4PKF}#)
- (let ((#{a _85hotwsCta0JfYIjI4PKY}#
- (#{f _85hotwsCta0JfYIjI4PKC}#
- (car #{x _85hotwsCta0JfYIjI4PKF}#)))
- (#{d _85hotwsCta0JfYIjI4PKZ}#
- (#{f _85hotwsCta0JfYIjI4PKC}#
- (cdr #{x _85hotwsCta0JfYIjI4PKF}#))))
- (if (if (eq? #{a _85hotwsCta0JfYIjI4PKY}#
- (car #{x _85hotwsCta0JfYIjI4PKF}#))
- (eq? #{d _85hotwsCta0JfYIjI4PKZ}#
- (cdr #{x _85hotwsCta0JfYIjI4PKF}#))
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 1)
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 2))
+ (if (pair? #{x _hoQGWMnyQPAh3k2jhWMmI}#)
+ (let ((#{a _hoQGWMnyQPAh3k2jhWMmb}#
+ (#{f _hoQGWMnyQPAh3k2jhWMmF}#
+ (car #{x _hoQGWMnyQPAh3k2jhWMmI}#)))
+ (#{d _hoQGWMnyQPAh3k2jhWMmc}#
+ (#{f _hoQGWMnyQPAh3k2jhWMmF}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#))))
+ (if (if (eq? #{a _hoQGWMnyQPAh3k2jhWMmb}#
+ (car #{x _hoQGWMnyQPAh3k2jhWMmI}#))
+ (eq? #{d _hoQGWMnyQPAh3k2jhWMmc}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#))
#f)
- #{x _85hotwsCta0JfYIjI4PKF}#
- (cons #{a _85hotwsCta0JfYIjI4PKY}#
- #{d _85hotwsCta0JfYIjI4PKZ}#)))
- (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#)
- (let ((#{old _85hotwsCta0JfYIjI4PKc}#
- (vector->list #{x _85hotwsCta0JfYIjI4PKF}#)))
- (let ((#{new _85hotwsCta0JfYIjI4PKd}#
- (map #{f _85hotwsCta0JfYIjI4PKC}#
- #{old _85hotwsCta0JfYIjI4PKc}#)))
+ #{x _hoQGWMnyQPAh3k2jhWMmI}#
+ (cons #{a _hoQGWMnyQPAh3k2jhWMmb}#
+ #{d _hoQGWMnyQPAh3k2jhWMmc}#)))
+ (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#)
+ (let ((#{old _hoQGWMnyQPAh3k2jhWMmf}#
+ (vector->list #{x _hoQGWMnyQPAh3k2jhWMmI}#)))
+ (let ((#{new _hoQGWMnyQPAh3k2jhWMmg}#
+ (map #{f _hoQGWMnyQPAh3k2jhWMmF}#
+ #{old _hoQGWMnyQPAh3k2jhWMmf}#)))
(letrec*
- ((#{lp _85hotwsCta0JfYIjI4PKe}#
- (lambda (#{l1 _85hotwsCta0JfYIjI4PLq}#
- #{l2 _85hotwsCta0JfYIjI4PLr}#)
- (if (null? #{l1 _85hotwsCta0JfYIjI4PLq}#)
- #{x _85hotwsCta0JfYIjI4PKF}#
- (if (eq? (car #{l1 _85hotwsCta0JfYIjI4PLq}#)
- (car #{l2 _85hotwsCta0JfYIjI4PLr}#))
- (#{lp _85hotwsCta0JfYIjI4PKe}#
- (cdr #{l1 _85hotwsCta0JfYIjI4PLq}#)
- (cdr #{l2 _85hotwsCta0JfYIjI4PLr}#))
+ ((#{lp _hoQGWMnyQPAh3k2jhWMmh}#
+ (lambda (#{l1 _hoQGWMnyQPAh3k2jhWMnt}#
+ #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)
+ (if (null? #{l1 _hoQGWMnyQPAh3k2jhWMnt}#)
+ #{x _hoQGWMnyQPAh3k2jhWMmI}#
+ (if (eq? (car #{l1 _hoQGWMnyQPAh3k2jhWMnt}#)
+ (car #{l2 _hoQGWMnyQPAh3k2jhWMnu}#))
+ (#{lp _hoQGWMnyQPAh3k2jhWMmh}#
+ (cdr #{l1 _hoQGWMnyQPAh3k2jhWMnt}#)
+ (cdr #{l2 _hoQGWMnyQPAh3k2jhWMnu}#))
(list->vector
- #{new _85hotwsCta0JfYIjI4PKd}#))))))
- (#{lp _85hotwsCta0JfYIjI4PKe}#
- #{old _85hotwsCta0JfYIjI4PKc}#
- #{new _85hotwsCta0JfYIjI4PKd}#))))
- #{x _85hotwsCta0JfYIjI4PKF}#))))))
- (#{f _85hotwsCta0JfYIjI4PKC}#
- #{x _85hotwsCta0JfYIjI4PKA}#)))))
- (#{gen-var _85hotwsCta0JfYIjI4J4Z}#
- (lambda (#{id _85hotwsCta0JfYIjI4O7e}#)
- (let ((#{id _85hotwsCta0JfYIjI4O7f}#
- (if (if (vector? #{id _85hotwsCta0JfYIjI4O7e}#)
- (if (= (vector-length #{id _85hotwsCta0JfYIjI4O7e}#)
+ #{new _hoQGWMnyQPAh3k2jhWMmg}#))))))
+ (#{lp _hoQGWMnyQPAh3k2jhWMmh}#
+ #{old _hoQGWMnyQPAh3k2jhWMmf}#
+ #{new _hoQGWMnyQPAh3k2jhWMmg}#))))
+ #{x _hoQGWMnyQPAh3k2jhWMmI}#))))))
+ (#{f _hoQGWMnyQPAh3k2jhWMmF}#
+ #{x _hoQGWMnyQPAh3k2jhWMmD}#)))))
+ (#{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWMXh}#)
+ (let ((#{id _hoQGWMnyQPAh3k2jhWMXi}#
+ (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWMXh}#)
+ (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWMXh}#)
4)
- (eq? (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 0)
+ (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 1)
- #{id _85hotwsCta0JfYIjI4O7e}#)))
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 1)
+ #{id _hoQGWMnyQPAh3k2jhWMXh}#)))
(gensym
(string-append
- (symbol->string #{id _85hotwsCta0JfYIjI4O7f}#)
+ (symbol->string #{id _hoQGWMnyQPAh3k2jhWMXi}#)
" "))))))
(begin
- (set! #{gen-label _85hotwsCta0JfYIjI4J3p}#
- (let ((#{i _85hotwsCta0JfYIjI4MoZ}# 0))
+ (set! #{gen-label _hoQGWMnyQPAh3k2jhWHTD}#
+ (let ((#{i _hoQGWMnyQPAh3k2jhWKEc}# 0))
(lambda ()
- (let ((#{n _85hotwsCta0JfYIjI4Moa}#
- #{i _85hotwsCta0JfYIjI4MoZ}#))
+ (let ((#{n _hoQGWMnyQPAh3k2jhWKEd}#
+ #{i _hoQGWMnyQPAh3k2jhWKEc}#))
(begin
- (set! #{i _85hotwsCta0JfYIjI4MoZ}#
- (#{1+}# #{n _85hotwsCta0JfYIjI4Moa}#))
- (number->string #{n _85hotwsCta0JfYIjI4Moa}# 36))))))
- (set! #{transformer-environment _85hotwsCta0JfYIjI4J39}#
+ (set! #{i _hoQGWMnyQPAh3k2jhWKEc}#
+ (#{1+}# #{n _hoQGWMnyQPAh3k2jhWKEd}#))
+ (number->string #{n _hoQGWMnyQPAh3k2jhWKEd}# 36))))))
+ (set! #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#
(make-fluid
- (lambda (#{k _85hotwsCta0JfYIjI4MNY}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWJpb}#)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
'let-syntax
'local-syntax
#f))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'syntax-parameterize
- (lambda (#{e _85hotwsCta0JfYIjI4J6S}#
- #{r _85hotwsCta0JfYIjI4J6T}#
- #{w _85hotwsCta0JfYIjI4J6U}#
- #{s _85hotwsCta0JfYIjI4J6V}#
- #{mod _85hotwsCta0JfYIjI4J6W}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4J6Y}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHVs}#
+ #{r _hoQGWMnyQPAh3k2jhWHVt}#
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHVy}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4J6S}#
+ #{e _hoQGWMnyQPAh3k2jhWHVs}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4J6Y}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWHVy}#
(@apply
- (lambda (#{var _85hotwsCta0JfYIjI4J6c}#
- #{val _85hotwsCta0JfYIjI4J6d}#
- #{e1 _85hotwsCta0JfYIjI4J6e}#
- #{e2 _85hotwsCta0JfYIjI4J6f}#)
- (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- #{var _85hotwsCta0JfYIjI4J6c}#))
- #{tmp _85hotwsCta0JfYIjI4J6Y}#)
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWHV2}#
+ #{val _hoQGWMnyQPAh3k2jhWHV3}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHV4}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHV5}#)
+ (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ #{var _hoQGWMnyQPAh3k2jhWHV2}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWHVy}#)
#f)
(@apply
- (lambda (#{var _85hotwsCta0JfYIjI4J7t}#
- #{val _85hotwsCta0JfYIjI4J7u}#
- #{e1 _85hotwsCta0JfYIjI4J7v}#
- #{e2 _85hotwsCta0JfYIjI4J7w}#)
- (let ((#{names _85hotwsCta0JfYIjI4J7x}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4J8j}#)
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{x _85hotwsCta0JfYIjI4J8j}#
- #{w _85hotwsCta0JfYIjI4J6U}#))
- #{var _85hotwsCta0JfYIjI4J7t}#)))
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWHXH}#
+ #{val _hoQGWMnyQPAh3k2jhWHXI}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHXJ}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHXK}#)
+ (let ((#{names _hoQGWMnyQPAh3k2jhWHXL}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHX9}#)
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{x _hoQGWMnyQPAh3k2jhWHX9}#
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#))
+ #{var _hoQGWMnyQPAh3k2jhWHXH}#)))
(begin
(for-each
- (lambda (#{id _85hotwsCta0JfYIjI4J7y}#
- #{n _85hotwsCta0JfYIjI4J7z}#)
- (let ((#{atom-key _85hotwsCta0JfYIjI4J70}#
- (car (let ((#{t _85hotwsCta0JfYIjI4J77}#
- (assq #{n _85hotwsCta0JfYIjI4J7z}#
- #{r _85hotwsCta0JfYIjI4J6T}#)))
- (if #{t _85hotwsCta0JfYIjI4J77}#
- (cdr #{t _85hotwsCta0JfYIjI4J77}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWHXM}#
+ #{n _hoQGWMnyQPAh3k2jhWHXN}#)
+ (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHXO}#
+ (car (let ((#{t _hoQGWMnyQPAh3k2jhWHXV}#
+ (assq #{n _hoQGWMnyQPAh3k2jhWHXN}#
+ #{r _hoQGWMnyQPAh3k2jhWHVt}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWHXV}#
+ (cdr #{t _hoQGWMnyQPAh3k2jhWHXV}#)
(if (symbol?
- #{n _85hotwsCta0JfYIjI4J7z}#)
- (let ((#{t _85hotwsCta0JfYIjI4J8A}#
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- #{n _85hotwsCta0JfYIjI4J7z}#
- #{mod _85hotwsCta0JfYIjI4J6W}#)))
- (if #{t _85hotwsCta0JfYIjI4J8A}#
- #{t _85hotwsCta0JfYIjI4J8A}#
+ #{n _hoQGWMnyQPAh3k2jhWHXN}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWHXa}#
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ #{n _hoQGWMnyQPAh3k2jhWHXN}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWHXa}#
+ #{t _hoQGWMnyQPAh3k2jhWHXa}#
'(global)))
'(displaced-lexical)))))))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4J70}#
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHXO}#
'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e _85hotwsCta0JfYIjI4J6S}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{e _hoQGWMnyQPAh3k2jhWHVs}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{id _85hotwsCta0JfYIjI4J7y}#)
- #{s _85hotwsCta0JfYIjI4J6V}#
+ (if (if (pair? #{id _hoQGWMnyQPAh3k2jhWHXM}#)
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#
#f)
(set-source-properties!
- #{id _85hotwsCta0JfYIjI4J7y}#
- #{s _85hotwsCta0JfYIjI4J6V}#))
- #{id _85hotwsCta0JfYIjI4J7y}#)
- #{w _85hotwsCta0JfYIjI4J6U}#
- #{mod _85hotwsCta0JfYIjI4J6W}#)))))
- #{var _85hotwsCta0JfYIjI4J7t}#
- #{names _85hotwsCta0JfYIjI4J7x}#)
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- (cons #{e1 _85hotwsCta0JfYIjI4J7v}#
- #{e2 _85hotwsCta0JfYIjI4J7w}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{id _hoQGWMnyQPAh3k2jhWHXM}#
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#))
+ #{id _hoQGWMnyQPAh3k2jhWHXM}#)
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))))
+ #{var _hoQGWMnyQPAh3k2jhWHXH}#
+ #{names _hoQGWMnyQPAh3k2jhWHXL}#)
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHXJ}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHXK}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#)
- #{s _85hotwsCta0JfYIjI4J6V}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#)
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4J6S}#
- #{s _85hotwsCta0JfYIjI4J6V}#))
- #{e _85hotwsCta0JfYIjI4J6S}#)
- #{w _85hotwsCta0JfYIjI4J6U}#
- #{mod _85hotwsCta0JfYIjI4J6W}#)
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- #{names _85hotwsCta0JfYIjI4J7x}#
- (let ((#{trans-r _85hotwsCta0JfYIjI4J95}#
- (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
- #{r _85hotwsCta0JfYIjI4J6T}#)))
- (map (lambda (#{x _85hotwsCta0JfYIjI4J96}#)
+ #{e _hoQGWMnyQPAh3k2jhWHVs}#
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#))
+ #{e _hoQGWMnyQPAh3k2jhWHVs}#)
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#)
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ #{names _hoQGWMnyQPAh3k2jhWHXL}#
+ (let ((#{trans-r _hoQGWMnyQPAh3k2jhWHZT}#
+ (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
+ #{r _hoQGWMnyQPAh3k2jhWHVt}#)))
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHZU}#)
(cons 'macro
- (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4J96}#
- #{trans-r _85hotwsCta0JfYIjI4J95}#
- #{w _85hotwsCta0JfYIjI4J6U}#
- #{mod _85hotwsCta0JfYIjI4J6W}#)
- #{mod _85hotwsCta0JfYIjI4J6W}#)))
- #{val _85hotwsCta0JfYIjI4J7u}#))
- #{r _85hotwsCta0JfYIjI4J6T}#)
- #{w _85hotwsCta0JfYIjI4J6U}#
- #{mod _85hotwsCta0JfYIjI4J6W}#))))
- #{tmp _85hotwsCta0JfYIjI4J6Y}#)
+ (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWHZU}#
+ #{trans-r _hoQGWMnyQPAh3k2jhWHZT}#
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#)
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))
+ #{val _hoQGWMnyQPAh3k2jhWHXI}#))
+ #{r _hoQGWMnyQPAh3k2jhWHVt}#)
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHVy}#)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#)
- #{s _85hotwsCta0JfYIjI4J6V}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#)
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4J6S}#
- #{s _85hotwsCta0JfYIjI4J6V}#))
- #{e _85hotwsCta0JfYIjI4J6S}#)
- #{w _85hotwsCta0JfYIjI4J6U}#
- #{mod _85hotwsCta0JfYIjI4J6W}#))))))
+ #{e _hoQGWMnyQPAh3k2jhWHVs}#
+ #{s _hoQGWMnyQPAh3k2jhWHVv}#))
+ #{e _hoQGWMnyQPAh3k2jhWHVs}#)
+ #{w _hoQGWMnyQPAh3k2jhWHVu}#
+ #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e _85hotwsCta0JfYIjI4KBL}#
- #{r _85hotwsCta0JfYIjI4KBM}#
- #{w _85hotwsCta0JfYIjI4KBN}#
- #{s _85hotwsCta0JfYIjI4KBO}#
- #{mod _85hotwsCta0JfYIjI4KBP}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KBR}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHcl}#
+ #{r _hoQGWMnyQPAh3k2jhWHcm}#
+ #{w _hoQGWMnyQPAh3k2jhWHcn}#
+ #{s _hoQGWMnyQPAh3k2jhWHco}#
+ #{mod _hoQGWMnyQPAh3k2jhWHcp}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHcr}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KBL}#
+ #{e _hoQGWMnyQPAh3k2jhWHcl}#
'(_ any))))
- (if #{tmp _85hotwsCta0JfYIjI4KBR}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHcr}#
(@apply
- (lambda (#{e _85hotwsCta0JfYIjI4KBU}#)
- (let ((#{exp _85hotwsCta0JfYIjI4KBY}#
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{e _85hotwsCta0JfYIjI4KBU}#
- #{w _85hotwsCta0JfYIjI4KBN}#)))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHcu}#)
+ (let ((#{exp _hoQGWMnyQPAh3k2jhWHcy}#
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{e _hoQGWMnyQPAh3k2jhWHcu}#
+ #{w _hoQGWMnyQPAh3k2jhWHcn}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s _85hotwsCta0JfYIjI4KBO}#
- #{exp _85hotwsCta0JfYIjI4KBY}#)))
- #{tmp _85hotwsCta0JfYIjI4KBR}#)
+ #{s _hoQGWMnyQPAh3k2jhWHco}#
+ #{exp _hoQGWMnyQPAh3k2jhWHcy}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWHcr}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4KBL}#)
- #{s _85hotwsCta0JfYIjI4KBO}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHcl}#)
+ #{s _hoQGWMnyQPAh3k2jhWHco}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4KBL}#
- #{s _85hotwsCta0JfYIjI4KBO}#))
- #{e _85hotwsCta0JfYIjI4KBL}#)
- #{w _85hotwsCta0JfYIjI4KBN}#
- #{mod _85hotwsCta0JfYIjI4KBP}#)))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWHcl}#
+ #{s _hoQGWMnyQPAh3k2jhWHco}#))
+ #{e _hoQGWMnyQPAh3k2jhWHcl}#)
+ #{w _hoQGWMnyQPAh3k2jhWHcn}#
+ #{mod _hoQGWMnyQPAh3k2jhWHcp}#)))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'syntax
(letrec*
- ((#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- (lambda (#{src _85hotwsCta0JfYIjI4KGa}#
- #{e _85hotwsCta0JfYIjI4KGb}#
- #{r _85hotwsCta0JfYIjI4KGc}#
- #{maps _85hotwsCta0JfYIjI4KGd}#
- #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{mod _85hotwsCta0JfYIjI4KGf}#)
- (if (if (symbol? #{e _85hotwsCta0JfYIjI4KGb}#)
+ ((#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWHh0}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#)
+ (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWHh1}#)
#t
- (if (if (vector? #{e _85hotwsCta0JfYIjI4KGb}#)
- (if (= (vector-length #{e _85hotwsCta0JfYIjI4KGb}#)
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWHh1}#)
+ (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWHh1}#)
4)
- (eq? (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 0)
+ (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 1))
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 1))
#f))
- (let ((#{label _85hotwsCta0JfYIjI4KG6}#
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{e _85hotwsCta0JfYIjI4KGb}#
+ (let ((#{label _hoQGWMnyQPAh3k2jhWHiU}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#
'(()))))
- (let ((#{b _85hotwsCta0JfYIjI4KG7}#
- (let ((#{t _85hotwsCta0JfYIjI4KHC}#
- (assq #{label _85hotwsCta0JfYIjI4KG6}#
- #{r _85hotwsCta0JfYIjI4KGc}#)))
- (if #{t _85hotwsCta0JfYIjI4KHC}#
- (cdr #{t _85hotwsCta0JfYIjI4KHC}#)
- (if (symbol? #{label _85hotwsCta0JfYIjI4KG6}#)
- (let ((#{t _85hotwsCta0JfYIjI4KHI}#
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- #{label _85hotwsCta0JfYIjI4KG6}#
- #{mod _85hotwsCta0JfYIjI4KGf}#)))
- (if #{t _85hotwsCta0JfYIjI4KHI}#
- #{t _85hotwsCta0JfYIjI4KHI}#
+ (let ((#{b _hoQGWMnyQPAh3k2jhWHiV}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWHic}#
+ (assq #{label _hoQGWMnyQPAh3k2jhWHiU}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWHic}#
+ (cdr #{t _hoQGWMnyQPAh3k2jhWHic}#)
+ (if (symbol? #{label _hoQGWMnyQPAh3k2jhWHiU}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWHii}#
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ #{label _hoQGWMnyQPAh3k2jhWHiU}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWHii}#
+ #{t _hoQGWMnyQPAh3k2jhWHii}#
'(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b _85hotwsCta0JfYIjI4KG7}#) 'syntax)
+ (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWHiV}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev _85hotwsCta0JfYIjI4KHR}#
- (cdr #{b _85hotwsCta0JfYIjI4KG7}#)))
- (#{gen-ref _85hotwsCta0JfYIjI4KE1}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- (car #{var.lev _85hotwsCta0JfYIjI4KHR}#)
- (cdr #{var.lev _85hotwsCta0JfYIjI4KHR}#)
- #{maps _85hotwsCta0JfYIjI4KGd}#)))
- (lambda (#{var _85hotwsCta0JfYIjI4KHV}#
- #{maps _85hotwsCta0JfYIjI4KHW}#)
+ (let ((#{var.lev _hoQGWMnyQPAh3k2jhWHir}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWHiV}#)))
+ (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ (car #{var.lev _hoQGWMnyQPAh3k2jhWHir}#)
+ (cdr #{var.lev _hoQGWMnyQPAh3k2jhWHir}#)
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWHiv}#
+ #{maps _hoQGWMnyQPAh3k2jhWHiw}#)
(values
- (list 'ref #{var _85hotwsCta0JfYIjI4KHV}#)
- #{maps _85hotwsCta0JfYIjI4KHW}#)))
- (if (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{e _85hotwsCta0JfYIjI4KGb}#)
+ (list 'ref #{var _hoQGWMnyQPAh3k2jhWHiv}#)
+ #{maps _hoQGWMnyQPAh3k2jhWHiw}#)))
+ (if (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src _85hotwsCta0JfYIjI4KGa}#)
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#)
(values
- (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#)
- #{maps _85hotwsCta0JfYIjI4KGd}#)))))
- (let ((#{tmp _85hotwsCta0JfYIjI4KHY}#
+ (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#)
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHiy}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KGb}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#
'(any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4KHY}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWHiy}#
(@apply
- (lambda (#{dots _85hotwsCta0JfYIjI4KHc}#
- #{e _85hotwsCta0JfYIjI4KHd}#)
- (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{dots _85hotwsCta0JfYIjI4KHc}#))
- #{tmp _85hotwsCta0JfYIjI4KHY}#)
+ (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi2}#
+ #{e _hoQGWMnyQPAh3k2jhWHi3}#)
+ (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{dots _hoQGWMnyQPAh3k2jhWHi2}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWHiy}#)
#f)
(@apply
- (lambda (#{dots _85hotwsCta0JfYIjI4KHe}#
- #{e _85hotwsCta0JfYIjI4KHf}#)
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- #{e _85hotwsCta0JfYIjI4KHf}#
- #{r _85hotwsCta0JfYIjI4KGc}#
- #{maps _85hotwsCta0JfYIjI4KGd}#
- (lambda (#{x _85hotwsCta0JfYIjI4KHg}#) #f)
- #{mod _85hotwsCta0JfYIjI4KGf}#))
- #{tmp _85hotwsCta0JfYIjI4KHY}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KHh}#
+ (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi4}#
+ #{e _hoQGWMnyQPAh3k2jhWHi5}#)
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ #{e _hoQGWMnyQPAh3k2jhWHi5}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHi6}#) #f)
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWHiy}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHi7}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KGb}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#
'(any any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4KHh}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWHi7}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4KHl}#
- #{dots _85hotwsCta0JfYIjI4KHm}#
- #{y _85hotwsCta0JfYIjI4KHn}#)
- (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{dots _85hotwsCta0JfYIjI4KHm}#))
- #{tmp _85hotwsCta0JfYIjI4KHh}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHi@}#
+ #{dots _hoQGWMnyQPAh3k2jhWHjA}#
+ #{y _hoQGWMnyQPAh3k2jhWHjB}#)
+ (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{dots _hoQGWMnyQPAh3k2jhWHjA}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWHi7}#)
#f)
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4KHo}#
- #{dots _85hotwsCta0JfYIjI4KHp}#
- #{y _85hotwsCta0JfYIjI4KHq}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHjC}#
+ #{dots _hoQGWMnyQPAh3k2jhWHjD}#
+ #{y _hoQGWMnyQPAh3k2jhWHjE}#)
(letrec*
- ((#{f _85hotwsCta0JfYIjI4KHr}#
- (lambda (#{y _85hotwsCta0JfYIjI4KHz}#
- #{k _85hotwsCta0JfYIjI4KH0}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KH2}#
+ ((#{f _hoQGWMnyQPAh3k2jhWHjF}#
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWHjN}#
+ #{k _hoQGWMnyQPAh3k2jhWHjO}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHjQ}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4KHz}#
+ #{y _hoQGWMnyQPAh3k2jhWHjN}#
'(any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4KH2}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#
(@apply
- (lambda (#{dots _85hotwsCta0JfYIjI4KH6}#
- #{y _85hotwsCta0JfYIjI4KH7}#)
- (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{dots _85hotwsCta0JfYIjI4KH6}#))
- #{tmp _85hotwsCta0JfYIjI4KH2}#)
+ (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjU}#
+ #{y _hoQGWMnyQPAh3k2jhWHjV}#)
+ (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{dots _hoQGWMnyQPAh3k2jhWHjU}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#)
#f)
(@apply
- (lambda (#{dots _85hotwsCta0JfYIjI4KH8}#
- #{y _85hotwsCta0JfYIjI4KH9}#)
- (#{f _85hotwsCta0JfYIjI4KHr}#
- #{y _85hotwsCta0JfYIjI4KH9}#
- (lambda (#{maps _85hotwsCta0JfYIjI4KH$}#)
+ (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjW}#
+ #{y _hoQGWMnyQPAh3k2jhWHjX}#)
+ (#{f _hoQGWMnyQPAh3k2jhWHjF}#
+ #{y _hoQGWMnyQPAh3k2jhWHjX}#
+ (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjY}#)
(call-with-values
(lambda ()
- (#{k _85hotwsCta0JfYIjI4KH0}#
+ (#{k _hoQGWMnyQPAh3k2jhWHjO}#
(cons '()
- #{maps _85hotwsCta0JfYIjI4KH$}#)))
- (lambda (#{x _85hotwsCta0JfYIjI4KH@}#
- #{maps _85hotwsCta0JfYIjI4KIA}#)
- (if (null? (car #{maps _85hotwsCta0JfYIjI4KIA}#))
+ #{maps _hoQGWMnyQPAh3k2jhWHjY}#)))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHjZ}#
+ #{maps _hoQGWMnyQPAh3k2jhWHja}#)
+ (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHja}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src _85hotwsCta0JfYIjI4KGa}#)
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#)
(values
- (let ((#{map-env _85hotwsCta0JfYIjI4KIE}#
- (car #{maps _85hotwsCta0JfYIjI4KIA}#)))
+ (let ((#{map-env _hoQGWMnyQPAh3k2jhWHje}#
+ (car #{maps _hoQGWMnyQPAh3k2jhWHja}#)))
(list 'apply
'(primitive
append)
- (#{gen-map _85hotwsCta0JfYIjI4KE3}#
- #{x _85hotwsCta0JfYIjI4KH@}#
- #{map-env _85hotwsCta0JfYIjI4KIE}#)))
- (cdr #{maps _85hotwsCta0JfYIjI4KIA}#))))))))
- #{tmp _85hotwsCta0JfYIjI4KH2}#)
+ (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}#
+ #{x _hoQGWMnyQPAh3k2jhWHjZ}#
+ #{map-env _hoQGWMnyQPAh3k2jhWHje}#)))
+ (cdr #{maps _hoQGWMnyQPAh3k2jhWHja}#))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#)
(call-with-values
(lambda ()
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- #{y _85hotwsCta0JfYIjI4KHz}#
- #{r _85hotwsCta0JfYIjI4KGc}#
- #{maps _85hotwsCta0JfYIjI4KGd}#
- #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{mod _85hotwsCta0JfYIjI4KGf}#))
- (lambda (#{y _85hotwsCta0JfYIjI4KIH}#
- #{maps _85hotwsCta0JfYIjI4KII}#)
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ #{y _hoQGWMnyQPAh3k2jhWHjN}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWHjh}#
+ #{maps _hoQGWMnyQPAh3k2jhWHji}#)
(call-with-values
(lambda ()
- (#{k _85hotwsCta0JfYIjI4KH0}#
- #{maps _85hotwsCta0JfYIjI4KII}#))
- (lambda (#{x _85hotwsCta0JfYIjI4KIJ}#
- #{maps _85hotwsCta0JfYIjI4KIK}#)
+ (#{k _hoQGWMnyQPAh3k2jhWHjO}#
+ #{maps _hoQGWMnyQPAh3k2jhWHji}#))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHjj}#
+ #{maps _hoQGWMnyQPAh3k2jhWHjk}#)
(values
(if (equal?
- #{y _85hotwsCta0JfYIjI4KIH}#
+ #{y _hoQGWMnyQPAh3k2jhWHjh}#
''())
- #{x _85hotwsCta0JfYIjI4KIJ}#
+ #{x _hoQGWMnyQPAh3k2jhWHjj}#
(list 'append
- #{x _85hotwsCta0JfYIjI4KIJ}#
- #{y _85hotwsCta0JfYIjI4KIH}#))
- #{maps _85hotwsCta0JfYIjI4KIK}#))))))))))
- (#{f _85hotwsCta0JfYIjI4KHr}#
- #{y _85hotwsCta0JfYIjI4KHq}#
- (lambda (#{maps _85hotwsCta0JfYIjI4KHu}#)
+ #{x _hoQGWMnyQPAh3k2jhWHjj}#
+ #{y _hoQGWMnyQPAh3k2jhWHjh}#))
+ #{maps _hoQGWMnyQPAh3k2jhWHjk}#))))))))))
+ (#{f _hoQGWMnyQPAh3k2jhWHjF}#
+ #{y _hoQGWMnyQPAh3k2jhWHjE}#
+ (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjI}#)
(call-with-values
(lambda ()
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- #{x _85hotwsCta0JfYIjI4KHo}#
- #{r _85hotwsCta0JfYIjI4KGc}#
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ #{x _hoQGWMnyQPAh3k2jhWHjC}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
(cons '()
- #{maps _85hotwsCta0JfYIjI4KHu}#)
- #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{mod _85hotwsCta0JfYIjI4KGf}#))
- (lambda (#{x _85hotwsCta0JfYIjI4KHv}#
- #{maps _85hotwsCta0JfYIjI4KHw}#)
- (if (null? (car #{maps _85hotwsCta0JfYIjI4KHw}#))
+ #{maps _hoQGWMnyQPAh3k2jhWHjI}#)
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHjJ}#
+ #{maps _hoQGWMnyQPAh3k2jhWHjK}#)
+ (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src _85hotwsCta0JfYIjI4KGa}#)
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#)
(values
- (#{gen-map _85hotwsCta0JfYIjI4KE3}#
- #{x _85hotwsCta0JfYIjI4KHv}#
- (car #{maps _85hotwsCta0JfYIjI4KHw}#))
- (cdr #{maps _85hotwsCta0JfYIjI4KHw}#)))))))))
- #{tmp _85hotwsCta0JfYIjI4KHh}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KIa}#
+ (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}#
+ #{x _hoQGWMnyQPAh3k2jhWHjJ}#
+ (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#))
+ (cdr #{maps _hoQGWMnyQPAh3k2jhWHjK}#)))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHi7}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHj0}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KGb}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#
'(any . any))))
- (if #{tmp _85hotwsCta0JfYIjI4KIa}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHj0}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4KIe}#
- #{y _85hotwsCta0JfYIjI4KIf}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHj4}#
+ #{y _hoQGWMnyQPAh3k2jhWHj5}#)
(call-with-values
(lambda ()
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- #{x _85hotwsCta0JfYIjI4KIe}#
- #{r _85hotwsCta0JfYIjI4KGc}#
- #{maps _85hotwsCta0JfYIjI4KGd}#
- #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{mod _85hotwsCta0JfYIjI4KGf}#))
- (lambda (#{x _85hotwsCta0JfYIjI4KIg}#
- #{maps _85hotwsCta0JfYIjI4KIh}#)
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ #{x _hoQGWMnyQPAh3k2jhWHj4}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHj6}#
+ #{maps _hoQGWMnyQPAh3k2jhWHj7}#)
(call-with-values
(lambda ()
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- #{y _85hotwsCta0JfYIjI4KIf}#
- #{r _85hotwsCta0JfYIjI4KGc}#
- #{maps _85hotwsCta0JfYIjI4KIh}#
- #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{mod _85hotwsCta0JfYIjI4KGf}#))
- (lambda (#{y _85hotwsCta0JfYIjI4KIi}#
- #{maps _85hotwsCta0JfYIjI4KIj}#)
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ #{y _hoQGWMnyQPAh3k2jhWHj5}#
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ #{maps _hoQGWMnyQPAh3k2jhWHj7}#
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWHj8}#
+ #{maps _hoQGWMnyQPAh3k2jhWHj9}#)
(values
- (let ((#{atom-key _85hotwsCta0JfYIjI4KIo}#
- (car #{y _85hotwsCta0JfYIjI4KIi}#)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}#
+ (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHkC}#
+ (car #{y _hoQGWMnyQPAh3k2jhWHj8}#)))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}#
'quote)
- (if (eq? (car #{x _85hotwsCta0JfYIjI4KIg}#)
+ (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHj6}#)
'quote)
(list 'quote
- (cons (car (cdr #{x _85hotwsCta0JfYIjI4KIg}#))
- (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#))))
- (if (eq? (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#))
+ (cons (car (cdr #{x _hoQGWMnyQPAh3k2jhWHj6}#))
+ (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))))
+ (if (eq? (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))
'())
(list 'list
- #{x _85hotwsCta0JfYIjI4KIg}#)
+ #{x _hoQGWMnyQPAh3k2jhWHj6}#)
(list 'cons
- #{x _85hotwsCta0JfYIjI4KIg}#
- #{y _85hotwsCta0JfYIjI4KIi}#)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}#
+ #{x _hoQGWMnyQPAh3k2jhWHj6}#
+ #{y _hoQGWMnyQPAh3k2jhWHj8}#)))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}#
'list)
(cons 'list
- (cons #{x _85hotwsCta0JfYIjI4KIg}#
- (cdr #{y _85hotwsCta0JfYIjI4KIi}#)))
+ (cons #{x _hoQGWMnyQPAh3k2jhWHj6}#
+ (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)))
(list 'cons
- #{x _85hotwsCta0JfYIjI4KIg}#
- #{y _85hotwsCta0JfYIjI4KIi}#))))
- #{maps _85hotwsCta0JfYIjI4KIj}#))))))
- #{tmp _85hotwsCta0JfYIjI4KIa}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KJF}#
+ #{x _hoQGWMnyQPAh3k2jhWHj6}#
+ #{y _hoQGWMnyQPAh3k2jhWHj8}#))))
+ #{maps _hoQGWMnyQPAh3k2jhWHj9}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHj0}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHkf}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KGb}#
+ #{e _hoQGWMnyQPAh3k2jhWHh1}#
'#(vector (any . each-any)))))
- (if #{tmp _85hotwsCta0JfYIjI4KJF}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHkf}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4KJJ}#
- #{e2 _85hotwsCta0JfYIjI4KJK}#)
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWHkj}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHkk}#)
(call-with-values
(lambda ()
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{src _85hotwsCta0JfYIjI4KGa}#
- (cons #{e1 _85hotwsCta0JfYIjI4KJJ}#
- #{e2 _85hotwsCta0JfYIjI4KJK}#)
- #{r _85hotwsCta0JfYIjI4KGc}#
- #{maps _85hotwsCta0JfYIjI4KGd}#
- #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
- #{mod _85hotwsCta0JfYIjI4KGf}#))
- (lambda (#{e _85hotwsCta0JfYIjI4KJL}#
- #{maps _85hotwsCta0JfYIjI4KJM}#)
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{src _hoQGWMnyQPAh3k2jhWHh0}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHkj}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHkk}#)
+ #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
+ #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHkl}#
+ #{maps _hoQGWMnyQPAh3k2jhWHkm}#)
(values
- (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#)
+ (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#)
'list)
(cons 'vector
- (cdr #{e _85hotwsCta0JfYIjI4KJL}#))
- (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#)
+ (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#))
+ (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#)
'quote)
(list 'quote
(list->vector
- (car (cdr #{e _85hotwsCta0JfYIjI4KJL}#))))
+ (car (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#))))
(list 'list->vector
- #{e _85hotwsCta0JfYIjI4KJL}#)))
- #{maps _85hotwsCta0JfYIjI4KJM}#))))
- #{tmp _85hotwsCta0JfYIjI4KJF}#)
+ #{e _hoQGWMnyQPAh3k2jhWHkl}#)))
+ #{maps _hoQGWMnyQPAh3k2jhWHkm}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHkf}#)
(values
- (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#)
- #{maps _85hotwsCta0JfYIjI4KGd}#))))))))))))
- (#{gen-ref _85hotwsCta0JfYIjI4KE1}#
- (lambda (#{src _85hotwsCta0JfYIjI4KJn}#
- #{var _85hotwsCta0JfYIjI4KJo}#
- #{level _85hotwsCta0JfYIjI4KJp}#
- #{maps _85hotwsCta0JfYIjI4KJq}#)
- (if (= #{level _85hotwsCta0JfYIjI4KJp}# 0)
+ (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#)
+ #{maps _hoQGWMnyQPAh3k2jhWHh3}#))))))))))))
+ (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}#
+ (lambda (#{src _hoQGWMnyQPAh3k2jhWHlB}#
+ #{var _hoQGWMnyQPAh3k2jhWHlC}#
+ #{level _hoQGWMnyQPAh3k2jhWHlD}#
+ #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
+ (if (= #{level _hoQGWMnyQPAh3k2jhWHlD}# 0)
(values
- #{var _85hotwsCta0JfYIjI4KJo}#
- #{maps _85hotwsCta0JfYIjI4KJq}#)
- (if (null? #{maps _85hotwsCta0JfYIjI4KJq}#)
+ #{var _hoQGWMnyQPAh3k2jhWHlC}#
+ #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
+ (if (null? #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src _85hotwsCta0JfYIjI4KJn}#)
+ #{src _hoQGWMnyQPAh3k2jhWHlB}#)
(call-with-values
(lambda ()
- (#{gen-ref _85hotwsCta0JfYIjI4KE1}#
- #{src _85hotwsCta0JfYIjI4KJn}#
- #{var _85hotwsCta0JfYIjI4KJo}#
- (#{1-}# #{level _85hotwsCta0JfYIjI4KJp}#)
- (cdr #{maps _85hotwsCta0JfYIjI4KJq}#)))
- (lambda (#{outer-var _85hotwsCta0JfYIjI4KJr}#
- #{outer-maps _85hotwsCta0JfYIjI4KJs}#)
- (let ((#{b _85hotwsCta0JfYIjI4KJt}#
- (assq #{outer-var _85hotwsCta0JfYIjI4KJr}#
- (car #{maps _85hotwsCta0JfYIjI4KJq}#))))
- (if #{b _85hotwsCta0JfYIjI4KJt}#
+ (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}#
+ #{src _hoQGWMnyQPAh3k2jhWHlB}#
+ #{var _hoQGWMnyQPAh3k2jhWHlC}#
+ (#{1-}# #{level _hoQGWMnyQPAh3k2jhWHlD}#)
+ (cdr #{maps _hoQGWMnyQPAh3k2jhWHlE}#)))
+ (lambda (#{outer-var _hoQGWMnyQPAh3k2jhWHlF}#
+ #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#)
+ (let ((#{b _hoQGWMnyQPAh3k2jhWHlH}#
+ (assq #{outer-var _hoQGWMnyQPAh3k2jhWHlF}#
+ (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#))))
+ (if #{b _hoQGWMnyQPAh3k2jhWHlH}#
(values
- (cdr #{b _85hotwsCta0JfYIjI4KJt}#)
- #{maps _85hotwsCta0JfYIjI4KJq}#)
- (let ((#{inner-var _85hotwsCta0JfYIjI4KJv}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWHlH}#)
+ #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
+ (let ((#{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#
(gensym
(string-append
(symbol->string 'tmp)
" "))))
(values
- #{inner-var _85hotwsCta0JfYIjI4KJv}#
- (cons (cons (cons #{outer-var _85hotwsCta0JfYIjI4KJr}#
- #{inner-var _85hotwsCta0JfYIjI4KJv}#)
- (car #{maps _85hotwsCta0JfYIjI4KJq}#))
- #{outer-maps _85hotwsCta0JfYIjI4KJs}#)))))))))))
- (#{gen-map _85hotwsCta0JfYIjI4KE3}#
- (lambda (#{e _85hotwsCta0JfYIjI4KJ9}#
- #{map-env _85hotwsCta0JfYIjI4KJ$}#)
- (let ((#{formals _85hotwsCta0JfYIjI4KJ@}#
- (map cdr #{map-env _85hotwsCta0JfYIjI4KJ$}#))
- (#{actuals _85hotwsCta0JfYIjI4KKA}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4KKC}#)
- (list 'ref (car #{x _85hotwsCta0JfYIjI4KKC}#)))
- #{map-env _85hotwsCta0JfYIjI4KJ$}#)))
- (if (eq? (car #{e _85hotwsCta0JfYIjI4KJ9}#) 'ref)
- (car #{actuals _85hotwsCta0JfYIjI4KKA}#)
+ #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#
+ (cons (cons (cons #{outer-var _hoQGWMnyQPAh3k2jhWHlF}#
+ #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#)
+ (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#))
+ #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#)))))))))))
+ (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHlX}#
+ #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)
+ (let ((#{formals _hoQGWMnyQPAh3k2jhWHlZ}#
+ (map cdr #{map-env _hoQGWMnyQPAh3k2jhWHlY}#))
+ (#{actuals _hoQGWMnyQPAh3k2jhWHla}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHlc}#)
+ (list 'ref (car #{x _hoQGWMnyQPAh3k2jhWHlc}#)))
+ #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)))
+ (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHlX}#) 'ref)
+ (car #{actuals _hoQGWMnyQPAh3k2jhWHla}#)
(if (and-map
- (lambda (#{x _85hotwsCta0JfYIjI4KKD}#)
- (if (eq? (car #{x _85hotwsCta0JfYIjI4KKD}#) 'ref)
- (memq (car (cdr #{x _85hotwsCta0JfYIjI4KKD}#))
- #{formals _85hotwsCta0JfYIjI4KJ@}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHld}#)
+ (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHld}#) 'ref)
+ (memq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHld}#))
+ #{formals _hoQGWMnyQPAh3k2jhWHlZ}#)
#f))
- (cdr #{e _85hotwsCta0JfYIjI4KJ9}#))
+ (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#))
(cons 'map
(cons (list 'primitive
- (car #{e _85hotwsCta0JfYIjI4KJ9}#))
- (map (let ((#{r _85hotwsCta0JfYIjI4KKF}#
+ (car #{e _hoQGWMnyQPAh3k2jhWHlX}#))
+ (map (let ((#{r _hoQGWMnyQPAh3k2jhWHlf}#
(map cons
- #{formals _85hotwsCta0JfYIjI4KJ@}#
- #{actuals _85hotwsCta0JfYIjI4KKA}#)))
- (lambda (#{x _85hotwsCta0JfYIjI4KKG}#)
- (cdr (assq (car (cdr #{x _85hotwsCta0JfYIjI4KKG}#))
- #{r _85hotwsCta0JfYIjI4KKF}#))))
- (cdr #{e _85hotwsCta0JfYIjI4KJ9}#))))
+ #{formals _hoQGWMnyQPAh3k2jhWHlZ}#
+ #{actuals _hoQGWMnyQPAh3k2jhWHla}#)))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHlg}#)
+ (cdr (assq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHlg}#))
+ #{r _hoQGWMnyQPAh3k2jhWHlf}#))))
+ (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#))))
(cons 'map
(cons (list 'lambda
- #{formals _85hotwsCta0JfYIjI4KJ@}#
- #{e _85hotwsCta0JfYIjI4KJ9}#)
- #{actuals _85hotwsCta0JfYIjI4KKA}#)))))))
- (#{regen _85hotwsCta0JfYIjI4KE7}#
- (lambda (#{x _85hotwsCta0JfYIjI4KKI}#)
- (let ((#{atom-key _85hotwsCta0JfYIjI4KKJ}#
- (car #{x _85hotwsCta0JfYIjI4KKI}#)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'ref)
- (let ((#{name _85hotwsCta0JfYIjI4KKT}#
- (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
- (#{var _85hotwsCta0JfYIjI4KKU}#
- (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
+ #{formals _hoQGWMnyQPAh3k2jhWHlZ}#
+ #{e _hoQGWMnyQPAh3k2jhWHlX}#)
+ #{actuals _hoQGWMnyQPAh3k2jhWHla}#)))))))
+ (#{regen _hoQGWMnyQPAh3k2jhWHgV}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHli}#)
+ (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHlj}#
+ (car #{x _hoQGWMnyQPAh3k2jhWHli}#)))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'ref)
+ (let ((#{name _hoQGWMnyQPAh3k2jhWHlt}#
+ (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
+ (#{var _hoQGWMnyQPAh3k2jhWHlu}#
+ (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name _85hotwsCta0JfYIjI4KKT}#
- #{var _85hotwsCta0JfYIjI4KKU}#))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}#
+ #{name _hoQGWMnyQPAh3k2jhWHlt}#
+ #{var _hoQGWMnyQPAh3k2jhWHlu}#))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}#
'primitive)
- (let ((#{name _85hotwsCta0JfYIjI4KKg}#
- (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
+ (let ((#{name _hoQGWMnyQPAh3k2jhWHl6}#
+ (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name _85hotwsCta0JfYIjI4KKg}#)
+ #{name _hoQGWMnyQPAh3k2jhWHl6}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name _85hotwsCta0JfYIjI4KKg}#
+ #{name _hoQGWMnyQPAh3k2jhWHl6}#
#f)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'quote)
- (let ((#{exp _85hotwsCta0JfYIjI4KKy}#
- (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'quote)
+ (let ((#{exp _hoQGWMnyQPAh3k2jhWHmM}#
+ (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp _85hotwsCta0JfYIjI4KKy}#))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}#
+ #{exp _hoQGWMnyQPAh3k2jhWHmM}#))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}#
'lambda)
- (if (list? (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
- (let ((#{req _85hotwsCta0JfYIjI4KK9}#
- (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
- (#{vars _85hotwsCta0JfYIjI4KK@}#
- (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
- (#{exp _85hotwsCta0JfYIjI4KLB}#
- (#{regen _85hotwsCta0JfYIjI4KE7}#
- (car (cdr (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))))
- (let ((#{body _85hotwsCta0JfYIjI4KLG}#
+ (if (list? (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
+ (let ((#{req _hoQGWMnyQPAh3k2jhWHmX}#
+ (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
+ (#{vars _hoQGWMnyQPAh3k2jhWHmZ}#
+ (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
+ (#{exp _hoQGWMnyQPAh3k2jhWHmb}#
+ (#{regen _hoQGWMnyQPAh3k2jhWHgV}#
+ (car (cdr (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))))
+ (let ((#{body _hoQGWMnyQPAh3k2jhWHmg}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req _85hotwsCta0JfYIjI4KK9}#
+ #{req _hoQGWMnyQPAh3k2jhWHmX}#
#f
#f
#f
'()
- #{vars _85hotwsCta0JfYIjI4KK@}#
- #{exp _85hotwsCta0JfYIjI4KLB}#
+ #{vars _hoQGWMnyQPAh3k2jhWHmZ}#
+ #{exp _hoQGWMnyQPAh3k2jhWHmb}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body _85hotwsCta0JfYIjI4KLG}#)))
+ #{body _hoQGWMnyQPAh3k2jhWHmg}#)))
(error "how did we get here"
- #{x _85hotwsCta0JfYIjI4KKI}#))
- (let ((#{fun-exp _85hotwsCta0JfYIjI4KLW}#
- (let ((#{name _85hotwsCta0JfYIjI4KLf}#
- (car #{x _85hotwsCta0JfYIjI4KKI}#)))
+ #{x _hoQGWMnyQPAh3k2jhWHli}#))
+ (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWHmw}#
+ (let ((#{name _hoQGWMnyQPAh3k2jhWHm5}#
+ (car #{x _hoQGWMnyQPAh3k2jhWHli}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name _85hotwsCta0JfYIjI4KLf}#)
+ #{name _hoQGWMnyQPAh3k2jhWHm5}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name _85hotwsCta0JfYIjI4KLf}#
+ #{name _hoQGWMnyQPAh3k2jhWHm5}#
#f))))
- (#{arg-exps _85hotwsCta0JfYIjI4KLX}#
- (map #{regen _85hotwsCta0JfYIjI4KE7}#
- (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
+ (#{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#
+ (map #{regen _hoQGWMnyQPAh3k2jhWHgV}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _85hotwsCta0JfYIjI4KLW}#
- #{arg-exps _85hotwsCta0JfYIjI4KLX}#))))))))))
- (lambda (#{e _85hotwsCta0JfYIjI4KE8}#
- #{r _85hotwsCta0JfYIjI4KE9}#
- #{w _85hotwsCta0JfYIjI4KE$}#
- #{s _85hotwsCta0JfYIjI4KE@}#
- #{mod _85hotwsCta0JfYIjI4KFA}#)
- (let ((#{e _85hotwsCta0JfYIjI4KFB}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWHmw}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#))))))))))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHgW}#
+ #{r _hoQGWMnyQPAh3k2jhWHgX}#
+ #{w _hoQGWMnyQPAh3k2jhWHgY}#
+ #{s _hoQGWMnyQPAh3k2jhWHgZ}#
+ #{mod _hoQGWMnyQPAh3k2jhWHga}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWHgb}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4KE8}#)
- #{s _85hotwsCta0JfYIjI4KE@}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHgW}#)
+ #{s _hoQGWMnyQPAh3k2jhWHgZ}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4KE8}#
- #{s _85hotwsCta0JfYIjI4KE@}#))
- #{e _85hotwsCta0JfYIjI4KE8}#)
- #{w _85hotwsCta0JfYIjI4KE$}#
- #{mod _85hotwsCta0JfYIjI4KFA}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4KFD}#
+ #{e _hoQGWMnyQPAh3k2jhWHgW}#
+ #{s _hoQGWMnyQPAh3k2jhWHgZ}#))
+ #{e _hoQGWMnyQPAh3k2jhWHgW}#)
+ #{w _hoQGWMnyQPAh3k2jhWHgY}#
+ #{mod _hoQGWMnyQPAh3k2jhWHga}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHgd}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KFB}#
+ #{e _hoQGWMnyQPAh3k2jhWHgb}#
'(_ any))))
- (if #{tmp _85hotwsCta0JfYIjI4KFD}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHgd}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4KFc}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWHg2}#)
(call-with-values
(lambda ()
- (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
- #{e _85hotwsCta0JfYIjI4KFB}#
- #{x _85hotwsCta0JfYIjI4KFc}#
- #{r _85hotwsCta0JfYIjI4KE9}#
+ (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
+ #{e _hoQGWMnyQPAh3k2jhWHgb}#
+ #{x _hoQGWMnyQPAh3k2jhWHg2}#
+ #{r _hoQGWMnyQPAh3k2jhWHgX}#
'()
- #{ellipsis? _85hotwsCta0JfYIjI4J4T}#
- #{mod _85hotwsCta0JfYIjI4KFA}#))
- (lambda (#{e _85hotwsCta0JfYIjI4KGS}#
- #{maps _85hotwsCta0JfYIjI4KGT}#)
- (#{regen _85hotwsCta0JfYIjI4KE7}#
- #{e _85hotwsCta0JfYIjI4KGS}#))))
- #{tmp _85hotwsCta0JfYIjI4KFD}#)
+ #{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}#
+ #{mod _hoQGWMnyQPAh3k2jhWHga}#))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHhs}#
+ #{maps _hoQGWMnyQPAh3k2jhWHht}#)
+ (#{regen _hoQGWMnyQPAh3k2jhWHgV}#
+ #{e _hoQGWMnyQPAh3k2jhWHhs}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHgd}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e _85hotwsCta0JfYIjI4KFB}#)))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWHgb}#)))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'lambda
- (lambda (#{e _85hotwsCta0JfYIjI4KOc}#
- #{r _85hotwsCta0JfYIjI4KOd}#
- #{w _85hotwsCta0JfYIjI4KOe}#
- #{s _85hotwsCta0JfYIjI4KOf}#
- #{mod _85hotwsCta0JfYIjI4KOg}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KOi}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHp2}#
+ #{r _hoQGWMnyQPAh3k2jhWHp3}#
+ #{w _hoQGWMnyQPAh3k2jhWHp4}#
+ #{s _hoQGWMnyQPAh3k2jhWHp5}#
+ #{mod _hoQGWMnyQPAh3k2jhWHp6}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHp8}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KOc}#
+ #{e _hoQGWMnyQPAh3k2jhWHp2}#
'(_ any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4KOi}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHp8}#
(@apply
- (lambda (#{args _85hotwsCta0JfYIjI4KOm}#
- #{e1 _85hotwsCta0JfYIjI4KOn}#
- #{e2 _85hotwsCta0JfYIjI4KOo}#)
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWHqA}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHqB}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqC}#)
(call-with-values
(lambda ()
- (#{lambda-formals _85hotwsCta0JfYIjI4J4U}#
- #{args _85hotwsCta0JfYIjI4KOm}#))
- (lambda (#{req _85hotwsCta0JfYIjI4KOr}#
- #{opt _85hotwsCta0JfYIjI4KOs}#
- #{rest _85hotwsCta0JfYIjI4KOt}#
- #{kw _85hotwsCta0JfYIjI4KOu}#)
+ (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}#
+ #{args _hoQGWMnyQPAh3k2jhWHqA}#))
+ (lambda (#{req _hoQGWMnyQPAh3k2jhWHqF}#
+ #{opt _hoQGWMnyQPAh3k2jhWHqG}#
+ #{rest _hoQGWMnyQPAh3k2jhWHqH}#
+ #{kw _hoQGWMnyQPAh3k2jhWHqI}#)
(letrec*
- ((#{lp _85hotwsCta0JfYIjI4KOv}#
- (lambda (#{body _85hotwsCta0JfYIjI4KOy}#
- #{meta _85hotwsCta0JfYIjI4KOz}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KO1}#
+ ((#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWHqM}#
+ #{meta _hoQGWMnyQPAh3k2jhWHqN}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqP}#
($sc-dispatch
- #{body _85hotwsCta0JfYIjI4KOy}#
+ #{body _hoQGWMnyQPAh3k2jhWHqM}#
'(any any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4KO1}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWHqP}#
(@apply
- (lambda (#{docstring _85hotwsCta0JfYIjI4KO5}#
- #{e1 _85hotwsCta0JfYIjI4KO6}#
- #{e2 _85hotwsCta0JfYIjI4KO7}#)
+ (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqT}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHqU}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqV}#)
(string?
(syntax->datum
- #{docstring _85hotwsCta0JfYIjI4KO5}#)))
- #{tmp _85hotwsCta0JfYIjI4KO1}#)
+ #{docstring _hoQGWMnyQPAh3k2jhWHqT}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWHqP}#)
#f)
(@apply
- (lambda (#{docstring _85hotwsCta0JfYIjI4KO8}#
- #{e1 _85hotwsCta0JfYIjI4KO9}#
- #{e2 _85hotwsCta0JfYIjI4KO$}#)
- (#{lp _85hotwsCta0JfYIjI4KOv}#
- (cons #{e1 _85hotwsCta0JfYIjI4KO9}#
- #{e2 _85hotwsCta0JfYIjI4KO$}#)
+ (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqW}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHqX}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqY}#)
+ (#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHqX}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqY}#)
(append
- #{meta _85hotwsCta0JfYIjI4KOz}#
+ #{meta _hoQGWMnyQPAh3k2jhWHqN}#
(list (cons 'documentation
(syntax->datum
- #{docstring _85hotwsCta0JfYIjI4KO8}#))))))
- #{tmp _85hotwsCta0JfYIjI4KO1}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KO@}#
+ #{docstring _hoQGWMnyQPAh3k2jhWHqW}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHqP}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqZ}#
($sc-dispatch
- #{body _85hotwsCta0JfYIjI4KOy}#
+ #{body _hoQGWMnyQPAh3k2jhWHqM}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4KO@}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4KPD}#
- #{v _85hotwsCta0JfYIjI4KPE}#
- #{e1 _85hotwsCta0JfYIjI4KPF}#
- #{e2 _85hotwsCta0JfYIjI4KPG}#)
- (#{lp _85hotwsCta0JfYIjI4KOv}#
- (cons #{e1 _85hotwsCta0JfYIjI4KPF}#
- #{e2 _85hotwsCta0JfYIjI4KPG}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWHqd}#
+ #{v _hoQGWMnyQPAh3k2jhWHqe}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHqf}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqg}#)
+ (#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHqf}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqg}#)
(append
- #{meta _85hotwsCta0JfYIjI4KOz}#
+ #{meta _hoQGWMnyQPAh3k2jhWHqN}#
(syntax->datum
(map cons
- #{k _85hotwsCta0JfYIjI4KPD}#
- #{v _85hotwsCta0JfYIjI4KPE}#)))))
- #{tmp _85hotwsCta0JfYIjI4KO@}#)
- (#{expand-simple-lambda _85hotwsCta0JfYIjI4J4V}#
- #{e _85hotwsCta0JfYIjI4KOc}#
- #{r _85hotwsCta0JfYIjI4KOd}#
- #{w _85hotwsCta0JfYIjI4KOe}#
- #{s _85hotwsCta0JfYIjI4KOf}#
- #{mod _85hotwsCta0JfYIjI4KOg}#
- #{req _85hotwsCta0JfYIjI4KOr}#
- #{rest _85hotwsCta0JfYIjI4KOt}#
- #{meta _85hotwsCta0JfYIjI4KOz}#
- #{body _85hotwsCta0JfYIjI4KOy}#))))))))
- (#{lp _85hotwsCta0JfYIjI4KOv}#
- (cons #{e1 _85hotwsCta0JfYIjI4KOn}#
- #{e2 _85hotwsCta0JfYIjI4KOo}#)
+ #{k _hoQGWMnyQPAh3k2jhWHqd}#
+ #{v _hoQGWMnyQPAh3k2jhWHqe}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#)
+ (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}#
+ #{e _hoQGWMnyQPAh3k2jhWHp2}#
+ #{r _hoQGWMnyQPAh3k2jhWHp3}#
+ #{w _hoQGWMnyQPAh3k2jhWHp4}#
+ #{s _hoQGWMnyQPAh3k2jhWHp5}#
+ #{mod _hoQGWMnyQPAh3k2jhWHp6}#
+ #{req _hoQGWMnyQPAh3k2jhWHqF}#
+ #{rest _hoQGWMnyQPAh3k2jhWHqH}#
+ #{meta _hoQGWMnyQPAh3k2jhWHqN}#
+ #{body _hoQGWMnyQPAh3k2jhWHqM}#))))))))
+ (#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHqB}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHqC}#)
'())))))
- #{tmp _85hotwsCta0JfYIjI4KOi}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWHp8}#)
(syntax-violation
'lambda
"bad lambda"
- #{e _85hotwsCta0JfYIjI4KOc}#)))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWHp2}#)))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'lambda*
- (lambda (#{e _85hotwsCta0JfYIjI4KTj}#
- #{r _85hotwsCta0JfYIjI4KTk}#
- #{w _85hotwsCta0JfYIjI4KTl}#
- #{s _85hotwsCta0JfYIjI4KTm}#
- #{mod _85hotwsCta0JfYIjI4KTn}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KTp}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHu9}#
+ #{r _hoQGWMnyQPAh3k2jhWHu$}#
+ #{w _hoQGWMnyQPAh3k2jhWHu@}#
+ #{s _hoQGWMnyQPAh3k2jhWHvA}#
+ #{mod _hoQGWMnyQPAh3k2jhWHvB}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHvD}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KTj}#
+ #{e _hoQGWMnyQPAh3k2jhWHu9}#
'(_ any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4KTp}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHvD}#
(@apply
- (lambda (#{args _85hotwsCta0JfYIjI4KTt}#
- #{e1 _85hotwsCta0JfYIjI4KTu}#
- #{e2 _85hotwsCta0JfYIjI4KTv}#)
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWHvH}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHvI}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
- #{e _85hotwsCta0JfYIjI4KTj}#
- #{r _85hotwsCta0JfYIjI4KTk}#
- #{w _85hotwsCta0JfYIjI4KTl}#
- #{s _85hotwsCta0JfYIjI4KTm}#
- #{mod _85hotwsCta0JfYIjI4KTn}#
- #{lambda*-formals _85hotwsCta0JfYIjI4J4W}#
- (list (cons #{args _85hotwsCta0JfYIjI4KTt}#
- (cons #{e1 _85hotwsCta0JfYIjI4KTu}#
- #{e2 _85hotwsCta0JfYIjI4KTv}#)))))
- (lambda (#{meta _85hotwsCta0JfYIjI4KTy}#
- #{lcase _85hotwsCta0JfYIjI4KTz}#)
+ (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
+ #{e _hoQGWMnyQPAh3k2jhWHu9}#
+ #{r _hoQGWMnyQPAh3k2jhWHu$}#
+ #{w _hoQGWMnyQPAh3k2jhWHu@}#
+ #{s _hoQGWMnyQPAh3k2jhWHvA}#
+ #{mod _hoQGWMnyQPAh3k2jhWHvB}#
+ #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}#
+ (list (cons #{args _hoQGWMnyQPAh3k2jhWHvH}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHvI}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#)))))
+ (lambda (#{meta _hoQGWMnyQPAh3k2jhWHvM}#
+ #{lcase _hoQGWMnyQPAh3k2jhWHvN}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s _85hotwsCta0JfYIjI4KTm}#
- #{meta _85hotwsCta0JfYIjI4KTy}#
- #{lcase _85hotwsCta0JfYIjI4KTz}#))))
- #{tmp _85hotwsCta0JfYIjI4KTp}#)
+ #{s _hoQGWMnyQPAh3k2jhWHvA}#
+ #{meta _hoQGWMnyQPAh3k2jhWHvM}#
+ #{lcase _hoQGWMnyQPAh3k2jhWHvN}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHvD}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e _85hotwsCta0JfYIjI4KTj}#)))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWHu9}#)))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'case-lambda
- (lambda (#{e _85hotwsCta0JfYIjI4KWd}#
- #{r _85hotwsCta0JfYIjI4KWe}#
- #{w _85hotwsCta0JfYIjI4KWf}#
- #{s _85hotwsCta0JfYIjI4KWg}#
- #{mod _85hotwsCta0JfYIjI4KWh}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KWj}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWHx3}#
+ #{r _hoQGWMnyQPAh3k2jhWHx4}#
+ #{w _hoQGWMnyQPAh3k2jhWHx5}#
+ #{s _hoQGWMnyQPAh3k2jhWHx6}#
+ #{mod _hoQGWMnyQPAh3k2jhWHx7}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWHx9}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KWd}#
+ #{e _hoQGWMnyQPAh3k2jhWHx3}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp _85hotwsCta0JfYIjI4KWj}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWHx9}#
(@apply
- (lambda (#{args _85hotwsCta0JfYIjI4KWn}#
- #{e1 _85hotwsCta0JfYIjI4KWo}#
- #{e2 _85hotwsCta0JfYIjI4KWp}#
- #{args* _85hotwsCta0JfYIjI4KWq}#
- #{e1* _85hotwsCta0JfYIjI4KWr}#
- #{e2* _85hotwsCta0JfYIjI4KWs}#)
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWHyB}#
+ #{e1 _hoQGWMnyQPAh3k2jhWHyC}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHyD}#
+ #{args* _hoQGWMnyQPAh3k2jhWHyE}#
+ #{e1* _hoQGWMnyQPAh3k2jhWHyF}#
+ #{e2* _hoQGWMnyQPAh3k2jhWHyG}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
- #{e _85hotwsCta0JfYIjI4KWd}#
- #{r _85hotwsCta0JfYIjI4KWe}#
- #{w _85hotwsCta0JfYIjI4KWf}#
- #{s _85hotwsCta0JfYIjI4KWg}#
- #{mod _85hotwsCta0JfYIjI4KWh}#
- #{lambda-formals _85hotwsCta0JfYIjI4J4U}#
- (cons (cons #{args _85hotwsCta0JfYIjI4KWn}#
- (cons #{e1 _85hotwsCta0JfYIjI4KWo}#
- #{e2 _85hotwsCta0JfYIjI4KWp}#))
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4Jsf _85hotwsCta0JfYIjI4KWv}#
- #{tmp _85hotwsCta0JfYIjI4Jse _85hotwsCta0JfYIjI4KWw}#
- #{tmp _85hotwsCta0JfYIjI4Jsd _85hotwsCta0JfYIjI4KWx}#)
- (cons #{tmp _85hotwsCta0JfYIjI4Jsd _85hotwsCta0JfYIjI4KWx}#
- (cons #{tmp _85hotwsCta0JfYIjI4Jse _85hotwsCta0JfYIjI4KWw}#
- #{tmp _85hotwsCta0JfYIjI4Jsf _85hotwsCta0JfYIjI4KWv}#)))
- #{e2* _85hotwsCta0JfYIjI4KWs}#
- #{e1* _85hotwsCta0JfYIjI4KWr}#
- #{args* _85hotwsCta0JfYIjI4KWq}#))))
- (lambda (#{meta _85hotwsCta0JfYIjI4KWy}#
- #{lcase _85hotwsCta0JfYIjI4KWz}#)
+ (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
+ #{e _hoQGWMnyQPAh3k2jhWHx3}#
+ #{r _hoQGWMnyQPAh3k2jhWHx4}#
+ #{w _hoQGWMnyQPAh3k2jhWHx5}#
+ #{s _hoQGWMnyQPAh3k2jhWHx6}#
+ #{mod _hoQGWMnyQPAh3k2jhWHx7}#
+ #{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}#
+ (cons (cons #{args _hoQGWMnyQPAh3k2jhWHyB}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWHyC}#
+ #{e2 _hoQGWMnyQPAh3k2jhWHyD}#))
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#)
+ (cons #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#
+ (cons #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#)))
+ #{e2* _hoQGWMnyQPAh3k2jhWHyG}#
+ #{e1* _hoQGWMnyQPAh3k2jhWHyF}#
+ #{args* _hoQGWMnyQPAh3k2jhWHyE}#))))
+ (lambda (#{meta _hoQGWMnyQPAh3k2jhWHyM}#
+ #{lcase _hoQGWMnyQPAh3k2jhWHyN}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s _85hotwsCta0JfYIjI4KWg}#
- #{meta _85hotwsCta0JfYIjI4KWy}#
- #{lcase _85hotwsCta0JfYIjI4KWz}#))))
- #{tmp _85hotwsCta0JfYIjI4KWj}#)
+ #{s _hoQGWMnyQPAh3k2jhWHx6}#
+ #{meta _hoQGWMnyQPAh3k2jhWHyM}#
+ #{lcase _hoQGWMnyQPAh3k2jhWHyN}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWHx9}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e _85hotwsCta0JfYIjI4KWd}#)))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWHx3}#)))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'case-lambda*
- (lambda (#{e _85hotwsCta0JfYIjI4KZV}#
- #{r _85hotwsCta0JfYIjI4KZW}#
- #{w _85hotwsCta0JfYIjI4KZX}#
- #{s _85hotwsCta0JfYIjI4KZY}#
- #{mod _85hotwsCta0JfYIjI4KZZ}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KZb}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWH0v}#
+ #{r _hoQGWMnyQPAh3k2jhWH0w}#
+ #{w _hoQGWMnyQPAh3k2jhWH0x}#
+ #{s _hoQGWMnyQPAh3k2jhWH0y}#
+ #{mod _hoQGWMnyQPAh3k2jhWH0z}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWH01}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KZV}#
+ #{e _hoQGWMnyQPAh3k2jhWH0v}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp _85hotwsCta0JfYIjI4KZb}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWH01}#
(@apply
- (lambda (#{args _85hotwsCta0JfYIjI4KZf}#
- #{e1 _85hotwsCta0JfYIjI4KZg}#
- #{e2 _85hotwsCta0JfYIjI4KZh}#
- #{args* _85hotwsCta0JfYIjI4KZi}#
- #{e1* _85hotwsCta0JfYIjI4KZj}#
- #{e2* _85hotwsCta0JfYIjI4KZk}#)
+ (lambda (#{args _hoQGWMnyQPAh3k2jhWH05}#
+ #{e1 _hoQGWMnyQPAh3k2jhWH06}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH07}#
+ #{args* _hoQGWMnyQPAh3k2jhWH08}#
+ #{e1* _hoQGWMnyQPAh3k2jhWH09}#
+ #{e2* _hoQGWMnyQPAh3k2jhWH0$}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
- #{e _85hotwsCta0JfYIjI4KZV}#
- #{r _85hotwsCta0JfYIjI4KZW}#
- #{w _85hotwsCta0JfYIjI4KZX}#
- #{s _85hotwsCta0JfYIjI4KZY}#
- #{mod _85hotwsCta0JfYIjI4KZZ}#
- #{lambda*-formals _85hotwsCta0JfYIjI4J4W}#
- (cons (cons #{args _85hotwsCta0JfYIjI4KZf}#
- (cons #{e1 _85hotwsCta0JfYIjI4KZg}#
- #{e2 _85hotwsCta0JfYIjI4KZh}#))
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4Js0 _85hotwsCta0JfYIjI4KZn}#
- #{tmp _85hotwsCta0JfYIjI4Jsz _85hotwsCta0JfYIjI4KZo}#
- #{tmp _85hotwsCta0JfYIjI4Jsy _85hotwsCta0JfYIjI4KZp}#)
- (cons #{tmp _85hotwsCta0JfYIjI4Jsy _85hotwsCta0JfYIjI4KZp}#
- (cons #{tmp _85hotwsCta0JfYIjI4Jsz _85hotwsCta0JfYIjI4KZo}#
- #{tmp _85hotwsCta0JfYIjI4Js0 _85hotwsCta0JfYIjI4KZn}#)))
- #{e2* _85hotwsCta0JfYIjI4KZk}#
- #{e1* _85hotwsCta0JfYIjI4KZj}#
- #{args* _85hotwsCta0JfYIjI4KZi}#))))
- (lambda (#{meta _85hotwsCta0JfYIjI4KZq}#
- #{lcase _85hotwsCta0JfYIjI4KZr}#)
+ (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
+ #{e _hoQGWMnyQPAh3k2jhWH0v}#
+ #{r _hoQGWMnyQPAh3k2jhWH0w}#
+ #{w _hoQGWMnyQPAh3k2jhWH0x}#
+ #{s _hoQGWMnyQPAh3k2jhWH0y}#
+ #{mod _hoQGWMnyQPAh3k2jhWH0z}#
+ #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}#
+ (cons (cons #{args _hoQGWMnyQPAh3k2jhWH05}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWH06}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH07}#))
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#)
+ (cons #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#
+ (cons #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}#
+ #{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#)))
+ #{e2* _hoQGWMnyQPAh3k2jhWH0$}#
+ #{e1* _hoQGWMnyQPAh3k2jhWH09}#
+ #{args* _hoQGWMnyQPAh3k2jhWH08}#))))
+ (lambda (#{meta _hoQGWMnyQPAh3k2jhWH1E}#
+ #{lcase _hoQGWMnyQPAh3k2jhWH1F}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s _85hotwsCta0JfYIjI4KZY}#
- #{meta _85hotwsCta0JfYIjI4KZq}#
- #{lcase _85hotwsCta0JfYIjI4KZr}#))))
- #{tmp _85hotwsCta0JfYIjI4KZb}#)
+ #{s _hoQGWMnyQPAh3k2jhWH0y}#
+ #{meta _hoQGWMnyQPAh3k2jhWH1E}#
+ #{lcase _hoQGWMnyQPAh3k2jhWH1F}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWH01}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e _85hotwsCta0JfYIjI4KZV}#)))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWH0v}#)))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'let
(letrec*
- ((#{expand-let _85hotwsCta0JfYIjI4Kcq}#
- (lambda (#{e _85hotwsCta0JfYIjI4Ke@}#
- #{r _85hotwsCta0JfYIjI4KfA}#
- #{w _85hotwsCta0JfYIjI4KfB}#
- #{s _85hotwsCta0JfYIjI4KfC}#
- #{mod _85hotwsCta0JfYIjI4KfD}#
- #{constructor _85hotwsCta0JfYIjI4KfE}#
- #{ids _85hotwsCta0JfYIjI4KfF}#
- #{vals _85hotwsCta0JfYIjI4KfG}#
- #{exps _85hotwsCta0JfYIjI4KfH}#)
- (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- #{ids _85hotwsCta0JfYIjI4KfF}#))
+ ((#{expand-let _hoQGWMnyQPAh3k2jhWH4E}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWH6Z}#
+ #{r _hoQGWMnyQPAh3k2jhWH6a}#
+ #{w _hoQGWMnyQPAh3k2jhWH6b}#
+ #{s _hoQGWMnyQPAh3k2jhWH6c}#
+ #{mod _hoQGWMnyQPAh3k2jhWH6d}#
+ #{constructor _hoQGWMnyQPAh3k2jhWH6e}#
+ #{ids _hoQGWMnyQPAh3k2jhWH6f}#
+ #{vals _hoQGWMnyQPAh3k2jhWH6g}#
+ #{exps _hoQGWMnyQPAh3k2jhWH6h}#)
+ (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ #{ids _hoQGWMnyQPAh3k2jhWH6f}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e _85hotwsCta0JfYIjI4Ke@}#)
- (let ((#{labels _85hotwsCta0JfYIjI4KgV}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{ids _85hotwsCta0JfYIjI4KfF}#))
- (#{new-vars _85hotwsCta0JfYIjI4KgW}#
- (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
- #{ids _85hotwsCta0JfYIjI4KfF}#)))
- (let ((#{nw _85hotwsCta0JfYIjI4KgX}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{ids _85hotwsCta0JfYIjI4KfF}#
- #{labels _85hotwsCta0JfYIjI4KgV}#
- #{w _85hotwsCta0JfYIjI4KfB}#))
- (#{nr _85hotwsCta0JfYIjI4KgY}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{labels _85hotwsCta0JfYIjI4KgV}#
- #{new-vars _85hotwsCta0JfYIjI4KgW}#
- #{r _85hotwsCta0JfYIjI4KfA}#)))
- (#{constructor _85hotwsCta0JfYIjI4KfE}#
- #{s _85hotwsCta0JfYIjI4KfC}#
+ #{e _hoQGWMnyQPAh3k2jhWH6Z}#)
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWH7v}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{ids _hoQGWMnyQPAh3k2jhWH6f}#))
+ (#{new-vars _hoQGWMnyQPAh3k2jhWH7w}#
+ (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ #{ids _hoQGWMnyQPAh3k2jhWH6f}#)))
+ (let ((#{nw _hoQGWMnyQPAh3k2jhWH7x}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{ids _hoQGWMnyQPAh3k2jhWH6f}#
+ #{labels _hoQGWMnyQPAh3k2jhWH7v}#
+ #{w _hoQGWMnyQPAh3k2jhWH6b}#))
+ (#{nr _hoQGWMnyQPAh3k2jhWH7y}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{labels _hoQGWMnyQPAh3k2jhWH7v}#
+ #{new-vars _hoQGWMnyQPAh3k2jhWH7w}#
+ #{r _hoQGWMnyQPAh3k2jhWH6a}#)))
+ (#{constructor _hoQGWMnyQPAh3k2jhWH6e}#
+ #{s _hoQGWMnyQPAh3k2jhWH6c}#
(map syntax->datum
- #{ids _85hotwsCta0JfYIjI4KfF}#)
- #{new-vars _85hotwsCta0JfYIjI4KgW}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4Kgp}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4Kgp}#
- #{r _85hotwsCta0JfYIjI4KfA}#
- #{w _85hotwsCta0JfYIjI4KfB}#
- #{mod _85hotwsCta0JfYIjI4KfD}#))
- #{vals _85hotwsCta0JfYIjI4KfG}#)
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- #{exps _85hotwsCta0JfYIjI4KfH}#
- (#{source-wrap _85hotwsCta0JfYIjI4J4F}#
- #{e _85hotwsCta0JfYIjI4Ke@}#
- #{nw _85hotwsCta0JfYIjI4KgX}#
- #{s _85hotwsCta0JfYIjI4KfC}#
- #{mod _85hotwsCta0JfYIjI4KfD}#)
- #{nr _85hotwsCta0JfYIjI4KgY}#
- #{nw _85hotwsCta0JfYIjI4KgX}#
- #{mod _85hotwsCta0JfYIjI4KfD}#))))))))
- (lambda (#{e _85hotwsCta0JfYIjI4Kcr}#
- #{r _85hotwsCta0JfYIjI4Kcs}#
- #{w _85hotwsCta0JfYIjI4Kct}#
- #{s _85hotwsCta0JfYIjI4Kcu}#
- #{mod _85hotwsCta0JfYIjI4Kcv}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Kcx}#
+ #{ids _hoQGWMnyQPAh3k2jhWH6f}#)
+ #{new-vars _hoQGWMnyQPAh3k2jhWH7w}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWH8D}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWH8D}#
+ #{r _hoQGWMnyQPAh3k2jhWH6a}#
+ #{w _hoQGWMnyQPAh3k2jhWH6b}#
+ #{mod _hoQGWMnyQPAh3k2jhWH6d}#))
+ #{vals _hoQGWMnyQPAh3k2jhWH6g}#)
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ #{exps _hoQGWMnyQPAh3k2jhWH6h}#
+ (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}#
+ #{e _hoQGWMnyQPAh3k2jhWH6Z}#
+ #{nw _hoQGWMnyQPAh3k2jhWH7x}#
+ #{s _hoQGWMnyQPAh3k2jhWH6c}#
+ #{mod _hoQGWMnyQPAh3k2jhWH6d}#)
+ #{nr _hoQGWMnyQPAh3k2jhWH7y}#
+ #{nw _hoQGWMnyQPAh3k2jhWH7x}#
+ #{mod _hoQGWMnyQPAh3k2jhWH6d}#))))))))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWH4F}#
+ #{r _hoQGWMnyQPAh3k2jhWH4G}#
+ #{w _hoQGWMnyQPAh3k2jhWH4H}#
+ #{s _hoQGWMnyQPAh3k2jhWH4I}#
+ #{mod _hoQGWMnyQPAh3k2jhWH4J}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWH4L}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Kcr}#
+ #{e _hoQGWMnyQPAh3k2jhWH4F}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Kcx}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWH4L}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4Kc1}#
- #{val _85hotwsCta0JfYIjI4Kc2}#
- #{e1 _85hotwsCta0JfYIjI4Kc3}#
- #{e2 _85hotwsCta0JfYIjI4Kc4}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWH4P}#
+ #{val _hoQGWMnyQPAh3k2jhWH4Q}#
+ #{e1 _hoQGWMnyQPAh3k2jhWH4R}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH4S}#)
(and-map
- #{id? _85hotwsCta0JfYIjI4J3n}#
- #{id _85hotwsCta0JfYIjI4Kc1}#))
- #{tmp _85hotwsCta0JfYIjI4Kcx}#)
+ #{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ #{id _hoQGWMnyQPAh3k2jhWH4P}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWH4L}#)
#f)
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4KdI}#
- #{val _85hotwsCta0JfYIjI4KdJ}#
- #{e1 _85hotwsCta0JfYIjI4KdK}#
- #{e2 _85hotwsCta0JfYIjI4KdL}#)
- (#{expand-let _85hotwsCta0JfYIjI4Kcq}#
- #{e _85hotwsCta0JfYIjI4Kcr}#
- #{r _85hotwsCta0JfYIjI4Kcs}#
- #{w _85hotwsCta0JfYIjI4Kct}#
- #{s _85hotwsCta0JfYIjI4Kcu}#
- #{mod _85hotwsCta0JfYIjI4Kcv}#
- #{build-let _85hotwsCta0JfYIjI4J3V}#
- #{id _85hotwsCta0JfYIjI4KdI}#
- #{val _85hotwsCta0JfYIjI4KdJ}#
- (cons #{e1 _85hotwsCta0JfYIjI4KdK}#
- #{e2 _85hotwsCta0JfYIjI4KdL}#)))
- #{tmp _85hotwsCta0JfYIjI4Kcx}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Kdp}#
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWH4i}#
+ #{val _hoQGWMnyQPAh3k2jhWH4j}#
+ #{e1 _hoQGWMnyQPAh3k2jhWH4k}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH4l}#)
+ (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}#
+ #{e _hoQGWMnyQPAh3k2jhWH4F}#
+ #{r _hoQGWMnyQPAh3k2jhWH4G}#
+ #{w _hoQGWMnyQPAh3k2jhWH4H}#
+ #{s _hoQGWMnyQPAh3k2jhWH4I}#
+ #{mod _hoQGWMnyQPAh3k2jhWH4J}#
+ #{build-let _hoQGWMnyQPAh3k2jhWHSv}#
+ #{id _hoQGWMnyQPAh3k2jhWH4i}#
+ #{val _hoQGWMnyQPAh3k2jhWH4j}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWH4k}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH4l}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWH4L}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWH5D}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Kcr}#
+ #{e _hoQGWMnyQPAh3k2jhWH4F}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Kdp}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWH5D}#
(@apply
- (lambda (#{f _85hotwsCta0JfYIjI4Kdt}#
- #{id _85hotwsCta0JfYIjI4Kdu}#
- #{val _85hotwsCta0JfYIjI4Kdv}#
- #{e1 _85hotwsCta0JfYIjI4Kdw}#
- #{e2 _85hotwsCta0JfYIjI4Kdx}#)
- (if (if (symbol? #{f _85hotwsCta0JfYIjI4Kdt}#)
+ (lambda (#{f _hoQGWMnyQPAh3k2jhWH5H}#
+ #{id _hoQGWMnyQPAh3k2jhWH5I}#
+ #{val _hoQGWMnyQPAh3k2jhWH5J}#
+ #{e1 _hoQGWMnyQPAh3k2jhWH5K}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH5L}#)
+ (if (if (symbol? #{f _hoQGWMnyQPAh3k2jhWH5H}#)
#t
(if (if (vector?
- #{f _85hotwsCta0JfYIjI4Kdt}#)
+ #{f _hoQGWMnyQPAh3k2jhWH5H}#)
(if (= (vector-length
- #{f _85hotwsCta0JfYIjI4Kdt}#)
+ #{f _hoQGWMnyQPAh3k2jhWH5H}#)
4)
(eq? (vector-ref
- #{f _85hotwsCta0JfYIjI4Kdt}#
+ #{f _hoQGWMnyQPAh3k2jhWH5H}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{f _85hotwsCta0JfYIjI4Kdt}#
+ #{f _hoQGWMnyQPAh3k2jhWH5H}#
1))
#f))
(and-map
- #{id? _85hotwsCta0JfYIjI4J3n}#
- #{id _85hotwsCta0JfYIjI4Kdu}#)
+ #{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ #{id _hoQGWMnyQPAh3k2jhWH5I}#)
#f))
- #{tmp _85hotwsCta0JfYIjI4Kdp}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWH5D}#)
#f)
(@apply
- (lambda (#{f _85hotwsCta0JfYIjI4Keb}#
- #{id _85hotwsCta0JfYIjI4Kec}#
- #{val _85hotwsCta0JfYIjI4Ked}#
- #{e1 _85hotwsCta0JfYIjI4Kee}#
- #{e2 _85hotwsCta0JfYIjI4Kef}#)
- (#{expand-let _85hotwsCta0JfYIjI4Kcq}#
- #{e _85hotwsCta0JfYIjI4Kcr}#
- #{r _85hotwsCta0JfYIjI4Kcs}#
- #{w _85hotwsCta0JfYIjI4Kct}#
- #{s _85hotwsCta0JfYIjI4Kcu}#
- #{mod _85hotwsCta0JfYIjI4Kcv}#
- #{build-named-let _85hotwsCta0JfYIjI4J3W}#
- (cons #{f _85hotwsCta0JfYIjI4Keb}#
- #{id _85hotwsCta0JfYIjI4Kec}#)
- #{val _85hotwsCta0JfYIjI4Ked}#
- (cons #{e1 _85hotwsCta0JfYIjI4Kee}#
- #{e2 _85hotwsCta0JfYIjI4Kef}#)))
- #{tmp _85hotwsCta0JfYIjI4Kdp}#)
+ (lambda (#{f _hoQGWMnyQPAh3k2jhWH51}#
+ #{id _hoQGWMnyQPAh3k2jhWH52}#
+ #{val _hoQGWMnyQPAh3k2jhWH53}#
+ #{e1 _hoQGWMnyQPAh3k2jhWH54}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH55}#)
+ (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}#
+ #{e _hoQGWMnyQPAh3k2jhWH4F}#
+ #{r _hoQGWMnyQPAh3k2jhWH4G}#
+ #{w _hoQGWMnyQPAh3k2jhWH4H}#
+ #{s _hoQGWMnyQPAh3k2jhWH4I}#
+ #{mod _hoQGWMnyQPAh3k2jhWH4J}#
+ #{build-named-let _hoQGWMnyQPAh3k2jhWHSw}#
+ (cons #{f _hoQGWMnyQPAh3k2jhWH51}#
+ #{id _hoQGWMnyQPAh3k2jhWH52}#)
+ #{val _hoQGWMnyQPAh3k2jhWH53}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWH54}#
+ #{e2 _hoQGWMnyQPAh3k2jhWH55}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWH5D}#)
(syntax-violation
'let
"bad let"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4Kcr}#)
- #{s _85hotwsCta0JfYIjI4Kcu}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWH4F}#)
+ #{s _hoQGWMnyQPAh3k2jhWH4I}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4Kcr}#
- #{s _85hotwsCta0JfYIjI4Kcu}#))
- #{e _85hotwsCta0JfYIjI4Kcr}#)
- #{w _85hotwsCta0JfYIjI4Kct}#
- #{mod _85hotwsCta0JfYIjI4Kcv}#)))))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWH4F}#
+ #{s _hoQGWMnyQPAh3k2jhWH4I}#))
+ #{e _hoQGWMnyQPAh3k2jhWH4F}#)
+ #{w _hoQGWMnyQPAh3k2jhWH4H}#
+ #{mod _hoQGWMnyQPAh3k2jhWH4J}#)))))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'letrec
- (lambda (#{e _85hotwsCta0JfYIjI4Km3}#
- #{r _85hotwsCta0JfYIjI4Km4}#
- #{w _85hotwsCta0JfYIjI4Km5}#
- #{s _85hotwsCta0JfYIjI4Km6}#
- #{mod _85hotwsCta0JfYIjI4Km7}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Km9}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWICR}#
+ #{r _hoQGWMnyQPAh3k2jhWICS}#
+ #{w _hoQGWMnyQPAh3k2jhWICT}#
+ #{s _hoQGWMnyQPAh3k2jhWICU}#
+ #{mod _hoQGWMnyQPAh3k2jhWICV}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWICX}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4Km3}#
+ #{e _hoQGWMnyQPAh3k2jhWICR}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Km9}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWICX}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4KnB}#
- #{val _85hotwsCta0JfYIjI4KnC}#
- #{e1 _85hotwsCta0JfYIjI4KnD}#
- #{e2 _85hotwsCta0JfYIjI4KnE}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWICb}#
+ #{val _hoQGWMnyQPAh3k2jhWICc}#
+ #{e1 _hoQGWMnyQPAh3k2jhWICd}#
+ #{e2 _hoQGWMnyQPAh3k2jhWICe}#)
(and-map
- #{id? _85hotwsCta0JfYIjI4J3n}#
- #{id _85hotwsCta0JfYIjI4KnB}#))
- #{tmp _85hotwsCta0JfYIjI4Km9}#)
+ #{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ #{id _hoQGWMnyQPAh3k2jhWICb}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWICX}#)
#f)
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4KnU}#
- #{val _85hotwsCta0JfYIjI4KnV}#
- #{e1 _85hotwsCta0JfYIjI4KnW}#
- #{e2 _85hotwsCta0JfYIjI4KnX}#)
- (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- #{id _85hotwsCta0JfYIjI4KnU}#))
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWICu}#
+ #{val _hoQGWMnyQPAh3k2jhWICv}#
+ #{e1 _hoQGWMnyQPAh3k2jhWICw}#
+ #{e2 _hoQGWMnyQPAh3k2jhWICx}#)
+ (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ #{id _hoQGWMnyQPAh3k2jhWICu}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e _85hotwsCta0JfYIjI4Km3}#)
- (let ((#{labels _85hotwsCta0JfYIjI4Kox}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{id _85hotwsCta0JfYIjI4KnU}#))
- (#{new-vars _85hotwsCta0JfYIjI4Koy}#
- (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
- #{id _85hotwsCta0JfYIjI4KnU}#)))
- (let ((#{w _85hotwsCta0JfYIjI4Koz}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{id _85hotwsCta0JfYIjI4KnU}#
- #{labels _85hotwsCta0JfYIjI4Kox}#
- #{w _85hotwsCta0JfYIjI4Km5}#))
- (#{r _85hotwsCta0JfYIjI4Ko0}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{labels _85hotwsCta0JfYIjI4Kox}#
- #{new-vars _85hotwsCta0JfYIjI4Koy}#
- #{r _85hotwsCta0JfYIjI4Km4}#)))
- (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
- #{s _85hotwsCta0JfYIjI4Km6}#
+ #{e _hoQGWMnyQPAh3k2jhWICR}#)
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWIEL}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{id _hoQGWMnyQPAh3k2jhWICu}#))
+ (#{new-vars _hoQGWMnyQPAh3k2jhWIEM}#
+ (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ #{id _hoQGWMnyQPAh3k2jhWICu}#)))
+ (let ((#{w _hoQGWMnyQPAh3k2jhWIEN}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{id _hoQGWMnyQPAh3k2jhWICu}#
+ #{labels _hoQGWMnyQPAh3k2jhWIEL}#
+ #{w _hoQGWMnyQPAh3k2jhWICT}#))
+ (#{r _hoQGWMnyQPAh3k2jhWIEO}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{labels _hoQGWMnyQPAh3k2jhWIEL}#
+ #{new-vars _hoQGWMnyQPAh3k2jhWIEM}#
+ #{r _hoQGWMnyQPAh3k2jhWICS}#)))
+ (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
+ #{s _hoQGWMnyQPAh3k2jhWICU}#
#f
- (map syntax->datum #{id _85hotwsCta0JfYIjI4KnU}#)
- #{new-vars _85hotwsCta0JfYIjI4Koy}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4KqF}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4KqF}#
- #{r _85hotwsCta0JfYIjI4Ko0}#
- #{w _85hotwsCta0JfYIjI4Koz}#
- #{mod _85hotwsCta0JfYIjI4Km7}#))
- #{val _85hotwsCta0JfYIjI4KnV}#)
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- (cons #{e1 _85hotwsCta0JfYIjI4KnW}#
- #{e2 _85hotwsCta0JfYIjI4KnX}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWICu}#)
+ #{new-vars _hoQGWMnyQPAh3k2jhWIEM}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIFf}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWIFf}#
+ #{r _hoQGWMnyQPAh3k2jhWIEO}#
+ #{w _hoQGWMnyQPAh3k2jhWIEN}#
+ #{mod _hoQGWMnyQPAh3k2jhWICV}#))
+ #{val _hoQGWMnyQPAh3k2jhWICv}#)
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWICw}#
+ #{e2 _hoQGWMnyQPAh3k2jhWICx}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#)
- #{s _85hotwsCta0JfYIjI4Km6}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#)
+ #{s _hoQGWMnyQPAh3k2jhWICU}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4Km3}#
- #{s _85hotwsCta0JfYIjI4Km6}#))
- #{e _85hotwsCta0JfYIjI4Km3}#)
- #{w _85hotwsCta0JfYIjI4Koz}#
- #{mod _85hotwsCta0JfYIjI4Km7}#)
- #{r _85hotwsCta0JfYIjI4Ko0}#
- #{w _85hotwsCta0JfYIjI4Koz}#
- #{mod _85hotwsCta0JfYIjI4Km7}#))))))
- #{tmp _85hotwsCta0JfYIjI4Km9}#)
+ #{e _hoQGWMnyQPAh3k2jhWICR}#
+ #{s _hoQGWMnyQPAh3k2jhWICU}#))
+ #{e _hoQGWMnyQPAh3k2jhWICR}#)
+ #{w _hoQGWMnyQPAh3k2jhWIEN}#
+ #{mod _hoQGWMnyQPAh3k2jhWICV}#)
+ #{r _hoQGWMnyQPAh3k2jhWIEO}#
+ #{w _hoQGWMnyQPAh3k2jhWIEN}#
+ #{mod _hoQGWMnyQPAh3k2jhWICV}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWICX}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#)
- #{s _85hotwsCta0JfYIjI4Km6}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#)
+ #{s _hoQGWMnyQPAh3k2jhWICU}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4Km3}#
- #{s _85hotwsCta0JfYIjI4Km6}#))
- #{e _85hotwsCta0JfYIjI4Km3}#)
- #{w _85hotwsCta0JfYIjI4Km5}#
- #{mod _85hotwsCta0JfYIjI4Km7}#))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWICR}#
+ #{s _hoQGWMnyQPAh3k2jhWICU}#))
+ #{e _hoQGWMnyQPAh3k2jhWICR}#)
+ #{w _hoQGWMnyQPAh3k2jhWICT}#
+ #{mod _hoQGWMnyQPAh3k2jhWICV}#))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'letrec*
- (lambda (#{e _85hotwsCta0JfYIjI4KwI}#
- #{r _85hotwsCta0JfYIjI4KwJ}#
- #{w _85hotwsCta0JfYIjI4KwK}#
- #{s _85hotwsCta0JfYIjI4KwL}#
- #{mod _85hotwsCta0JfYIjI4KwM}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4KwO}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWILi}#
+ #{r _hoQGWMnyQPAh3k2jhWILj}#
+ #{w _hoQGWMnyQPAh3k2jhWILk}#
+ #{s _hoQGWMnyQPAh3k2jhWILl}#
+ #{mod _hoQGWMnyQPAh3k2jhWILm}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWILo}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4KwI}#
+ #{e _hoQGWMnyQPAh3k2jhWILi}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4KwO}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWILo}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4KwS}#
- #{val _85hotwsCta0JfYIjI4KwT}#
- #{e1 _85hotwsCta0JfYIjI4KwU}#
- #{e2 _85hotwsCta0JfYIjI4KwV}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWILs}#
+ #{val _hoQGWMnyQPAh3k2jhWILt}#
+ #{e1 _hoQGWMnyQPAh3k2jhWILu}#
+ #{e2 _hoQGWMnyQPAh3k2jhWILv}#)
(and-map
- #{id? _85hotwsCta0JfYIjI4J3n}#
- #{id _85hotwsCta0JfYIjI4KwS}#))
- #{tmp _85hotwsCta0JfYIjI4KwO}#)
+ #{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ #{id _hoQGWMnyQPAh3k2jhWILs}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWILo}#)
#f)
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4Kwl}#
- #{val _85hotwsCta0JfYIjI4Kwm}#
- #{e1 _85hotwsCta0JfYIjI4Kwn}#
- #{e2 _85hotwsCta0JfYIjI4Kwo}#)
- (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
- #{id _85hotwsCta0JfYIjI4Kwl}#))
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWIL@}#
+ #{val _hoQGWMnyQPAh3k2jhWIMA}#
+ #{e1 _hoQGWMnyQPAh3k2jhWIMB}#
+ #{e2 _hoQGWMnyQPAh3k2jhWIMC}#)
+ (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ #{id _hoQGWMnyQPAh3k2jhWIL@}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e _85hotwsCta0JfYIjI4KwI}#)
- (let ((#{labels _85hotwsCta0JfYIjI4KyC}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{id _85hotwsCta0JfYIjI4Kwl}#))
- (#{new-vars _85hotwsCta0JfYIjI4KyD}#
- (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
- #{id _85hotwsCta0JfYIjI4Kwl}#)))
- (let ((#{w _85hotwsCta0JfYIjI4KyE}#
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{id _85hotwsCta0JfYIjI4Kwl}#
- #{labels _85hotwsCta0JfYIjI4KyC}#
- #{w _85hotwsCta0JfYIjI4KwK}#))
- (#{r _85hotwsCta0JfYIjI4KyF}#
- (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
- #{labels _85hotwsCta0JfYIjI4KyC}#
- #{new-vars _85hotwsCta0JfYIjI4KyD}#
- #{r _85hotwsCta0JfYIjI4KwJ}#)))
- (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
- #{s _85hotwsCta0JfYIjI4KwL}#
+ #{e _hoQGWMnyQPAh3k2jhWILi}#)
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWINc}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{id _hoQGWMnyQPAh3k2jhWIL@}#))
+ (#{new-vars _hoQGWMnyQPAh3k2jhWINd}#
+ (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ #{id _hoQGWMnyQPAh3k2jhWIL@}#)))
+ (let ((#{w _hoQGWMnyQPAh3k2jhWINe}#
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{id _hoQGWMnyQPAh3k2jhWIL@}#
+ #{labels _hoQGWMnyQPAh3k2jhWINc}#
+ #{w _hoQGWMnyQPAh3k2jhWILk}#))
+ (#{r _hoQGWMnyQPAh3k2jhWINf}#
+ (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
+ #{labels _hoQGWMnyQPAh3k2jhWINc}#
+ #{new-vars _hoQGWMnyQPAh3k2jhWINd}#
+ #{r _hoQGWMnyQPAh3k2jhWILj}#)))
+ (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
+ #{s _hoQGWMnyQPAh3k2jhWILl}#
#t
- (map syntax->datum #{id _85hotwsCta0JfYIjI4Kwl}#)
- #{new-vars _85hotwsCta0JfYIjI4KyD}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4KzW}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4KzW}#
- #{r _85hotwsCta0JfYIjI4KyF}#
- #{w _85hotwsCta0JfYIjI4KyE}#
- #{mod _85hotwsCta0JfYIjI4KwM}#))
- #{val _85hotwsCta0JfYIjI4Kwm}#)
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- (cons #{e1 _85hotwsCta0JfYIjI4Kwn}#
- #{e2 _85hotwsCta0JfYIjI4Kwo}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWIL@}#)
+ #{new-vars _hoQGWMnyQPAh3k2jhWINd}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIOw}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWIOw}#
+ #{r _hoQGWMnyQPAh3k2jhWINf}#
+ #{w _hoQGWMnyQPAh3k2jhWINe}#
+ #{mod _hoQGWMnyQPAh3k2jhWILm}#))
+ #{val _hoQGWMnyQPAh3k2jhWIMA}#)
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWIMB}#
+ #{e2 _hoQGWMnyQPAh3k2jhWIMC}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#)
- #{s _85hotwsCta0JfYIjI4KwL}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#)
+ #{s _hoQGWMnyQPAh3k2jhWILl}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4KwI}#
- #{s _85hotwsCta0JfYIjI4KwL}#))
- #{e _85hotwsCta0JfYIjI4KwI}#)
- #{w _85hotwsCta0JfYIjI4KyE}#
- #{mod _85hotwsCta0JfYIjI4KwM}#)
- #{r _85hotwsCta0JfYIjI4KyF}#
- #{w _85hotwsCta0JfYIjI4KyE}#
- #{mod _85hotwsCta0JfYIjI4KwM}#))))))
- #{tmp _85hotwsCta0JfYIjI4KwO}#)
+ #{e _hoQGWMnyQPAh3k2jhWILi}#
+ #{s _hoQGWMnyQPAh3k2jhWILl}#))
+ #{e _hoQGWMnyQPAh3k2jhWILi}#)
+ #{w _hoQGWMnyQPAh3k2jhWINe}#
+ #{mod _hoQGWMnyQPAh3k2jhWILm}#)
+ #{r _hoQGWMnyQPAh3k2jhWINf}#
+ #{w _hoQGWMnyQPAh3k2jhWINe}#
+ #{mod _hoQGWMnyQPAh3k2jhWILm}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWILo}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#)
- #{s _85hotwsCta0JfYIjI4KwL}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#)
+ #{s _hoQGWMnyQPAh3k2jhWILl}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4KwI}#
- #{s _85hotwsCta0JfYIjI4KwL}#))
- #{e _85hotwsCta0JfYIjI4KwI}#)
- #{w _85hotwsCta0JfYIjI4KwK}#
- #{mod _85hotwsCta0JfYIjI4KwM}#))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWILi}#
+ #{s _hoQGWMnyQPAh3k2jhWILl}#))
+ #{e _hoQGWMnyQPAh3k2jhWILi}#)
+ #{w _hoQGWMnyQPAh3k2jhWILk}#
+ #{mod _hoQGWMnyQPAh3k2jhWILm}#))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'set!
- (lambda (#{e _85hotwsCta0JfYIjI4K6A}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{s _85hotwsCta0JfYIjI4K6D}#
- #{mod _85hotwsCta0JfYIjI4K6E}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4K6G}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIVg}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4K6A}#
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#
'(_ any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4K6G}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWIVg}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4K6K}#
- #{val _85hotwsCta0JfYIjI4K6L}#)
- (if (symbol? #{id _85hotwsCta0JfYIjI4K6K}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWIVk}#
+ #{val _hoQGWMnyQPAh3k2jhWIVl}#)
+ (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIVk}#)
#t
- (if (if (vector? #{id _85hotwsCta0JfYIjI4K6K}#)
+ (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIVk}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4K6K}#)
+ #{id _hoQGWMnyQPAh3k2jhWIVk}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4K6K}#
+ #{id _hoQGWMnyQPAh3k2jhWIVk}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{id _85hotwsCta0JfYIjI4K6K}# 1))
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWIVk}# 1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4K6G}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWIVg}#)
#f)
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4K6m}#
- #{val _85hotwsCta0JfYIjI4K6n}#)
- (let ((#{n _85hotwsCta0JfYIjI4K6o}#
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{id _85hotwsCta0JfYIjI4K6m}#
- #{w _85hotwsCta0JfYIjI4K6C}#))
- (#{id-mod _85hotwsCta0JfYIjI4K6p}#
- (if (if (vector? #{id _85hotwsCta0JfYIjI4K6m}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWIWA}#
+ #{val _hoQGWMnyQPAh3k2jhWIWB}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWIWC}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{id _hoQGWMnyQPAh3k2jhWIWA}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#))
+ (#{id-mod _hoQGWMnyQPAh3k2jhWIWD}#
+ (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIWA}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4K6m}#)
+ #{id _hoQGWMnyQPAh3k2jhWIWA}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4K6m}#
+ #{id _hoQGWMnyQPAh3k2jhWIWA}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id _85hotwsCta0JfYIjI4K6m}# 3)
- #{mod _85hotwsCta0JfYIjI4K6E}#)))
- (let ((#{b _85hotwsCta0JfYIjI4K6q}#
- (let ((#{t _85hotwsCta0JfYIjI4K7T}#
- (assq #{n _85hotwsCta0JfYIjI4K6o}#
- #{r _85hotwsCta0JfYIjI4K6B}#)))
- (if #{t _85hotwsCta0JfYIjI4K7T}#
- (cdr #{t _85hotwsCta0JfYIjI4K7T}#)
- (if (symbol? #{n _85hotwsCta0JfYIjI4K6o}#)
- (let ((#{t _85hotwsCta0JfYIjI4K7Y}#
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- #{n _85hotwsCta0JfYIjI4K6o}#
- #{id-mod _85hotwsCta0JfYIjI4K6p}#)))
- (if #{t _85hotwsCta0JfYIjI4K7Y}#
- #{t _85hotwsCta0JfYIjI4K7Y}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWIWA}# 3)
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))
+ (let ((#{b _hoQGWMnyQPAh3k2jhWIWE}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWIWt}#
+ (assq #{n _hoQGWMnyQPAh3k2jhWIWC}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWIWt}#
+ (cdr #{t _hoQGWMnyQPAh3k2jhWIWt}#)
+ (if (symbol? #{n _hoQGWMnyQPAh3k2jhWIWC}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWIWy}#
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ #{n _hoQGWMnyQPAh3k2jhWIWC}#
+ #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWIWy}#
+ #{t _hoQGWMnyQPAh3k2jhWIWy}#
'(global)))
'(displaced-lexical))))))
- (let ((#{atom-key _85hotwsCta0JfYIjI4K6r}#
- (car #{b _85hotwsCta0JfYIjI4K6q}#)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ (let ((#{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
+ (car #{b _hoQGWMnyQPAh3k2jhWIWE}#)))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
'lexical)
- (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}#
- #{s _85hotwsCta0JfYIjI4K6D}#
- (syntax->datum #{id _85hotwsCta0JfYIjI4K6m}#)
- (cdr #{b _85hotwsCta0JfYIjI4K6q}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{val _85hotwsCta0JfYIjI4K6n}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIWA}#)
+ (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{val _hoQGWMnyQPAh3k2jhWIWB}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
'global)
- (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}#
- #{s _85hotwsCta0JfYIjI4K6D}#
- #{n _85hotwsCta0JfYIjI4K6o}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{val _85hotwsCta0JfYIjI4K6n}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#)
- #{id-mod _85hotwsCta0JfYIjI4K6p}#)
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ #{n _hoQGWMnyQPAh3k2jhWIWC}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{val _hoQGWMnyQPAh3k2jhWIWB}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
+ #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
'macro)
- (let ((#{p _85hotwsCta0JfYIjI4LAS}#
- (cdr #{b _85hotwsCta0JfYIjI4K6q}#)))
+ (let ((#{p _hoQGWMnyQPAh3k2jhWIbs}#
+ (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#)))
(if (procedure-property
- #{p _85hotwsCta0JfYIjI4LAS}#
+ #{p _hoQGWMnyQPAh3k2jhWIbs}#
'variable-transformer)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
- #{p _85hotwsCta0JfYIjI4LAS}#
- #{e _85hotwsCta0JfYIjI4K6A}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{s _85hotwsCta0JfYIjI4K6D}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
+ #{p _hoQGWMnyQPAh3k2jhWIbs}#
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
#f
- #{mod _85hotwsCta0JfYIjI4K6E}#)
- #{r _85hotwsCta0JfYIjI4K6B}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
'(())
- #{mod _85hotwsCta0JfYIjI4K6E}#)
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{e _85hotwsCta0JfYIjI4K6A}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{id _85hotwsCta0JfYIjI4K6m}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{id-mod _85hotwsCta0JfYIjI4K6p}#))))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{id _hoQGWMnyQPAh3k2jhWIWA}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#))))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{id _85hotwsCta0JfYIjI4K6m}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#))
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{id _hoQGWMnyQPAh3k2jhWIWA}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#)
- #{s _85hotwsCta0JfYIjI4K6D}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#)
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4K6A}#
- #{s _85hotwsCta0JfYIjI4K6D}#))
- #{e _85hotwsCta0JfYIjI4K6A}#)
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#))))))))))
- #{tmp _85hotwsCta0JfYIjI4K6G}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LBx}#
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#))
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#)
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#))))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWIVg}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdL}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4K6A}#
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#
'(_ (any . each-any) any))))
- (if #{tmp _85hotwsCta0JfYIjI4LBx}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWIdL}#
(@apply
- (lambda (#{head _85hotwsCta0JfYIjI4LB1}#
- #{tail _85hotwsCta0JfYIjI4LB2}#
- #{val _85hotwsCta0JfYIjI4LB3}#)
+ (lambda (#{head _hoQGWMnyQPAh3k2jhWIdP}#
+ #{tail _hoQGWMnyQPAh3k2jhWIdQ}#
+ #{val _hoQGWMnyQPAh3k2jhWIdR}#)
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{head _85hotwsCta0JfYIjI4LB1}#
- #{r _85hotwsCta0JfYIjI4K6B}#
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{head _hoQGWMnyQPAh3k2jhWIdP}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
'(())
#f
#f
- #{mod _85hotwsCta0JfYIjI4K6E}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#
#t))
- (lambda (#{type _85hotwsCta0JfYIjI4LB6}#
- #{value _85hotwsCta0JfYIjI4LB7}#
- #{ee _85hotwsCta0JfYIjI4LB8}#
- #{ww _85hotwsCta0JfYIjI4LB9}#
- #{ss _85hotwsCta0JfYIjI4LB$}#
- #{modmod _85hotwsCta0JfYIjI4LB@}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4LB6}#
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWIdU}#
+ #{value _hoQGWMnyQPAh3k2jhWIdV}#
+ #{ee _hoQGWMnyQPAh3k2jhWIdW}#
+ #{ww _hoQGWMnyQPAh3k2jhWIdX}#
+ #{ss _hoQGWMnyQPAh3k2jhWIdY}#
+ #{modmod _hoQGWMnyQPAh3k2jhWIdZ}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWIdU}#
'module-ref)
- (let ((#{val _85hotwsCta0JfYIjI4LCD}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{val _85hotwsCta0JfYIjI4LB3}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#)))
+ (let ((#{val _hoQGWMnyQPAh3k2jhWIdd}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{val _hoQGWMnyQPAh3k2jhWIdR}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))
(call-with-values
(lambda ()
- (#{value _85hotwsCta0JfYIjI4LB7}#
- (cons #{head _85hotwsCta0JfYIjI4LB1}#
- #{tail _85hotwsCta0JfYIjI4LB2}#)
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#))
- (lambda (#{e _85hotwsCta0JfYIjI4LCE}#
- #{r _85hotwsCta0JfYIjI4LCF}#
- #{w _85hotwsCta0JfYIjI4LCG}#
- #{s* _85hotwsCta0JfYIjI4LCH}#
- #{mod _85hotwsCta0JfYIjI4LCI}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LCK}#
- (list #{e _85hotwsCta0JfYIjI4LCE}#)))
+ (#{value _hoQGWMnyQPAh3k2jhWIdV}#
+ (cons #{head _hoQGWMnyQPAh3k2jhWIdP}#
+ #{tail _hoQGWMnyQPAh3k2jhWIdQ}#)
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIde}#
+ #{r _hoQGWMnyQPAh3k2jhWIdf}#
+ #{w _hoQGWMnyQPAh3k2jhWIdg}#
+ #{s* _hoQGWMnyQPAh3k2jhWIdh}#
+ #{mod _hoQGWMnyQPAh3k2jhWIdi}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdk}#
+ (list #{e _hoQGWMnyQPAh3k2jhWIde}#)))
(if (@apply
- (lambda (#{e _85hotwsCta0JfYIjI4LCM}#)
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIdm}#)
(if (symbol?
- #{e _85hotwsCta0JfYIjI4LCM}#)
+ #{e _hoQGWMnyQPAh3k2jhWIdm}#)
#t
(if (if (vector?
- #{e _85hotwsCta0JfYIjI4LCM}#)
+ #{e _hoQGWMnyQPAh3k2jhWIdm}#)
(if (= (vector-length
- #{e _85hotwsCta0JfYIjI4LCM}#)
+ #{e _hoQGWMnyQPAh3k2jhWIdm}#)
4)
(eq? (vector-ref
- #{e _85hotwsCta0JfYIjI4LCM}#
+ #{e _hoQGWMnyQPAh3k2jhWIdm}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{e _85hotwsCta0JfYIjI4LCM}#
+ #{e _hoQGWMnyQPAh3k2jhWIdm}#
1))
#f)))
- #{tmp _85hotwsCta0JfYIjI4LCK}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWIdk}#)
(@apply
- (lambda (#{e _85hotwsCta0JfYIjI4LCq}#)
- (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}#
- #{s _85hotwsCta0JfYIjI4K6D}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIeE}#)
+ (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
(syntax->datum
- #{e _85hotwsCta0JfYIjI4LCq}#)
- #{val _85hotwsCta0JfYIjI4LCD}#
- #{mod _85hotwsCta0JfYIjI4LCI}#))
- #{tmp _85hotwsCta0JfYIjI4LCK}#)
+ #{e _hoQGWMnyQPAh3k2jhWIeE}#)
+ #{val _hoQGWMnyQPAh3k2jhWIdd}#
+ #{mod _hoQGWMnyQPAh3k2jhWIdi}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWIdk}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4LCE}#))))))
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
- #{s _85hotwsCta0JfYIjI4K6D}#
- (let ((#{e _85hotwsCta0JfYIjI4LGL}#
+ #{e _hoQGWMnyQPAh3k2jhWIde}#))))))
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ (let ((#{e _hoQGWMnyQPAh3k2jhWIhl}#
(list '#(syntax-object
setter
((top)
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))
- #{head _85hotwsCta0JfYIjI4LB1}#)))
+ #{head _hoQGWMnyQPAh3k2jhWIdP}#)))
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4LGL}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4LGL}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWIhl}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWIhl}#)
#f
- #{mod _85hotwsCta0JfYIjI4K6E}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4LGS}#
- #{value _85hotwsCta0JfYIjI4LGT}#
- #{e _85hotwsCta0JfYIjI4LGU}#
- #{w _85hotwsCta0JfYIjI4LGV}#
- #{s _85hotwsCta0JfYIjI4LGW}#
- #{mod _85hotwsCta0JfYIjI4LGX}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4LGS}#
- #{value _85hotwsCta0JfYIjI4LGT}#
- #{e _85hotwsCta0JfYIjI4LGU}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4LGV}#
- #{s _85hotwsCta0JfYIjI4LGW}#
- #{mod _85hotwsCta0JfYIjI4LGX}#))))
- (map (lambda (#{e _85hotwsCta0JfYIjI4LGb}#)
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWIhs}#
+ #{value _hoQGWMnyQPAh3k2jhWIht}#
+ #{e _hoQGWMnyQPAh3k2jhWIhu}#
+ #{w _hoQGWMnyQPAh3k2jhWIhv}#
+ #{s _hoQGWMnyQPAh3k2jhWIhw}#
+ #{mod _hoQGWMnyQPAh3k2jhWIhx}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWIhs}#
+ #{value _hoQGWMnyQPAh3k2jhWIht}#
+ #{e _hoQGWMnyQPAh3k2jhWIhu}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIhv}#
+ #{s _hoQGWMnyQPAh3k2jhWIhw}#
+ #{mod _hoQGWMnyQPAh3k2jhWIhx}#))))
+ (map (lambda (#{e _hoQGWMnyQPAh3k2jhWIh1}#)
(call-with-values
(lambda ()
- (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
- #{e _85hotwsCta0JfYIjI4LGb}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4K6C}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{e _85hotwsCta0JfYIjI4LGb}#)
+ (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
+ #{e _hoQGWMnyQPAh3k2jhWIh1}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{e _hoQGWMnyQPAh3k2jhWIh1}#)
#f
- #{mod _85hotwsCta0JfYIjI4K6E}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#
#f))
- (lambda (#{type _85hotwsCta0JfYIjI4LGq}#
- #{value _85hotwsCta0JfYIjI4LGr}#
- #{e _85hotwsCta0JfYIjI4LGs}#
- #{w _85hotwsCta0JfYIjI4LGt}#
- #{s _85hotwsCta0JfYIjI4LGu}#
- #{mod _85hotwsCta0JfYIjI4LGv}#)
- (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
- #{type _85hotwsCta0JfYIjI4LGq}#
- #{value _85hotwsCta0JfYIjI4LGr}#
- #{e _85hotwsCta0JfYIjI4LGs}#
- #{r _85hotwsCta0JfYIjI4K6B}#
- #{w _85hotwsCta0JfYIjI4LGt}#
- #{s _85hotwsCta0JfYIjI4LGu}#
- #{mod _85hotwsCta0JfYIjI4LGv}#))))
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWIiE}#
+ #{value _hoQGWMnyQPAh3k2jhWIiF}#
+ #{e _hoQGWMnyQPAh3k2jhWIiG}#
+ #{w _hoQGWMnyQPAh3k2jhWIiH}#
+ #{s _hoQGWMnyQPAh3k2jhWIiI}#
+ #{mod _hoQGWMnyQPAh3k2jhWIiJ}#)
+ (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
+ #{type _hoQGWMnyQPAh3k2jhWIiE}#
+ #{value _hoQGWMnyQPAh3k2jhWIiF}#
+ #{e _hoQGWMnyQPAh3k2jhWIiG}#
+ #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{w _hoQGWMnyQPAh3k2jhWIiH}#
+ #{s _hoQGWMnyQPAh3k2jhWIiI}#
+ #{mod _hoQGWMnyQPAh3k2jhWIiJ}#))))
(append
- #{tail _85hotwsCta0JfYIjI4LB2}#
- (list #{val _85hotwsCta0JfYIjI4LB3}#))))))))
- #{tmp _85hotwsCta0JfYIjI4LBx}#)
+ #{tail _hoQGWMnyQPAh3k2jhWIdQ}#
+ (list #{val _hoQGWMnyQPAh3k2jhWIdR}#))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWIdL}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#)
- #{s _85hotwsCta0JfYIjI4K6D}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#)
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4K6A}#
- #{s _85hotwsCta0JfYIjI4K6D}#))
- #{e _85hotwsCta0JfYIjI4K6A}#)
- #{w _85hotwsCta0JfYIjI4K6C}#
- #{mod _85hotwsCta0JfYIjI4K6E}#))))))))
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{s _hoQGWMnyQPAh3k2jhWIVd}#))
+ #{e _hoQGWMnyQPAh3k2jhWIVa}#)
+ #{w _hoQGWMnyQPAh3k2jhWIVc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIVe}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e _85hotwsCta0JfYIjI4LHa}#
- #{r _85hotwsCta0JfYIjI4LHb}#
- #{w _85hotwsCta0JfYIjI4LHc}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LHe}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIi0}#
+ #{r _hoQGWMnyQPAh3k2jhWIi1}#
+ #{w _hoQGWMnyQPAh3k2jhWIi2}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIi4}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4LHa}#
+ #{e _hoQGWMnyQPAh3k2jhWIi0}#
'(_ each-any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4LHe}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWIi4}#
(@apply
- (lambda (#{mod _85hotwsCta0JfYIjI4LHh}#
- #{id _85hotwsCta0JfYIjI4LHi}#)
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWIi7}#
+ #{id _hoQGWMnyQPAh3k2jhWIi8}#)
(if (and-map
- #{id? _85hotwsCta0JfYIjI4J3n}#
- #{mod _85hotwsCta0JfYIjI4LHh}#)
- (if (symbol? #{id _85hotwsCta0JfYIjI4LHi}#)
+ #{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ #{mod _hoQGWMnyQPAh3k2jhWIi7}#)
+ (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIi8}#)
#t
- (if (if (vector? #{id _85hotwsCta0JfYIjI4LHi}#)
+ (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIi8}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4LHi}#)
+ #{id _hoQGWMnyQPAh3k2jhWIi8}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4LHi}#
+ #{id _hoQGWMnyQPAh3k2jhWIi8}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{id _85hotwsCta0JfYIjI4LHi}# 1))
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWIi8}# 1))
#f))
#f))
- #{tmp _85hotwsCta0JfYIjI4LHe}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWIi4}#)
#f)
(@apply
- (lambda (#{mod _85hotwsCta0JfYIjI4LIK}#
- #{id _85hotwsCta0JfYIjI4LIL}#)
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWIjk}#
+ #{id _hoQGWMnyQPAh3k2jhWIjl}#)
(values
- (syntax->datum #{id _85hotwsCta0JfYIjI4LIL}#)
- #{r _85hotwsCta0JfYIjI4LHb}#
- #{w _85hotwsCta0JfYIjI4LHc}#
+ (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIjl}#)
+ #{r _hoQGWMnyQPAh3k2jhWIi1}#
+ #{w _hoQGWMnyQPAh3k2jhWIi2}#
#f
(syntax->datum
(cons '#(syntax-object
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))
- #{mod _85hotwsCta0JfYIjI4LIK}#))))
- #{tmp _85hotwsCta0JfYIjI4LHe}#)
+ #{mod _hoQGWMnyQPAh3k2jhWIjk}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWIi4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4LHa}#))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWIi0}#))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'module-ref
'@@
- (lambda (#{e _85hotwsCta0JfYIjI4LJn}#
- #{r _85hotwsCta0JfYIjI4LJo}#
- #{w _85hotwsCta0JfYIjI4LJp}#)
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIlB}#
+ #{r _hoQGWMnyQPAh3k2jhWIlC}#
+ #{w _hoQGWMnyQPAh3k2jhWIlD}#)
(letrec*
- ((#{remodulate _85hotwsCta0JfYIjI4LJq}#
- (lambda (#{x _85hotwsCta0JfYIjI4LKN}#
- #{mod _85hotwsCta0JfYIjI4LKO}#)
- (if (pair? #{x _85hotwsCta0JfYIjI4LKN}#)
- (cons (#{remodulate _85hotwsCta0JfYIjI4LJq}#
- (car #{x _85hotwsCta0JfYIjI4LKN}#)
- #{mod _85hotwsCta0JfYIjI4LKO}#)
- (#{remodulate _85hotwsCta0JfYIjI4LJq}#
- (cdr #{x _85hotwsCta0JfYIjI4LKN}#)
- #{mod _85hotwsCta0JfYIjI4LKO}#))
- (if (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4LKN}#)
+ ((#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWIln}#
+ #{mod _hoQGWMnyQPAh3k2jhWIlo}#)
+ (if (pair? #{x _hoQGWMnyQPAh3k2jhWIln}#)
+ (cons (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
+ (car #{x _hoQGWMnyQPAh3k2jhWIln}#)
+ #{mod _hoQGWMnyQPAh3k2jhWIlo}#)
+ (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWIln}#)
+ #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression _85hotwsCta0JfYIjI4LKc}#
- (#{remodulate _85hotwsCta0JfYIjI4LJq}#
- (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 1)
- #{mod _85hotwsCta0JfYIjI4LKO}#))
- (#{wrap _85hotwsCta0JfYIjI4LKd}#
- (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 2)))
+ (let ((#{expression _hoQGWMnyQPAh3k2jhWIl2}#
+ (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 1)
+ #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
+ (#{wrap _hoQGWMnyQPAh3k2jhWIl3}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 2)))
(vector
'syntax-object
- #{expression _85hotwsCta0JfYIjI4LKc}#
- #{wrap _85hotwsCta0JfYIjI4LKd}#
- #{mod _85hotwsCta0JfYIjI4LKO}#))
- (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#)
- (let ((#{n _85hotwsCta0JfYIjI4LKl}#
- (vector-length #{x _85hotwsCta0JfYIjI4LKN}#)))
- (let ((#{v _85hotwsCta0JfYIjI4LKm}#
- (make-vector #{n _85hotwsCta0JfYIjI4LKl}#)))
+ #{expression _hoQGWMnyQPAh3k2jhWIl2}#
+ #{wrap _hoQGWMnyQPAh3k2jhWIl3}#
+ #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
+ (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#)
+ (let ((#{n _hoQGWMnyQPAh3k2jhWIl@}#
+ (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#)))
+ (let ((#{v _hoQGWMnyQPAh3k2jhWImA}#
+ (make-vector #{n _hoQGWMnyQPAh3k2jhWIl@}#)))
(letrec*
- ((#{loop _85hotwsCta0JfYIjI4LKn}#
- (lambda (#{i _85hotwsCta0JfYIjI4LLW}#)
- (if (= #{i _85hotwsCta0JfYIjI4LLW}#
- #{n _85hotwsCta0JfYIjI4LKl}#)
- #{v _85hotwsCta0JfYIjI4LKm}#
+ ((#{loop _hoQGWMnyQPAh3k2jhWImB}#
+ (lambda (#{i _hoQGWMnyQPAh3k2jhWImw}#)
+ (if (= #{i _hoQGWMnyQPAh3k2jhWImw}#
+ #{n _hoQGWMnyQPAh3k2jhWIl@}#)
+ #{v _hoQGWMnyQPAh3k2jhWImA}#
(begin
(vector-set!
- #{v _85hotwsCta0JfYIjI4LKm}#
- #{i _85hotwsCta0JfYIjI4LLW}#
- (#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ #{v _hoQGWMnyQPAh3k2jhWImA}#
+ #{i _hoQGWMnyQPAh3k2jhWImw}#
+ (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
(vector-ref
- #{x _85hotwsCta0JfYIjI4LKN}#
- #{i _85hotwsCta0JfYIjI4LLW}#)
- #{mod _85hotwsCta0JfYIjI4LKO}#))
- (#{loop _85hotwsCta0JfYIjI4LKn}#
- (#{1+}# #{i _85hotwsCta0JfYIjI4LLW}#)))))))
- (#{loop _85hotwsCta0JfYIjI4LKn}# 0))))
- #{x _85hotwsCta0JfYIjI4LKN}#))))))
- (let ((#{tmp _85hotwsCta0JfYIjI4LJs}#
+ #{x _hoQGWMnyQPAh3k2jhWIln}#
+ #{i _hoQGWMnyQPAh3k2jhWImw}#)
+ #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
+ (#{loop _hoQGWMnyQPAh3k2jhWImB}#
+ (#{1+}# #{i _hoQGWMnyQPAh3k2jhWImw}#)))))))
+ (#{loop _hoQGWMnyQPAh3k2jhWImB}# 0))))
+ #{x _hoQGWMnyQPAh3k2jhWIln}#))))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIlG}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4LJn}#
+ #{e _hoQGWMnyQPAh3k2jhWIlB}#
'(_ each-any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4LJs}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWIlG}#
(@apply
- (lambda (#{mod _85hotwsCta0JfYIjI4LJw}#
- #{exp _85hotwsCta0JfYIjI4LJx}#)
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlK}#
+ #{exp _hoQGWMnyQPAh3k2jhWIlL}#)
(and-map
- #{id? _85hotwsCta0JfYIjI4J3n}#
- #{mod _85hotwsCta0JfYIjI4LJw}#))
- #{tmp _85hotwsCta0JfYIjI4LJs}#)
+ #{id? _hoQGWMnyQPAh3k2jhWHTB}#
+ #{mod _hoQGWMnyQPAh3k2jhWIlK}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWIlG}#)
#f)
(@apply
- (lambda (#{mod _85hotwsCta0JfYIjI4LKB}#
- #{exp _85hotwsCta0JfYIjI4LKC}#)
- (let ((#{mod _85hotwsCta0JfYIjI4LKD}#
+ (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlb}#
+ #{exp _hoQGWMnyQPAh3k2jhWIlc}#)
+ (let ((#{mod _hoQGWMnyQPAh3k2jhWIld}#
(syntax->datum
(cons '#(syntax-object
private
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))
- #{mod _85hotwsCta0JfYIjI4LKB}#))))
+ #{mod _hoQGWMnyQPAh3k2jhWIlb}#))))
(values
- (#{remodulate _85hotwsCta0JfYIjI4LJq}#
- #{exp _85hotwsCta0JfYIjI4LKC}#
- #{mod _85hotwsCta0JfYIjI4LKD}#)
- #{r _85hotwsCta0JfYIjI4LJo}#
- #{w _85hotwsCta0JfYIjI4LJp}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{exp _85hotwsCta0JfYIjI4LKC}#)
- #{mod _85hotwsCta0JfYIjI4LKD}#)))
- #{tmp _85hotwsCta0JfYIjI4LJs}#)
+ (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
+ #{exp _hoQGWMnyQPAh3k2jhWIlc}#
+ #{mod _hoQGWMnyQPAh3k2jhWIld}#)
+ #{r _hoQGWMnyQPAh3k2jhWIlC}#
+ #{w _hoQGWMnyQPAh3k2jhWIlD}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{exp _hoQGWMnyQPAh3k2jhWIlc}#)
+ #{mod _hoQGWMnyQPAh3k2jhWIld}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWIlG}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4LJn}#))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWIlB}#))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'if
- (lambda (#{e _85hotwsCta0JfYIjI4LM7}#
- #{r _85hotwsCta0JfYIjI4LM8}#
- #{w _85hotwsCta0JfYIjI4LM9}#
- #{s _85hotwsCta0JfYIjI4LM$}#
- #{mod _85hotwsCta0JfYIjI4LM@}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LNB}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIoV}#
+ #{r _hoQGWMnyQPAh3k2jhWIoW}#
+ #{w _hoQGWMnyQPAh3k2jhWIoX}#
+ #{s _hoQGWMnyQPAh3k2jhWIoY}#
+ #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIob}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4LM7}#
+ #{e _hoQGWMnyQPAh3k2jhWIoV}#
'(_ any any))))
- (if #{tmp _85hotwsCta0JfYIjI4LNB}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWIob}#
(@apply
- (lambda (#{test _85hotwsCta0JfYIjI4LNF}#
- #{then _85hotwsCta0JfYIjI4LNG}#)
- (#{build-conditional _85hotwsCta0JfYIjI4J3H}#
- #{s _85hotwsCta0JfYIjI4LM$}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{test _85hotwsCta0JfYIjI4LNF}#
- #{r _85hotwsCta0JfYIjI4LM8}#
- #{w _85hotwsCta0JfYIjI4LM9}#
- #{mod _85hotwsCta0JfYIjI4LM@}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{then _85hotwsCta0JfYIjI4LNG}#
- #{r _85hotwsCta0JfYIjI4LM8}#
- #{w _85hotwsCta0JfYIjI4LM9}#
- #{mod _85hotwsCta0JfYIjI4LM@}#)
+ (lambda (#{test _hoQGWMnyQPAh3k2jhWIof}#
+ #{then _hoQGWMnyQPAh3k2jhWIog}#)
+ (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}#
+ #{s _hoQGWMnyQPAh3k2jhWIoY}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{test _hoQGWMnyQPAh3k2jhWIof}#
+ #{r _hoQGWMnyQPAh3k2jhWIoW}#
+ #{w _hoQGWMnyQPAh3k2jhWIoX}#
+ #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{then _hoQGWMnyQPAh3k2jhWIog}#
+ #{r _hoQGWMnyQPAh3k2jhWIoW}#
+ #{w _hoQGWMnyQPAh3k2jhWIoX}#
+ #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp _85hotwsCta0JfYIjI4LNB}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LQn}#
+ #{tmp _hoQGWMnyQPAh3k2jhWIob}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIsB}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4LM7}#
+ #{e _hoQGWMnyQPAh3k2jhWIoV}#
'(_ any any any))))
- (if #{tmp _85hotwsCta0JfYIjI4LQn}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWIsB}#
(@apply
- (lambda (#{test _85hotwsCta0JfYIjI4LQr}#
- #{then _85hotwsCta0JfYIjI4LQs}#
- #{else _85hotwsCta0JfYIjI4LQt}#)
- (#{build-conditional _85hotwsCta0JfYIjI4J3H}#
- #{s _85hotwsCta0JfYIjI4LM$}#
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{test _85hotwsCta0JfYIjI4LQr}#
- #{r _85hotwsCta0JfYIjI4LM8}#
- #{w _85hotwsCta0JfYIjI4LM9}#
- #{mod _85hotwsCta0JfYIjI4LM@}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{then _85hotwsCta0JfYIjI4LQs}#
- #{r _85hotwsCta0JfYIjI4LM8}#
- #{w _85hotwsCta0JfYIjI4LM9}#
- #{mod _85hotwsCta0JfYIjI4LM@}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{else _85hotwsCta0JfYIjI4LQt}#
- #{r _85hotwsCta0JfYIjI4LM8}#
- #{w _85hotwsCta0JfYIjI4LM9}#
- #{mod _85hotwsCta0JfYIjI4LM@}#)))
- #{tmp _85hotwsCta0JfYIjI4LQn}#)
+ (lambda (#{test _hoQGWMnyQPAh3k2jhWIsF}#
+ #{then _hoQGWMnyQPAh3k2jhWIsG}#
+ #{else _hoQGWMnyQPAh3k2jhWIsH}#)
+ (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}#
+ #{s _hoQGWMnyQPAh3k2jhWIoY}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{test _hoQGWMnyQPAh3k2jhWIsF}#
+ #{r _hoQGWMnyQPAh3k2jhWIoW}#
+ #{w _hoQGWMnyQPAh3k2jhWIoX}#
+ #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{then _hoQGWMnyQPAh3k2jhWIsG}#
+ #{r _hoQGWMnyQPAh3k2jhWIoW}#
+ #{w _hoQGWMnyQPAh3k2jhWIoX}#
+ #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{else _hoQGWMnyQPAh3k2jhWIsH}#
+ #{r _hoQGWMnyQPAh3k2jhWIoW}#
+ #{w _hoQGWMnyQPAh3k2jhWIoX}#
+ #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWIsB}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4LM7}#)))))))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ #{e _hoQGWMnyQPAh3k2jhWIoV}#)))))))
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'with-fluids
- (lambda (#{e _85hotwsCta0JfYIjI4LW8}#
- #{r _85hotwsCta0JfYIjI4LW9}#
- #{w _85hotwsCta0JfYIjI4LW$}#
- #{s _85hotwsCta0JfYIjI4LW@}#
- #{mod _85hotwsCta0JfYIjI4LXA}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LXC}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWIyW}#
+ #{r _hoQGWMnyQPAh3k2jhWIyX}#
+ #{w _hoQGWMnyQPAh3k2jhWIyY}#
+ #{s _hoQGWMnyQPAh3k2jhWIyZ}#
+ #{mod _hoQGWMnyQPAh3k2jhWIya}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWIyc}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4LW8}#
+ #{e _hoQGWMnyQPAh3k2jhWIyW}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4LXC}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWIyc}#
(@apply
- (lambda (#{fluid _85hotwsCta0JfYIjI4LXG}#
- #{val _85hotwsCta0JfYIjI4LXH}#
- #{b _85hotwsCta0JfYIjI4LXI}#
- #{b* _85hotwsCta0JfYIjI4LXJ}#)
- (#{build-dynlet _85hotwsCta0JfYIjI4J3I}#
- #{s _85hotwsCta0JfYIjI4LW@}#
- (map (lambda (#{x _85hotwsCta0JfYIjI4LYa}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4LYa}#
- #{r _85hotwsCta0JfYIjI4LW9}#
- #{w _85hotwsCta0JfYIjI4LW$}#
- #{mod _85hotwsCta0JfYIjI4LXA}#))
- #{fluid _85hotwsCta0JfYIjI4LXG}#)
- (map (lambda (#{x _85hotwsCta0JfYIjI4LZg}#)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{x _85hotwsCta0JfYIjI4LZg}#
- #{r _85hotwsCta0JfYIjI4LW9}#
- #{w _85hotwsCta0JfYIjI4LW$}#
- #{mod _85hotwsCta0JfYIjI4LXA}#))
- #{val _85hotwsCta0JfYIjI4LXH}#)
- (#{expand-body _85hotwsCta0JfYIjI4J4P}#
- (cons #{b _85hotwsCta0JfYIjI4LXI}#
- #{b* _85hotwsCta0JfYIjI4LXJ}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (lambda (#{fluid _hoQGWMnyQPAh3k2jhWIyg}#
+ #{val _hoQGWMnyQPAh3k2jhWIyh}#
+ #{b _hoQGWMnyQPAh3k2jhWIyi}#
+ #{b* _hoQGWMnyQPAh3k2jhWIyj}#)
+ (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}#
+ #{s _hoQGWMnyQPAh3k2jhWIyZ}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIz0}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWIz0}#
+ #{r _hoQGWMnyQPAh3k2jhWIyX}#
+ #{w _hoQGWMnyQPAh3k2jhWIyY}#
+ #{mod _hoQGWMnyQPAh3k2jhWIya}#))
+ #{fluid _hoQGWMnyQPAh3k2jhWIyg}#)
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWI06}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{x _hoQGWMnyQPAh3k2jhWI06}#
+ #{r _hoQGWMnyQPAh3k2jhWIyX}#
+ #{w _hoQGWMnyQPAh3k2jhWIyY}#
+ #{mod _hoQGWMnyQPAh3k2jhWIya}#))
+ #{val _hoQGWMnyQPAh3k2jhWIyh}#)
+ (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
+ (cons #{b _hoQGWMnyQPAh3k2jhWIyi}#
+ #{b* _hoQGWMnyQPAh3k2jhWIyj}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4LW8}#)
- #{s _85hotwsCta0JfYIjI4LW@}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIyW}#)
+ #{s _hoQGWMnyQPAh3k2jhWIyZ}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4LW8}#
- #{s _85hotwsCta0JfYIjI4LW@}#))
- #{e _85hotwsCta0JfYIjI4LW8}#)
- #{w _85hotwsCta0JfYIjI4LW$}#
- #{mod _85hotwsCta0JfYIjI4LXA}#)
- #{r _85hotwsCta0JfYIjI4LW9}#
- #{w _85hotwsCta0JfYIjI4LW$}#
- #{mod _85hotwsCta0JfYIjI4LXA}#)))
- #{tmp _85hotwsCta0JfYIjI4LXC}#)
+ #{e _hoQGWMnyQPAh3k2jhWIyW}#
+ #{s _hoQGWMnyQPAh3k2jhWIyZ}#))
+ #{e _hoQGWMnyQPAh3k2jhWIyW}#)
+ #{w _hoQGWMnyQPAh3k2jhWIyY}#
+ #{mod _hoQGWMnyQPAh3k2jhWIya}#)
+ #{r _hoQGWMnyQPAh3k2jhWIyX}#
+ #{w _hoQGWMnyQPAh3k2jhWIyY}#
+ #{mod _hoQGWMnyQPAh3k2jhWIya}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWIyc}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4LW8}#)))))
+ #{e _hoQGWMnyQPAh3k2jhWIyW}#)))))
(module-define!
(current-module)
'begin
'eval-when
'eval-when
'()))
- (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern _85hotwsCta0JfYIjI4LfQ}#
- (lambda (#{pattern _85hotwsCta0JfYIjI4L4L}#
- #{keys _85hotwsCta0JfYIjI4L4M}#)
+ ((#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}#
+ (lambda (#{pattern _hoQGWMnyQPAh3k2jhWJTl}#
+ #{keys _hoQGWMnyQPAh3k2jhWJTm}#)
(letrec*
- ((#{cvt* _85hotwsCta0JfYIjI4L4N}#
- (lambda (#{p* _85hotwsCta0JfYIjI4MB9}#
- #{n _85hotwsCta0JfYIjI4MB$}#
- #{ids _85hotwsCta0JfYIjI4MB@}#)
- (if (not (pair? #{p* _85hotwsCta0JfYIjI4MB9}#))
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{p* _85hotwsCta0JfYIjI4MB9}#
- #{n _85hotwsCta0JfYIjI4MB$}#
- #{ids _85hotwsCta0JfYIjI4MB@}#)
+ ((#{cvt* _hoQGWMnyQPAh3k2jhWJTn}#
+ (lambda (#{p* _hoQGWMnyQPAh3k2jhWJdX}#
+ #{n _hoQGWMnyQPAh3k2jhWJdY}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)
+ (if (not (pair? #{p* _hoQGWMnyQPAh3k2jhWJdX}#))
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{p* _hoQGWMnyQPAh3k2jhWJdX}#
+ #{n _hoQGWMnyQPAh3k2jhWJdY}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)
(call-with-values
(lambda ()
- (#{cvt* _85hotwsCta0JfYIjI4L4N}#
- (cdr #{p* _85hotwsCta0JfYIjI4MB9}#)
- #{n _85hotwsCta0JfYIjI4MB$}#
- #{ids _85hotwsCta0JfYIjI4MB@}#))
- (lambda (#{y _85hotwsCta0JfYIjI4MCC}#
- #{ids _85hotwsCta0JfYIjI4MCD}#)
+ (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}#
+ (cdr #{p* _hoQGWMnyQPAh3k2jhWJdX}#)
+ #{n _hoQGWMnyQPAh3k2jhWJdY}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdZ}#))
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWJdc}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdd}#)
(call-with-values
(lambda ()
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- (car #{p* _85hotwsCta0JfYIjI4MB9}#)
- #{n _85hotwsCta0JfYIjI4MB$}#
- #{ids _85hotwsCta0JfYIjI4MCD}#))
- (lambda (#{x _85hotwsCta0JfYIjI4MCG}#
- #{ids _85hotwsCta0JfYIjI4MCH}#)
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ (car #{p* _hoQGWMnyQPAh3k2jhWJdX}#)
+ #{n _hoQGWMnyQPAh3k2jhWJdY}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdd}#))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJdg}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdh}#)
(values
- (cons #{x _85hotwsCta0JfYIjI4MCG}#
- #{y _85hotwsCta0JfYIjI4MCC}#)
- #{ids _85hotwsCta0JfYIjI4MCH}#))))))))
- (#{v-reverse _85hotwsCta0JfYIjI4L4O}#
- (lambda (#{x _85hotwsCta0JfYIjI4MCI}#)
+ (cons #{x _hoQGWMnyQPAh3k2jhWJdg}#
+ #{y _hoQGWMnyQPAh3k2jhWJdc}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJdh}#))))))))
+ (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJdi}#)
(letrec*
- ((#{loop _85hotwsCta0JfYIjI4MCJ}#
- (lambda (#{r _85hotwsCta0JfYIjI4MDZ}#
- #{x _85hotwsCta0JfYIjI4MDa}#)
- (if (not (pair? #{x _85hotwsCta0JfYIjI4MDa}#))
+ ((#{loop _hoQGWMnyQPAh3k2jhWJdj}#
+ (lambda (#{r _hoQGWMnyQPAh3k2jhWJez}#
+ #{x _hoQGWMnyQPAh3k2jhWJe0}#)
+ (if (not (pair? #{x _hoQGWMnyQPAh3k2jhWJe0}#))
(values
- #{r _85hotwsCta0JfYIjI4MDZ}#
- #{x _85hotwsCta0JfYIjI4MDa}#)
- (#{loop _85hotwsCta0JfYIjI4MCJ}#
- (cons (car #{x _85hotwsCta0JfYIjI4MDa}#)
- #{r _85hotwsCta0JfYIjI4MDZ}#)
- (cdr #{x _85hotwsCta0JfYIjI4MDa}#))))))
- (#{loop _85hotwsCta0JfYIjI4MCJ}#
+ #{r _hoQGWMnyQPAh3k2jhWJez}#
+ #{x _hoQGWMnyQPAh3k2jhWJe0}#)
+ (#{loop _hoQGWMnyQPAh3k2jhWJdj}#
+ (cons (car #{x _hoQGWMnyQPAh3k2jhWJe0}#)
+ #{r _hoQGWMnyQPAh3k2jhWJez}#)
+ (cdr #{x _hoQGWMnyQPAh3k2jhWJe0}#))))))
+ (#{loop _hoQGWMnyQPAh3k2jhWJdj}#
'()
- #{x _85hotwsCta0JfYIjI4MCI}#))))
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- (lambda (#{p _85hotwsCta0JfYIjI4L4S}#
- #{n _85hotwsCta0JfYIjI4L4T}#
- #{ids _85hotwsCta0JfYIjI4L4U}#)
- (if (if (symbol? #{p _85hotwsCta0JfYIjI4L4S}#)
+ #{x _hoQGWMnyQPAh3k2jhWJdi}#))))
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{n _hoQGWMnyQPAh3k2jhWJTt}#
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#)
+ (if (if (symbol? #{p _hoQGWMnyQPAh3k2jhWJTs}#)
#t
- (if (if (vector? #{p _85hotwsCta0JfYIjI4L4S}#)
+ (if (if (vector? #{p _hoQGWMnyQPAh3k2jhWJTs}#)
(if (= (vector-length
- #{p _85hotwsCta0JfYIjI4L4S}#)
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#)
4)
(eq? (vector-ref
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{p _85hotwsCta0JfYIjI4L4S}# 1))
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJTs}# 1))
#f))
- (if (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
- #{p _85hotwsCta0JfYIjI4L4S}#
- #{keys _85hotwsCta0JfYIjI4L4M}#)
+ (if (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{keys _hoQGWMnyQPAh3k2jhWJTm}#)
(values
- (vector 'free-id #{p _85hotwsCta0JfYIjI4L4S}#)
- #{ids _85hotwsCta0JfYIjI4L4U}#)
+ (vector 'free-id #{p _hoQGWMnyQPAh3k2jhWJTs}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#)
(if (if (eq? (if (if (vector?
- #{p _85hotwsCta0JfYIjI4L4S}#)
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#)
(if (= (vector-length
- #{p _85hotwsCta0JfYIjI4L4S}#)
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#)
4)
(eq? (vector-ref
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
1)
- #{p _85hotwsCta0JfYIjI4L4S}#)
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#)
(if (if (= (vector-length
'#(syntax-object
_
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{p _85hotwsCta0JfYIjI4L4S}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
_
((top)
(hygiene guile))
'(())))
#f)
- (values '_ #{ids _85hotwsCta0JfYIjI4L4U}#)
+ (values '_ #{ids _hoQGWMnyQPAh3k2jhWJTu}#)
(values
'any
- (cons (cons #{p _85hotwsCta0JfYIjI4L4S}#
- #{n _85hotwsCta0JfYIjI4L4T}#)
- #{ids _85hotwsCta0JfYIjI4L4U}#))))
- (let ((#{tmp _85hotwsCta0JfYIjI4L9U}#
+ (cons (cons #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{n _hoQGWMnyQPAh3k2jhWJTt}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJYu}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'(any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4L9U}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWJYu}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4L9Y}#
- #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJYy}#
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
(if (if (if (vector?
- #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
(if (= (vector-length
- #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
4)
(eq? (vector-ref
- #{dots _85hotwsCta0JfYIjI4L9Z}#
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{dots _85hotwsCta0JfYIjI4L9Z}#
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#
1))
#f)
(if (eq? (if (if (vector?
- #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
(if (= (vector-length
- #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
4)
(eq? (vector-ref
- #{dots _85hotwsCta0JfYIjI4L9Z}#
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots _85hotwsCta0JfYIjI4L9Z}#
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#
1)
- #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
(if (if (= (vector-length
'#(syntax-object
...
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{dots _85hotwsCta0JfYIjI4L9Z}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{dots _hoQGWMnyQPAh3k2jhWJYz}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
...
((top)
'(())))
#f)
#f))
- #{tmp _85hotwsCta0JfYIjI4L9U}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWJYu}#)
#f)
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4L$9}#
- #{dots _85hotwsCta0JfYIjI4L$$}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJaX}#
+ #{dots _hoQGWMnyQPAh3k2jhWJaY}#)
(call-with-values
(lambda ()
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{x _85hotwsCta0JfYIjI4L$9}#
- (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#)
- #{ids _85hotwsCta0JfYIjI4L4U}#))
- (lambda (#{p _85hotwsCta0JfYIjI4L$@}#
- #{ids _85hotwsCta0JfYIjI4L@A}#)
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{x _hoQGWMnyQPAh3k2jhWJaX}#
+ (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWJaZ}#
+ #{ids _hoQGWMnyQPAh3k2jhWJaa}#)
(values
- (if (eq? #{p _85hotwsCta0JfYIjI4L$@}#
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJaZ}#
'any)
'each-any
(vector
'each
- #{p _85hotwsCta0JfYIjI4L$@}#))
- #{ids _85hotwsCta0JfYIjI4L@A}#))))
- #{tmp _85hotwsCta0JfYIjI4L9U}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4L@B}#
+ #{p _hoQGWMnyQPAh3k2jhWJaZ}#))
+ #{ids _hoQGWMnyQPAh3k2jhWJaa}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWJYu}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJab}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'(any any . any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4L@B}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWJab}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4L@F}#
- #{dots _85hotwsCta0JfYIjI4L@G}#
- #{ys _85hotwsCta0JfYIjI4L@H}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJaf}#
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#
+ #{ys _hoQGWMnyQPAh3k2jhWJah}#)
(if (if (if (vector?
- #{dots _85hotwsCta0JfYIjI4L@G}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#)
(if (= (vector-length
- #{dots _85hotwsCta0JfYIjI4L@G}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#)
4)
(eq? (vector-ref
- #{dots _85hotwsCta0JfYIjI4L@G}#
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{dots _85hotwsCta0JfYIjI4L@G}#
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#
1))
#f)
(if (eq? (if (if (vector?
- #{dots _85hotwsCta0JfYIjI4L@G}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#)
(if (= (vector-length
- #{dots _85hotwsCta0JfYIjI4L@G}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#)
4)
(eq? (vector-ref
- #{dots _85hotwsCta0JfYIjI4L@G}#
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots _85hotwsCta0JfYIjI4L@G}#
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#
1)
- #{dots _85hotwsCta0JfYIjI4L@G}#)
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#)
(if (if (= (vector-length
'#(syntax-object
...
"1of"
"1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{dots _85hotwsCta0JfYIjI4L@G}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{dots _hoQGWMnyQPAh3k2jhWJag}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
...
((top)
'(())))
#f)
#f))
- #{tmp _85hotwsCta0JfYIjI4L@B}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWJab}#)
#f)
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4MAr}#
- #{dots _85hotwsCta0JfYIjI4MAs}#
- #{ys _85hotwsCta0JfYIjI4MAt}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJcF}#
+ #{dots _hoQGWMnyQPAh3k2jhWJcG}#
+ #{ys _hoQGWMnyQPAh3k2jhWJcH}#)
(call-with-values
(lambda ()
- (#{cvt* _85hotwsCta0JfYIjI4L4N}#
- #{ys _85hotwsCta0JfYIjI4MAt}#
- #{n _85hotwsCta0JfYIjI4L4T}#
- #{ids _85hotwsCta0JfYIjI4L4U}#))
- (lambda (#{ys _85hotwsCta0JfYIjI4MAw}#
- #{ids _85hotwsCta0JfYIjI4MAx}#)
+ (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}#
+ #{ys _hoQGWMnyQPAh3k2jhWJcH}#
+ #{n _hoQGWMnyQPAh3k2jhWJTt}#
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
+ (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcK}#
+ #{ids _hoQGWMnyQPAh3k2jhWJcL}#)
(call-with-values
(lambda ()
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{x _85hotwsCta0JfYIjI4MAr}#
- (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#)
- #{ids _85hotwsCta0JfYIjI4MAx}#))
- (lambda (#{x _85hotwsCta0JfYIjI4MAy}#
- #{ids _85hotwsCta0JfYIjI4MAz}#)
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{x _hoQGWMnyQPAh3k2jhWJcF}#
+ (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJcL}#))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJcM}#
+ #{ids _hoQGWMnyQPAh3k2jhWJcN}#)
(call-with-values
(lambda ()
- (#{v-reverse _85hotwsCta0JfYIjI4L4O}#
- #{ys _85hotwsCta0JfYIjI4MAw}#))
- (lambda (#{ys _85hotwsCta0JfYIjI4MBU}#
- #{e _85hotwsCta0JfYIjI4MBV}#)
+ (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}#
+ #{ys _hoQGWMnyQPAh3k2jhWJcK}#))
+ (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcu}#
+ #{e _hoQGWMnyQPAh3k2jhWJcv}#)
(values
(vector
'each+
- #{x _85hotwsCta0JfYIjI4MAy}#
- #{ys _85hotwsCta0JfYIjI4MBU}#
- #{e _85hotwsCta0JfYIjI4MBV}#)
- #{ids _85hotwsCta0JfYIjI4MAz}#))))))))
- #{tmp _85hotwsCta0JfYIjI4L@B}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4MBW}#
+ #{x _hoQGWMnyQPAh3k2jhWJcM}#
+ #{ys _hoQGWMnyQPAh3k2jhWJcu}#
+ #{e _hoQGWMnyQPAh3k2jhWJcv}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJcN}#))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWJab}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJcw}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'(any . any))))
- (if #{tmp _85hotwsCta0JfYIjI4MBW}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWJcw}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4MBa}#
- #{y _85hotwsCta0JfYIjI4MBb}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJc0}#
+ #{y _hoQGWMnyQPAh3k2jhWJc1}#)
(call-with-values
(lambda ()
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{y _85hotwsCta0JfYIjI4MBb}#
- #{n _85hotwsCta0JfYIjI4L4T}#
- #{ids _85hotwsCta0JfYIjI4L4U}#))
- (lambda (#{y _85hotwsCta0JfYIjI4MBc}#
- #{ids _85hotwsCta0JfYIjI4MBd}#)
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{y _hoQGWMnyQPAh3k2jhWJc1}#
+ #{n _hoQGWMnyQPAh3k2jhWJTt}#
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWJc2}#
+ #{ids _hoQGWMnyQPAh3k2jhWJc3}#)
(call-with-values
(lambda ()
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{x _85hotwsCta0JfYIjI4MBa}#
- #{n _85hotwsCta0JfYIjI4L4T}#
- #{ids _85hotwsCta0JfYIjI4MBd}#))
- (lambda (#{x _85hotwsCta0JfYIjI4MBe}#
- #{ids _85hotwsCta0JfYIjI4MBf}#)
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{x _hoQGWMnyQPAh3k2jhWJc0}#
+ #{n _hoQGWMnyQPAh3k2jhWJTt}#
+ #{ids _hoQGWMnyQPAh3k2jhWJc3}#))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJc4}#
+ #{ids _hoQGWMnyQPAh3k2jhWJc5}#)
(values
- (cons #{x _85hotwsCta0JfYIjI4MBe}#
- #{y _85hotwsCta0JfYIjI4MBc}#)
- #{ids _85hotwsCta0JfYIjI4MBf}#))))))
- #{tmp _85hotwsCta0JfYIjI4MBW}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4MBg}#
+ (cons #{x _hoQGWMnyQPAh3k2jhWJc4}#
+ #{y _hoQGWMnyQPAh3k2jhWJc2}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJc5}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWJcw}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc6}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4MBg}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWJc6}#
(@apply
(lambda ()
(values
'()
- #{ids _85hotwsCta0JfYIjI4L4U}#))
- #{tmp _85hotwsCta0JfYIjI4MBg}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4MBk}#
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWJc6}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc$}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4L4S}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'#(vector each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4MBk}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWJc$}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4MBo}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJdC}#)
(call-with-values
(lambda ()
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{x _85hotwsCta0JfYIjI4MBo}#
- #{n _85hotwsCta0JfYIjI4L4T}#
- #{ids _85hotwsCta0JfYIjI4L4U}#))
- (lambda (#{p _85hotwsCta0JfYIjI4MBp}#
- #{ids _85hotwsCta0JfYIjI4MBq}#)
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{x _hoQGWMnyQPAh3k2jhWJdC}#
+ #{n _hoQGWMnyQPAh3k2jhWJTt}#
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWJdD}#
+ #{ids _hoQGWMnyQPAh3k2jhWJdE}#)
(values
(vector
'vector
- #{p _85hotwsCta0JfYIjI4MBp}#)
- #{ids _85hotwsCta0JfYIjI4MBq}#))))
- #{tmp _85hotwsCta0JfYIjI4MBk}#)
+ #{p _hoQGWMnyQPAh3k2jhWJdD}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJdE}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWJc$}#)
(values
(vector
'atom
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{p _85hotwsCta0JfYIjI4L4S}#
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{p _hoQGWMnyQPAh3k2jhWJTs}#
'(())))
- #{ids _85hotwsCta0JfYIjI4L4U}#)))))))))))))))
- (#{cvt _85hotwsCta0JfYIjI4L4P}#
- #{pattern _85hotwsCta0JfYIjI4L4L}#
+ #{ids _hoQGWMnyQPAh3k2jhWJTu}#)))))))))))))))
+ (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
+ #{pattern _hoQGWMnyQPAh3k2jhWJTl}#
0
'()))))
- (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}#
- (lambda (#{pvars _85hotwsCta0JfYIjI4MDb}#
- #{exp _85hotwsCta0JfYIjI4MDc}#
- #{y _85hotwsCta0JfYIjI4MDd}#
- #{r _85hotwsCta0JfYIjI4MDe}#
- #{mod _85hotwsCta0JfYIjI4MDf}#)
- (let ((#{ids _85hotwsCta0JfYIjI4MDg}#
- (map car #{pvars _85hotwsCta0JfYIjI4MDb}#)))
+ (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}#
+ (lambda (#{pvars _hoQGWMnyQPAh3k2jhWJe1}#
+ #{exp _hoQGWMnyQPAh3k2jhWJe2}#
+ #{y _hoQGWMnyQPAh3k2jhWJe3}#
+ #{r _hoQGWMnyQPAh3k2jhWJe4}#
+ #{mod _hoQGWMnyQPAh3k2jhWJe5}#)
+ (let ((#{ids _hoQGWMnyQPAh3k2jhWJe6}#
+ (map car #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)))
(begin
- (map cdr #{pvars _85hotwsCta0JfYIjI4MDb}#)
- (let ((#{labels _85hotwsCta0JfYIjI4MDi}#
- (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
- #{ids _85hotwsCta0JfYIjI4MDg}#))
- (#{new-vars _85hotwsCta0JfYIjI4MDj}#
- (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
- #{ids _85hotwsCta0JfYIjI4MDg}#)))
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ (map cdr #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWJe8}#
+ (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
+ #{ids _hoQGWMnyQPAh3k2jhWJe6}#))
+ (#{new-vars _hoQGWMnyQPAh3k2jhWJe9}#
+ (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
+ #{ids _hoQGWMnyQPAh3k2jhWJe6}#)))
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
'(guile)
'apply
#f))
- (list (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
+ (list (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
#f
(map syntax->datum
- #{ids _85hotwsCta0JfYIjI4MDg}#)
+ #{ids _hoQGWMnyQPAh3k2jhWJe6}#)
#f
- #{new-vars _85hotwsCta0JfYIjI4MDj}#
+ #{new-vars _hoQGWMnyQPAh3k2jhWJe9}#
'()
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{exp _85hotwsCta0JfYIjI4MDc}#
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- #{labels _85hotwsCta0JfYIjI4MDi}#
- (map (lambda (#{var _85hotwsCta0JfYIjI4MIi}#
- #{level _85hotwsCta0JfYIjI4MIj}#)
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{exp _hoQGWMnyQPAh3k2jhWJe2}#
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ #{labels _hoQGWMnyQPAh3k2jhWJe8}#
+ (map (lambda (#{var _hoQGWMnyQPAh3k2jhWJj8}#
+ #{level _hoQGWMnyQPAh3k2jhWJj9}#)
(cons 'syntax
- (cons #{var _85hotwsCta0JfYIjI4MIi}#
- #{level _85hotwsCta0JfYIjI4MIj}#)))
- #{new-vars _85hotwsCta0JfYIjI4MDj}#
+ (cons #{var _hoQGWMnyQPAh3k2jhWJj8}#
+ #{level _hoQGWMnyQPAh3k2jhWJj9}#)))
+ #{new-vars _hoQGWMnyQPAh3k2jhWJe9}#
(map cdr
- #{pvars _85hotwsCta0JfYIjI4MDb}#))
- #{r _85hotwsCta0JfYIjI4MDe}#)
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- #{ids _85hotwsCta0JfYIjI4MDg}#
- #{labels _85hotwsCta0JfYIjI4MDi}#
+ #{pvars _hoQGWMnyQPAh3k2jhWJe1}#))
+ #{r _hoQGWMnyQPAh3k2jhWJe4}#)
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ #{ids _hoQGWMnyQPAh3k2jhWJe6}#
+ #{labels _hoQGWMnyQPAh3k2jhWJe8}#
'(()))
- #{mod _85hotwsCta0JfYIjI4MDf}#))
- #{y _85hotwsCta0JfYIjI4MDd}#)))))))
- (#{gen-clause _85hotwsCta0JfYIjI4LfS}#
- (lambda (#{x _85hotwsCta0JfYIjI4LuX}#
- #{keys _85hotwsCta0JfYIjI4LuY}#
- #{clauses _85hotwsCta0JfYIjI4LuZ}#
- #{r _85hotwsCta0JfYIjI4Lua}#
- #{pat _85hotwsCta0JfYIjI4Lub}#
- #{fender _85hotwsCta0JfYIjI4Luc}#
- #{exp _85hotwsCta0JfYIjI4Lud}#
- #{mod _85hotwsCta0JfYIjI4Lue}#)
+ #{mod _hoQGWMnyQPAh3k2jhWJe5}#))
+ #{y _hoQGWMnyQPAh3k2jhWJe3}#)))))))
+ (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJJx}#
+ #{keys _hoQGWMnyQPAh3k2jhWJJy}#
+ #{clauses _hoQGWMnyQPAh3k2jhWJJz}#
+ #{r _hoQGWMnyQPAh3k2jhWJJ0}#
+ #{pat _hoQGWMnyQPAh3k2jhWJJ1}#
+ #{fender _hoQGWMnyQPAh3k2jhWJJ2}#
+ #{exp _hoQGWMnyQPAh3k2jhWJJ3}#
+ #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)
(call-with-values
(lambda ()
- (#{convert-pattern _85hotwsCta0JfYIjI4LfQ}#
- #{pat _85hotwsCta0JfYIjI4Lub}#
- #{keys _85hotwsCta0JfYIjI4LuY}#))
- (lambda (#{p _85hotwsCta0JfYIjI4Lw5}#
- #{pvars _85hotwsCta0JfYIjI4Lw6}#)
- (if (not (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
- (map car #{pvars _85hotwsCta0JfYIjI4Lw6}#)))
+ (#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}#
+ #{pat _hoQGWMnyQPAh3k2jhWJJ1}#
+ #{keys _hoQGWMnyQPAh3k2jhWJJy}#))
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWJMT}#
+ #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)
+ (if (not (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
+ (map car #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat _85hotwsCta0JfYIjI4Lub}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJJ1}#)
(if (not (and-map
- (lambda (#{x _85hotwsCta0JfYIjI4Lyu}#)
- (not (let ((#{x _85hotwsCta0JfYIjI4Lyy}#
- (car #{x _85hotwsCta0JfYIjI4Lyu}#)))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJOI}#)
+ (not (let ((#{x _hoQGWMnyQPAh3k2jhWJOM}#
+ (car #{x _hoQGWMnyQPAh3k2jhWJOI}#)))
(if (if (if (vector?
- #{x _85hotwsCta0JfYIjI4Lyy}#)
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Lyy}#)
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Lyy}#
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{x _85hotwsCta0JfYIjI4Lyy}#
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#
1))
#f)
(if (eq? (if (if (vector?
- #{x _85hotwsCta0JfYIjI4Lyy}#)
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Lyy}#)
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Lyy}#
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x _85hotwsCta0JfYIjI4Lyy}#
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#
1)
- #{x _85hotwsCta0JfYIjI4Lyy}#)
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#)
(if (if (= (vector-length
'#(syntax-object
...
"1of"
"1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{x _85hotwsCta0JfYIjI4Lyy}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{x _hoQGWMnyQPAh3k2jhWJOM}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
...
((top)
'(())))
#f)
#f))))
- #{pvars _85hotwsCta0JfYIjI4Lw6}#))
+ #{pvars _hoQGWMnyQPAh3k2jhWJMU}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat _85hotwsCta0JfYIjI4Lub}#)
- (let ((#{y _85hotwsCta0JfYIjI4Lz$}#
+ #{pat _hoQGWMnyQPAh3k2jhWJJ1}#)
+ (let ((#{y _hoQGWMnyQPAh3k2jhWJPY}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
#f
- (let ((#{req _85hotwsCta0JfYIjI4L2N}# (list 'tmp))
- (#{vars _85hotwsCta0JfYIjI4L2P}#
- (list #{y _85hotwsCta0JfYIjI4Lz$}#))
- (#{exp _85hotwsCta0JfYIjI4L2R}#
- (let ((#{y _85hotwsCta0JfYIjI4L2i}#
+ (let ((#{req _hoQGWMnyQPAh3k2jhWJRn}# (list 'tmp))
+ (#{vars _hoQGWMnyQPAh3k2jhWJRp}#
+ (list #{y _hoQGWMnyQPAh3k2jhWJPY}#))
+ (#{exp _hoQGWMnyQPAh3k2jhWJRr}#
+ (let ((#{y _hoQGWMnyQPAh3k2jhWJR8}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y _85hotwsCta0JfYIjI4Lz$}#)))
- (let ((#{test-exp _85hotwsCta0JfYIjI4L2m}#
- (let ((#{tmp _85hotwsCta0JfYIjI4L2v}#
+ #{y _hoQGWMnyQPAh3k2jhWJPY}#)))
+ (let ((#{test-exp _hoQGWMnyQPAh3k2jhWJSA}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJSJ}#
($sc-dispatch
- #{fender _85hotwsCta0JfYIjI4Luc}#
+ #{fender _hoQGWMnyQPAh3k2jhWJJ2}#
'#(atom #t))))
- (if #{tmp _85hotwsCta0JfYIjI4L2v}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#
(@apply
(lambda ()
- #{y _85hotwsCta0JfYIjI4L2i}#)
- #{tmp _85hotwsCta0JfYIjI4L2v}#)
- (let ((#{then-exp _85hotwsCta0JfYIjI4L3B}#
- (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}#
- #{pvars _85hotwsCta0JfYIjI4Lw6}#
- #{fender _85hotwsCta0JfYIjI4Luc}#
- #{y _85hotwsCta0JfYIjI4L2i}#
- #{r _85hotwsCta0JfYIjI4Lua}#
- #{mod _85hotwsCta0JfYIjI4Lue}#))
- (#{else-exp _85hotwsCta0JfYIjI4L3C}#
+ #{y _hoQGWMnyQPAh3k2jhWJR8}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#)
+ (let ((#{then-exp _hoQGWMnyQPAh3k2jhWJSb}#
+ (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}#
+ #{pvars _hoQGWMnyQPAh3k2jhWJMU}#
+ #{fender _hoQGWMnyQPAh3k2jhWJJ2}#
+ #{y _hoQGWMnyQPAh3k2jhWJR8}#
+ #{r _hoQGWMnyQPAh3k2jhWJJ0}#
+ #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))
+ (#{else-exp _hoQGWMnyQPAh3k2jhWJSc}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
%expanded-vtables
10)
#f
- #{y _85hotwsCta0JfYIjI4L2i}#
- #{then-exp _85hotwsCta0JfYIjI4L3B}#
- #{else-exp _85hotwsCta0JfYIjI4L3C}#)))))
- (#{then-exp _85hotwsCta0JfYIjI4L2n}#
- (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}#
- #{pvars _85hotwsCta0JfYIjI4Lw6}#
- #{exp _85hotwsCta0JfYIjI4Lud}#
- #{y _85hotwsCta0JfYIjI4L2i}#
- #{r _85hotwsCta0JfYIjI4Lua}#
- #{mod _85hotwsCta0JfYIjI4Lue}#))
- (#{else-exp _85hotwsCta0JfYIjI4L2o}#
- (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}#
- #{x _85hotwsCta0JfYIjI4LuX}#
- #{keys _85hotwsCta0JfYIjI4LuY}#
- #{clauses _85hotwsCta0JfYIjI4LuZ}#
- #{r _85hotwsCta0JfYIjI4Lua}#
- #{mod _85hotwsCta0JfYIjI4Lue}#)))
+ #{y _hoQGWMnyQPAh3k2jhWJR8}#
+ #{then-exp _hoQGWMnyQPAh3k2jhWJSb}#
+ #{else-exp _hoQGWMnyQPAh3k2jhWJSc}#)))))
+ (#{then-exp _hoQGWMnyQPAh3k2jhWJSB}#
+ (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}#
+ #{pvars _hoQGWMnyQPAh3k2jhWJMU}#
+ #{exp _hoQGWMnyQPAh3k2jhWJJ3}#
+ #{y _hoQGWMnyQPAh3k2jhWJR8}#
+ #{r _hoQGWMnyQPAh3k2jhWJJ0}#
+ #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))
+ (#{else-exp _hoQGWMnyQPAh3k2jhWJSC}#
+ (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}#
+ #{x _hoQGWMnyQPAh3k2jhWJJx}#
+ #{keys _hoQGWMnyQPAh3k2jhWJJy}#
+ #{clauses _hoQGWMnyQPAh3k2jhWJJz}#
+ #{r _hoQGWMnyQPAh3k2jhWJJ0}#
+ #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp _85hotwsCta0JfYIjI4L2m}#
- #{then-exp _85hotwsCta0JfYIjI4L2n}#
- #{else-exp _85hotwsCta0JfYIjI4L2o}#)))))
- (let ((#{body _85hotwsCta0JfYIjI4L2W}#
+ #{test-exp _hoQGWMnyQPAh3k2jhWJSA}#
+ #{then-exp _hoQGWMnyQPAh3k2jhWJSB}#
+ #{else-exp _hoQGWMnyQPAh3k2jhWJSC}#)))))
+ (let ((#{body _hoQGWMnyQPAh3k2jhWJRw}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req _85hotwsCta0JfYIjI4L2N}#
+ #{req _hoQGWMnyQPAh3k2jhWJRn}#
#f
#f
#f
'()
- #{vars _85hotwsCta0JfYIjI4L2P}#
- #{exp _85hotwsCta0JfYIjI4L2R}#
+ #{vars _hoQGWMnyQPAh3k2jhWJRp}#
+ #{exp _hoQGWMnyQPAh3k2jhWJRr}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body _85hotwsCta0JfYIjI4L2W}#)))
- (list (if (eq? #{p _85hotwsCta0JfYIjI4Lw5}# 'any)
- (let ((#{fun-exp _85hotwsCta0JfYIjI4L3Y}#
+ #{body _hoQGWMnyQPAh3k2jhWJRw}#)))
+ (list (if (eq? #{p _hoQGWMnyQPAh3k2jhWJMT}# 'any)
+ (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJSy}#
(if (equal?
(module-name (current-module))
'(guile))
'(guile)
'list
#f)))
- (#{arg-exps _85hotwsCta0JfYIjI4L3Z}#
- (list #{x _85hotwsCta0JfYIjI4LuX}#)))
+ (#{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#
+ (list #{x _hoQGWMnyQPAh3k2jhWJJx}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _85hotwsCta0JfYIjI4L3Y}#
- #{arg-exps _85hotwsCta0JfYIjI4L3Z}#))
- (let ((#{fun-exp _85hotwsCta0JfYIjI4L3w}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWJSy}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#))
+ (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJTK}#
(if (equal?
(module-name (current-module))
'(guile))
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps _85hotwsCta0JfYIjI4L3x}#
- (list #{x _85hotwsCta0JfYIjI4LuX}#
+ (#{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#
+ (list #{x _hoQGWMnyQPAh3k2jhWJJx}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p _85hotwsCta0JfYIjI4Lw5}#))))
+ #{p _hoQGWMnyQPAh3k2jhWJMT}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _85hotwsCta0JfYIjI4L3w}#
- #{arg-exps _85hotwsCta0JfYIjI4L3x}#))))))))))))
- (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}#
- (lambda (#{x _85hotwsCta0JfYIjI4Lli}#
- #{keys _85hotwsCta0JfYIjI4Llj}#
- #{clauses _85hotwsCta0JfYIjI4Llk}#
- #{r _85hotwsCta0JfYIjI4Lll}#
- #{mod _85hotwsCta0JfYIjI4Llm}#)
- (if (null? #{clauses _85hotwsCta0JfYIjI4Llk}#)
- (let ((#{fun-exp _85hotwsCta0JfYIjI4Llr}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWJTK}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#))))))))))))
+ (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJA8}#
+ #{keys _hoQGWMnyQPAh3k2jhWJA9}#
+ #{clauses _hoQGWMnyQPAh3k2jhWJA$}#
+ #{r _hoQGWMnyQPAh3k2jhWJA@}#
+ #{mod _hoQGWMnyQPAh3k2jhWJBA}#)
+ (if (null? #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)
+ (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJBF}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
'(guile)
'syntax-violation
#f)))
- (#{arg-exps _85hotwsCta0JfYIjI4Lls}#
+ (#{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x _85hotwsCta0JfYIjI4Lli}#)))
+ #{x _hoQGWMnyQPAh3k2jhWJA8}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _85hotwsCta0JfYIjI4Llr}#
- #{arg-exps _85hotwsCta0JfYIjI4Lls}#))
- (let ((#{tmp _85hotwsCta0JfYIjI4LmN}#
- (car #{clauses _85hotwsCta0JfYIjI4Llk}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4LmO}#
+ #{fun-exp _hoQGWMnyQPAh3k2jhWJBF}#
+ #{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBn}#
+ (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBo}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4LmN}#
+ #{tmp _hoQGWMnyQPAh3k2jhWJBn}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4LmO}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWJBo}#
(@apply
- (lambda (#{pat _85hotwsCta0JfYIjI4LmQ}#
- #{exp _85hotwsCta0JfYIjI4LmR}#)
- (if (if (if (symbol? #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ (lambda (#{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{exp _hoQGWMnyQPAh3k2jhWJBr}#)
+ (if (if (if (symbol? #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
#t
(if (if (vector?
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
(if (= (vector-length
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
4)
(eq? (vector-ref
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
1))
#f))
(and-map
- (lambda (#{x _85hotwsCta0JfYIjI4Lms}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJCG}#)
(not (if (eq? (if (if (vector?
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
(if (= (vector-length
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
4)
(eq? (vector-ref
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
1)
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
(if (if (vector?
- #{x _85hotwsCta0JfYIjI4Lms}#)
+ #{x _hoQGWMnyQPAh3k2jhWJCG}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Lms}#)
+ #{x _hoQGWMnyQPAh3k2jhWJCG}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Lms}#
+ #{x _hoQGWMnyQPAh3k2jhWJCG}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x _85hotwsCta0JfYIjI4Lms}#
+ #{x _hoQGWMnyQPAh3k2jhWJCG}#
1)
- #{x _85hotwsCta0JfYIjI4Lms}#))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{x _hoQGWMnyQPAh3k2jhWJCG}#))
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{x _85hotwsCta0JfYIjI4Lms}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{x _hoQGWMnyQPAh3k2jhWJCG}#
'(())))
#f)))
(cons '#(syntax-object
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))
- #{keys _85hotwsCta0JfYIjI4Llj}#))
+ #{keys _hoQGWMnyQPAh3k2jhWJA9}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
pad
((top)
("1og" "1of" "1oe")))
(hygiene guile))
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
_
((top)
(hygiene guile))
'(())))
#f)
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{exp _85hotwsCta0JfYIjI4LmR}#
- #{r _85hotwsCta0JfYIjI4Lll}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{exp _hoQGWMnyQPAh3k2jhWJBr}#
+ #{r _hoQGWMnyQPAh3k2jhWJA@}#
'(())
- #{mod _85hotwsCta0JfYIjI4Llm}#)
- (let ((#{labels _85hotwsCta0JfYIjI4Lpc}#
- (list (#{gen-label _85hotwsCta0JfYIjI4J3p}#)))
- (#{var _85hotwsCta0JfYIjI4Lpd}#
- (let ((#{id _85hotwsCta0JfYIjI4LqD}#
+ #{mod _hoQGWMnyQPAh3k2jhWJBA}#)
+ (let ((#{labels _hoQGWMnyQPAh3k2jhWJE2}#
+ (list (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)))
+ (#{var _hoQGWMnyQPAh3k2jhWJE3}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWJFd}#
(if (if (vector?
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
(if (= (vector-length
- #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
4)
(eq? (vector-ref
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
1)
- #{pat _85hotwsCta0JfYIjI4LmQ}#)))
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#)))
(gensym
(string-append
(symbol->string
- #{id _85hotwsCta0JfYIjI4LqD}#)
+ #{id _hoQGWMnyQPAh3k2jhWJFd}#)
" ")))))
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
#f
- (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
+ (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
#f
(list (syntax->datum
- #{pat _85hotwsCta0JfYIjI4LmQ}#))
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#))
#f
- (list #{var _85hotwsCta0JfYIjI4Lpd}#)
+ (list #{var _hoQGWMnyQPAh3k2jhWJE3}#)
'()
- (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{exp _85hotwsCta0JfYIjI4LmR}#
- (#{extend-env _85hotwsCta0JfYIjI4J3h}#
- #{labels _85hotwsCta0JfYIjI4Lpc}#
+ (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{exp _hoQGWMnyQPAh3k2jhWJBr}#
+ (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
+ #{labels _hoQGWMnyQPAh3k2jhWJE2}#
(list (cons 'syntax
- (cons #{var _85hotwsCta0JfYIjI4Lpd}#
+ (cons #{var _hoQGWMnyQPAh3k2jhWJE3}#
0)))
- #{r _85hotwsCta0JfYIjI4Lll}#)
- (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
- (list #{pat _85hotwsCta0JfYIjI4LmQ}#)
- #{labels _85hotwsCta0JfYIjI4Lpc}#
+ #{r _hoQGWMnyQPAh3k2jhWJA@}#)
+ (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
+ (list #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{labels _hoQGWMnyQPAh3k2jhWJE2}#
'(()))
- #{mod _85hotwsCta0JfYIjI4Llm}#))
- (list #{x _85hotwsCta0JfYIjI4Lli}#))))
- (#{gen-clause _85hotwsCta0JfYIjI4LfS}#
- #{x _85hotwsCta0JfYIjI4Lli}#
- #{keys _85hotwsCta0JfYIjI4Llj}#
- (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#)
- #{r _85hotwsCta0JfYIjI4Lll}#
- #{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{mod _hoQGWMnyQPAh3k2jhWJBA}#))
+ (list #{x _hoQGWMnyQPAh3k2jhWJA8}#))))
+ (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}#
+ #{x _hoQGWMnyQPAh3k2jhWJA8}#
+ #{keys _hoQGWMnyQPAh3k2jhWJA9}#
+ (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)
+ #{r _hoQGWMnyQPAh3k2jhWJA@}#
+ #{pat _hoQGWMnyQPAh3k2jhWJBq}#
#t
- #{exp _85hotwsCta0JfYIjI4LmR}#
- #{mod _85hotwsCta0JfYIjI4Llm}#)))
- #{tmp _85hotwsCta0JfYIjI4LmO}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4LuP}#
+ #{exp _hoQGWMnyQPAh3k2jhWJBr}#
+ #{mod _hoQGWMnyQPAh3k2jhWJBA}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWJBo}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWJJp}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4LmN}#
+ #{tmp _hoQGWMnyQPAh3k2jhWJBn}#
'(any any any))))
- (if #{tmp _85hotwsCta0JfYIjI4LuP}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWJJp}#
(@apply
- (lambda (#{pat _85hotwsCta0JfYIjI4LuR}#
- #{fender _85hotwsCta0JfYIjI4LuS}#
- #{exp _85hotwsCta0JfYIjI4LuT}#)
- (#{gen-clause _85hotwsCta0JfYIjI4LfS}#
- #{x _85hotwsCta0JfYIjI4Lli}#
- #{keys _85hotwsCta0JfYIjI4Llj}#
- (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#)
- #{r _85hotwsCta0JfYIjI4Lll}#
- #{pat _85hotwsCta0JfYIjI4LuR}#
- #{fender _85hotwsCta0JfYIjI4LuS}#
- #{exp _85hotwsCta0JfYIjI4LuT}#
- #{mod _85hotwsCta0JfYIjI4Llm}#))
- #{tmp _85hotwsCta0JfYIjI4LuP}#)
+ (lambda (#{pat _hoQGWMnyQPAh3k2jhWJJr}#
+ #{fender _hoQGWMnyQPAh3k2jhWJJs}#
+ #{exp _hoQGWMnyQPAh3k2jhWJJt}#)
+ (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}#
+ #{x _hoQGWMnyQPAh3k2jhWJA8}#
+ #{keys _hoQGWMnyQPAh3k2jhWJA9}#
+ (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)
+ #{r _hoQGWMnyQPAh3k2jhWJA@}#
+ #{pat _hoQGWMnyQPAh3k2jhWJJr}#
+ #{fender _hoQGWMnyQPAh3k2jhWJJs}#
+ #{exp _hoQGWMnyQPAh3k2jhWJJt}#
+ #{mod _hoQGWMnyQPAh3k2jhWJBA}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWJJp}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses _85hotwsCta0JfYIjI4Llk}#)))))))))))
- (lambda (#{e _85hotwsCta0JfYIjI4LfU}#
- #{r _85hotwsCta0JfYIjI4LfV}#
- #{w _85hotwsCta0JfYIjI4LfW}#
- #{s _85hotwsCta0JfYIjI4LfX}#
- #{mod _85hotwsCta0JfYIjI4LfY}#)
- (let ((#{e _85hotwsCta0JfYIjI4LfZ}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)))))))))))
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWI6u}#
+ #{r _hoQGWMnyQPAh3k2jhWI6v}#
+ #{w _hoQGWMnyQPAh3k2jhWI6w}#
+ #{s _hoQGWMnyQPAh3k2jhWI6x}#
+ #{mod _hoQGWMnyQPAh3k2jhWI6y}#)
+ (let ((#{e _hoQGWMnyQPAh3k2jhWI6z}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(begin
- (if (if (pair? #{e _85hotwsCta0JfYIjI4LfU}#)
- #{s _85hotwsCta0JfYIjI4LfX}#
+ (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWI6u}#)
+ #{s _hoQGWMnyQPAh3k2jhWI6x}#
#f)
(set-source-properties!
- #{e _85hotwsCta0JfYIjI4LfU}#
- #{s _85hotwsCta0JfYIjI4LfX}#))
- #{e _85hotwsCta0JfYIjI4LfU}#)
- #{w _85hotwsCta0JfYIjI4LfW}#
- #{mod _85hotwsCta0JfYIjI4LfY}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Lfb}#
+ #{e _hoQGWMnyQPAh3k2jhWI6u}#
+ #{s _hoQGWMnyQPAh3k2jhWI6x}#))
+ #{e _hoQGWMnyQPAh3k2jhWI6u}#)
+ #{w _hoQGWMnyQPAh3k2jhWI6w}#
+ #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWI61}#
($sc-dispatch
- #{e _85hotwsCta0JfYIjI4LfZ}#
+ #{e _hoQGWMnyQPAh3k2jhWI6z}#
'(_ any each-any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Lfb}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWI61}#
(@apply
- (lambda (#{val _85hotwsCta0JfYIjI4Lf0}#
- #{key _85hotwsCta0JfYIjI4Lf1}#
- #{m _85hotwsCta0JfYIjI4Lf2}#)
+ (lambda (#{val _hoQGWMnyQPAh3k2jhWI7O}#
+ #{key _hoQGWMnyQPAh3k2jhWI7P}#
+ #{m _hoQGWMnyQPAh3k2jhWI7Q}#)
(if (and-map
- (lambda (#{x _85hotwsCta0JfYIjI4Lf3}#)
- (if (if (symbol? #{x _85hotwsCta0JfYIjI4Lf3}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ (if (if (symbol? #{x _hoQGWMnyQPAh3k2jhWI7R}#)
#t
(if (if (vector?
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
1))
#f))
(not (if (if (if (vector?
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
1))
#f)
(if (eq? (if (if (vector?
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
(if (= (vector-length
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
4)
(eq? (vector-ref
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
1)
- #{x _85hotwsCta0JfYIjI4Lf3}#)
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#)
(if (if (= (vector-length
'#(syntax-object
...
((top) (top) (top))
("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{x _85hotwsCta0JfYIjI4Lf3}#
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{x _hoQGWMnyQPAh3k2jhWI7R}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
'#(syntax-object
...
((top)
#f)
#f))
#f))
- #{key _85hotwsCta0JfYIjI4Lf1}#)
- (let ((#{x _85hotwsCta0JfYIjI4Lh1}#
+ #{key _hoQGWMnyQPAh3k2jhWI7P}#)
+ (let ((#{x _hoQGWMnyQPAh3k2jhWI9P}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application _85hotwsCta0JfYIjI4J3G}#
- #{s _85hotwsCta0JfYIjI4LfX}#
- (let ((#{req _85hotwsCta0JfYIjI4Lj3}# (list 'tmp))
- (#{vars _85hotwsCta0JfYIjI4Lj5}#
- (list #{x _85hotwsCta0JfYIjI4Lh1}#))
- (#{exp _85hotwsCta0JfYIjI4Lj7}#
- (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}#
+ (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ #{s _hoQGWMnyQPAh3k2jhWI6x}#
+ (let ((#{req _hoQGWMnyQPAh3k2jhWI@R}# (list 'tmp))
+ (#{vars _hoQGWMnyQPAh3k2jhWI@T}#
+ (list #{x _hoQGWMnyQPAh3k2jhWI9P}#))
+ (#{exp _hoQGWMnyQPAh3k2jhWI@V}#
+ (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x _85hotwsCta0JfYIjI4Lh1}#)
- #{key _85hotwsCta0JfYIjI4Lf1}#
- #{m _85hotwsCta0JfYIjI4Lf2}#
- #{r _85hotwsCta0JfYIjI4LfV}#
- #{mod _85hotwsCta0JfYIjI4LfY}#)))
- (let ((#{body _85hotwsCta0JfYIjI4LkA}#
+ #{x _hoQGWMnyQPAh3k2jhWI9P}#)
+ #{key _hoQGWMnyQPAh3k2jhWI7P}#
+ #{m _hoQGWMnyQPAh3k2jhWI7Q}#
+ #{r _hoQGWMnyQPAh3k2jhWI6v}#
+ #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))
+ (let ((#{body _hoQGWMnyQPAh3k2jhWI@a}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req _85hotwsCta0JfYIjI4Lj3}#
+ #{req _hoQGWMnyQPAh3k2jhWI@R}#
#f
#f
#f
'()
- #{vars _85hotwsCta0JfYIjI4Lj5}#
- #{exp _85hotwsCta0JfYIjI4Lj7}#
+ #{vars _hoQGWMnyQPAh3k2jhWI@T}#
+ #{exp _hoQGWMnyQPAh3k2jhWI@V}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body _85hotwsCta0JfYIjI4LkA}#)))
- (list (#{expand _85hotwsCta0JfYIjI4J4L}#
- #{val _85hotwsCta0JfYIjI4Lf0}#
- #{r _85hotwsCta0JfYIjI4LfV}#
+ #{body _hoQGWMnyQPAh3k2jhWI@a}#)))
+ (list (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
+ #{val _hoQGWMnyQPAh3k2jhWI7O}#
+ #{r _hoQGWMnyQPAh3k2jhWI6v}#
'(())
- #{mod _85hotwsCta0JfYIjI4LfY}#))))
+ #{mod _hoQGWMnyQPAh3k2jhWI6y}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e _85hotwsCta0JfYIjI4LfZ}#)))
- #{tmp _85hotwsCta0JfYIjI4Lfb}#)
+ #{e _hoQGWMnyQPAh3k2jhWI6z}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWI61}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _85hotwsCta0JfYIjI4LfZ}#)))))))
+ #{e _hoQGWMnyQPAh3k2jhWI6z}#)))))))
(set! macroexpand
(lambda*
- (#{x _85hotwsCta0JfYIjI4MJo}#
+ (#{x _hoQGWMnyQPAh3k2jhWJlC}#
#:optional
- (#{m _85hotwsCta0JfYIjI4MJp}# 'e)
- (#{esew _85hotwsCta0JfYIjI4MJq}# '(eval)))
- (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
- (list #{x _85hotwsCta0JfYIjI4MJo}#)
+ (#{m _hoQGWMnyQPAh3k2jhWJlD}# 'e)
+ (#{esew _hoQGWMnyQPAh3k2jhWJlE}# '(eval)))
+ (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
+ (list #{x _hoQGWMnyQPAh3k2jhWJlC}#)
'()
'((top))
#f
- #{m _85hotwsCta0JfYIjI4MJp}#
- #{esew _85hotwsCta0JfYIjI4MJq}#
+ #{m _hoQGWMnyQPAh3k2jhWJlD}#
+ #{esew _hoQGWMnyQPAh3k2jhWJlE}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x _85hotwsCta0JfYIjI4MJt}#)
- (if (if (vector? #{x _85hotwsCta0JfYIjI4MJt}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4MJt}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJlH}#)
+ (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJlH}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJlH}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id _85hotwsCta0JfYIjI4MKG}#
- #{datum _85hotwsCta0JfYIjI4MKH}#)
- (let ((#{wrap _85hotwsCta0JfYIjI4MKM}#
- (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 2))
- (#{module _85hotwsCta0JfYIjI4MKN}#
- (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 3)))
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWJlg}#
+ #{datum _hoQGWMnyQPAh3k2jhWJlh}#)
+ (let ((#{wrap _hoQGWMnyQPAh3k2jhWJlm}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 2))
+ (#{module _hoQGWMnyQPAh3k2jhWJln}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 3)))
(vector
'syntax-object
- #{datum _85hotwsCta0JfYIjI4MKH}#
- #{wrap _85hotwsCta0JfYIjI4MKM}#
- #{module _85hotwsCta0JfYIjI4MKN}#))))
+ #{datum _hoQGWMnyQPAh3k2jhWJlh}#
+ #{wrap _hoQGWMnyQPAh3k2jhWJlm}#
+ #{module _hoQGWMnyQPAh3k2jhWJln}#))))
(set! syntax->datum
- (lambda (#{x _85hotwsCta0JfYIjI4MKU}#)
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{x _85hotwsCta0JfYIjI4MKU}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJlu}#)
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{x _hoQGWMnyQPAh3k2jhWJlu}#
'(()))))
(set! syntax-source
- (lambda (#{x _85hotwsCta0JfYIjI4MKX}#)
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- #{x _85hotwsCta0JfYIjI4MKX}#)))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJlx}#)
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ #{x _hoQGWMnyQPAh3k2jhWJlx}#)))
+ (set! syntax-module
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWJoK}#)
+ (begin
+ (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoK}#)
+ (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoK}#)
+ 4)
+ (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 1))
+ #f))
+ (syntax-violation
+ 'syntax-module
+ "invalid argument"
+ #{id _hoQGWMnyQPAh3k2jhWJoK}#))
+ (cdr (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 3)))))
(set! syntax-local-binding
- (lambda (#{id _85hotwsCta0JfYIjI4MMw}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWJoz}#)
(begin
- (if (not (if (if (vector? #{id _85hotwsCta0JfYIjI4MMw}#)
- (if (= (vector-length #{id _85hotwsCta0JfYIjI4MMw}#)
+ (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoz}#)
+ (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoz}#)
4)
- (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 0)
+ (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1))
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- #{id _85hotwsCta0JfYIjI4MMw}#))
+ #{id _hoQGWMnyQPAh3k2jhWJoz}#))
((fluid-ref
- #{transformer-environment _85hotwsCta0JfYIjI4J39}#)
- (lambda (#{e _85hotwsCta0JfYIjI4MNZ}#
- #{r _85hotwsCta0JfYIjI4MNa}#
- #{w _85hotwsCta0JfYIjI4MNb}#
- #{s _85hotwsCta0JfYIjI4MNc}#
- #{rib _85hotwsCta0JfYIjI4MNd}#
- #{mod _85hotwsCta0JfYIjI4MNe}#)
+ #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#)
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJpc}#
+ #{r _hoQGWMnyQPAh3k2jhWJpd}#
+ #{w _hoQGWMnyQPAh3k2jhWJpe}#
+ #{s _hoQGWMnyQPAh3k2jhWJpf}#
+ #{rib _hoQGWMnyQPAh3k2jhWJpg}#
+ #{mod _hoQGWMnyQPAh3k2jhWJph}#)
(call-with-values
(lambda ()
- (let ((#{id _85hotwsCta0JfYIjI4MNh}#
- (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1))
- (#{w _85hotwsCta0JfYIjI4MNi}#
- (let ((#{w _85hotwsCta0JfYIjI4MNt}#
+ (let ((#{id _hoQGWMnyQPAh3k2jhWJpk}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1))
+ (#{w _hoQGWMnyQPAh3k2jhWJpl}#
+ (let ((#{w _hoQGWMnyQPAh3k2jhWJpw}#
(vector-ref
- #{id _85hotwsCta0JfYIjI4MMw}#
+ #{id _hoQGWMnyQPAh3k2jhWJoz}#
2)))
- (let ((#{ms _85hotwsCta0JfYIjI4MNu}#
- (car #{w _85hotwsCta0JfYIjI4MNt}#))
- (#{s _85hotwsCta0JfYIjI4MNv}#
- (cdr #{w _85hotwsCta0JfYIjI4MNt}#)))
- (if (if (pair? #{ms _85hotwsCta0JfYIjI4MNu}#)
- (eq? (car #{ms _85hotwsCta0JfYIjI4MNu}#)
+ (let ((#{ms _hoQGWMnyQPAh3k2jhWJpx}#
+ (car #{w _hoQGWMnyQPAh3k2jhWJpw}#))
+ (#{s _hoQGWMnyQPAh3k2jhWJpy}#
+ (cdr #{w _hoQGWMnyQPAh3k2jhWJpw}#)))
+ (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWJpx}#)
+ (eq? (car #{ms _hoQGWMnyQPAh3k2jhWJpx}#)
#f)
#f)
- (cons (cdr #{ms _85hotwsCta0JfYIjI4MNu}#)
- (if #{rib _85hotwsCta0JfYIjI4MNd}#
- (cons #{rib _85hotwsCta0JfYIjI4MNd}#
- (cdr #{s _85hotwsCta0JfYIjI4MNv}#))
- (cdr #{s _85hotwsCta0JfYIjI4MNv}#)))
- (cons #{ms _85hotwsCta0JfYIjI4MNu}#
- (if #{rib _85hotwsCta0JfYIjI4MNd}#
- (cons #{rib _85hotwsCta0JfYIjI4MNd}#
- #{s _85hotwsCta0JfYIjI4MNv}#)
- #{s _85hotwsCta0JfYIjI4MNv}#))))))
- (#{mod _85hotwsCta0JfYIjI4MNk}#
- (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 3)))
- (let ((#{n _85hotwsCta0JfYIjI4MNn}#
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{id _85hotwsCta0JfYIjI4MNh}#
- #{w _85hotwsCta0JfYIjI4MNi}#)))
- (if (symbol? #{n _85hotwsCta0JfYIjI4MNn}#)
- (let ((#{mod _85hotwsCta0JfYIjI4MN1}#
+ (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWJpx}#)
+ (if #{rib _hoQGWMnyQPAh3k2jhWJpg}#
+ (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}#
+ (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#))
+ (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#)))
+ (cons #{ms _hoQGWMnyQPAh3k2jhWJpx}#
+ (if #{rib _hoQGWMnyQPAh3k2jhWJpg}#
+ (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}#
+ #{s _hoQGWMnyQPAh3k2jhWJpy}#)
+ #{s _hoQGWMnyQPAh3k2jhWJpy}#))))))
+ (#{mod _hoQGWMnyQPAh3k2jhWJpn}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 3)))
+ (let ((#{n _hoQGWMnyQPAh3k2jhWJpq}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#
+ #{w _hoQGWMnyQPAh3k2jhWJpl}#)))
+ (if (symbol? #{n _hoQGWMnyQPAh3k2jhWJpq}#)
+ (let ((#{mod _hoQGWMnyQPAh3k2jhWJp4}#
(if (if (vector?
- #{id _85hotwsCta0JfYIjI4MNh}#)
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4MNh}#)
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4MNh}#
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id _85hotwsCta0JfYIjI4MNh}# 3)
- #{mod _85hotwsCta0JfYIjI4MNk}#)))
- (let ((#{b _85hotwsCta0JfYIjI4MN2}#
- (let ((#{t _85hotwsCta0JfYIjI4MN3}#
- (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
- #{n _85hotwsCta0JfYIjI4MNn}#
- #{mod _85hotwsCta0JfYIjI4MN1}#)))
- (if #{t _85hotwsCta0JfYIjI4MN3}#
- #{t _85hotwsCta0JfYIjI4MN3}#
+ (vector-ref #{id _hoQGWMnyQPAh3k2jhWJpk}# 3)
+ #{mod _hoQGWMnyQPAh3k2jhWJpn}#)))
+ (let ((#{b _hoQGWMnyQPAh3k2jhWJp5}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWJp6}#
+ (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
+ #{n _hoQGWMnyQPAh3k2jhWJpq}#
+ #{mod _hoQGWMnyQPAh3k2jhWJp4}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWJp6}#
+ #{t _hoQGWMnyQPAh3k2jhWJp6}#
'(global)))))
- (if (eq? (car #{b _85hotwsCta0JfYIjI4MN2}#)
+ (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWJp5}#)
'global)
(values
'global
- #{n _85hotwsCta0JfYIjI4MNn}#
- #{mod _85hotwsCta0JfYIjI4MN1}#)
+ #{n _hoQGWMnyQPAh3k2jhWJpq}#
+ #{mod _hoQGWMnyQPAh3k2jhWJp4}#)
(values
- (car #{b _85hotwsCta0JfYIjI4MN2}#)
- (cdr #{b _85hotwsCta0JfYIjI4MN2}#)
- #{mod _85hotwsCta0JfYIjI4MN1}#))))
- (if (string? #{n _85hotwsCta0JfYIjI4MNn}#)
- (let ((#{mod _85hotwsCta0JfYIjI4MOR}#
+ (car #{b _hoQGWMnyQPAh3k2jhWJp5}#)
+ (cdr #{b _hoQGWMnyQPAh3k2jhWJp5}#)
+ #{mod _hoQGWMnyQPAh3k2jhWJp4}#))))
+ (if (string? #{n _hoQGWMnyQPAh3k2jhWJpq}#)
+ (let ((#{mod _hoQGWMnyQPAh3k2jhWJqU}#
(if (if (vector?
- #{id _85hotwsCta0JfYIjI4MNh}#)
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#)
(if (= (vector-length
- #{id _85hotwsCta0JfYIjI4MNh}#)
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#)
4)
(eq? (vector-ref
- #{id _85hotwsCta0JfYIjI4MNh}#
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _85hotwsCta0JfYIjI4MNh}#
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#
3)
- #{mod _85hotwsCta0JfYIjI4MNk}#)))
- (let ((#{b _85hotwsCta0JfYIjI4MOS}#
- (let ((#{t _85hotwsCta0JfYIjI4MOT}#
+ #{mod _hoQGWMnyQPAh3k2jhWJpn}#)))
+ (let ((#{b _hoQGWMnyQPAh3k2jhWJqV}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWJqW}#
(assq-ref
- #{r _85hotwsCta0JfYIjI4MNa}#
- #{n _85hotwsCta0JfYIjI4MNn}#)))
- (if #{t _85hotwsCta0JfYIjI4MOT}#
- #{t _85hotwsCta0JfYIjI4MOT}#
+ #{r _hoQGWMnyQPAh3k2jhWJpd}#
+ #{n _hoQGWMnyQPAh3k2jhWJpq}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWJqW}#
+ #{t _hoQGWMnyQPAh3k2jhWJqW}#
'(displaced-lexical)))))
(values
- (car #{b _85hotwsCta0JfYIjI4MOS}#)
- (cdr #{b _85hotwsCta0JfYIjI4MOS}#)
- #{mod _85hotwsCta0JfYIjI4MOR}#)))
+ (car #{b _hoQGWMnyQPAh3k2jhWJqV}#)
+ (cdr #{b _hoQGWMnyQPAh3k2jhWJqV}#)
+ #{mod _hoQGWMnyQPAh3k2jhWJqU}#)))
(error "unexpected id-var-name"
- #{id _85hotwsCta0JfYIjI4MNh}#
- #{w _85hotwsCta0JfYIjI4MNi}#
- #{n _85hotwsCta0JfYIjI4MNn}#))))))
- (lambda (#{type _85hotwsCta0JfYIjI4MOg}#
- #{value _85hotwsCta0JfYIjI4MOh}#
- #{mod _85hotwsCta0JfYIjI4MOi}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'lexical)
+ #{id _hoQGWMnyQPAh3k2jhWJpk}#
+ #{w _hoQGWMnyQPAh3k2jhWJpl}#
+ #{n _hoQGWMnyQPAh3k2jhWJpq}#))))))
+ (lambda (#{type _hoQGWMnyQPAh3k2jhWJqj}#
+ #{value _hoQGWMnyQPAh3k2jhWJqk}#
+ #{mod _hoQGWMnyQPAh3k2jhWJql}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'lexical)
(values
'lexical
- #{value _85hotwsCta0JfYIjI4MOh}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'macro)
- (values 'macro #{value _85hotwsCta0JfYIjI4MOh}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'syntax)
+ #{value _hoQGWMnyQPAh3k2jhWJqk}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'macro)
+ (values 'macro #{value _hoQGWMnyQPAh3k2jhWJqk}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'syntax)
(values
'pattern-variable
- #{value _85hotwsCta0JfYIjI4MOh}#)
- (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}#
+ #{value _hoQGWMnyQPAh3k2jhWJqk}#)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}#
'displaced-lexical)
(values 'displaced-lexical #f)
- (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'global)
+ (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'global)
(values
'global
- (cons #{value _85hotwsCta0JfYIjI4MOh}#
- (cdr #{mod _85hotwsCta0JfYIjI4MOi}#)))
+ (cons #{value _hoQGWMnyQPAh3k2jhWJqk}#
+ (cdr #{mod _hoQGWMnyQPAh3k2jhWJql}#)))
(values 'other #f)))))))))))))
(set! syntax-locally-bound-identifiers
- (lambda (#{x _85hotwsCta0JfYIjI4MOt}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJqw}#)
(begin
- (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MOt}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4MOt}#)
+ (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJqw}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJqw}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- #{x _85hotwsCta0JfYIjI4MOt}#))
- (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}#
- (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 2)
- (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 3)))))
+ #{x _hoQGWMnyQPAh3k2jhWJqw}#))
+ (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}#
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 2)
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 3)))))
(set! generate-temporaries
- (lambda (#{ls _85hotwsCta0JfYIjI4MQY}#)
+ (lambda (#{ls _hoQGWMnyQPAh3k2jhWJsb}#)
(begin
- (if (not (list? #{ls _85hotwsCta0JfYIjI4MQY}#))
+ (if (not (list? #{ls _hoQGWMnyQPAh3k2jhWJsb}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls _85hotwsCta0JfYIjI4MQY}#))
- (let ((#{mod _85hotwsCta0JfYIjI4MQg}#
+ #{ls _hoQGWMnyQPAh3k2jhWJsb}#))
+ (let ((#{mod _hoQGWMnyQPAh3k2jhWJsj}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x _85hotwsCta0JfYIjI4MQh}#)
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (map (lambda (#{x _hoQGWMnyQPAh3k2jhWJsk}#)
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
(gensym)
'((top))
- #{mod _85hotwsCta0JfYIjI4MQg}#))
- #{ls _85hotwsCta0JfYIjI4MQY}#)))))
+ #{mod _hoQGWMnyQPAh3k2jhWJsj}#))
+ #{ls _hoQGWMnyQPAh3k2jhWJsb}#)))))
(set! free-identifier=?
- (lambda (#{x _85hotwsCta0JfYIjI4MQl}#
- #{y _85hotwsCta0JfYIjI4MQm}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJso}#
+ #{y _hoQGWMnyQPAh3k2jhWJsp}#)
(begin
- (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#)
+ (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x _85hotwsCta0JfYIjI4MQl}#))
- (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#)
- (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#)
+ #{x _hoQGWMnyQPAh3k2jhWJso}#))
+ (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#)
+ (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#)
4)
- (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0)
+ (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1))
+ (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y _85hotwsCta0JfYIjI4MQm}#))
- (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#)
+ #{y _hoQGWMnyQPAh3k2jhWJsp}#))
+ (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1)
- #{x _85hotwsCta0JfYIjI4MQl}#)
- (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#)
- (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#)
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1)
+ #{x _hoQGWMnyQPAh3k2jhWJso}#)
+ (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#)
+ (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#)
4)
- (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0)
+ (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1)
- #{y _85hotwsCta0JfYIjI4MQm}#))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{x _85hotwsCta0JfYIjI4MQl}#
+ (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1)
+ #{y _hoQGWMnyQPAh3k2jhWJsp}#))
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{x _hoQGWMnyQPAh3k2jhWJso}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{y _85hotwsCta0JfYIjI4MQm}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{y _hoQGWMnyQPAh3k2jhWJsp}#
'(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x _85hotwsCta0JfYIjI4MS8}#
- #{y _85hotwsCta0JfYIjI4MS9}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWJu@}#
+ #{y _hoQGWMnyQPAh3k2jhWJvA}#)
(begin
- (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#)
+ (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1))
+ (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x _85hotwsCta0JfYIjI4MS8}#))
- (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#)
- (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#)
+ #{x _hoQGWMnyQPAh3k2jhWJu@}#))
+ (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#)
+ (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#)
4)
- (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0)
+ (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1))
+ (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y _85hotwsCta0JfYIjI4MS9}#))
- (if (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#)
- (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#)
+ #{y _hoQGWMnyQPAh3k2jhWJvA}#))
+ (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#)
+ (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#)
4)
- (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0)
+ (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0)
'syntax-object)
#f)
#f)
- (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#)
- (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#)
+ (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#)
+ (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#)
4)
- (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0)
+ (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0)
'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1)
- (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1))
- (#{same-marks? _85hotwsCta0JfYIjI4J35}#
- (car (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 2))
- (car (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 2)))
+ (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1)
+ (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1))
+ (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
+ (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 2))
+ (car (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 2)))
#f)
- (eq? #{x _85hotwsCta0JfYIjI4MS8}#
- #{y _85hotwsCta0JfYIjI4MS9}#)))))
+ (eq? #{x _hoQGWMnyQPAh3k2jhWJu@}#
+ #{y _hoQGWMnyQPAh3k2jhWJvA}#)))))
(set! syntax-violation
(lambda*
- (#{who _85hotwsCta0JfYIjI4MVC}#
- #{message _85hotwsCta0JfYIjI4MVD}#
- #{form _85hotwsCta0JfYIjI4MVE}#
+ (#{who _hoQGWMnyQPAh3k2jhWJxF}#
+ #{message _hoQGWMnyQPAh3k2jhWJxG}#
+ #{form _hoQGWMnyQPAh3k2jhWJxH}#
#:optional
- (#{subform _85hotwsCta0JfYIjI4MVF}# #f))
+ (#{subform _hoQGWMnyQPAh3k2jhWJxI}# #f))
(begin
- (if (not (if (not #{who _85hotwsCta0JfYIjI4MVC}#)
- (not #{who _85hotwsCta0JfYIjI4MVC}#)
- (let ((#{t _85hotwsCta0JfYIjI4MVX}#
- (string? #{who _85hotwsCta0JfYIjI4MVC}#)))
- (if #{t _85hotwsCta0JfYIjI4MVX}#
- #{t _85hotwsCta0JfYIjI4MVX}#
- (symbol? #{who _85hotwsCta0JfYIjI4MVC}#)))))
+ (if (not (if (not #{who _hoQGWMnyQPAh3k2jhWJxF}#)
+ (not #{who _hoQGWMnyQPAh3k2jhWJxF}#)
+ (let ((#{t _hoQGWMnyQPAh3k2jhWJxa}#
+ (string? #{who _hoQGWMnyQPAh3k2jhWJxF}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWJxa}#
+ #{t _hoQGWMnyQPAh3k2jhWJxa}#
+ (symbol? #{who _hoQGWMnyQPAh3k2jhWJxF}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who _85hotwsCta0JfYIjI4MVC}#))
- (if (not (string? #{message _85hotwsCta0JfYIjI4MVD}#))
+ #{who _hoQGWMnyQPAh3k2jhWJxF}#))
+ (if (not (string? #{message _hoQGWMnyQPAh3k2jhWJxG}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message _85hotwsCta0JfYIjI4MVD}#))
+ #{message _hoQGWMnyQPAh3k2jhWJxG}#))
(throw 'syntax-error
- #{who _85hotwsCta0JfYIjI4MVC}#
- #{message _85hotwsCta0JfYIjI4MVD}#
- (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
- (if #{form _85hotwsCta0JfYIjI4MVE}#
- #{form _85hotwsCta0JfYIjI4MVE}#
- #{subform _85hotwsCta0JfYIjI4MVF}#))
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{form _85hotwsCta0JfYIjI4MVE}#
+ #{who _hoQGWMnyQPAh3k2jhWJxF}#
+ #{message _hoQGWMnyQPAh3k2jhWJxG}#
+ (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
+ (if #{form _hoQGWMnyQPAh3k2jhWJxH}#
+ #{form _hoQGWMnyQPAh3k2jhWJxH}#
+ #{subform _hoQGWMnyQPAh3k2jhWJxI}#))
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{form _hoQGWMnyQPAh3k2jhWJxH}#
'(()))
- (if #{subform _85hotwsCta0JfYIjI4MVF}#
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{subform _85hotwsCta0JfYIjI4MVF}#
+ (if #{subform _hoQGWMnyQPAh3k2jhWJxI}#
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{subform _hoQGWMnyQPAh3k2jhWJxI}#
'(()))
#f)))))
(letrec*
- ((#{match-each _85hotwsCta0JfYIjI4MYi}#
- (lambda (#{e _85hotwsCta0JfYIjI4Mht}#
- #{p _85hotwsCta0JfYIjI4Mhu}#
- #{w _85hotwsCta0JfYIjI4Mhv}#
- #{mod _85hotwsCta0JfYIjI4Mhw}#)
- (if (pair? #{e _85hotwsCta0JfYIjI4Mht}#)
- (let ((#{first _85hotwsCta0JfYIjI4Mhx}#
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (car #{e _85hotwsCta0JfYIjI4Mht}#)
- #{p _85hotwsCta0JfYIjI4Mhu}#
- #{w _85hotwsCta0JfYIjI4Mhv}#
+ ((#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9w}#
+ #{p _hoQGWMnyQPAh3k2jhWJ9x}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9y}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ9z}#)
+ (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
+ (let ((#{first _hoQGWMnyQPAh3k2jhWJ90}#
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (car #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
+ #{p _hoQGWMnyQPAh3k2jhWJ9x}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9y}#
'()
- #{mod _85hotwsCta0JfYIjI4Mhw}#)))
- (if #{first _85hotwsCta0JfYIjI4Mhx}#
- (let ((#{rest _85hotwsCta0JfYIjI4Mh0}#
- (#{match-each _85hotwsCta0JfYIjI4MYi}#
- (cdr #{e _85hotwsCta0JfYIjI4Mht}#)
- #{p _85hotwsCta0JfYIjI4Mhu}#
- #{w _85hotwsCta0JfYIjI4Mhv}#
- #{mod _85hotwsCta0JfYIjI4Mhw}#)))
- (if #{rest _85hotwsCta0JfYIjI4Mh0}#
- (cons #{first _85hotwsCta0JfYIjI4Mhx}#
- #{rest _85hotwsCta0JfYIjI4Mh0}#)
+ #{mod _hoQGWMnyQPAh3k2jhWJ9z}#)))
+ (if #{first _hoQGWMnyQPAh3k2jhWJ90}#
+ (let ((#{rest _hoQGWMnyQPAh3k2jhWJ93}#
+ (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
+ (cdr #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
+ #{p _hoQGWMnyQPAh3k2jhWJ9x}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9y}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ9z}#)))
+ (if #{rest _hoQGWMnyQPAh3k2jhWJ93}#
+ (cons #{first _hoQGWMnyQPAh3k2jhWJ90}#
+ #{rest _hoQGWMnyQPAh3k2jhWJ93}#)
#f))
#f))
- (if (null? #{e _85hotwsCta0JfYIjI4Mht}#)
+ (if (null? #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
'()
- (if (if (vector? #{e _85hotwsCta0JfYIjI4Mht}#)
- (if (= (vector-length #{e _85hotwsCta0JfYIjI4Mht}#)
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
+ (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
4)
- (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 0)
+ (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 0)
'syntax-object)
#f)
#f)
- (#{match-each _85hotwsCta0JfYIjI4MYi}#
- (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 1)
- #{p _85hotwsCta0JfYIjI4Mhu}#
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4Mhv}#
- (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 2))
- (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 3))
+ (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 1)
+ #{p _hoQGWMnyQPAh3k2jhWJ9x}#
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9y}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 2))
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 3))
#f)))))
- (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
- (lambda (#{e _85hotwsCta0JfYIjI4MiQ}#
- #{w _85hotwsCta0JfYIjI4MiR}#
- #{mod _85hotwsCta0JfYIjI4MiS}#)
- (if (pair? #{e _85hotwsCta0JfYIjI4MiQ}#)
- (let ((#{l _85hotwsCta0JfYIjI4MiT}#
- (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
- (cdr #{e _85hotwsCta0JfYIjI4MiQ}#)
- #{w _85hotwsCta0JfYIjI4MiR}#
- #{mod _85hotwsCta0JfYIjI4MiS}#)))
- (if #{l _85hotwsCta0JfYIjI4MiT}#
- (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
- (car #{e _85hotwsCta0JfYIjI4MiQ}#)
- #{w _85hotwsCta0JfYIjI4MiR}#
- #{mod _85hotwsCta0JfYIjI4MiS}#)
- #{l _85hotwsCta0JfYIjI4MiT}#)
+ (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJ$T}#
+ #{w _hoQGWMnyQPAh3k2jhWJ$U}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)
+ (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
+ (let ((#{l _hoQGWMnyQPAh3k2jhWJ$W}#
+ (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
+ (cdr #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
+ #{w _hoQGWMnyQPAh3k2jhWJ$U}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)))
+ (if #{l _hoQGWMnyQPAh3k2jhWJ$W}#
+ (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (car #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
+ #{w _hoQGWMnyQPAh3k2jhWJ$U}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)
+ #{l _hoQGWMnyQPAh3k2jhWJ$W}#)
#f))
- (if (null? #{e _85hotwsCta0JfYIjI4MiQ}#)
+ (if (null? #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
'()
- (if (if (vector? #{e _85hotwsCta0JfYIjI4MiQ}#)
- (if (= (vector-length #{e _85hotwsCta0JfYIjI4MiQ}#)
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
+ (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
4)
- (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 0)
+ (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 0)
'syntax-object)
#f)
#f)
- (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 1)
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4MiR}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 2))
- #{mod _85hotwsCta0JfYIjI4MiS}#)
+ (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 1)
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWJ$U}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 2))
+ #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)
#f)))))
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (lambda (#{p _85hotwsCta0JfYIjI4Mir}#
- #{r _85hotwsCta0JfYIjI4Mis}#)
- (if (null? #{p _85hotwsCta0JfYIjI4Mir}#)
- #{r _85hotwsCta0JfYIjI4Mis}#
- (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# '_)
- #{r _85hotwsCta0JfYIjI4Mis}#
- (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# 'any)
- (cons '() #{r _85hotwsCta0JfYIjI4Mis}#)
- (if (pair? #{p _85hotwsCta0JfYIjI4Mir}#)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (car #{p _85hotwsCta0JfYIjI4Mir}#)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (cdr #{p _85hotwsCta0JfYIjI4Mir}#)
- #{r _85hotwsCta0JfYIjI4Mis}#))
- (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# 'each-any)
- (cons '() #{r _85hotwsCta0JfYIjI4Mis}#)
- (let ((#{atom-key _85hotwsCta0JfYIjI4Mit}#
- (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 0)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# 'each)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1)
- #{r _85hotwsCta0JfYIjI4Mis}#)
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWJ$u}#
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
+ (if (null? #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# '_)
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'any)
+ (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
+ (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (car #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (cdr #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#))
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'each-any)
+ (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
+ (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 0)))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each)
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1)
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
'each+)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1)
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
(reverse
- (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 2))
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 3)
- #{r _85hotwsCta0JfYIjI4Mis}#)))
- (if (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 2))
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 3)
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#)))
+ (if (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
'free-id)
#t
- (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
'atom))
- #{r _85hotwsCta0JfYIjI4Mis}#
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
'vector)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1)
- #{r _85hotwsCta0JfYIjI4Mis}#)))))))))))))
- (#{combine _85hotwsCta0JfYIjI4MYm}#
- (lambda (#{r* _85hotwsCta0JfYIjI4MjA}#
- #{r _85hotwsCta0JfYIjI4MjB}#)
- (if (null? (car #{r* _85hotwsCta0JfYIjI4MjA}#))
- #{r _85hotwsCta0JfYIjI4MjB}#
- (cons (map car #{r* _85hotwsCta0JfYIjI4MjA}#)
- (#{combine _85hotwsCta0JfYIjI4MYm}#
- (map cdr #{r* _85hotwsCta0JfYIjI4MjA}#)
- #{r _85hotwsCta0JfYIjI4MjB}#)))))
- (#{match* _85hotwsCta0JfYIjI4MYn}#
- (lambda (#{e _85hotwsCta0JfYIjI4MZF}#
- #{p _85hotwsCta0JfYIjI4MZG}#
- #{w _85hotwsCta0JfYIjI4MZH}#
- #{r _85hotwsCta0JfYIjI4MZI}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)
- (if (null? #{p _85hotwsCta0JfYIjI4MZG}#)
- (if (null? #{e _85hotwsCta0JfYIjI4MZF}#)
- #{r _85hotwsCta0JfYIjI4MZI}#
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1)
+ #{r _hoQGWMnyQPAh3k2jhWJ$v}#)))))))))))))
+ (#{combine _hoQGWMnyQPAh3k2jhWJ0p}#
+ (lambda (#{r* _hoQGWMnyQPAh3k2jhWJ@D}#
+ #{r _hoQGWMnyQPAh3k2jhWJ@E}#)
+ (if (null? (car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#))
+ #{r _hoQGWMnyQPAh3k2jhWJ@E}#
+ (cons (map car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)
+ (#{combine _hoQGWMnyQPAh3k2jhWJ0p}#
+ (map cdr #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)
+ #{r _hoQGWMnyQPAh3k2jhWJ@E}#)))))
+ (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{p _hoQGWMnyQPAh3k2jhWJ1J}#
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
+ (if (null? #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
+ (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
#f)
- (if (pair? #{p _85hotwsCta0JfYIjI4MZG}#)
- (if (pair? #{e _85hotwsCta0JfYIjI4MZF}#)
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (car #{e _85hotwsCta0JfYIjI4MZF}#)
- (car #{p _85hotwsCta0JfYIjI4MZG}#)
- #{w _85hotwsCta0JfYIjI4MZH}#
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (cdr #{e _85hotwsCta0JfYIjI4MZF}#)
- (cdr #{p _85hotwsCta0JfYIjI4MZG}#)
- #{w _85hotwsCta0JfYIjI4MZH}#
- #{r _85hotwsCta0JfYIjI4MZI}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)
- #{mod _85hotwsCta0JfYIjI4MZJ}#)
+ (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
+ (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (car #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (car #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (cdr #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (cdr #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
#f)
- (if (eq? #{p _85hotwsCta0JfYIjI4MZG}# 'each-any)
- (let ((#{l _85hotwsCta0JfYIjI4MZO}#
- (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
- #{e _85hotwsCta0JfYIjI4MZF}#
- #{w _85hotwsCta0JfYIjI4MZH}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)))
- (if #{l _85hotwsCta0JfYIjI4MZO}#
- (cons #{l _85hotwsCta0JfYIjI4MZO}#
- #{r _85hotwsCta0JfYIjI4MZI}#)
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ1J}# 'each-any)
+ (let ((#{l _hoQGWMnyQPAh3k2jhWJ1R}#
+ (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
+ (if #{l _hoQGWMnyQPAh3k2jhWJ1R}#
+ (cons #{l _hoQGWMnyQPAh3k2jhWJ1R}#
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#)
#f))
- (let ((#{atom-key _85hotwsCta0JfYIjI4MZT}#
- (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 0)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each)
- (if (null? #{e _85hotwsCta0JfYIjI4MZF}#)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
- (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
- #{r _85hotwsCta0JfYIjI4MZI}#)
- (let ((#{l _85hotwsCta0JfYIjI4MZa}#
- (#{match-each _85hotwsCta0JfYIjI4MYi}#
- #{e _85hotwsCta0JfYIjI4MZF}#
- (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
- #{w _85hotwsCta0JfYIjI4MZH}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)))
- (if #{l _85hotwsCta0JfYIjI4MZa}#
+ (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ1W}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 0)))
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each)
+ (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#)
+ (let ((#{l _hoQGWMnyQPAh3k2jhWJ1d}#
+ (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
+ (if #{l _hoQGWMnyQPAh3k2jhWJ1d}#
(letrec*
- ((#{collect _85hotwsCta0JfYIjI4MZd}#
- (lambda (#{l _85hotwsCta0JfYIjI4MaQ}#)
- (if (null? (car #{l _85hotwsCta0JfYIjI4MaQ}#))
- #{r _85hotwsCta0JfYIjI4MZI}#
+ ((#{collect _hoQGWMnyQPAh3k2jhWJ1g}#
+ (lambda (#{l _hoQGWMnyQPAh3k2jhWJ2T}#)
+ (if (null? (car #{l _hoQGWMnyQPAh3k2jhWJ2T}#))
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
(cons (map car
- #{l _85hotwsCta0JfYIjI4MaQ}#)
- (#{collect _85hotwsCta0JfYIjI4MZd}#
+ #{l _hoQGWMnyQPAh3k2jhWJ2T}#)
+ (#{collect _hoQGWMnyQPAh3k2jhWJ1g}#
(map cdr
- #{l _85hotwsCta0JfYIjI4MaQ}#)))))))
- (#{collect _85hotwsCta0JfYIjI4MZd}#
- #{l _85hotwsCta0JfYIjI4MZa}#))
+ #{l _hoQGWMnyQPAh3k2jhWJ2T}#)))))))
+ (#{collect _hoQGWMnyQPAh3k2jhWJ1g}#
+ #{l _hoQGWMnyQPAh3k2jhWJ1d}#))
#f)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each+)
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat _85hotwsCta0JfYIjI4MaZ}#
+ (let ((#{x-pat _hoQGWMnyQPAh3k2jhWJ2c}#
(vector-ref
- #{p _85hotwsCta0JfYIjI4MZG}#
+ #{p _hoQGWMnyQPAh3k2jhWJ1J}#
1))
- (#{y-pat _85hotwsCta0JfYIjI4Maa}#
+ (#{y-pat _hoQGWMnyQPAh3k2jhWJ2d}#
(vector-ref
- #{p _85hotwsCta0JfYIjI4MZG}#
+ #{p _hoQGWMnyQPAh3k2jhWJ1J}#
2))
- (#{z-pat _85hotwsCta0JfYIjI4Mab}#
+ (#{z-pat _hoQGWMnyQPAh3k2jhWJ2e}#
(vector-ref
- #{p _85hotwsCta0JfYIjI4MZG}#
+ #{p _hoQGWMnyQPAh3k2jhWJ1J}#
3)))
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Maf}#
- (lambda (#{e _85hotwsCta0JfYIjI4Mah}#
- #{w _85hotwsCta0JfYIjI4Mai}#)
- (if (pair? #{e _85hotwsCta0JfYIjI4Mah}#)
+ ((#{f _hoQGWMnyQPAh3k2jhWJ2i}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJ2k}#
+ #{w _hoQGWMnyQPAh3k2jhWJ2l}#)
+ (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
(call-with-values
(lambda ()
- (#{f _85hotwsCta0JfYIjI4Maf}#
- (cdr #{e _85hotwsCta0JfYIjI4Mah}#)
- #{w _85hotwsCta0JfYIjI4Mai}#))
- (lambda (#{xr* _85hotwsCta0JfYIjI4Maj}#
- #{y-pat _85hotwsCta0JfYIjI4Mak}#
- #{r _85hotwsCta0JfYIjI4Mal}#)
- (if #{r _85hotwsCta0JfYIjI4Mal}#
- (if (null? #{y-pat _85hotwsCta0JfYIjI4Mak}#)
- (let ((#{xr _85hotwsCta0JfYIjI4Mam}#
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (car #{e _85hotwsCta0JfYIjI4Mah}#)
- #{x-pat _85hotwsCta0JfYIjI4MaZ}#
- #{w _85hotwsCta0JfYIjI4Mai}#
+ (#{f _hoQGWMnyQPAh3k2jhWJ2i}#
+ (cdr #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
+ #{w _hoQGWMnyQPAh3k2jhWJ2l}#))
+ (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ2m}#
+ #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#
+ #{r _hoQGWMnyQPAh3k2jhWJ2o}#)
+ (if #{r _hoQGWMnyQPAh3k2jhWJ2o}#
+ (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#)
+ (let ((#{xr _hoQGWMnyQPAh3k2jhWJ2p}#
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
+ #{x-pat _hoQGWMnyQPAh3k2jhWJ2c}#
+ #{w _hoQGWMnyQPAh3k2jhWJ2l}#
'()
- #{mod _85hotwsCta0JfYIjI4MZJ}#)))
- (if #{xr _85hotwsCta0JfYIjI4Mam}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
+ (if #{xr _hoQGWMnyQPAh3k2jhWJ2p}#
(values
- (cons #{xr _85hotwsCta0JfYIjI4Mam}#
- #{xr* _85hotwsCta0JfYIjI4Maj}#)
- #{y-pat _85hotwsCta0JfYIjI4Mak}#
- #{r _85hotwsCta0JfYIjI4Mal}#)
+ (cons #{xr _hoQGWMnyQPAh3k2jhWJ2p}#
+ #{xr* _hoQGWMnyQPAh3k2jhWJ2m}#)
+ #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#
+ #{r _hoQGWMnyQPAh3k2jhWJ2o}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat _85hotwsCta0JfYIjI4Mak}#)
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (car #{e _85hotwsCta0JfYIjI4Mah}#)
- (car #{y-pat _85hotwsCta0JfYIjI4Mak}#)
- #{w _85hotwsCta0JfYIjI4Mai}#
- #{r _85hotwsCta0JfYIjI4Mal}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)))
+ (cdr #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#)
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
+ (car #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#)
+ #{w _hoQGWMnyQPAh3k2jhWJ2l}#
+ #{r _hoQGWMnyQPAh3k2jhWJ2o}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
(values #f #f #f))))
(if (if (vector?
- #{e _85hotwsCta0JfYIjI4Mah}#)
+ #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
(if (= (vector-length
- #{e _85hotwsCta0JfYIjI4Mah}#)
+ #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
4)
(eq? (vector-ref
- #{e _85hotwsCta0JfYIjI4Mah}#
+ #{e _hoQGWMnyQPAh3k2jhWJ2k}#
0)
'syntax-object)
#f)
#f)
- (#{f _85hotwsCta0JfYIjI4Maf}#
+ (#{f _hoQGWMnyQPAh3k2jhWJ2i}#
(vector-ref
- #{e _85hotwsCta0JfYIjI4Mah}#
+ #{e _hoQGWMnyQPAh3k2jhWJ2k}#
1)
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4Mai}#
- #{e _85hotwsCta0JfYIjI4Mah}#))
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWJ2l}#
+ #{e _hoQGWMnyQPAh3k2jhWJ2k}#))
(values
'()
- #{y-pat _85hotwsCta0JfYIjI4Maa}#
- (#{match _85hotwsCta0JfYIjI4MYo}#
- #{e _85hotwsCta0JfYIjI4Mah}#
- #{z-pat _85hotwsCta0JfYIjI4Mab}#
- #{w _85hotwsCta0JfYIjI4Mai}#
- #{r _85hotwsCta0JfYIjI4MZI}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)))))))
- (#{f _85hotwsCta0JfYIjI4Maf}#
- #{e _85hotwsCta0JfYIjI4MZF}#
- #{w _85hotwsCta0JfYIjI4MZH}#))))
- (lambda (#{xr* _85hotwsCta0JfYIjI4MbA}#
- #{y-pat _85hotwsCta0JfYIjI4MbB}#
- #{r _85hotwsCta0JfYIjI4MbC}#)
- (if #{r _85hotwsCta0JfYIjI4MbC}#
- (if (null? #{y-pat _85hotwsCta0JfYIjI4MbB}#)
- (if (null? #{xr* _85hotwsCta0JfYIjI4MbA}#)
- (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ #{y-pat _hoQGWMnyQPAh3k2jhWJ2d}#
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ #{e _hoQGWMnyQPAh3k2jhWJ2k}#
+ #{z-pat _hoQGWMnyQPAh3k2jhWJ2e}#
+ #{w _hoQGWMnyQPAh3k2jhWJ2l}#
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))))))
+ (#{f _hoQGWMnyQPAh3k2jhWJ2i}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#))))
+ (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ3D}#
+ #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#
+ #{r _hoQGWMnyQPAh3k2jhWJ3F}#)
+ (if #{r _hoQGWMnyQPAh3k2jhWJ3F}#
+ (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#)
+ (if (null? #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#)
+ (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
(vector-ref
- #{p _85hotwsCta0JfYIjI4MZG}#
+ #{p _hoQGWMnyQPAh3k2jhWJ1J}#
1)
- #{r _85hotwsCta0JfYIjI4MbC}#)
- (#{combine _85hotwsCta0JfYIjI4MYm}#
- #{xr* _85hotwsCta0JfYIjI4MbA}#
- #{r _85hotwsCta0JfYIjI4MbC}#))
+ #{r _hoQGWMnyQPAh3k2jhWJ3F}#)
+ (#{combine _hoQGWMnyQPAh3k2jhWJ0p}#
+ #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#
+ #{r _hoQGWMnyQPAh3k2jhWJ3F}#))
#f)
#f)))
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}#
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}#
'free-id)
- (if (if (symbol? #{e _85hotwsCta0JfYIjI4MZF}#)
+ (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
#t
- (if (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#)
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
(if (= (vector-length
- #{e _85hotwsCta0JfYIjI4MZF}#)
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
4)
(eq? (vector-ref
- #{e _85hotwsCta0JfYIjI4MZF}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{e _85hotwsCta0JfYIjI4MZF}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
1))
#f))
- (if (let ((#{i _85hotwsCta0JfYIjI4MgN}#
- (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{e _85hotwsCta0JfYIjI4MZF}#
- #{w _85hotwsCta0JfYIjI4MZH}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#))
- (#{j _85hotwsCta0JfYIjI4MgO}#
+ (if (let ((#{i _hoQGWMnyQPAh3k2jhWJ8Q}#
+ (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))
+ (#{j _hoQGWMnyQPAh3k2jhWJ8R}#
(vector-ref
- #{p _85hotwsCta0JfYIjI4MZG}#
+ #{p _hoQGWMnyQPAh3k2jhWJ1J}#
1)))
(if (eq? (if (if (vector?
- #{i _85hotwsCta0JfYIjI4MgN}#)
+ #{i _hoQGWMnyQPAh3k2jhWJ8Q}#)
(if (= (vector-length
- #{i _85hotwsCta0JfYIjI4MgN}#)
+ #{i _hoQGWMnyQPAh3k2jhWJ8Q}#)
4)
(eq? (vector-ref
- #{i _85hotwsCta0JfYIjI4MgN}#
+ #{i _hoQGWMnyQPAh3k2jhWJ8Q}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{i _85hotwsCta0JfYIjI4MgN}#
+ #{i _hoQGWMnyQPAh3k2jhWJ8Q}#
1)
- #{i _85hotwsCta0JfYIjI4MgN}#)
+ #{i _hoQGWMnyQPAh3k2jhWJ8Q}#)
(if (if (vector?
- #{j _85hotwsCta0JfYIjI4MgO}#)
+ #{j _hoQGWMnyQPAh3k2jhWJ8R}#)
(if (= (vector-length
- #{j _85hotwsCta0JfYIjI4MgO}#)
+ #{j _hoQGWMnyQPAh3k2jhWJ8R}#)
4)
(eq? (vector-ref
- #{j _85hotwsCta0JfYIjI4MgO}#
+ #{j _hoQGWMnyQPAh3k2jhWJ8R}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{j _85hotwsCta0JfYIjI4MgO}#
+ #{j _hoQGWMnyQPAh3k2jhWJ8R}#
1)
- #{j _85hotwsCta0JfYIjI4MgO}#))
- (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{i _85hotwsCta0JfYIjI4MgN}#
+ #{j _hoQGWMnyQPAh3k2jhWJ8R}#))
+ (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{i _hoQGWMnyQPAh3k2jhWJ8Q}#
'(()))
- (#{id-var-name _85hotwsCta0JfYIjI4J36}#
- #{j _85hotwsCta0JfYIjI4MgO}#
+ (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ #{j _hoQGWMnyQPAh3k2jhWJ8R}#
'(())))
#f))
- #{r _85hotwsCta0JfYIjI4MZI}#
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
#f)
#f)
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'atom)
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'atom)
(if (equal?
- (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
- (#{strip _85hotwsCta0JfYIjI4J4Y}#
- #{e _85hotwsCta0JfYIjI4MZF}#
- #{w _85hotwsCta0JfYIjI4MZH}#))
- #{r _85hotwsCta0JfYIjI4MZI}#
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
+ (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
+ #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#))
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
#f)
- (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}#
+ (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}#
'vector)
- (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#)
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (vector->list #{e _85hotwsCta0JfYIjI4MZF}#)
- (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
- #{w _85hotwsCta0JfYIjI4MZH}#
- #{r _85hotwsCta0JfYIjI4MZI}#
- #{mod _85hotwsCta0JfYIjI4MZJ}#)
+ (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (vector->list #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
+ #{w _hoQGWMnyQPAh3k2jhWJ1K}#
+ #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
#f))))))))))))
- (#{match _85hotwsCta0JfYIjI4MYo}#
- (lambda (#{e _85hotwsCta0JfYIjI4MhK}#
- #{p _85hotwsCta0JfYIjI4MhL}#
- #{w _85hotwsCta0JfYIjI4MhM}#
- #{r _85hotwsCta0JfYIjI4MhN}#
- #{mod _85hotwsCta0JfYIjI4MhO}#)
- (if (not #{r _85hotwsCta0JfYIjI4MhN}#)
+ (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9N}#
+ #{p _hoQGWMnyQPAh3k2jhWJ9O}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9P}#
+ #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)
+ (if (not #{r _hoQGWMnyQPAh3k2jhWJ9Q}#)
#f
- (if (eq? #{p _85hotwsCta0JfYIjI4MhL}# '_)
- #{r _85hotwsCta0JfYIjI4MhN}#
- (if (eq? #{p _85hotwsCta0JfYIjI4MhL}# 'any)
- (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
- #{e _85hotwsCta0JfYIjI4MhK}#
- #{w _85hotwsCta0JfYIjI4MhM}#
- #{mod _85hotwsCta0JfYIjI4MhO}#)
- #{r _85hotwsCta0JfYIjI4MhN}#)
- (if (if (vector? #{e _85hotwsCta0JfYIjI4MhK}#)
- (if (= (vector-length #{e _85hotwsCta0JfYIjI4MhK}#)
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# '_)
+ #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# 'any)
+ (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{e _hoQGWMnyQPAh3k2jhWJ9N}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9P}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)
+ #{r _hoQGWMnyQPAh3k2jhWJ9Q}#)
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9N}#)
+ (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9N}#)
4)
- (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 0)
+ (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 0)
'syntax-object)
#f)
#f)
- (#{match* _85hotwsCta0JfYIjI4MYn}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 1)
- #{p _85hotwsCta0JfYIjI4MhL}#
- (#{join-wraps _85hotwsCta0JfYIjI4J33}#
- #{w _85hotwsCta0JfYIjI4MhM}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 2))
- #{r _85hotwsCta0JfYIjI4MhN}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 3))
- (#{match* _85hotwsCta0JfYIjI4MYn}#
- #{e _85hotwsCta0JfYIjI4MhK}#
- #{p _85hotwsCta0JfYIjI4MhL}#
- #{w _85hotwsCta0JfYIjI4MhM}#
- #{r _85hotwsCta0JfYIjI4MhN}#
- #{mod _85hotwsCta0JfYIjI4MhO}#))))))))
+ (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 1)
+ #{p _hoQGWMnyQPAh3k2jhWJ9O}#
+ (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9P}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 2))
+ #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 3))
+ (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
+ #{e _hoQGWMnyQPAh3k2jhWJ9N}#
+ #{p _hoQGWMnyQPAh3k2jhWJ9O}#
+ #{w _hoQGWMnyQPAh3k2jhWJ9P}#
+ #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
+ #{mod _hoQGWMnyQPAh3k2jhWJ9R}#))))))))
(set! $sc-dispatch
- (lambda (#{e _85hotwsCta0JfYIjI4MYp}#
- #{p _85hotwsCta0JfYIjI4MYq}#)
- (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# 'any)
- (list #{e _85hotwsCta0JfYIjI4MYp}#)
- (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# '_)
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWJ0s}#
+ #{p _hoQGWMnyQPAh3k2jhWJ0t}#)
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# 'any)
+ (list #{e _hoQGWMnyQPAh3k2jhWJ0s}#)
+ (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# '_)
'()
- (if (if (vector? #{e _85hotwsCta0JfYIjI4MYp}#)
- (if (= (vector-length #{e _85hotwsCta0JfYIjI4MYp}#)
+ (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ0s}#)
+ (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ0s}#)
4)
- (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 0)
+ (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 0)
'syntax-object)
#f)
#f)
- (#{match* _85hotwsCta0JfYIjI4MYn}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 1)
- #{p _85hotwsCta0JfYIjI4MYq}#
- (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 2)
+ (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 1)
+ #{p _hoQGWMnyQPAh3k2jhWJ0t}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 2)
'()
- (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 3))
- (#{match* _85hotwsCta0JfYIjI4MYn}#
- #{e _85hotwsCta0JfYIjI4MYp}#
- #{p _85hotwsCta0JfYIjI4MYq}#
+ (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 3))
+ (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
+ #{e _hoQGWMnyQPAh3k2jhWJ0s}#
+ #{p _hoQGWMnyQPAh3k2jhWJ0t}#
'(())
'()
#f))))))))))
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4PUl}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PUn}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMwo}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMwq}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PUl}#
+ #{x _hoQGWMnyQPAh3k2jhWMwo}#
'(_ () any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PUn}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMwq}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4PUr}#
- #{e2 _85hotwsCta0JfYIjI4PUs}#)
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMwu}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMwv}#)
(cons '#(syntax-object
let
((top)
- #(ribcage #(e1 e2) #((top) (top)) #("2zm" "2zn"))
+ #(ribcage #(e1 e2) #((top) (top)) #("2zo" "2zp"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zl")))
+ #(ribcage #(x) #((top)) #("2zn")))
(hygiene guile))
(cons '()
- (cons #{e1 _85hotwsCta0JfYIjI4PUr}#
- #{e2 _85hotwsCta0JfYIjI4PUs}#))))
- #{tmp _85hotwsCta0JfYIjI4PUn}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PUt}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMwu}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMwv}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMwq}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMww}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PUl}#
+ #{x _hoQGWMnyQPAh3k2jhWMwo}#
'(_ ((any any)) any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PUt}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMww}#
(@apply
- (lambda (#{out _85hotwsCta0JfYIjI4PUx}#
- #{in _85hotwsCta0JfYIjI4PUy}#
- #{e1 _85hotwsCta0JfYIjI4PUz}#
- #{e2 _85hotwsCta0JfYIjI4PU0}#)
+ (lambda (#{out _hoQGWMnyQPAh3k2jhWMw0}#
+ #{in _hoQGWMnyQPAh3k2jhWMw1}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMw2}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMw3}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zo" "2zp" "2zq" "2zr"))
+ #("2zq" "2zr" "2zs" "2zt"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zl")))
+ #(ribcage #(x) #((top)) #("2zn")))
(hygiene guile))
- #{in _85hotwsCta0JfYIjI4PUy}#
+ #{in _hoQGWMnyQPAh3k2jhWMw1}#
'()
- (list #{out _85hotwsCta0JfYIjI4PUx}#
+ (list #{out _hoQGWMnyQPAh3k2jhWMw0}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zo" "2zp" "2zq" "2zr"))
+ #("2zq" "2zr" "2zs" "2zt"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zl")))
+ #(ribcage #(x) #((top)) #("2zn")))
(hygiene guile))
(cons '()
- (cons #{e1 _85hotwsCta0JfYIjI4PUz}#
- #{e2 _85hotwsCta0JfYIjI4PU0}#))))))
- #{tmp _85hotwsCta0JfYIjI4PUt}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PU1}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMw2}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMw3}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMww}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMw4}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PUl}#
+ #{x _hoQGWMnyQPAh3k2jhWMwo}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PU1}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMw4}#
(@apply
- (lambda (#{out _85hotwsCta0JfYIjI4PU5}#
- #{in _85hotwsCta0JfYIjI4PU6}#
- #{e1 _85hotwsCta0JfYIjI4PU7}#
- #{e2 _85hotwsCta0JfYIjI4PU8}#)
+ (lambda (#{out _hoQGWMnyQPAh3k2jhWMw8}#
+ #{in _hoQGWMnyQPAh3k2jhWMw9}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMw$}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMw@}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zs" "2zt" "2zu" "2zv"))
+ #("2zu" "2zv" "2zw" "2zx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zl")))
+ #(ribcage #(x) #((top)) #("2zn")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zs" "2zt" "2zu" "2zv"))
+ #("2zu" "2zv" "2zw" "2zx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zl")))
+ #(ribcage #(x) #((top)) #("2zn")))
(hygiene guile))
- #{in _85hotwsCta0JfYIjI4PU6}#)
+ #{in _hoQGWMnyQPAh3k2jhWMw9}#)
'()
- (list #{out _85hotwsCta0JfYIjI4PU5}#
+ (list #{out _hoQGWMnyQPAh3k2jhWMw8}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zs" "2zt" "2zu" "2zv"))
+ #("2zu" "2zv" "2zw" "2zx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zl")))
+ #(ribcage #(x) #((top)) #("2zn")))
(hygiene guile))
(cons '()
- (cons #{e1 _85hotwsCta0JfYIjI4PU7}#
- #{e2 _85hotwsCta0JfYIjI4PU8}#))))))
- #{tmp _85hotwsCta0JfYIjI4PU1}#)
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMw$}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMw@}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMw4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PUl}#))))))))))
+ #{x _hoQGWMnyQPAh3k2jhWMwo}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4PVj}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PVl}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMxm}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxo}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PVj}#
+ #{x _hoQGWMnyQPAh3k2jhWMxm}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp _85hotwsCta0JfYIjI4PVl}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMxo}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4PVp}#
- #{keyword _85hotwsCta0JfYIjI4PVq}#
- #{pattern _85hotwsCta0JfYIjI4PVr}#
- #{template _85hotwsCta0JfYIjI4PVs}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWMxs}#
+ #{keyword _hoQGWMnyQPAh3k2jhWMxt}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMxu}#
+ #{template _hoQGWMnyQPAh3k2jhWMxv}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
- #{pattern _85hotwsCta0JfYIjI4PVr}#))
+ #{pattern _hoQGWMnyQPAh3k2jhWMxu}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zx" "2zy" "2zz" "300"))
+ #("2zz" "300" "301" "302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
- (cons #{k _85hotwsCta0JfYIjI4PVp}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}#
- #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#)
+ (cons #{k _hoQGWMnyQPAh3k2jhWMxs}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("2zx"
- "2zy"
- "2zz"
- "300"))
+ #("2zz"
+ "300"
+ "301"
+ "302"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("2zw")))
+ #("2zy")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("2zx"
- "2zy"
- "2zz"
- "300"))
+ #("2zz"
+ "300"
+ "301"
+ "302"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("2zw")))
+ #("2zy")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}#)))
- #{template _85hotwsCta0JfYIjI4PVs}#
- #{pattern _85hotwsCta0JfYIjI4PVr}#))))))
- #{tmp _85hotwsCta0JfYIjI4PVl}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PVv}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#)))
+ #{template _hoQGWMnyQPAh3k2jhWMxv}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMxu}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMxo}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxy}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PVj}#
+ #{x _hoQGWMnyQPAh3k2jhWMxm}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp _85hotwsCta0JfYIjI4PVv}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMxy}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4PVz}#
- #{docstring _85hotwsCta0JfYIjI4PV0}#
- #{keyword _85hotwsCta0JfYIjI4PV1}#
- #{pattern _85hotwsCta0JfYIjI4PV2}#
- #{template _85hotwsCta0JfYIjI4PV3}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWMx2}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMx3}#
+ #{keyword _hoQGWMnyQPAh3k2jhWMx4}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMx5}#
+ #{template _hoQGWMnyQPAh3k2jhWMx6}#)
(string?
(syntax->datum
- #{docstring _85hotwsCta0JfYIjI4PV0}#)))
- #{tmp _85hotwsCta0JfYIjI4PVv}#)
+ #{docstring _hoQGWMnyQPAh3k2jhWMx3}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMxy}#)
#f)
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4PV4}#
- #{docstring _85hotwsCta0JfYIjI4PV5}#
- #{keyword _85hotwsCta0JfYIjI4PV6}#
- #{pattern _85hotwsCta0JfYIjI4PV7}#
- #{template _85hotwsCta0JfYIjI4PV8}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWMx7}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMx8}#
+ #{keyword _hoQGWMnyQPAh3k2jhWMx9}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMx$}#
+ #{template _hoQGWMnyQPAh3k2jhWMx@}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile)))
- #{docstring _85hotwsCta0JfYIjI4PV5}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMx8}#
(vector
'(#(syntax-object
macro-type
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
- #{pattern _85hotwsCta0JfYIjI4PV7}#))
+ #{pattern _hoQGWMnyQPAh3k2jhWMx$}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
(cons '#(syntax-object
x
pattern
template)
#((top) (top) (top) (top) (top))
- #("306" "307" "308" "309" "30a"))
+ #("308" "309" "30a" "30b" "30c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zw")))
+ #(ribcage #(x) #((top)) #("2zy")))
(hygiene guile))
- (cons #{k _85hotwsCta0JfYIjI4PV4}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}#
- #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#)
+ (cons #{k _hoQGWMnyQPAh3k2jhWMx7}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("306"
- "307"
- "308"
+ #("308"
"309"
- "30a"))
+ "30a"
+ "30b"
+ "30c"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("2zw")))
+ #("2zy")))
(hygiene
guile))
- #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("306"
- "307"
- "308"
+ #("308"
"309"
- "30a"))
+ "30a"
+ "30b"
+ "30c"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("2zw")))
+ #("2zy")))
(hygiene
guile))
- #{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}#)))
- #{template _85hotwsCta0JfYIjI4PV8}#
- #{pattern _85hotwsCta0JfYIjI4PV7}#))))))
- #{tmp _85hotwsCta0JfYIjI4PVv}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#)))
+ #{template _hoQGWMnyQPAh3k2jhWMx@}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMx$}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMxy}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PVj}#))))))))
+ #{x _hoQGWMnyQPAh3k2jhWMxm}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4PWX}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PWZ}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMya}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyc}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PWX}#
+ #{x _hoQGWMnyQPAh3k2jhWMya}#
'(_ (any . any) any))))
- (if #{tmp _85hotwsCta0JfYIjI4PWZ}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMyc}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4PWd}#
- #{pattern _85hotwsCta0JfYIjI4PWe}#
- #{template _85hotwsCta0JfYIjI4PWf}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWMyg}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMyh}#
+ #{template _hoQGWMnyQPAh3k2jhWMyi}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("30c" "30d" "30e"))
+ #("30e" "30f" "30g"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30b")))
+ #(ribcage #(x) #((top)) #("30d")))
(hygiene guile))
- #{name _85hotwsCta0JfYIjI4PWd}#
+ #{name _hoQGWMnyQPAh3k2jhWMyg}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("30c" "30d" "30e"))
+ #("30e" "30f" "30g"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30b")))
+ #(ribcage #(x) #((top)) #("30d")))
(hygiene guile))
'()
(list (cons '#(syntax-object
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("30c" "30d" "30e"))
+ #("30e" "30f" "30g"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30b")))
+ #(ribcage #(x) #((top)) #("30d")))
(hygiene guile))
- #{pattern _85hotwsCta0JfYIjI4PWe}#)
- #{template _85hotwsCta0JfYIjI4PWf}#))))
- #{tmp _85hotwsCta0JfYIjI4PWZ}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PWg}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMyh}#)
+ #{template _hoQGWMnyQPAh3k2jhWMyi}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMyc}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyj}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PWX}#
+ #{x _hoQGWMnyQPAh3k2jhWMya}#
'(_ (any . any) any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4PWg}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMyj}#
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4PWk}#
- #{pattern _85hotwsCta0JfYIjI4PWl}#
- #{docstring _85hotwsCta0JfYIjI4PWm}#
- #{template _85hotwsCta0JfYIjI4PWn}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWMyn}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMyo}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMyp}#
+ #{template _hoQGWMnyQPAh3k2jhWMyq}#)
(string?
(syntax->datum
- #{docstring _85hotwsCta0JfYIjI4PWm}#)))
- #{tmp _85hotwsCta0JfYIjI4PWg}#)
+ #{docstring _hoQGWMnyQPAh3k2jhWMyp}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWMyj}#)
#f)
(@apply
- (lambda (#{name _85hotwsCta0JfYIjI4PWo}#
- #{pattern _85hotwsCta0JfYIjI4PWp}#
- #{docstring _85hotwsCta0JfYIjI4PWq}#
- #{template _85hotwsCta0JfYIjI4PWr}#)
+ (lambda (#{name _hoQGWMnyQPAh3k2jhWMyr}#
+ #{pattern _hoQGWMnyQPAh3k2jhWMys}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMyt}#
+ #{template _hoQGWMnyQPAh3k2jhWMyu}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("30j" "30k" "30l" "30m"))
+ #("30l" "30m" "30n" "30o"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30b")))
+ #(ribcage #(x) #((top)) #("30d")))
(hygiene guile))
- #{name _85hotwsCta0JfYIjI4PWo}#
+ #{name _hoQGWMnyQPAh3k2jhWMyr}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("30j" "30k" "30l" "30m"))
+ #("30l" "30m" "30n" "30o"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30b")))
+ #(ribcage #(x) #((top)) #("30d")))
(hygiene guile))
'()
- #{docstring _85hotwsCta0JfYIjI4PWq}#
+ #{docstring _hoQGWMnyQPAh3k2jhWMyt}#
(list (cons '#(syntax-object
_
((top)
docstring
template)
#((top) (top) (top) (top))
- #("30j" "30k" "30l" "30m"))
+ #("30l" "30m" "30n" "30o"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("30b")))
+ #("30d")))
(hygiene guile))
- #{pattern _85hotwsCta0JfYIjI4PWp}#)
- #{template _85hotwsCta0JfYIjI4PWr}#))))
- #{tmp _85hotwsCta0JfYIjI4PWg}#)
+ #{pattern _hoQGWMnyQPAh3k2jhWMys}#)
+ #{template _hoQGWMnyQPAh3k2jhWMyu}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMyj}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PWX}#))))))))
+ #{x _hoQGWMnyQPAh3k2jhWMya}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4PXN}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PXP}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWMzQ}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzS}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PXN}#
+ #{x _hoQGWMnyQPAh3k2jhWMzQ}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4PXP}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWMzS}#
(@apply
- (lambda (#{let* _85hotwsCta0JfYIjI4PXT}#
- #{x _85hotwsCta0JfYIjI4PXU}#
- #{v _85hotwsCta0JfYIjI4PXV}#
- #{e1 _85hotwsCta0JfYIjI4PXW}#
- #{e2 _85hotwsCta0JfYIjI4PXX}#)
+ (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzW}#
+ #{x _hoQGWMnyQPAh3k2jhWMzX}#
+ #{v _hoQGWMnyQPAh3k2jhWMzY}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMzZ}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMza}#)
(and-map
identifier?
- #{x _85hotwsCta0JfYIjI4PXU}#))
- #{tmp _85hotwsCta0JfYIjI4PXP}#)
+ #{x _hoQGWMnyQPAh3k2jhWMzX}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWMzS}#)
#f)
(@apply
- (lambda (#{let* _85hotwsCta0JfYIjI4PXY}#
- #{x _85hotwsCta0JfYIjI4PXZ}#
- #{v _85hotwsCta0JfYIjI4PXa}#
- #{e1 _85hotwsCta0JfYIjI4PXb}#
- #{e2 _85hotwsCta0JfYIjI4PXc}#)
+ (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzb}#
+ #{x _hoQGWMnyQPAh3k2jhWMzc}#
+ #{v _hoQGWMnyQPAh3k2jhWMzd}#
+ #{e1 _hoQGWMnyQPAh3k2jhWMze}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMzf}#)
(letrec*
- ((#{f _85hotwsCta0JfYIjI4PXd}#
- (lambda (#{bindings _85hotwsCta0JfYIjI4PXg}#)
- (if (null? #{bindings _85hotwsCta0JfYIjI4PXg}#)
+ ((#{f _hoQGWMnyQPAh3k2jhWMzg}#
+ (lambda (#{bindings _hoQGWMnyQPAh3k2jhWMzj}#)
+ (if (null? #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("30y" "30z"))
+ #("310" "311"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("30t" "30u" "30v" "30w" "30x"))
+ #("30v" "30w" "30x" "30y" "30z"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30n")))
+ #(ribcage #(x) #((top)) #("30p")))
(hygiene guile))
(cons '()
- (cons #{e1 _85hotwsCta0JfYIjI4PXb}#
- #{e2 _85hotwsCta0JfYIjI4PXc}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4PXh}#
- (list (#{f _85hotwsCta0JfYIjI4PXd}#
- (cdr #{bindings _85hotwsCta0JfYIjI4PXg}#))
- (car #{bindings _85hotwsCta0JfYIjI4PXg}#))))
- (let ((#{tmp _85hotwsCta0JfYIjI4PXi}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWMze}#
+ #{e2 _hoQGWMnyQPAh3k2jhWMzf}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzk}#
+ (list (#{f _hoQGWMnyQPAh3k2jhWMzg}#
+ (cdr #{bindings _hoQGWMnyQPAh3k2jhWMzj}#))
+ (car #{bindings _hoQGWMnyQPAh3k2jhWMzj}#))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzl}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4PXh}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMzk}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4PXi}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWMzl}#
(@apply
- (lambda (#{body _85hotwsCta0JfYIjI4PXk}#
- #{binding _85hotwsCta0JfYIjI4PXl}#)
+ (lambda (#{body _hoQGWMnyQPAh3k2jhWMzn}#
+ #{binding _hoQGWMnyQPAh3k2jhWMzo}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("310" "311"))
+ #("312" "313"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("30y" "30z"))
+ #("310" "311"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("30t" "30u" "30v" "30w" "30x"))
+ #("30v" "30w" "30x" "30y" "30z"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30n")))
+ #(ribcage #(x) #((top)) #("30p")))
(hygiene guile))
- (list #{binding _85hotwsCta0JfYIjI4PXl}#)
- #{body _85hotwsCta0JfYIjI4PXk}#))
- #{tmp _85hotwsCta0JfYIjI4PXi}#)
+ (list #{binding _hoQGWMnyQPAh3k2jhWMzo}#)
+ #{body _hoQGWMnyQPAh3k2jhWMzn}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWMzl}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4PXh}#))))))))
- (#{f _85hotwsCta0JfYIjI4PXd}#
+ #{tmp _hoQGWMnyQPAh3k2jhWMzk}#))))))))
+ (#{f _hoQGWMnyQPAh3k2jhWMzg}#
(map list
- #{x _85hotwsCta0JfYIjI4PXZ}#
- #{v _85hotwsCta0JfYIjI4PXa}#))))
- #{tmp _85hotwsCta0JfYIjI4PXP}#)
+ #{x _hoQGWMnyQPAh3k2jhWMzc}#
+ #{v _hoQGWMnyQPAh3k2jhWMzd}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWMzS}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PXN}#))))))
+ #{x _hoQGWMnyQPAh3k2jhWMzQ}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x _85hotwsCta0JfYIjI4PYR}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PYT}#
+ (lambda (#{orig-x _hoQGWMnyQPAh3k2jhWM0U}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0W}#
($sc-dispatch
- #{orig-x _85hotwsCta0JfYIjI4PYR}#
+ #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PYT}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM0W}#
(@apply
- (lambda (#{var _85hotwsCta0JfYIjI4PYX}#
- #{init _85hotwsCta0JfYIjI4PYY}#
- #{step _85hotwsCta0JfYIjI4PYZ}#
- #{e0 _85hotwsCta0JfYIjI4PYa}#
- #{e1 _85hotwsCta0JfYIjI4PYb}#
- #{c _85hotwsCta0JfYIjI4PYc}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PYd}#
- (map (lambda (#{v _85hotwsCta0JfYIjI4PYg}#
- #{s _85hotwsCta0JfYIjI4PYh}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PYj}#
+ (lambda (#{var _hoQGWMnyQPAh3k2jhWM0a}#
+ #{init _hoQGWMnyQPAh3k2jhWM0b}#
+ #{step _hoQGWMnyQPAh3k2jhWM0c}#
+ #{e0 _hoQGWMnyQPAh3k2jhWM0d}#
+ #{e1 _hoQGWMnyQPAh3k2jhWM0e}#
+ #{c _hoQGWMnyQPAh3k2jhWM0f}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0g}#
+ (map (lambda (#{v _hoQGWMnyQPAh3k2jhWM0j}#
+ #{s _hoQGWMnyQPAh3k2jhWM0k}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0m}#
($sc-dispatch
- #{s _85hotwsCta0JfYIjI4PYh}#
+ #{s _hoQGWMnyQPAh3k2jhWM0k}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4PYj}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM0m}#
(@apply
- (lambda () #{v _85hotwsCta0JfYIjI4PYg}#)
- #{tmp _85hotwsCta0JfYIjI4PYj}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PYm}#
+ (lambda () #{v _hoQGWMnyQPAh3k2jhWM0j}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWM0m}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0p}#
($sc-dispatch
- #{s _85hotwsCta0JfYIjI4PYh}#
+ #{s _hoQGWMnyQPAh3k2jhWM0k}#
'(any))))
- (if #{tmp _85hotwsCta0JfYIjI4PYm}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM0p}#
(@apply
- (lambda (#{e _85hotwsCta0JfYIjI4PYp}#)
- #{e _85hotwsCta0JfYIjI4PYp}#)
- #{tmp _85hotwsCta0JfYIjI4PYm}#)
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWM0s}#)
+ #{e _hoQGWMnyQPAh3k2jhWM0s}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWM0p}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x _85hotwsCta0JfYIjI4PYR}#
- #{s _85hotwsCta0JfYIjI4PYh}#))))))
- #{var _85hotwsCta0JfYIjI4PYX}#
- #{step _85hotwsCta0JfYIjI4PYZ}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4PYe}#
+ #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#
+ #{s _hoQGWMnyQPAh3k2jhWM0k}#))))))
+ #{var _hoQGWMnyQPAh3k2jhWM0a}#
+ #{step _hoQGWMnyQPAh3k2jhWM0c}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0h}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4PYd}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM0g}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4PYe}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM0h}#
(@apply
- (lambda (#{step _85hotwsCta0JfYIjI4PYv}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PYx}#
+ (lambda (#{step _hoQGWMnyQPAh3k2jhWM0y}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM00}#
($sc-dispatch
- #{e1 _85hotwsCta0JfYIjI4PYb}#
+ #{e1 _hoQGWMnyQPAh3k2jhWM0e}#
'())))
- (if #{tmp _85hotwsCta0JfYIjI4PYx}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM00}#
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("319"))
+ #(ribcage #(step) #((top)) #("31b"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("319"))
+ #(ribcage #(step) #((top)) #("31b"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
(map list
- #{var _85hotwsCta0JfYIjI4PYX}#
- #{init _85hotwsCta0JfYIjI4PYY}#)
+ #{var _hoQGWMnyQPAh3k2jhWM0a}#
+ #{init _hoQGWMnyQPAh3k2jhWM0b}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
- #{e0 _85hotwsCta0JfYIjI4PYa}#)
+ #{e0 _hoQGWMnyQPAh3k2jhWM0d}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
(append
- #{c _85hotwsCta0JfYIjI4PYc}#
+ #{c _hoQGWMnyQPAh3k2jhWM0f}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene
guile))
- #{step _85hotwsCta0JfYIjI4PYv}#)))))))
- #{tmp _85hotwsCta0JfYIjI4PYx}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PY1}#
+ #{step _hoQGWMnyQPAh3k2jhWM0y}#)))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM00}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM04}#
($sc-dispatch
- #{e1 _85hotwsCta0JfYIjI4PYb}#
+ #{e1 _hoQGWMnyQPAh3k2jhWM0e}#
'(any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PY1}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM04}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4PY5}#
- #{e2 _85hotwsCta0JfYIjI4PY6}#)
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWM08}#
+ #{e2 _hoQGWMnyQPAh3k2jhWM09}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31a" "31b"))
+ #("31c" "31d"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("31a" "31b"))
+ #("31c" "31d"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
(map list
- #{var _85hotwsCta0JfYIjI4PYX}#
- #{init _85hotwsCta0JfYIjI4PYY}#)
+ #{var _hoQGWMnyQPAh3k2jhWM0a}#
+ #{init _hoQGWMnyQPAh3k2jhWM0b}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31a" "31b"))
+ #("31c" "31d"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
- #{e0 _85hotwsCta0JfYIjI4PYa}#
+ #{e0 _hoQGWMnyQPAh3k2jhWM0d}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31a" "31b"))
+ #("31c" "31d"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
- (cons #{e1 _85hotwsCta0JfYIjI4PY5}#
- #{e2 _85hotwsCta0JfYIjI4PY6}#))
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWM08}#
+ #{e2 _hoQGWMnyQPAh3k2jhWM09}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31a" "31b"))
+ #("31c" "31d"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene guile))
(append
- #{c _85hotwsCta0JfYIjI4PYc}#
+ #{c _hoQGWMnyQPAh3k2jhWM0f}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("31a"
- "31b"))
+ #("31c"
+ "31d"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("319"))
+ #("31b"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("313"
- "314"
- "315"
+ #("315"
"316"
"317"
- "318"))
+ "318"
+ "319"
+ "31a"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("312")))
+ #("314")))
(hygiene
guile))
- #{step _85hotwsCta0JfYIjI4PYv}#)))))))
- #{tmp _85hotwsCta0JfYIjI4PY1}#)
+ #{step _hoQGWMnyQPAh3k2jhWM0y}#)))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM04}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 _85hotwsCta0JfYIjI4PYb}#))))))
- #{tmp _85hotwsCta0JfYIjI4PYe}#)
+ #{e1 _hoQGWMnyQPAh3k2jhWM0e}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM0h}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4PYd}#)))))
- #{tmp _85hotwsCta0JfYIjI4PYT}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWM0g}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM0W}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x _85hotwsCta0JfYIjI4PYR}#))))))
+ #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi _85hotwsCta0JfYIjI4PcJ}#
- (lambda (#{p _85hotwsCta0JfYIjI4Pch}#
- #{lev _85hotwsCta0JfYIjI4Pci}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pck}#
+ ((#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM4k}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4n}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4Pch}#
+ #{p _hoQGWMnyQPAh3k2jhWM4k}#
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
+ #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile)))
any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pck}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM4n}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4Pco}#)
- (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM4r}#)
+ (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("31p"))
+ #(ribcage #(p) #((top)) #("31r"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile))
- #{p _85hotwsCta0JfYIjI4Pco}#)
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ #{p _hoQGWMnyQPAh3k2jhWM4r}#)
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31p"))
+ #(ribcage #(p) #((top)) #("31r"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
+ #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("31p"))
+ #(ribcage #(p) #((top)) #("31r"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
+ #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- (list #{p _85hotwsCta0JfYIjI4Pco}#)
- (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#)))))
- #{tmp _85hotwsCta0JfYIjI4Pck}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pcr}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ (list #{p _hoQGWMnyQPAh3k2jhWM4r}#)
+ (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM4n}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4u}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4Pch}#
+ #{p _hoQGWMnyQPAh3k2jhWM4k}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile)))
any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pcr}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM4u}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4Pcv}#)
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM4y}#)
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31q"))
+ #(ribcage #(p) #((top)) #("31s"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
+ #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("31q"))
+ #(ribcage #(p) #((top)) #("31s"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
+ #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- (list #{p _85hotwsCta0JfYIjI4Pcv}#)
- (#{1+}# #{lev _85hotwsCta0JfYIjI4Pci}#))))
- #{tmp _85hotwsCta0JfYIjI4Pcr}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pcy}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ (list #{p _hoQGWMnyQPAh3k2jhWM4y}#)
+ (#{1+}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM4u}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM41}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4Pch}#
+ #{p _hoQGWMnyQPAh3k2jhWM4k}#
'(any . any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pcy}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM41}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4Pc2}#
- #{q _85hotwsCta0JfYIjI4Pc3}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pc5}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM45}#
+ #{q _hoQGWMnyQPAh3k2jhWM46}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM48}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4Pc2}#
+ #{p _hoQGWMnyQPAh3k2jhWM45}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pc5}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM48}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4Pc9}#)
- (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0)
- (#{quasilist* _85hotwsCta0JfYIjI4PcN}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM5A}#)
+ (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0)
+ (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("31t"))
+ #("31v"))
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#))
- #{p _85hotwsCta0JfYIjI4Pc9}#)
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{q _85hotwsCta0JfYIjI4Pc3}#
- #{lev _85hotwsCta0JfYIjI4Pci}#))
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#))
+ #{p _hoQGWMnyQPAh3k2jhWM5A}#)
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{q _hoQGWMnyQPAh3k2jhWM46}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#))
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31t"))
+ #(ribcage #(p) #((top)) #("31v"))
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("31t"))
+ #(ribcage #(p) #((top)) #("31v"))
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{p _85hotwsCta0JfYIjI4Pc9}#
- (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{q _85hotwsCta0JfYIjI4Pc3}#
- #{lev _85hotwsCta0JfYIjI4Pci}#))))
- #{tmp _85hotwsCta0JfYIjI4Pc5}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pdm}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{p _hoQGWMnyQPAh3k2jhWM5A}#
+ (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{q _hoQGWMnyQPAh3k2jhWM46}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM48}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5p}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4Pc2}#
+ #{p _hoQGWMnyQPAh3k2jhWM45}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pdm}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM5p}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4Pdq}#)
- (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0)
- (#{quasiappend _85hotwsCta0JfYIjI4PcM}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM5t}#)
+ (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0)
+ (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("31u"))
+ #("31w"))
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#))
- #{p _85hotwsCta0JfYIjI4Pdq}#)
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{q _85hotwsCta0JfYIjI4Pc3}#
- #{lev _85hotwsCta0JfYIjI4Pci}#))
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#))
+ #{p _hoQGWMnyQPAh3k2jhWM5t}#)
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{q _hoQGWMnyQPAh3k2jhWM46}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#))
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("31u"))
+ #("31w"))
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("31u"))
+ #("31w"))
#(ribcage
#(p q)
#((top) (top))
- #("31r" "31s"))
+ #("31t" "31u"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{p _85hotwsCta0JfYIjI4Pdq}#
- (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{q _85hotwsCta0JfYIjI4Pc3}#
- #{lev _85hotwsCta0JfYIjI4Pci}#))))
- #{tmp _85hotwsCta0JfYIjI4Pdm}#)
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{p _85hotwsCta0JfYIjI4Pc2}#
- #{lev _85hotwsCta0JfYIjI4Pci}#)
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{q _85hotwsCta0JfYIjI4Pc3}#
- #{lev _85hotwsCta0JfYIjI4Pci}#)))))))
- #{tmp _85hotwsCta0JfYIjI4Pcy}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pd7}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{p _hoQGWMnyQPAh3k2jhWM5t}#
+ (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{q _hoQGWMnyQPAh3k2jhWM46}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM5p}#)
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{p _hoQGWMnyQPAh3k2jhWM45}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#)
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{q _hoQGWMnyQPAh3k2jhWM46}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM41}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5$}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4Pch}#
+ #{p _hoQGWMnyQPAh3k2jhWM4k}#
'#(vector each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pd7}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM5$}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4Pd@}#)
- (let ((#{x _85hotwsCta0JfYIjI4PeC}#
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- #{x _85hotwsCta0JfYIjI4Pd@}#
- #{lev _85hotwsCta0JfYIjI4Pci}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4PeE}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM6C}#)
+ (let ((#{x _hoQGWMnyQPAh3k2jhWM6F}#
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ #{x _hoQGWMnyQPAh3k2jhWM6C}#
+ #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6H}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PeC}#
+ #{x _hoQGWMnyQPAh3k2jhWM6F}#
'(#(atom "quote") each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PeE}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM6H}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4PeI}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM6L}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("32q"))
+ #("32s"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("32p"))
+ #("32r"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
(list->vector
- #{x _85hotwsCta0JfYIjI4PeI}#)))
- #{tmp _85hotwsCta0JfYIjI4PeE}#)
+ #{x _hoQGWMnyQPAh3k2jhWM6L}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM6H}#)
(letrec*
- ((#{f _85hotwsCta0JfYIjI4PeK}#
- (lambda (#{y _85hotwsCta0JfYIjI4PeW}#
- #{k _85hotwsCta0JfYIjI4PeX}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PeZ}#
+ ((#{f _hoQGWMnyQPAh3k2jhWM6N}#
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWM6Z}#
+ #{k _hoQGWMnyQPAh3k2jhWM6a}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6c}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4PeW}#
+ #{y _hoQGWMnyQPAh3k2jhWM6Z}#
'(#(atom "quote")
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PeZ}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM6c}#
(@apply
- (lambda (#{y _85hotwsCta0JfYIjI4Pec}#)
- (#{k _85hotwsCta0JfYIjI4PeX}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#)
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWM6f}#)
+ (#{k _hoQGWMnyQPAh3k2jhWM6a}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("32x"))
+ #("32z"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("32s"
- "32t"
- "32u"))
+ #("32u"
+ "32v"
+ "32w"))
#(ribcage
#(_)
#((top))
- #("32r"))
+ #("32t"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("32p"))
+ #("32r"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene
guile))
- #{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#))
- #{y _85hotwsCta0JfYIjI4Pec}#)))
- #{tmp _85hotwsCta0JfYIjI4PeZ}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pee}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#))
+ #{y _hoQGWMnyQPAh3k2jhWM6f}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM6c}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6h}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4PeW}#
+ #{y _hoQGWMnyQPAh3k2jhWM6Z}#
'(#(atom "list")
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pee}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM6h}#
(@apply
- (lambda (#{y _85hotwsCta0JfYIjI4Peh}#)
- (#{k _85hotwsCta0JfYIjI4PeX}#
- #{y _85hotwsCta0JfYIjI4Peh}#))
- #{tmp _85hotwsCta0JfYIjI4Pee}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pei}#
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWM6k}#)
+ (#{k _hoQGWMnyQPAh3k2jhWM6a}#
+ #{y _hoQGWMnyQPAh3k2jhWM6k}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM6h}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6l}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4PeW}#
+ #{y _hoQGWMnyQPAh3k2jhWM6Z}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp _85hotwsCta0JfYIjI4Pei}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM6l}#
(@apply
- (lambda (#{y _85hotwsCta0JfYIjI4Pel}#
- #{z _85hotwsCta0JfYIjI4Pem}#)
- (#{f _85hotwsCta0JfYIjI4PeK}#
- #{z _85hotwsCta0JfYIjI4Pem}#
- (lambda (#{ls _85hotwsCta0JfYIjI4Pen}#)
- (#{k _85hotwsCta0JfYIjI4PeX}#
+ (lambda (#{y _hoQGWMnyQPAh3k2jhWM6o}#
+ #{z _hoQGWMnyQPAh3k2jhWM6p}#)
+ (#{f _hoQGWMnyQPAh3k2jhWM6N}#
+ #{z _hoQGWMnyQPAh3k2jhWM6p}#
+ (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6q}#)
+ (#{k _hoQGWMnyQPAh3k2jhWM6a}#
(append
- #{y _85hotwsCta0JfYIjI4Pel}#
- #{ls _85hotwsCta0JfYIjI4Pen}#)))))
- #{tmp _85hotwsCta0JfYIjI4Pei}#)
+ #{y _hoQGWMnyQPAh3k2jhWM6o}#
+ #{ls _hoQGWMnyQPAh3k2jhWM6q}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM6l}#)
(list '#(syntax-object
"list->vector"
((top)
()
())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4PbH}#)
- #((m_85hotwsCta0JfYIjI4PbI
+ #(#{ g_hoQGWMnyQPAh3k2jhWM3K}#)
+ #((m_hoQGWMnyQPAh3k2jhWM3L
top))
- #("333"))
+ #("335"))
#(ribcage
#(else)
#((top))
- #("332"))
+ #("334"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("32s"
- "32t"
- "32u"))
+ #("32u"
+ "32v"
+ "32w"))
#(ribcage
#(_)
#((top))
- #("32r"))
+ #("32t"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("32p"))
+ #("32r"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene
guile))
- #{x _85hotwsCta0JfYIjI4PeC}#))))))))))
- (#{f _85hotwsCta0JfYIjI4PeK}#
- #{x _85hotwsCta0JfYIjI4PeC}#
- (lambda (#{ls _85hotwsCta0JfYIjI4PeM}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PeO}#
+ #{x _hoQGWMnyQPAh3k2jhWM6F}#))))))))))
+ (#{f _hoQGWMnyQPAh3k2jhWM6N}#
+ #{x _hoQGWMnyQPAh3k2jhWM6F}#
+ (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6P}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6R}#
($sc-dispatch
- #{ls _85hotwsCta0JfYIjI4PeM}#
+ #{ls _hoQGWMnyQPAh3k2jhWM6P}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4PeO}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM6R}#
(@apply
- (lambda (#{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#)
+ (lambda (#{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#)
(cons '#(syntax-object
"vector"
((top)
()
())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4Paz}#)
- #((m_85hotwsCta0JfYIjI4Pa0
+ #(#{ g_hoQGWMnyQPAh3k2jhWM22}#)
+ #((m_hoQGWMnyQPAh3k2jhWM23
top))
- #("32w"))
+ #("32y"))
#(ribcage
()
()
#(ribcage
#(ls)
#((top))
- #("32v"))
+ #("32x"))
#(ribcage
#(_)
#((top))
- #("32r"))
+ #("32t"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("32p"))
+ #("32r"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#))
- #{tmp _85hotwsCta0JfYIjI4PeO}#)
+ #{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM6R}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls _85hotwsCta0JfYIjI4PeM}#))))))))))
- #{tmp _85hotwsCta0JfYIjI4Pd7}#)
+ #{ls _hoQGWMnyQPAh3k2jhWM6P}#))))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM5$}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31x"))
+ #(ribcage #(p) #((top)) #("31z"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31n" "31o"))
+ #("31p" "31q"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{p _85hotwsCta0JfYIjI4Pch}#)))))))))))
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- (lambda (#{p _85hotwsCta0JfYIjI4PfD}#
- #{lev _85hotwsCta0JfYIjI4PfE}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PfG}#
+ #{p _hoQGWMnyQPAh3k2jhWM4k}#)))))))))))
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM7G}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7J}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4PfD}#
+ #{p _hoQGWMnyQPAh3k2jhWM7G}#
'(any . any))))
- (if #{tmp _85hotwsCta0JfYIjI4PfG}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM7J}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4PfK}#
- #{q _85hotwsCta0JfYIjI4PfL}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PfN}#
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM7N}#
+ #{q _hoQGWMnyQPAh3k2jhWM7O}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7Q}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4PfK}#
+ #{p _hoQGWMnyQPAh3k2jhWM7N}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PfN}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4PfR}#)
- (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0)
- (#{quasilist* _85hotwsCta0JfYIjI4PcN}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM7U}#)
+ (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0)
+ (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("322"))
+ #("324"))
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#))
- #{p _85hotwsCta0JfYIjI4PfR}#)
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- #{q _85hotwsCta0JfYIjI4PfL}#
- #{lev _85hotwsCta0JfYIjI4PfE}#))
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#))
+ #{p _hoQGWMnyQPAh3k2jhWM7U}#)
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ #{q _hoQGWMnyQPAh3k2jhWM7O}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#))
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("322"))
+ #(ribcage #(p) #((top)) #("324"))
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("322"))
+ #(ribcage #(p) #((top)) #("324"))
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{p _85hotwsCta0JfYIjI4PfR}#
- (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#)))
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- #{q _85hotwsCta0JfYIjI4PfL}#
- #{lev _85hotwsCta0JfYIjI4PfE}#))))
- #{tmp _85hotwsCta0JfYIjI4PfN}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pf8}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{p _hoQGWMnyQPAh3k2jhWM7U}#
+ (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ #{q _hoQGWMnyQPAh3k2jhWM7O}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7@}#
($sc-dispatch
- #{p _85hotwsCta0JfYIjI4PfK}#
+ #{p _hoQGWMnyQPAh3k2jhWM7N}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pf8}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM7@}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4PgA}#)
- (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0)
- (#{quasiappend _85hotwsCta0JfYIjI4PcM}#
- (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM8D}#)
+ (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0)
+ (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}#
+ (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("323"))
+ #("325"))
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#))
- #{p _85hotwsCta0JfYIjI4PgA}#)
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- #{q _85hotwsCta0JfYIjI4PfL}#
- #{lev _85hotwsCta0JfYIjI4PfE}#))
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#))
+ #{p _hoQGWMnyQPAh3k2jhWM8D}#)
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ #{q _hoQGWMnyQPAh3k2jhWM7O}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#))
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("323"))
+ #(ribcage #(p) #((top)) #("325"))
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("323"))
+ #(ribcage #(p) #((top)) #("325"))
#(ribcage
#(p q)
#((top) (top))
- #("320" "321"))
+ #("322" "323"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31y" "31z"))
+ #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile)))
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{p _85hotwsCta0JfYIjI4PgA}#
- (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#)))
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- #{q _85hotwsCta0JfYIjI4PfL}#
- #{lev _85hotwsCta0JfYIjI4PfE}#))))
- #{tmp _85hotwsCta0JfYIjI4Pf8}#)
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{p _85hotwsCta0JfYIjI4PfK}#
- #{lev _85hotwsCta0JfYIjI4PfE}#)
- (#{vquasi _85hotwsCta0JfYIjI4PcK}#
- #{q _85hotwsCta0JfYIjI4PfL}#
- #{lev _85hotwsCta0JfYIjI4PfE}#)))))))
- #{tmp _85hotwsCta0JfYIjI4PfG}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PgV}#
- ($sc-dispatch #{p _85hotwsCta0JfYIjI4PfD}# '())))
- (if #{tmp _85hotwsCta0JfYIjI4PgV}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{p _hoQGWMnyQPAh3k2jhWM8D}#
+ (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ #{q _hoQGWMnyQPAh3k2jhWM7O}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM7@}#)
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{p _hoQGWMnyQPAh3k2jhWM7N}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#)
+ (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
+ #{q _hoQGWMnyQPAh3k2jhWM7O}#
+ #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM7J}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8Y}#
+ ($sc-dispatch #{p _hoQGWMnyQPAh3k2jhWM7G}# '())))
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#
(@apply
(lambda ()
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31y" "31z"))
+ #(ribcage #(p lev) #((top) (top)) #("320" "321"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile))
()))
- #{tmp _85hotwsCta0JfYIjI4PgV}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p _85hotwsCta0JfYIjI4PfD}#)))))))
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (lambda (#{x _85hotwsCta0JfYIjI4Pgi}#
- #{y _85hotwsCta0JfYIjI4Pgj}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pgk}#
- (list #{x _85hotwsCta0JfYIjI4Pgi}#
- #{y _85hotwsCta0JfYIjI4Pgj}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pgl}#
+ #{p _hoQGWMnyQPAh3k2jhWM7G}#)))))))
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM8l}#
+ #{y _hoQGWMnyQPAh3k2jhWM8m}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8n}#
+ (list #{x _hoQGWMnyQPAh3k2jhWM8l}#
+ #{y _hoQGWMnyQPAh3k2jhWM8m}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8o}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4Pgk}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM8n}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pgl}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM8o}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4Pgn}#
- #{y _85hotwsCta0JfYIjI4Pgo}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pgq}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM8q}#
+ #{y _hoQGWMnyQPAh3k2jhWM8r}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8t}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4Pgo}#
+ #{y _hoQGWMnyQPAh3k2jhWM8r}#
'(#(atom "quote") any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pgq}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM8t}#
(@apply
- (lambda (#{dy _85hotwsCta0JfYIjI4Pgu}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pgw}#
+ (lambda (#{dy _hoQGWMnyQPAh3k2jhWM8x}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8z}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4Pgn}#
+ #{x _hoQGWMnyQPAh3k2jhWM8q}#
'(#(atom "quote") any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pgw}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM8z}#
(@apply
- (lambda (#{dx _85hotwsCta0JfYIjI4Pg0}#)
+ (lambda (#{dx _hoQGWMnyQPAh3k2jhWM83}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("32a"))
+ #("32c"))
#(ribcage
#(dy)
#((top))
- #("329"))
+ #("32b"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("329" "32a"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("325" "326"))
+ #("327" "328"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- (cons #{dx _85hotwsCta0JfYIjI4Pg0}#
- #{dy _85hotwsCta0JfYIjI4Pgu}#)))
- #{tmp _85hotwsCta0JfYIjI4Pgw}#)
- (if (null? #{dy _85hotwsCta0JfYIjI4Pgu}#)
+ (cons #{dx _hoQGWMnyQPAh3k2jhWM83}#
+ #{dy _hoQGWMnyQPAh3k2jhWM8x}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM8z}#)
+ (if (null? #{dy _hoQGWMnyQPAh3k2jhWM8x}#)
(list '#(syntax-object
"list"
((top)
- #(ribcage #(_) #((top)) #("32b"))
- #(ribcage #(dy) #((top)) #("329"))
+ #(ribcage #(_) #((top)) #("32d"))
+ #(ribcage #(dy) #((top)) #("32b"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("329" "32a"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("325" "326"))
+ #("327" "328"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{x _85hotwsCta0JfYIjI4Pgn}#)
+ #{x _hoQGWMnyQPAh3k2jhWM8q}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("32b"))
- #(ribcage #(dy) #((top)) #("329"))
+ #(ribcage #(_) #((top)) #("32d"))
+ #(ribcage #(dy) #((top)) #("32b"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("329" "32a"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("325" "326"))
+ #("327" "328"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{x _85hotwsCta0JfYIjI4Pgn}#
- #{y _85hotwsCta0JfYIjI4Pgo}#)))))
- #{tmp _85hotwsCta0JfYIjI4Pgq}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pg5}#
+ #{x _hoQGWMnyQPAh3k2jhWM8q}#
+ #{y _hoQGWMnyQPAh3k2jhWM8r}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM8t}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM88}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4Pgo}#
+ #{y _hoQGWMnyQPAh3k2jhWM8r}#
'(#(atom "list") . any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pg5}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM88}#
(@apply
- (lambda (#{stuff _85hotwsCta0JfYIjI4Pg9}#)
+ (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9A}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("32c"))
+ #("32e"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("329" "32a"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("325" "326"))
+ #("327" "328"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- (cons #{x _85hotwsCta0JfYIjI4Pgn}#
- #{stuff _85hotwsCta0JfYIjI4Pg9}#)))
- #{tmp _85hotwsCta0JfYIjI4Pg5}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pg$}#
+ (cons #{x _hoQGWMnyQPAh3k2jhWM8q}#
+ #{stuff _hoQGWMnyQPAh3k2jhWM9A}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM88}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9B}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4Pgo}#
+ #{y _hoQGWMnyQPAh3k2jhWM8r}#
'(#(atom "list*") . any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pg$}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM9B}#
(@apply
- (lambda (#{stuff _85hotwsCta0JfYIjI4PhC}#)
+ (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9F}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("32d"))
+ #("32f"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("329" "32a"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("325" "326"))
+ #("327" "328"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- (cons #{x _85hotwsCta0JfYIjI4Pgn}#
- #{stuff _85hotwsCta0JfYIjI4PhC}#)))
- #{tmp _85hotwsCta0JfYIjI4Pg$}#)
+ (cons #{x _hoQGWMnyQPAh3k2jhWM8q}#
+ #{stuff _hoQGWMnyQPAh3k2jhWM9F}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM9B}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("32e"))
+ #(ribcage #(_) #((top)) #("32g"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("329" "32a"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("325" "326"))
+ #("327" "328"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{x _85hotwsCta0JfYIjI4Pgn}#
- #{y _85hotwsCta0JfYIjI4Pgo}#))))))))
- #{tmp _85hotwsCta0JfYIjI4Pgl}#)
+ #{x _hoQGWMnyQPAh3k2jhWM8q}#
+ #{y _hoQGWMnyQPAh3k2jhWM8r}#))))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM8o}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4Pgk}#))))))
- (#{quasiappend _85hotwsCta0JfYIjI4PcM}#
- (lambda (#{x _85hotwsCta0JfYIjI4PhN}#
- #{y _85hotwsCta0JfYIjI4PhO}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PhQ}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM8n}#))))))
+ (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM9Q}#
+ #{y _hoQGWMnyQPAh3k2jhWM9R}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9T}#
($sc-dispatch
- #{y _85hotwsCta0JfYIjI4PhO}#
+ #{y _hoQGWMnyQPAh3k2jhWM9R}#
'(#(atom "quote") ()))))
- (if #{tmp _85hotwsCta0JfYIjI4PhQ}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM9T}#
(@apply
(lambda ()
- (if (null? #{x _85hotwsCta0JfYIjI4PhN}#)
+ (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(x y) #((top) (top)) #("32f" "32g"))
+ #(ribcage #(x y) #((top) (top)) #("32h" "32i"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile))
())
- (if (null? (cdr #{x _85hotwsCta0JfYIjI4PhN}#))
- (car #{x _85hotwsCta0JfYIjI4PhN}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PhV}#
+ (if (null? (cdr #{x _hoQGWMnyQPAh3k2jhWM9Q}#))
+ (car #{x _hoQGWMnyQPAh3k2jhWM9Q}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9Y}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PhN}#
+ #{x _hoQGWMnyQPAh3k2jhWM9Q}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4PhV}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4PhZ}#)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM9c}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("32h"))
+ #(ribcage #(p) #((top)) #("32j"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("32f" "32g"))
+ #("32h" "32i"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{p _85hotwsCta0JfYIjI4PhZ}#))
- #{tmp _85hotwsCta0JfYIjI4PhV}#)
+ #{p _hoQGWMnyQPAh3k2jhWM9c}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PhN}#))))))
- #{tmp _85hotwsCta0JfYIjI4PhQ}#)
- (if (null? #{x _85hotwsCta0JfYIjI4PhN}#)
- #{y _85hotwsCta0JfYIjI4PhO}#
- (let ((#{tmp _85hotwsCta0JfYIjI4Phh}#
- (list #{x _85hotwsCta0JfYIjI4PhN}#
- #{y _85hotwsCta0JfYIjI4PhO}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Phi}#
+ #{x _hoQGWMnyQPAh3k2jhWM9Q}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM9T}#)
+ (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#)
+ #{y _hoQGWMnyQPAh3k2jhWM9R}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9k}#
+ (list #{x _hoQGWMnyQPAh3k2jhWM9Q}#
+ #{y _hoQGWMnyQPAh3k2jhWM9R}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9l}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4Phh}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM9k}#
'(each-any any))))
- (if #{tmp _85hotwsCta0JfYIjI4Phi}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM9l}#
(@apply
- (lambda (#{p _85hotwsCta0JfYIjI4Phk}#
- #{y _85hotwsCta0JfYIjI4Phl}#)
+ (lambda (#{p _hoQGWMnyQPAh3k2jhWM9n}#
+ #{y _hoQGWMnyQPAh3k2jhWM9o}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p y)
#((top) (top))
- #("32j" "32k"))
- #(ribcage #(_) #((top)) #("32i"))
+ #("32l" "32m"))
+ #(ribcage #(_) #((top)) #("32k"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("32f" "32g"))
+ #("32h" "32i"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
(append
- #{p _85hotwsCta0JfYIjI4Phk}#
- (list #{y _85hotwsCta0JfYIjI4Phl}#))))
- #{tmp _85hotwsCta0JfYIjI4Phi}#)
+ #{p _hoQGWMnyQPAh3k2jhWM9n}#
+ (list #{y _hoQGWMnyQPAh3k2jhWM9o}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM9l}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4Phh}#)))))))))
- (#{quasilist* _85hotwsCta0JfYIjI4PcN}#
- (lambda (#{x _85hotwsCta0JfYIjI4Php}#
- #{y _85hotwsCta0JfYIjI4Phq}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWM9k}#)))))))))
+ (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM9s}#
+ #{y _hoQGWMnyQPAh3k2jhWM9t}#)
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Phr}#
- (lambda (#{x _85hotwsCta0JfYIjI4PjE}#)
- (if (null? #{x _85hotwsCta0JfYIjI4PjE}#)
- #{y _85hotwsCta0JfYIjI4Phq}#
- (#{quasicons _85hotwsCta0JfYIjI4PcL}#
- (car #{x _85hotwsCta0JfYIjI4PjE}#)
- (#{f _85hotwsCta0JfYIjI4Phr}#
- (cdr #{x _85hotwsCta0JfYIjI4PjE}#)))))))
- (#{f _85hotwsCta0JfYIjI4Phr}#
- #{x _85hotwsCta0JfYIjI4Php}#))))
- (#{emit _85hotwsCta0JfYIjI4PcP}#
- (lambda (#{x _85hotwsCta0JfYIjI4PjH}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PjJ}#
+ ((#{f _hoQGWMnyQPAh3k2jhWM9u}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@H}#)
+ (if (null? #{x _hoQGWMnyQPAh3k2jhWM@H}#)
+ #{y _hoQGWMnyQPAh3k2jhWM9t}#
+ (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (car #{x _hoQGWMnyQPAh3k2jhWM@H}#)
+ (#{f _hoQGWMnyQPAh3k2jhWM9u}#
+ (cdr #{x _hoQGWMnyQPAh3k2jhWM@H}#)))))))
+ (#{f _hoQGWMnyQPAh3k2jhWM9u}#
+ #{x _hoQGWMnyQPAh3k2jhWM9s}#))))
+ (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@K}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@M}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "quote") any))))
- (if #{tmp _85hotwsCta0JfYIjI4PjJ}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@M}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4PjN}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@Q}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("335"))
+ #(ribcage #(x) #((top)) #("337"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("334"))
+ #(ribcage #(x) #((top)) #("336"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
+ ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
(hygiene guile))
- #{x _85hotwsCta0JfYIjI4PjN}#))
- #{tmp _85hotwsCta0JfYIjI4PjJ}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PjO}#
+ #{x _hoQGWMnyQPAh3k2jhWM@Q}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@M}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@R}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "list") . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PjO}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@R}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4PjS}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PjT}#
- (map #{emit _85hotwsCta0JfYIjI4PcP}#
- #{x _85hotwsCta0JfYIjI4PjS}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4PjU}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@V}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@W}#
+ (map #{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ #{x _hoQGWMnyQPAh3k2jhWM@V}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@X}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4PjT}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@W}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4PjU}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@X}#
(@apply
- (lambda (#{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#)
+ (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4PbS}#)
- #((m_85hotwsCta0JfYIjI4PbT top))
- #("337"))
- #(ribcage #(x) #((top)) #("336"))
+ #(#{ g_hoQGWMnyQPAh3k2jhWM3V}#)
+ #((m_hoQGWMnyQPAh3k2jhWM3W top))
+ #("339"))
+ #(ribcage #(x) #((top)) #("338"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("334"))
+ #(ribcage #(x) #((top)) #("336"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#))
- #{tmp _85hotwsCta0JfYIjI4PjU}#)
+ #{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@X}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4PjT}#)))))
- #{tmp _85hotwsCta0JfYIjI4PjO}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PjX}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@W}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@R}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@a}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp _85hotwsCta0JfYIjI4PjX}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@a}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4Pjb}#
- #{y _85hotwsCta0JfYIjI4Pjc}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@e}#
+ #{y _hoQGWMnyQPAh3k2jhWM@f}#)
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Pjd}#
- (lambda (#{x* _85hotwsCta0JfYIjI4Pjg}#)
- (if (null? #{x* _85hotwsCta0JfYIjI4Pjg}#)
- (#{emit _85hotwsCta0JfYIjI4PcP}#
- #{y _85hotwsCta0JfYIjI4Pjc}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pjh}#
- (list (#{emit _85hotwsCta0JfYIjI4PcP}#
- (car #{x* _85hotwsCta0JfYIjI4Pjg}#))
- (#{f _85hotwsCta0JfYIjI4Pjd}#
- (cdr #{x* _85hotwsCta0JfYIjI4Pjg}#)))))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pji}#
+ ((#{f _hoQGWMnyQPAh3k2jhWM@g}#
+ (lambda (#{x* _hoQGWMnyQPAh3k2jhWM@j}#)
+ (if (null? #{x* _hoQGWMnyQPAh3k2jhWM@j}#)
+ (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ #{y _hoQGWMnyQPAh3k2jhWM@f}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@k}#
+ (list (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ (car #{x* _hoQGWMnyQPAh3k2jhWM@j}#))
+ (#{f _hoQGWMnyQPAh3k2jhWM@g}#
+ (cdr #{x* _hoQGWMnyQPAh3k2jhWM@j}#)))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@l}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4Pjh}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@k}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pji}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@l}#
(@apply
- (lambda (#{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}#
- #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#)
+ (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}#
+ #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4Pbh}#
- #{ g_85hotwsCta0JfYIjI4Pbg}#)
- #((m_85hotwsCta0JfYIjI4Pbi
+ #(#{ g_hoQGWMnyQPAh3k2jhWM3k}#
+ #{ g_hoQGWMnyQPAh3k2jhWM3j}#)
+ #((m_hoQGWMnyQPAh3k2jhWM3l
top)
- (m_85hotwsCta0JfYIjI4Pbi
+ (m_hoQGWMnyQPAh3k2jhWM3l
top))
- #("33c" "33d"))
+ #("33e" "33f"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("33a" "33b"))
+ #("33c" "33d"))
#(ribcage
#(x y)
#((top) (top))
- #("338" "339"))
+ #("33a" "33b"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("334"))
+ #("336"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}#
- #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#))
- #{tmp _85hotwsCta0JfYIjI4Pji}#)
+ #{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}#
+ #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@l}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4Pjh}#))))))))
- (#{f _85hotwsCta0JfYIjI4Pjd}#
- #{x _85hotwsCta0JfYIjI4Pjb}#)))
- #{tmp _85hotwsCta0JfYIjI4PjX}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pjm}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@k}#))))))))
+ (#{f _hoQGWMnyQPAh3k2jhWM@g}#
+ #{x _hoQGWMnyQPAh3k2jhWM@e}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@a}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@p}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "append") . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pjm}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@p}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4Pjq}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pjr}#
- (map #{emit _85hotwsCta0JfYIjI4PcP}#
- #{x _85hotwsCta0JfYIjI4Pjq}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pjs}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@t}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@u}#
+ (map #{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ #{x _hoQGWMnyQPAh3k2jhWM@t}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@v}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4Pjr}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@u}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4Pjs}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@v}#
(@apply
- (lambda (#{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#)
+ (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4Pbq}#)
- #((m_85hotwsCta0JfYIjI4Pbr
+ #(#{ g_hoQGWMnyQPAh3k2jhWM3t}#)
+ #((m_hoQGWMnyQPAh3k2jhWM3u
top))
- #("33f"))
+ #("33h"))
#(ribcage
#(x)
#((top))
- #("33e"))
+ #("33g"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("334"))
+ #("336"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#))
- #{tmp _85hotwsCta0JfYIjI4Pjs}#)
+ #{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@v}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4Pjr}#)))))
- #{tmp _85hotwsCta0JfYIjI4Pjm}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pjv}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@u}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@p}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@y}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "vector") . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pjv}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@y}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4Pjz}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pj0}#
- (map #{emit _85hotwsCta0JfYIjI4PcP}#
- #{x _85hotwsCta0JfYIjI4Pjz}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pj1}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@2}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@3}#
+ (map #{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ #{x _hoQGWMnyQPAh3k2jhWM@2}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@4}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4Pj0}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@3}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4Pj1}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@4}#
(@apply
- (lambda (#{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#)
+ (lambda (#{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4Pb0}#)
- #((m_85hotwsCta0JfYIjI4Pb1
+ #(#{ g_hoQGWMnyQPAh3k2jhWM33}#)
+ #((m_hoQGWMnyQPAh3k2jhWM34
top))
- #("33h"))
+ #("33j"))
#(ribcage
#(x)
#((top))
- #("33g"))
+ #("33i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("334"))
+ #("336"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#))
- #{tmp _85hotwsCta0JfYIjI4Pj1}#)
+ #{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4Pj0}#)))))
- #{tmp _85hotwsCta0JfYIjI4Pjv}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pj4}#
+ #{tmp _hoQGWMnyQPAh3k2jhWM@3}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@y}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@7}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "list->vector") any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pj4}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM@7}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4Pj8}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pj9}#
- (#{emit _85hotwsCta0JfYIjI4PcP}#
- #{x _85hotwsCta0JfYIjI4Pj8}#)))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM@@}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAA}#
+ (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ #{x _hoQGWMnyQPAh3k2jhWM@@}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_85hotwsCta0JfYIjI4Pb$}#)
- #((m_85hotwsCta0JfYIjI4Pb@
+ #(#{ g_hoQGWMnyQPAh3k2jhWM4B}#)
+ #((m_hoQGWMnyQPAh3k2jhWM4C
top))
- #("33j"))
+ #("33l"))
#(ribcage
#(x)
#((top))
- #("33i"))
+ #("33k"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("334"))
+ #("336"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("31m"
+ ("31o"
+ "31n"
+ "31m"
"31l"
"31k"
"31j"
- "31i"
- "31h"
- "31g")))
+ "31i")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4Pj9}#)))
- #{tmp _85hotwsCta0JfYIjI4Pj4}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PkA}#
+ #{tmp _hoQGWMnyQPAh3k2jhWNAA}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWM@7}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAD}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PjH}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#
'(#(atom "value") any))))
- (if #{tmp _85hotwsCta0JfYIjI4PkA}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNAD}#
(@apply
- (lambda (#{x _85hotwsCta0JfYIjI4PkE}#)
- #{x _85hotwsCta0JfYIjI4PkE}#)
- #{tmp _85hotwsCta0JfYIjI4PkA}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNAH}#)
+ #{x _hoQGWMnyQPAh3k2jhWNAH}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWNAD}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PjH}#))))))))))))))))))
- (lambda (#{x _85hotwsCta0JfYIjI4PcQ}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PcS}#
+ #{x _hoQGWMnyQPAh3k2jhWM@K}#))))))))))))))))))
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWM4T}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4V}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PcQ}#
+ #{x _hoQGWMnyQPAh3k2jhWM4T}#
'(_ any))))
- (if #{tmp _85hotwsCta0JfYIjI4PcS}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWM4V}#
(@apply
- (lambda (#{e _85hotwsCta0JfYIjI4PcW}#)
- (#{emit _85hotwsCta0JfYIjI4PcP}#
- (#{quasi _85hotwsCta0JfYIjI4PcJ}#
- #{e _85hotwsCta0JfYIjI4PcW}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWM4Z}#)
+ (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
+ (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
+ #{e _hoQGWMnyQPAh3k2jhWM4Z}#
0)))
- #{tmp _85hotwsCta0JfYIjI4PcS}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWM4V}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PcQ}#)))))))
+ #{x _hoQGWMnyQPAh3k2jhWM4T}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4Pkv}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNAy}#)
(letrec*
- ((#{read-file _85hotwsCta0JfYIjI4Pkw}#
- (lambda (#{fn _85hotwsCta0JfYIjI4Pmd}#
- #{k _85hotwsCta0JfYIjI4Pme}#)
- (let ((#{p _85hotwsCta0JfYIjI4Pmf}#
- (open-input-file #{fn _85hotwsCta0JfYIjI4Pmd}#)))
+ ((#{read-file _hoQGWMnyQPAh3k2jhWNAz}#
+ (lambda (#{fn _hoQGWMnyQPAh3k2jhWNCg}#
+ #{k _hoQGWMnyQPAh3k2jhWNCh}#)
+ (let ((#{p _hoQGWMnyQPAh3k2jhWNCi}#
+ (open-input-file #{fn _hoQGWMnyQPAh3k2jhWNCg}#)))
(letrec*
- ((#{f _85hotwsCta0JfYIjI4Pmg}#
- (lambda (#{x _85hotwsCta0JfYIjI4PnW}#
- #{result _85hotwsCta0JfYIjI4PnX}#)
- (if (eof-object? #{x _85hotwsCta0JfYIjI4PnW}#)
+ ((#{f _hoQGWMnyQPAh3k2jhWNCj}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNDZ}#
+ #{result _hoQGWMnyQPAh3k2jhWNDa}#)
+ (if (eof-object? #{x _hoQGWMnyQPAh3k2jhWNDZ}#)
(begin
- (close-input-port #{p _85hotwsCta0JfYIjI4Pmf}#)
- (reverse #{result _85hotwsCta0JfYIjI4PnX}#))
- (#{f _85hotwsCta0JfYIjI4Pmg}#
- (read #{p _85hotwsCta0JfYIjI4Pmf}#)
+ (close-input-port #{p _hoQGWMnyQPAh3k2jhWNCi}#)
+ (reverse #{result _hoQGWMnyQPAh3k2jhWNDa}#))
+ (#{f _hoQGWMnyQPAh3k2jhWNCj}#
+ (read #{p _hoQGWMnyQPAh3k2jhWNCi}#)
(cons (datum->syntax
- #{k _85hotwsCta0JfYIjI4Pme}#
- #{x _85hotwsCta0JfYIjI4PnW}#)
- #{result _85hotwsCta0JfYIjI4PnX}#))))))
- (#{f _85hotwsCta0JfYIjI4Pmg}#
- (read #{p _85hotwsCta0JfYIjI4Pmf}#)
+ #{k _hoQGWMnyQPAh3k2jhWNCh}#
+ #{x _hoQGWMnyQPAh3k2jhWNDZ}#)
+ #{result _hoQGWMnyQPAh3k2jhWNDa}#))))))
+ (#{f _hoQGWMnyQPAh3k2jhWNCj}#
+ (read #{p _hoQGWMnyQPAh3k2jhWNCi}#)
'()))))))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pky}#
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA1}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4Pkv}#
+ #{x _hoQGWMnyQPAh3k2jhWNAy}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pky}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNA1}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4Pk2}#
- #{filename _85hotwsCta0JfYIjI4Pk3}#)
- (let ((#{fn _85hotwsCta0JfYIjI4Pk4}#
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWNA5}#
+ #{filename _hoQGWMnyQPAh3k2jhWNA6}#)
+ (let ((#{fn _hoQGWMnyQPAh3k2jhWNA7}#
(syntax->datum
- #{filename _85hotwsCta0JfYIjI4Pk3}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pk5}#
- (#{read-file _85hotwsCta0JfYIjI4Pkw}#
- #{fn _85hotwsCta0JfYIjI4Pk4}#
- #{filename _85hotwsCta0JfYIjI4Pk3}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pk6}#
+ #{filename _hoQGWMnyQPAh3k2jhWNA6}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA8}#
+ (#{read-file _hoQGWMnyQPAh3k2jhWNAz}#
+ #{fn _hoQGWMnyQPAh3k2jhWNA7}#
+ #{filename _hoQGWMnyQPAh3k2jhWNA6}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA9}#
($sc-dispatch
- #{tmp _85hotwsCta0JfYIjI4Pk5}#
+ #{tmp _hoQGWMnyQPAh3k2jhWNA8}#
'each-any)))
- (if #{tmp _85hotwsCta0JfYIjI4Pk6}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNA9}#
(@apply
- (lambda (#{exp _85hotwsCta0JfYIjI4PlM}#)
+ (lambda (#{exp _hoQGWMnyQPAh3k2jhWNBP}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("33y"))
+ #(ribcage #(exp) #((top)) #("340"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("33x"))
+ #(ribcage #(fn) #((top)) #("33z"))
#(ribcage
#(k filename)
#((top) (top))
- #("33v" "33w"))
- #(ribcage (read-file) ((top)) ("33o"))
- #(ribcage #(x) #((top)) #("33n")))
+ #("33x" "33y"))
+ #(ribcage (read-file) ((top)) ("33q"))
+ #(ribcage #(x) #((top)) #("33p")))
(hygiene guile))
- #{exp _85hotwsCta0JfYIjI4PlM}#))
- #{tmp _85hotwsCta0JfYIjI4Pk6}#)
+ #{exp _hoQGWMnyQPAh3k2jhWNBP}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWNA9}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _85hotwsCta0JfYIjI4Pk5}#))))))
- #{tmp _85hotwsCta0JfYIjI4Pky}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWNA8}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWNA1}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4Pkv}#)))))))
+ #{x _hoQGWMnyQPAh3k2jhWNAy}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4Pnk}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pnm}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNDn}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDp}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4Pnk}#
+ #{x _hoQGWMnyQPAh3k2jhWNDn}#
'(any any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pnm}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNDp}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4Pnq}#
- #{filename _85hotwsCta0JfYIjI4Pnr}#)
- (let ((#{fn _85hotwsCta0JfYIjI4Pns}#
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWNDt}#
+ #{filename _hoQGWMnyQPAh3k2jhWNDu}#)
+ (let ((#{fn _hoQGWMnyQPAh3k2jhWNDv}#
(syntax->datum
- #{filename _85hotwsCta0JfYIjI4Pnr}#)))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pnt}#
+ #{filename _hoQGWMnyQPAh3k2jhWNDu}#)))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDw}#
(datum->syntax
- #{filename _85hotwsCta0JfYIjI4Pnr}#
- (let ((#{t _85hotwsCta0JfYIjI4Pnw}#
+ #{filename _hoQGWMnyQPAh3k2jhWNDu}#
+ (let ((#{t _hoQGWMnyQPAh3k2jhWNDz}#
(%search-load-path
- #{fn _85hotwsCta0JfYIjI4Pns}#)))
- (if #{t _85hotwsCta0JfYIjI4Pnw}#
- #{t _85hotwsCta0JfYIjI4Pnw}#
+ #{fn _hoQGWMnyQPAh3k2jhWNDv}#)))
+ (if #{t _hoQGWMnyQPAh3k2jhWNDz}#
+ #{t _hoQGWMnyQPAh3k2jhWNDz}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x _85hotwsCta0JfYIjI4Pnk}#
- #{filename _85hotwsCta0JfYIjI4Pnr}#))))))
+ #{x _hoQGWMnyQPAh3k2jhWNDn}#
+ #{filename _hoQGWMnyQPAh3k2jhWNDu}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("343"))
+ #(ribcage #(fn) #((top)) #("345"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("342"))
+ #(ribcage #(fn) #((top)) #("344"))
#(ribcage
#(k filename)
#((top) (top))
- #("340" "341"))
+ #("342" "343"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("33z")))
+ #(ribcage #(x) #((top)) #("341")))
(hygiene guile))
- #{tmp _85hotwsCta0JfYIjI4Pnt}#))))
- #{tmp _85hotwsCta0JfYIjI4Pnm}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWNDw}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWNDp}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4Pnk}#))))))
+ #{x _hoQGWMnyQPAh3k2jhWNDn}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4Pn4}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWND7}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x _85hotwsCta0JfYIjI4Pn4}#))))
+ #{x _hoQGWMnyQPAh3k2jhWND7}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4Pn6}#)
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWND9}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x _85hotwsCta0JfYIjI4Pn6}#))))
+ #{x _hoQGWMnyQPAh3k2jhWND9}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4Pof}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Poh}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNEi}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEk}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4Pof}#
+ #{x _hoQGWMnyQPAh3k2jhWNEi}#
'(_ any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Poh}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNEk}#
(@apply
- (lambda (#{e _85hotwsCta0JfYIjI4Pol}#
- #{m1 _85hotwsCta0JfYIjI4Pom}#
- #{m2 _85hotwsCta0JfYIjI4Pon}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Poo}#
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWNEo}#
+ #{m1 _hoQGWMnyQPAh3k2jhWNEp}#
+ #{m2 _hoQGWMnyQPAh3k2jhWNEq}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEr}#
(letrec*
- ((#{f _85hotwsCta0JfYIjI4PpS}#
- (lambda (#{clause _85hotwsCta0JfYIjI4PpV}#
- #{clauses _85hotwsCta0JfYIjI4PpW}#)
- (if (null? #{clauses _85hotwsCta0JfYIjI4PpW}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PpY}#
+ ((#{f _hoQGWMnyQPAh3k2jhWNFV}#
+ (lambda (#{clause _hoQGWMnyQPAh3k2jhWNFY}#
+ #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)
+ (if (null? #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFb}#
($sc-dispatch
- #{clause _85hotwsCta0JfYIjI4PpV}#
+ #{clause _hoQGWMnyQPAh3k2jhWNFY}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c" "34d" "34e"))
+ #("34e" "34f" "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348" "349" "34a"))
+ #("34a" "34b" "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PpY}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNFb}#
(@apply
- (lambda (#{e1 _85hotwsCta0JfYIjI4Ppc}#
- #{e2 _85hotwsCta0JfYIjI4Ppd}#)
+ (lambda (#{e1 _hoQGWMnyQPAh3k2jhWNFf}#
+ #{e2 _hoQGWMnyQPAh3k2jhWNFg}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("34f" "34g"))
+ #("34h" "34i"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c" "34d" "34e"))
+ #("34e" "34f" "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348" "349" "34a"))
+ #("34a" "34b" "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
- (cons #{e1 _85hotwsCta0JfYIjI4Ppc}#
- #{e2 _85hotwsCta0JfYIjI4Ppd}#)))
- #{tmp _85hotwsCta0JfYIjI4PpY}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Ppe}#
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWNFf}#
+ #{e2 _hoQGWMnyQPAh3k2jhWNFg}#)))
+ #{tmp _hoQGWMnyQPAh3k2jhWNFb}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFh}#
($sc-dispatch
- #{clause _85hotwsCta0JfYIjI4PpV}#
+ #{clause _hoQGWMnyQPAh3k2jhWNFY}#
'(each-any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Ppe}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNFh}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4Ppi}#
- #{e1 _85hotwsCta0JfYIjI4Ppj}#
- #{e2 _85hotwsCta0JfYIjI4Ppk}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWNFl}#
+ #{e1 _hoQGWMnyQPAh3k2jhWNFm}#
+ #{e2 _hoQGWMnyQPAh3k2jhWNFn}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34h" "34i" "34j"))
+ #("34j" "34k" "34l"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c" "34d" "34e"))
+ #("34e" "34f" "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348" "349" "34a"))
+ #("34a" "34b" "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("34h"
- "34i"
- "34j"))
+ #("34j"
+ "34k"
+ "34l"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("34h"
- "34i"
- "34j"))
+ #("34j"
+ "34k"
+ "34l"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("34h"
- "34i"
- "34j"))
+ #("34j"
+ "34k"
+ "34l"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene
guile))
- #{k _85hotwsCta0JfYIjI4Ppi}#))
+ #{k _hoQGWMnyQPAh3k2jhWNFl}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("34h"
- "34i"
- "34j"))
+ #("34j"
+ "34k"
+ "34l"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
- (cons #{e1 _85hotwsCta0JfYIjI4Ppj}#
- #{e2 _85hotwsCta0JfYIjI4Ppk}#))))
- #{tmp _85hotwsCta0JfYIjI4Ppe}#)
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWNFm}#
+ #{e2 _hoQGWMnyQPAh3k2jhWNFn}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWNFh}#)
(syntax-violation
'case
"bad clause"
- #{x _85hotwsCta0JfYIjI4Pof}#
- #{clause _85hotwsCta0JfYIjI4PpV}#)))))
- (let ((#{tmp _85hotwsCta0JfYIjI4Pps}#
- (#{f _85hotwsCta0JfYIjI4PpS}#
- (car #{clauses _85hotwsCta0JfYIjI4PpW}#)
- (cdr #{clauses _85hotwsCta0JfYIjI4PpW}#))))
- (let ((#{tmp _85hotwsCta0JfYIjI4Ppv}#
+ #{x _hoQGWMnyQPAh3k2jhWNEi}#
+ #{clause _hoQGWMnyQPAh3k2jhWNFY}#)))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFv}#
+ (#{f _hoQGWMnyQPAh3k2jhWNFV}#
+ (car #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)
+ (cdr #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#))))
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFy}#
($sc-dispatch
- #{clause _85hotwsCta0JfYIjI4PpV}#
+ #{clause _hoQGWMnyQPAh3k2jhWNFY}#
'(each-any any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4Ppv}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNFy}#
(@apply
- (lambda (#{k _85hotwsCta0JfYIjI4Ppz}#
- #{e1 _85hotwsCta0JfYIjI4Pp0}#
- #{e2 _85hotwsCta0JfYIjI4Pp1}#)
+ (lambda (#{k _hoQGWMnyQPAh3k2jhWNF2}#
+ #{e1 _hoQGWMnyQPAh3k2jhWNF3}#
+ #{e2 _hoQGWMnyQPAh3k2jhWNF4}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34m" "34n" "34o"))
+ #("34o" "34p" "34q"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34l"))
+ #("34n"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c" "34d" "34e"))
+ #("34e" "34f" "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348" "349" "34a"))
+ #("34a" "34b" "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
(list '#(syntax-object
memv
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34m"
- "34n"
- "34o"))
+ #("34o"
+ "34p"
+ "34q"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34l"))
+ #("34n"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
'#(syntax-object
t
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34m"
- "34n"
- "34o"))
+ #("34o"
+ "34p"
+ "34q"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34l"))
+ #("34n"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("34m"
- "34n"
- "34o"))
+ #("34o"
+ "34p"
+ "34q"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("34l"))
+ #("34n"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
- #{k _85hotwsCta0JfYIjI4Ppz}#))
+ #{k _hoQGWMnyQPAh3k2jhWNF2}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34m"
- "34n"
- "34o"))
+ #("34o"
+ "34p"
+ "34q"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34l"))
+ #("34n"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34c"
- "34d"
- "34e"))
+ #("34e"
+ "34f"
+ "34g"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348"
- "349"
- "34a"))
+ #("34a"
+ "34b"
+ "34c"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("347")))
+ #("349")))
(hygiene guile))
- (cons #{e1 _85hotwsCta0JfYIjI4Pp0}#
- #{e2 _85hotwsCta0JfYIjI4Pp1}#))
- #{tmp _85hotwsCta0JfYIjI4Pps}#))
- #{tmp _85hotwsCta0JfYIjI4Ppv}#)
+ (cons #{e1 _hoQGWMnyQPAh3k2jhWNF3}#
+ #{e2 _hoQGWMnyQPAh3k2jhWNF4}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWNFv}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWNFy}#)
(syntax-violation
'case
"bad clause"
- #{x _85hotwsCta0JfYIjI4Pof}#
- #{clause _85hotwsCta0JfYIjI4PpV}#))))))))
- (#{f _85hotwsCta0JfYIjI4PpS}#
- #{m1 _85hotwsCta0JfYIjI4Pom}#
- #{m2 _85hotwsCta0JfYIjI4Pon}#))))
- (let ((#{body _85hotwsCta0JfYIjI4Pop}#
- #{tmp _85hotwsCta0JfYIjI4Poo}#))
+ #{x _hoQGWMnyQPAh3k2jhWNEi}#
+ #{clause _hoQGWMnyQPAh3k2jhWNFY}#))))))))
+ (#{f _hoQGWMnyQPAh3k2jhWNFV}#
+ #{m1 _hoQGWMnyQPAh3k2jhWNEp}#
+ #{m2 _hoQGWMnyQPAh3k2jhWNEq}#))))
+ (let ((#{body _hoQGWMnyQPAh3k2jhWNEs}#
+ #{tmp _hoQGWMnyQPAh3k2jhWNEr}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("34b"))
+ #(ribcage #(body) #((top)) #("34d"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348" "349" "34a"))
+ #("34a" "34b" "34c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("347")))
+ #(ribcage #(x) #((top)) #("349")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("34b"))
+ #(ribcage #(body) #((top)) #("34d"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("348" "349" "34a"))
+ #("34a" "34b" "34c"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("347")))
+ #(ribcage #(x) #((top)) #("349")))
(hygiene guile))
- #{e _85hotwsCta0JfYIjI4Pol}#))
- #{body _85hotwsCta0JfYIjI4Pop}#))))
- #{tmp _85hotwsCta0JfYIjI4Poh}#)
+ #{e _hoQGWMnyQPAh3k2jhWNEo}#))
+ #{body _hoQGWMnyQPAh3k2jhWNEs}#))))
+ #{tmp _hoQGWMnyQPAh3k2jhWNEk}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4Pof}#))))))
+ #{x _hoQGWMnyQPAh3k2jhWNEi}#))))))
(define make-variable-transformer
- (lambda (#{proc _85hotwsCta0JfYIjI4PqE}#)
- (if (procedure? #{proc _85hotwsCta0JfYIjI4PqE}#)
+ (lambda (#{proc _hoQGWMnyQPAh3k2jhWNGH}#)
+ (if (procedure? #{proc _hoQGWMnyQPAh3k2jhWNGH}#)
(letrec*
- ((#{trans _85hotwsCta0JfYIjI4PqF}#
- (lambda (#{x _85hotwsCta0JfYIjI4PqL}#)
- (#{proc _85hotwsCta0JfYIjI4PqE}#
- #{x _85hotwsCta0JfYIjI4PqL}#))))
+ ((#{trans _hoQGWMnyQPAh3k2jhWNGI}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNGO}#)
+ (#{proc _hoQGWMnyQPAh3k2jhWNGH}#
+ #{x _hoQGWMnyQPAh3k2jhWNGO}#))))
(begin
(set-procedure-property!
- #{trans _85hotwsCta0JfYIjI4PqF}#
+ #{trans _hoQGWMnyQPAh3k2jhWNGI}#
'variable-transformer
#t)
- #{trans _85hotwsCta0JfYIjI4PqF}#))
+ #{trans _hoQGWMnyQPAh3k2jhWNGI}#))
(error "variable transformer not a procedure"
- #{proc _85hotwsCta0JfYIjI4PqE}#))))
+ #{proc _hoQGWMnyQPAh3k2jhWNGH}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4Pqf}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pqh}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNGi}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGk}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4Pqf}#
+ #{x _hoQGWMnyQPAh3k2jhWNGi}#
'(_ any))))
- (if #{tmp _85hotwsCta0JfYIjI4Pqh}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNGk}#
(@apply
- (lambda (#{e _85hotwsCta0JfYIjI4Pql}#)
+ (lambda (#{e _hoQGWMnyQPAh3k2jhWNGo}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
- #{e _85hotwsCta0JfYIjI4Pql}#))
+ #{e _hoQGWMnyQPAh3k2jhWNGo}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("34u"))
+ #(ribcage #(e) #((top)) #("34w"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
- (cons #{e _85hotwsCta0JfYIjI4Pql}#
+ (cons #{e _hoQGWMnyQPAh3k2jhWNGo}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("34u"))
+ #("34w"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(e)
#((top))
- #("34u"))
+ #("34w"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile)))))))))
- #{tmp _85hotwsCta0JfYIjI4Pqh}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4Pqm}#
+ #{tmp _hoQGWMnyQPAh3k2jhWNGk}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGp}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4Pqf}#
+ #{x _hoQGWMnyQPAh3k2jhWNGi}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp _85hotwsCta0JfYIjI4Pqm}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWNGp}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4Pqq}#
- #{exp1 _85hotwsCta0JfYIjI4Pqr}#
- #{var _85hotwsCta0JfYIjI4Pqs}#
- #{val _85hotwsCta0JfYIjI4Pqt}#
- #{exp2 _85hotwsCta0JfYIjI4Pqu}#)
- (if (identifier? #{id _85hotwsCta0JfYIjI4Pqq}#)
- (identifier? #{var _85hotwsCta0JfYIjI4Pqs}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWNGt}#
+ #{exp1 _hoQGWMnyQPAh3k2jhWNGu}#
+ #{var _hoQGWMnyQPAh3k2jhWNGv}#
+ #{val _hoQGWMnyQPAh3k2jhWNGw}#
+ #{exp2 _hoQGWMnyQPAh3k2jhWNGx}#)
+ (if (identifier? #{id _hoQGWMnyQPAh3k2jhWNGt}#)
+ (identifier? #{var _hoQGWMnyQPAh3k2jhWNGv}#)
#f))
- #{tmp _85hotwsCta0JfYIjI4Pqm}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWNGp}#)
#f)
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4Pqv}#
- #{exp1 _85hotwsCta0JfYIjI4Pqw}#
- #{var _85hotwsCta0JfYIjI4Pqx}#
- #{val _85hotwsCta0JfYIjI4Pqy}#
- #{exp2 _85hotwsCta0JfYIjI4Pqz}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWNGy}#
+ #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#
+ #{var _hoQGWMnyQPAh3k2jhWNG0}#
+ #{val _hoQGWMnyQPAh3k2jhWNG1}#
+ #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile))
'(#(syntax-object
set!
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("350" "351" "352" "353" "354"))
+ #("352" "353" "354" "355" "356"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34t")))
+ #(ribcage #(x) #((top)) #("34v")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
- #{var _85hotwsCta0JfYIjI4Pqx}#
- #{val _85hotwsCta0JfYIjI4Pqy}#)
+ #{var _hoQGWMnyQPAh3k2jhWNG0}#
+ #{val _hoQGWMnyQPAh3k2jhWNG1}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
- #{exp2 _85hotwsCta0JfYIjI4Pqz}#))
- (list (cons #{id _85hotwsCta0JfYIjI4Pqv}#
+ #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#))
+ (list (cons #{id _hoQGWMnyQPAh3k2jhWNGy}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
- (cons #{exp1 _85hotwsCta0JfYIjI4Pqw}#
+ (cons #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))))))
- (list #{id _85hotwsCta0JfYIjI4Pqv}#
+ (list #{id _hoQGWMnyQPAh3k2jhWNGy}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
- #{id _85hotwsCta0JfYIjI4Pqv}#))
+ #{id _hoQGWMnyQPAh3k2jhWNGy}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("350"
- "351"
- "352"
+ #("352"
"353"
- "354"))
+ "354"
+ "355"
+ "356"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34t")))
+ #("34v")))
(hygiene guile))
- #{exp1 _85hotwsCta0JfYIjI4Pqw}#))))))
- #{tmp _85hotwsCta0JfYIjI4Pqm}#)
+ #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#))))))
+ #{tmp _hoQGWMnyQPAh3k2jhWNGp}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4Pqf}#))))))))
+ #{x _hoQGWMnyQPAh3k2jhWNGi}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x _85hotwsCta0JfYIjI4PrK}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PrM}#
+ (lambda (#{x _hoQGWMnyQPAh3k2jhWNHN}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHP}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PrK}#
+ #{x _hoQGWMnyQPAh3k2jhWNHN}#
'(_ (any . any) any . each-any))))
- (if #{tmp _85hotwsCta0JfYIjI4PrM}#
+ (if #{tmp _hoQGWMnyQPAh3k2jhWNHP}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4PrQ}#
- #{args _85hotwsCta0JfYIjI4PrR}#
- #{b0 _85hotwsCta0JfYIjI4PrS}#
- #{b1 _85hotwsCta0JfYIjI4PrT}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWNHT}#
+ #{args _hoQGWMnyQPAh3k2jhWNHU}#
+ #{b0 _hoQGWMnyQPAh3k2jhWNHV}#
+ #{b1 _hoQGWMnyQPAh3k2jhWNHW}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("356" "357" "358" "359"))
+ #("358" "359" "35a" "35b"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("355")))
+ #(ribcage #(x) #((top)) #("357")))
(hygiene guile))
- #{id _85hotwsCta0JfYIjI4PrQ}#
+ #{id _hoQGWMnyQPAh3k2jhWNHT}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("356" "357" "358" "359"))
+ #("358" "359" "35a" "35b"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("355")))
+ #(ribcage #(x) #((top)) #("357")))
(hygiene guile))
- (cons #{args _85hotwsCta0JfYIjI4PrR}#
- (cons #{b0 _85hotwsCta0JfYIjI4PrS}#
- #{b1 _85hotwsCta0JfYIjI4PrT}#)))))
- #{tmp _85hotwsCta0JfYIjI4PrM}#)
- (let ((#{tmp _85hotwsCta0JfYIjI4PrU}#
+ (cons #{args _hoQGWMnyQPAh3k2jhWNHU}#
+ (cons #{b0 _hoQGWMnyQPAh3k2jhWNHV}#
+ #{b1 _hoQGWMnyQPAh3k2jhWNHW}#)))))
+ #{tmp _hoQGWMnyQPAh3k2jhWNHP}#)
+ (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHX}#
($sc-dispatch
- #{x _85hotwsCta0JfYIjI4PrK}#
+ #{x _hoQGWMnyQPAh3k2jhWNHN}#
'(_ any any))))
- (if (if #{tmp _85hotwsCta0JfYIjI4PrU}#
+ (if (if #{tmp _hoQGWMnyQPAh3k2jhWNHX}#
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4PrY}#
- #{val _85hotwsCta0JfYIjI4PrZ}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWNHb}#
+ #{val _hoQGWMnyQPAh3k2jhWNHc}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(id val)
#((top) (top))
- #("35a" "35b"))
+ #("35c" "35d"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("355")))
+ #(ribcage #(x) #((top)) #("357")))
(hygiene guile))))
- #{tmp _85hotwsCta0JfYIjI4PrU}#)
+ #{tmp _hoQGWMnyQPAh3k2jhWNHX}#)
#f)
(@apply
- (lambda (#{id _85hotwsCta0JfYIjI4Pra}#
- #{val _85hotwsCta0JfYIjI4Prb}#)
+ (lambda (#{id _hoQGWMnyQPAh3k2jhWNHd}#
+ #{val _hoQGWMnyQPAh3k2jhWNHe}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("35c" "35d"))
+ #("35e" "35f"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("355")))
+ #(ribcage #(x) #((top)) #("357")))
(hygiene guile))
- #{id _85hotwsCta0JfYIjI4Pra}#
- #{val _85hotwsCta0JfYIjI4Prb}#))
- #{tmp _85hotwsCta0JfYIjI4PrU}#)
+ #{id _hoQGWMnyQPAh3k2jhWNHd}#
+ #{val _hoQGWMnyQPAh3k2jhWNHe}#))
+ #{tmp _hoQGWMnyQPAh3k2jhWNHX}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _85hotwsCta0JfYIjI4PrK}#))))))))
+ #{x _hoQGWMnyQPAh3k2jhWNHN}#))))))))
HCoop / bpt / guile.git / commitdiff