- (lambda (#{x\ 2351}#)
- (if (#{syntax-object?\ 346}# #{x\ 2351}#)
- (#{source-annotation\ 361}#
- (#{syntax-object-expression\ 348}# #{x\ 2351}#))
- (if (pair? #{x\ 2351}#)
- (let ((#{props\ 2358}# (source-properties #{x\ 2351}#)))
- (if (pair? #{props\ 2358}#) #{props\ 2358}# #f))
- #f))))
- (#{set-syntax-object-module!\ 358}#
- (lambda (#{x\ 2360}# #{update\ 2361}#)
- (vector-set! #{x\ 2360}# 3 #{update\ 2361}#)))
- (#{set-syntax-object-wrap!\ 356}#
- (lambda (#{x\ 2364}# #{update\ 2365}#)
- (vector-set! #{x\ 2364}# 2 #{update\ 2365}#)))
- (#{set-syntax-object-expression!\ 354}#
- (lambda (#{x\ 2368}# #{update\ 2369}#)
- (vector-set! #{x\ 2368}# 1 #{update\ 2369}#)))
- (#{syntax-object-module\ 352}#
- (lambda (#{x\ 2372}#) (vector-ref #{x\ 2372}# 3)))
- (#{syntax-object-wrap\ 350}#
- (lambda (#{x\ 2374}#) (vector-ref #{x\ 2374}# 2)))
- (#{syntax-object-expression\ 348}#
- (lambda (#{x\ 2376}#) (vector-ref #{x\ 2376}# 1)))
- (#{syntax-object?\ 346}#
- (lambda (#{x\ 2378}#)
- (if (vector? #{x\ 2378}#)
- (if (= (vector-length #{x\ 2378}#) 4)
- (eq? (vector-ref #{x\ 2378}# 0)
- 'syntax-object)
- #f)
- #f)))
- (#{make-syntax-object\ 344}#
- (lambda (#{expression\ 2383}#
- #{wrap\ 2384}#
- #{module\ 2385}#)
- (vector
- 'syntax-object
- #{expression\ 2383}#
- #{wrap\ 2384}#
- #{module\ 2385}#)))
- (#{build-letrec\ 340}#
- (lambda (#{src\ 2389}#
- #{in-order?\ 2390}#
- #{ids\ 2391}#
- #{vars\ 2392}#
- #{val-exps\ 2393}#
- #{body-exp\ 2394}#)
- (if (null? #{vars\ 2392}#)
- #{body-exp\ 2394}#
- (begin
- (for-each
- #{maybe-name-value!\ 320}#
- #{ids\ 2391}#
- #{val-exps\ 2393}#)
- (#{make-letrec\ 272}#
- #{src\ 2389}#
- #{in-order?\ 2390}#
- #{ids\ 2391}#
- #{vars\ 2392}#
- #{val-exps\ 2393}#
- #{body-exp\ 2394}#)))))
- (#{build-named-let\ 338}#
- (lambda (#{src\ 2401}#
- #{ids\ 2402}#
- #{vars\ 2403}#
- #{val-exps\ 2404}#
- #{body-exp\ 2405}#)
- (let ((#{f\ 2415}# (car #{vars\ 2403}#))
- (#{f-name\ 2416}# (car #{ids\ 2402}#))
- (#{vars\ 2417}# (cdr #{vars\ 2403}#))
- (#{ids\ 2418}# (cdr #{ids\ 2402}#)))
- (let ((#{proc\ 2420}#
- (#{build-simple-lambda\ 324}#
- #{src\ 2401}#
- #{ids\ 2418}#
- #f
- #{vars\ 2417}#
- '()
- #{body-exp\ 2405}#)))
- (begin
- (#{maybe-name-value!\ 320}#
- #{f-name\ 2416}#
- #{proc\ 2420}#)
- (for-each
- #{maybe-name-value!\ 320}#
- #{ids\ 2418}#
- #{val-exps\ 2404}#)
- (#{make-letrec\ 272}#
- #{src\ 2401}#
- #f
- (list #{f-name\ 2416}#)
- (list #{f\ 2415}#)
- (list #{proc\ 2420}#)
- (#{build-application\ 304}#
- #{src\ 2401}#
- (#{build-lexical-reference\ 310}#
- 'fun
- #{src\ 2401}#
- #{f-name\ 2416}#
- #{f\ 2415}#)
- #{val-exps\ 2404}#)))))))
- (#{build-let\ 336}#
- (lambda (#{src\ 2421}#
- #{ids\ 2422}#
- #{vars\ 2423}#
- #{val-exps\ 2424}#
- #{body-exp\ 2425}#)
- (begin
- (for-each
- #{maybe-name-value!\ 320}#
- #{ids\ 2422}#
- #{val-exps\ 2424}#)
- (if (null? #{vars\ 2423}#)
- #{body-exp\ 2425}#
- (#{make-let\ 270}#
- #{src\ 2421}#
- #{ids\ 2422}#
- #{vars\ 2423}#
- #{val-exps\ 2424}#
- #{body-exp\ 2425}#)))))
- (#{build-sequence\ 334}#
- (lambda (#{src\ 2431}# #{exps\ 2432}#)
- (if (null? (cdr #{exps\ 2432}#))
- (car #{exps\ 2432}#)
- (#{make-sequence\ 264}#
- #{src\ 2431}#
- #{exps\ 2432}#))))
- (#{build-data\ 332}#
- (lambda (#{src\ 2435}# #{exp\ 2436}#)
- (#{make-const\ 242}# #{src\ 2435}# #{exp\ 2436}#)))
- (#{build-primref\ 330}#
- (lambda (#{src\ 2439}# #{name\ 2440}#)
- (if (equal?
- (module-name (current-module))
- '(guile))
- (#{make-toplevel-ref\ 254}#
- #{src\ 2439}#
- #{name\ 2440}#)
- (#{make-module-ref\ 250}#
- #{src\ 2439}#
- '(guile)
- #{name\ 2440}#
- #f))))
- (#{build-lambda-case\ 328}#
- (lambda (#{src\ 2443}#
- #{req\ 2444}#
- #{opt\ 2445}#
- #{rest\ 2446}#
- #{kw\ 2447}#
- #{inits\ 2448}#
- #{vars\ 2449}#
- #{body\ 2450}#
- #{else-case\ 2451}#)
- (#{make-lambda-case\ 268}#
- #{src\ 2443}#
- #{req\ 2444}#
- #{opt\ 2445}#
- #{rest\ 2446}#
- #{kw\ 2447}#
- #{inits\ 2448}#
- #{vars\ 2449}#
- #{body\ 2450}#
- #{else-case\ 2451}#)))
- (#{build-case-lambda\ 326}#
- (lambda (#{src\ 2461}# #{meta\ 2462}# #{body\ 2463}#)
- (#{make-lambda\ 266}#
- #{src\ 2461}#
- #{meta\ 2462}#
- #{body\ 2463}#)))
- (#{build-simple-lambda\ 324}#
- (lambda (#{src\ 2467}#
- #{req\ 2468}#
- #{rest\ 2469}#
- #{vars\ 2470}#
- #{meta\ 2471}#
- #{exp\ 2472}#)
- (#{make-lambda\ 266}#
- #{src\ 2467}#
- #{meta\ 2471}#
- (#{make-lambda-case\ 268}#
- #{src\ 2467}#
- #{req\ 2468}#
- #f
- #{rest\ 2469}#
- #f
- '()
- #{vars\ 2470}#
- #{exp\ 2472}#
- #f))))
- (#{build-global-definition\ 322}#
- (lambda (#{source\ 2479}# #{var\ 2480}# #{exp\ 2481}#)
- (begin
- (#{maybe-name-value!\ 320}#
- #{var\ 2480}#
- #{exp\ 2481}#)
- (#{make-toplevel-define\ 258}#
- #{source\ 2479}#
- #{var\ 2480}#
- #{exp\ 2481}#))))
- (#{maybe-name-value!\ 320}#
- (lambda (#{name\ 2485}# #{val\ 2486}#)
- (if (#{lambda?\ 277}# #{val\ 2486}#)
- (let ((#{meta\ 2490}#
- (#{lambda-meta\ 279}# #{val\ 2486}#)))
- (if (not (assq (quote name) #{meta\ 2490}#))
- (#{set-lambda-meta!\ 281}#
- #{val\ 2486}#
- (acons 'name
- #{name\ 2485}#
- #{meta\ 2490}#)))))))
- (#{build-global-assignment\ 318}#
- (lambda (#{source\ 2491}#
- #{var\ 2492}#
- #{exp\ 2493}#
- #{mod\ 2494}#)
- (#{analyze-variable\ 314}#
- #{mod\ 2494}#
- #{var\ 2492}#
- (lambda (#{mod\ 2499}# #{var\ 2500}# #{public?\ 2501}#)
- (#{make-module-set\ 252}#
- #{source\ 2491}#
- #{mod\ 2499}#
- #{var\ 2500}#
- #{public?\ 2501}#
- #{exp\ 2493}#))
- (lambda (#{var\ 2505}#)
- (#{make-toplevel-set\ 256}#
- #{source\ 2491}#
- #{var\ 2505}#
- #{exp\ 2493}#)))))
- (#{build-global-reference\ 316}#
- (lambda (#{source\ 2507}# #{var\ 2508}# #{mod\ 2509}#)
- (#{analyze-variable\ 314}#
- #{mod\ 2509}#
- #{var\ 2508}#
- (lambda (#{mod\ 2513}# #{var\ 2514}# #{public?\ 2515}#)
- (#{make-module-ref\ 250}#
- #{source\ 2507}#
- #{mod\ 2513}#
- #{var\ 2514}#
- #{public?\ 2515}#))
- (lambda (#{var\ 2519}#)
- (#{make-toplevel-ref\ 254}#
- #{source\ 2507}#
- #{var\ 2519}#)))))
- (#{analyze-variable\ 314}#
- (lambda (#{mod\ 2521}#
- #{var\ 2522}#
- #{modref-cont\ 2523}#
- #{bare-cont\ 2524}#)
- (if (not #{mod\ 2521}#)
- (#{bare-cont\ 2524}# #{var\ 2522}#)
- (let ((#{kind\ 2531}# (car #{mod\ 2521}#))
- (#{mod\ 2532}# (cdr #{mod\ 2521}#)))
- (if (memv #{kind\ 2531}# (quote (public)))
- (#{modref-cont\ 2523}#
- #{mod\ 2532}#
- #{var\ 2522}#
- #t)
- (if (memv #{kind\ 2531}# (quote (private)))
- (if (not (equal?
- #{mod\ 2532}#
- (module-name (current-module))))
- (#{modref-cont\ 2523}#
- #{mod\ 2532}#
- #{var\ 2522}#
- #f)
- (#{bare-cont\ 2524}# #{var\ 2522}#))
- (if (memv #{kind\ 2531}# (quote (bare)))
- (#{bare-cont\ 2524}# #{var\ 2522}#)
- (if (memv #{kind\ 2531}# (quote (hygiene)))
- (if (if (not (equal?
- #{mod\ 2532}#
- (module-name (current-module))))
- (module-variable
- (resolve-module #{mod\ 2532}#)
- #{var\ 2522}#)
- #f)
- (#{modref-cont\ 2523}#
- #{mod\ 2532}#
- #{var\ 2522}#
- #f)
- (#{bare-cont\ 2524}# #{var\ 2522}#))
- (syntax-violation
- #f
- "bad module kind"
- #{var\ 2522}#
- #{mod\ 2532}#)))))))))
- (#{build-lexical-assignment\ 312}#
- (lambda (#{source\ 2540}#
- #{name\ 2541}#
- #{var\ 2542}#
- #{exp\ 2543}#)
- (#{make-lexical-set\ 248}#
- #{source\ 2540}#
- #{name\ 2541}#
- #{var\ 2542}#
- #{exp\ 2543}#)))
- (#{build-lexical-reference\ 310}#
- (lambda (#{type\ 2548}#
- #{source\ 2549}#
- #{name\ 2550}#
- #{var\ 2551}#)
- (#{make-lexical-ref\ 246}#
- #{source\ 2549}#
- #{name\ 2550}#
- #{var\ 2551}#)))
- (#{build-dynlet\ 308}#
- (lambda (#{source\ 2556}#
- #{fluids\ 2557}#
- #{vals\ 2558}#
- #{body\ 2559}#)
- (#{make-dynlet\ 274}#
- #{source\ 2556}#
- #{fluids\ 2557}#
- #{vals\ 2558}#
- #{body\ 2559}#)))
- (#{build-conditional\ 306}#
- (lambda (#{source\ 2564}#
- #{test-exp\ 2565}#
- #{then-exp\ 2566}#
- #{else-exp\ 2567}#)
- (#{make-conditional\ 260}#
- #{source\ 2564}#
- #{test-exp\ 2565}#
- #{then-exp\ 2566}#
- #{else-exp\ 2567}#)))
- (#{build-application\ 304}#
- (lambda (#{source\ 2572}#
- #{fun-exp\ 2573}#
- #{arg-exps\ 2574}#)
- (#{make-application\ 262}#
- #{source\ 2572}#
- #{fun-exp\ 2573}#
- #{arg-exps\ 2574}#)))
- (#{build-void\ 302}#
- (lambda (#{source\ 2578}#)
- (#{make-void\ 240}# #{source\ 2578}#)))
- (#{decorate-source\ 300}#
- (lambda (#{e\ 2580}# #{s\ 2581}#)
- (begin
- (if (if (pair? #{e\ 2580}#) #{s\ 2581}# #f)
- (set-source-properties! #{e\ 2580}# #{s\ 2581}#))
- #{e\ 2580}#)))
- (#{get-global-definition-hook\ 298}#
- (lambda (#{symbol\ 2586}# #{module\ 2587}#)
- (begin
- (if (if (not #{module\ 2587}#) (current-module) #f)
- (warn "module system is booted, we should have a module"
- #{symbol\ 2586}#))
- (let ((#{v\ 2593}#
- (module-variable
- (if #{module\ 2587}#
- (resolve-module (cdr #{module\ 2587}#))
- (current-module))
- #{symbol\ 2586}#)))
- (if #{v\ 2593}#
- (if (variable-bound? #{v\ 2593}#)
- (let ((#{val\ 2598}# (variable-ref #{v\ 2593}#)))
- (if (macro? #{val\ 2598}#)
- (if (macro-type #{val\ 2598}#)
- (cons (macro-type #{val\ 2598}#)
- (macro-binding #{val\ 2598}#))
- #f)
- #f))
- #f)
- #f)))))
- (#{put-global-definition-hook\ 296}#
- (lambda (#{symbol\ 2602}# #{type\ 2603}# #{val\ 2604}#)
- (module-define!
- (current-module)
- #{symbol\ 2602}#
- (make-syntax-transformer
- #{symbol\ 2602}#
- #{type\ 2603}#
- #{val\ 2604}#))))
- (#{local-eval-hook\ 293}#
- (lambda (#{x\ 2608}# #{mod\ 2609}#)
- (primitive-eval #{x\ 2608}#)))
- (#{top-level-eval-hook\ 291}#
- (lambda (#{x\ 2612}# #{mod\ 2613}#)
- (primitive-eval #{x\ 2612}#)))
- (#{fx<\ 289}# <)
- (#{fx=\ 287}# =)
- (#{fx-\ 285}# -)
- (#{fx+\ 283}# +)
- (#{set-lambda-meta!\ 281}#
- (lambda (#{x\ 2616}# #{v\ 2617}#)
- (struct-set! #{x\ 2616}# 1 #{v\ 2617}#)))
- (#{lambda-meta\ 279}#
- (lambda (#{x\ 2620}#) (struct-ref #{x\ 2620}# 1)))
- (#{lambda?\ 277}#
- (lambda (#{x\ 2622}#)
- (if (struct? #{x\ 2622}#)
- (eq? (struct-vtable #{x\ 2622}#)
- (vector-ref %expanded-vtables 13))
- #f)))
- (#{make-dynlet\ 274}#
- (lambda (#{src\ 2626}#
- #{fluids\ 2627}#
- #{vals\ 2628}#
- #{body\ 2629}#)
- (make-struct
- (vector-ref %expanded-vtables 17)
- 0
- #{src\ 2626}#
- #{fluids\ 2627}#
- #{vals\ 2628}#
- #{body\ 2629}#)))
- (#{make-letrec\ 272}#
- (lambda (#{src\ 2634}#
- #{in-order?\ 2635}#
- #{names\ 2636}#
- #{gensyms\ 2637}#
- #{vals\ 2638}#
- #{body\ 2639}#)
- (make-struct
- (vector-ref %expanded-vtables 16)
- 0
- #{src\ 2634}#
- #{in-order?\ 2635}#
- #{names\ 2636}#
- #{gensyms\ 2637}#
- #{vals\ 2638}#
- #{body\ 2639}#)))
- (#{make-let\ 270}#
- (lambda (#{src\ 2646}#
- #{names\ 2647}#
- #{gensyms\ 2648}#
- #{vals\ 2649}#
- #{body\ 2650}#)
- (make-struct
- (vector-ref %expanded-vtables 15)
- 0
- #{src\ 2646}#
- #{names\ 2647}#
- #{gensyms\ 2648}#
- #{vals\ 2649}#
- #{body\ 2650}#)))
- (#{make-lambda-case\ 268}#
- (lambda (#{src\ 2656}#
- #{req\ 2657}#
- #{opt\ 2658}#
- #{rest\ 2659}#
- #{kw\ 2660}#
- #{inits\ 2661}#
- #{gensyms\ 2662}#
- #{body\ 2663}#
- #{alternate\ 2664}#)
- (make-struct
- (vector-ref %expanded-vtables 14)
- 0
- #{src\ 2656}#
- #{req\ 2657}#
- #{opt\ 2658}#
- #{rest\ 2659}#
- #{kw\ 2660}#
- #{inits\ 2661}#
- #{gensyms\ 2662}#
- #{body\ 2663}#
- #{alternate\ 2664}#)))
- (#{make-lambda\ 266}#
- (lambda (#{src\ 2674}# #{meta\ 2675}# #{body\ 2676}#)
- (make-struct
- (vector-ref %expanded-vtables 13)
- 0
- #{src\ 2674}#
- #{meta\ 2675}#
- #{body\ 2676}#)))
+ (#{syntax-object-expression\ 348}# #{x\ 2351}#))
+ (if (pair? #{x\ 2351}#)
+ (let ((#{props\ 2358}# (source-properties #{x\ 2351}#)))
+ (if (pair? #{props\ 2358}#) #{props\ 2358}# #f))
+ #f))))
+ (#{set-syntax-object-module!\ 358}#
+ (lambda (#{x\ 2360}# #{update\ 2361}#)
+ (vector-set! #{x\ 2360}# 3 #{update\ 2361}#)))
+ (#{set-syntax-object-wrap!\ 356}#
+ (lambda (#{x\ 2364}# #{update\ 2365}#)
+ (vector-set! #{x\ 2364}# 2 #{update\ 2365}#)))
+ (#{set-syntax-object-expression!\ 354}#
+ (lambda (#{x\ 2368}# #{update\ 2369}#)
+ (vector-set! #{x\ 2368}# 1 #{update\ 2369}#)))
+ (#{syntax-object-module\ 352}#
+ (lambda (#{x\ 2372}#) (vector-ref #{x\ 2372}# 3)))
+ (#{syntax-object-wrap\ 350}#
+ (lambda (#{x\ 2374}#) (vector-ref #{x\ 2374}# 2)))
+ (#{syntax-object-expression\ 348}#
+ (lambda (#{x\ 2376}#) (vector-ref #{x\ 2376}# 1)))
+ (#{syntax-object?\ 346}#
+ (lambda (#{x\ 2378}#)
+ (if (vector? #{x\ 2378}#)
+ (if (= (vector-length #{x\ 2378}#) 4)
+ (eq? (vector-ref #{x\ 2378}# 0)
+ 'syntax-object)
+ #f)
+ #f)))
+ (#{make-syntax-object\ 344}#
+ (lambda (#{expression\ 2383}#
+ #{wrap\ 2384}#
+ #{module\ 2385}#)
+ (vector
+ 'syntax-object
+ #{expression\ 2383}#
+ #{wrap\ 2384}#
+ #{module\ 2385}#)))
+ (#{build-letrec\ 340}#
+ (lambda (#{src\ 2389}#
+ #{in-order?\ 2390}#
+ #{ids\ 2391}#
+ #{vars\ 2392}#
+ #{val-exps\ 2393}#
+ #{body-exp\ 2394}#)
+ (if (null? #{vars\ 2392}#)
+ #{body-exp\ 2394}#
+ (begin
+ (for-each
+ #{maybe-name-value!\ 320}#
+ #{ids\ 2391}#
+ #{val-exps\ 2393}#)
+ (#{make-letrec\ 272}#
+ #{src\ 2389}#
+ #{in-order?\ 2390}#
+ #{ids\ 2391}#
+ #{vars\ 2392}#
+ #{val-exps\ 2393}#
+ #{body-exp\ 2394}#)))))
+ (#{build-named-let\ 338}#
+ (lambda (#{src\ 2401}#
+ #{ids\ 2402}#
+ #{vars\ 2403}#
+ #{val-exps\ 2404}#
+ #{body-exp\ 2405}#)
+ (let ((#{f\ 2415}# (car #{vars\ 2403}#))
+ (#{f-name\ 2416}# (car #{ids\ 2402}#))
+ (#{vars\ 2417}# (cdr #{vars\ 2403}#))
+ (#{ids\ 2418}# (cdr #{ids\ 2402}#)))
+ (let ((#{proc\ 2420}#
+ (#{build-simple-lambda\ 324}#
+ #{src\ 2401}#
+ #{ids\ 2418}#
+ #f
+ #{vars\ 2417}#
+ '()
+ #{body-exp\ 2405}#)))
+ (begin
+ (#{maybe-name-value!\ 320}#
+ #{f-name\ 2416}#
+ #{proc\ 2420}#)
+ (for-each
+ #{maybe-name-value!\ 320}#
+ #{ids\ 2418}#
+ #{val-exps\ 2404}#)
+ (#{make-letrec\ 272}#
+ #{src\ 2401}#
+ #f
+ (list #{f-name\ 2416}#)
+ (list #{f\ 2415}#)
+ (list #{proc\ 2420}#)
+ (#{build-application\ 304}#
+ #{src\ 2401}#
+ (#{build-lexical-reference\ 310}#
+ 'fun
+ #{src\ 2401}#
+ #{f-name\ 2416}#
+ #{f\ 2415}#)
+ #{val-exps\ 2404}#)))))))
+ (#{build-let\ 336}#
+ (lambda (#{src\ 2421}#
+ #{ids\ 2422}#
+ #{vars\ 2423}#
+ #{val-exps\ 2424}#
+ #{body-exp\ 2425}#)
+ (begin
+ (for-each
+ #{maybe-name-value!\ 320}#
+ #{ids\ 2422}#
+ #{val-exps\ 2424}#)
+ (if (null? #{vars\ 2423}#)
+ #{body-exp\ 2425}#
+ (#{make-let\ 270}#
+ #{src\ 2421}#
+ #{ids\ 2422}#
+ #{vars\ 2423}#
+ #{val-exps\ 2424}#
+ #{body-exp\ 2425}#)))))
+ (#{build-sequence\ 334}#
+ (lambda (#{src\ 2431}# #{exps\ 2432}#)
+ (if (null? (cdr #{exps\ 2432}#))
+ (car #{exps\ 2432}#)