diff --git a/module/ice-9/compile-psyntax.scm b/module/ice-9/compile-psyntax.scm index 86b94ac6e..48bab9236 100644 --- a/module/ice-9/compile-psyntax.scm +++ b/module/ice-9/compile-psyntax.scm @@ -1,6 +1,6 @@ ;;; -*- mode: scheme; coding: utf-8; -*- ;;; -;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. +;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -18,6 +18,7 @@ (use-modules (language tree-il) (language tree-il optimize) + (language tree-il canonicalize) (ice-9 pretty-print)) (let ((source (list-ref (command-line) 1)) @@ -34,10 +35,11 @@ (close-port in)) (begin (pretty-print (tree-il->scheme - (optimize! - (macroexpand x 'c '(compile load eval)) - (current-module) - '())) + (canonicalize! + (optimize! + (macroexpand x 'c '(compile load eval)) + (current-module) + '()))) out) (newline out) (loop (read in)))))) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 195f52398..30c77510d 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,10701 +2,1365 @@ (if #f #f) (letrec* - ((#{make-void 207}# - (lambda (#{src 778}#) + ((#{make-void 208}# + (lambda (#{src 779}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src 778}#))) - (#{make-const 209}# - (lambda (#{src 780}# #{exp 781}#) + #{src 779}#))) + (#{make-const 210}# + (lambda (#{src 781}# #{exp 782}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src 780}# - #{exp 781}#))) - (#{make-lexical-ref 213}# - (lambda (#{src 788}# #{name 789}# #{gensym 790}#) + #{src 781}# + #{exp 782}#))) + (#{make-lexical-ref 214}# + (lambda (#{src 789}# #{name 790}# #{gensym 791}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 788}# - #{name 789}# - #{gensym 790}#))) - (#{make-lexical-set 215}# - (lambda (#{src 794}# - #{name 795}# - #{gensym 796}# - #{exp 797}#) + #{src 789}# + #{name 790}# + #{gensym 791}#))) + (#{make-lexical-set 216}# + (lambda (#{src 795}# + #{name 796}# + #{gensym 797}# + #{exp 798}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src 794}# - #{name 795}# - #{gensym 796}# - #{exp 797}#))) - (#{make-module-ref 217}# - (lambda (#{src 802}# - #{mod 803}# - #{name 804}# - #{public? 805}#) + #{src 795}# + #{name 796}# + #{gensym 797}# + #{exp 798}#))) + (#{make-module-ref 218}# + (lambda (#{src 803}# + #{mod 804}# + #{name 805}# + #{public? 806}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src 802}# - #{mod 803}# - #{name 804}# - #{public? 805}#))) - (#{make-module-set 219}# - (lambda (#{src 810}# - #{mod 811}# - #{name 812}# - #{public? 813}# - #{exp 814}#) + #{src 803}# + #{mod 804}# + #{name 805}# + #{public? 806}#))) + (#{make-module-set 220}# + (lambda (#{src 811}# + #{mod 812}# + #{name 813}# + #{public? 814}# + #{exp 815}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src 810}# - #{mod 811}# - #{name 812}# - #{public? 813}# - #{exp 814}#))) - (#{make-toplevel-ref 221}# - (lambda (#{src 820}# #{name 821}#) + #{src 811}# + #{mod 812}# + #{name 813}# + #{public? 814}# + #{exp 815}#))) + (#{make-toplevel-ref 222}# + (lambda (#{src 821}# #{name 822}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src 820}# - #{name 821}#))) - (#{make-toplevel-set 223}# - (lambda (#{src 824}# #{name 825}# #{exp 826}#) + #{src 821}# + #{name 822}#))) + (#{make-toplevel-set 224}# + (lambda (#{src 825}# #{name 826}# #{exp 827}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src 824}# - #{name 825}# - #{exp 826}#))) - (#{make-toplevel-define 225}# - (lambda (#{src 830}# #{name 831}# #{exp 832}#) + #{src 825}# + #{name 826}# + #{exp 827}#))) + (#{make-toplevel-define 226}# + (lambda (#{src 831}# #{name 832}# #{exp 833}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src 830}# - #{name 831}# - #{exp 832}#))) - (#{make-conditional 227}# - (lambda (#{src 836}# - #{test 837}# - #{consequent 838}# - #{alternate 839}#) + #{src 831}# + #{name 832}# + #{exp 833}#))) + (#{make-conditional 228}# + (lambda (#{src 837}# + #{test 838}# + #{consequent 839}# + #{alternate 840}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src 836}# - #{test 837}# - #{consequent 838}# - #{alternate 839}#))) - (#{make-application 229}# - (lambda (#{src 844}# #{proc 845}# #{args 846}#) + #{src 837}# + #{test 838}# + #{consequent 839}# + #{alternate 840}#))) + (#{make-application 230}# + (lambda (#{src 845}# #{proc 846}# #{args 847}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 844}# - #{proc 845}# - #{args 846}#))) - (#{make-sequence 231}# - (lambda (#{src 850}# #{exps 851}#) + #{src 845}# + #{proc 846}# + #{args 847}#))) + (#{make-sequence 232}# + (lambda (#{src 851}# #{exps 852}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 850}# - #{exps 851}#))) - (#{make-lambda 233}# - (lambda (#{src 854}# #{meta 855}# #{body 856}#) + #{src 851}# + #{exps 852}#))) + (#{make-lambda 234}# + (lambda (#{src 855}# #{meta 856}# #{body 857}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 854}# - #{meta 855}# - #{body 856}#))) - (#{make-lambda-case 235}# - (lambda (#{src 860}# - #{req 861}# - #{opt 862}# - #{rest 863}# - #{kw 864}# - #{inits 865}# - #{gensyms 866}# - #{body 867}# - #{alternate 868}#) + #{src 855}# + #{meta 856}# + #{body 857}#))) + (#{make-lambda-case 236}# + (lambda (#{src 861}# + #{req 862}# + #{opt 863}# + #{rest 864}# + #{kw 865}# + #{inits 866}# + #{gensyms 867}# + #{body 868}# + #{alternate 869}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 860}# - #{req 861}# - #{opt 862}# - #{rest 863}# - #{kw 864}# - #{inits 865}# - #{gensyms 866}# - #{body 867}# - #{alternate 868}#))) - (#{make-let 237}# - (lambda (#{src 878}# - #{names 879}# - #{gensyms 880}# - #{vals 881}# - #{body 882}#) + #{src 861}# + #{req 862}# + #{opt 863}# + #{rest 864}# + #{kw 865}# + #{inits 866}# + #{gensyms 867}# + #{body 868}# + #{alternate 869}#))) + (#{make-let 238}# + (lambda (#{src 879}# + #{names 880}# + #{gensyms 881}# + #{vals 882}# + #{body 883}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 878}# - #{names 879}# - #{gensyms 880}# - #{vals 881}# - #{body 882}#))) - (#{make-letrec 239}# - (lambda (#{src 888}# - #{in-order? 889}# - #{names 890}# - #{gensyms 891}# - #{vals 892}# - #{body 893}#) + #{src 879}# + #{names 880}# + #{gensyms 881}# + #{vals 882}# + #{body 883}#))) + (#{make-letrec 240}# + (lambda (#{src 889}# + #{in-order? 890}# + #{names 891}# + #{gensyms 892}# + #{vals 893}# + #{body 894}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 888}# - #{in-order? 889}# - #{names 890}# - #{gensyms 891}# - #{vals 892}# - #{body 893}#))) - (#{make-dynlet 241}# - (lambda (#{src 900}# - #{fluids 901}# - #{vals 902}# - #{body 903}#) + #{src 889}# + #{in-order? 890}# + #{names 891}# + #{gensyms 892}# + #{vals 893}# + #{body 894}#))) + (#{make-dynlet 242}# + (lambda (#{src 901}# + #{fluids 902}# + #{vals 903}# + #{body 904}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 900}# - #{fluids 901}# - #{vals 902}# - #{body 903}#))) - (#{lambda? 244}# - (lambda (#{x 908}#) - (if (struct? #{x 908}#) - (eq? (struct-vtable #{x 908}#) + #{src 901}# + #{fluids 902}# + #{vals 903}# + #{body 904}#))) + (#{lambda? 245}# + (lambda (#{x 909}#) + (if (struct? #{x 909}#) + (eq? (struct-vtable #{x 909}#) (vector-ref %expanded-vtables 13)) #f))) - (#{lambda-meta 246}# - (lambda (#{x 912}#) (struct-ref #{x 912}# 1))) - (#{set-lambda-meta! 248}# - (lambda (#{x 914}# #{v 915}#) - (struct-set! #{x 914}# 1 #{v 915}#))) - (#{top-level-eval-hook 254}# - (lambda (#{x 918}# #{mod 919}#) - (primitive-eval #{x 918}#))) - (#{local-eval-hook 256}# - (lambda (#{x 922}# #{mod 923}#) - (primitive-eval #{x 922}#))) - (#{put-global-definition-hook 260}# - (lambda (#{symbol 926}# #{type 927}# #{val 928}#) + (#{lambda-meta 247}# + (lambda (#{x 913}#) (struct-ref #{x 913}# 1))) + (#{set-lambda-meta! 249}# + (lambda (#{x 915}# #{v 916}#) + (struct-set! #{x 915}# 1 #{v 916}#))) + (#{top-level-eval-hook 255}# + (lambda (#{x 919}# #{mod 920}#) + (primitive-eval #{x 919}#))) + (#{local-eval-hook 257}# + (lambda (#{x 923}# #{mod 924}#) + (primitive-eval #{x 923}#))) + (#{put-global-definition-hook 261}# + (lambda (#{symbol 927}# #{type 928}# #{val 929}#) (module-define! (current-module) - #{symbol 926}# + #{symbol 927}# (make-syntax-transformer - #{symbol 926}# - #{type 927}# - #{val 928}#)))) - (#{get-global-definition-hook 262}# - (lambda (#{symbol 932}# #{module 933}#) + #{symbol 927}# + #{type 928}# + #{val 929}#)))) + (#{get-global-definition-hook 263}# + (lambda (#{symbol 933}# #{module 934}#) (begin - (if (if (not #{module 933}#) (current-module) #f) + (if (if (not #{module 934}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 932}#)) - (begin - (let ((#{v 939}# (module-variable - (if #{module 933}# - (resolve-module (cdr #{module 933}#)) - (current-module)) - #{symbol 932}#))) - (if #{v 939}# - (if (variable-bound? #{v 939}#) - (begin - (let ((#{val 944}# (variable-ref #{v 939}#))) - (if (macro? #{val 944}#) - (if (macro-type #{val 944}#) - (cons (macro-type #{val 944}#) - (macro-binding #{val 944}#)) - #f) - #f))) - #f) - #f)))))) - (#{decorate-source 264}# - (lambda (#{e 948}# #{s 949}#) - (begin - (if (if (pair? #{e 948}#) #{s 949}# #f) - (set-source-properties! #{e 948}# #{s 949}#)) - #{e 948}#))) - (#{maybe-name-value! 266}# - (lambda (#{name 954}# #{val 955}#) - (if (#{lambda? 244}# #{val 955}#) - (begin - (let ((#{meta 959}# (#{lambda-meta 246}# #{val 955}#))) - (if (not (assq 'name #{meta 959}#)) - (#{set-lambda-meta! 248}# - #{val 955}# - (cons (cons 'name #{name 954}#) #{meta 959}#)))))))) - (#{build-void 268}# - (lambda (#{source 960}#) - (#{make-void 207}# #{source 960}#))) - (#{build-application 270}# - (lambda (#{source 962}# #{fun-exp 963}# #{arg-exps 964}#) - (#{make-application 229}# - #{source 962}# - #{fun-exp 963}# - #{arg-exps 964}#))) - (#{build-conditional 272}# - (lambda (#{source 968}# - #{test-exp 969}# - #{then-exp 970}# - #{else-exp 971}#) - (#{make-conditional 227}# - #{source 968}# - #{test-exp 969}# - #{then-exp 970}# - #{else-exp 971}#))) - (#{build-lexical-reference 276}# - (lambda (#{type 984}# - #{source 985}# - #{name 986}# - #{var 987}#) - (#{make-lexical-ref 213}# - #{source 985}# - #{name 986}# - #{var 987}#))) - (#{analyze-variable 280}# - (lambda (#{mod 1000}# - #{var 1001}# - #{modref-cont 1002}# - #{bare-cont 1003}#) - (if (not #{mod 1000}#) - (#{bare-cont 1003}# #{var 1001}#) - (begin - (let ((#{kind 1010}# (car #{mod 1000}#)) - (#{mod 1011}# (cdr #{mod 1000}#))) - (if (eqv? #{kind 1010}# 'public) - (#{modref-cont 1002}# - #{mod 1011}# - #{var 1001}# - #t) - (if (eqv? #{kind 1010}# 'private) - (if (not (equal? - #{mod 1011}# - (module-name (current-module)))) - (#{modref-cont 1002}# - #{mod 1011}# - #{var 1001}# + #{symbol 933}#)) + (let ((#{v 940}# (module-variable + (if #{module 934}# + (resolve-module (cdr #{module 934}#)) + (current-module)) + #{symbol 933}#))) + (if #{v 940}# + (if (variable-bound? #{v 940}#) + (let ((#{val 945}# (variable-ref #{v 940}#))) + (if (macro? #{val 945}#) + (if (macro-type #{val 945}#) + (cons (macro-type #{val 945}#) + (macro-binding #{val 945}#)) #f) - (#{bare-cont 1003}# #{var 1001}#)) - (if (eqv? #{kind 1010}# 'bare) - (#{bare-cont 1003}# #{var 1001}#) - (if (eqv? #{kind 1010}# 'hygiene) - (if (if (not (equal? - #{mod 1011}# - (module-name (current-module)))) - (module-variable - (resolve-module #{mod 1011}#) - #{var 1001}#) - #f) - (#{modref-cont 1002}# - #{mod 1011}# - #{var 1001}# + #f)) + #f) + #f))))) + (#{decorate-source 265}# + (lambda (#{e 949}# #{s 950}#) + (begin + (if (if (pair? #{e 949}#) #{s 950}# #f) + (set-source-properties! #{e 949}# #{s 950}#)) + #{e 949}#))) + (#{maybe-name-value! 267}# + (lambda (#{name 955}# #{val 956}#) + (if (#{lambda? 245}# #{val 956}#) + (let ((#{meta 960}# (#{lambda-meta 247}# #{val 956}#))) + (if (not (assq 'name #{meta 960}#)) + (#{set-lambda-meta! 249}# + #{val 956}# + (cons (cons 'name #{name 955}#) #{meta 960}#))))))) + (#{build-void 269}# + (lambda (#{source 961}#) + (#{make-void 208}# #{source 961}#))) + (#{build-application 271}# + (lambda (#{source 963}# #{fun-exp 964}# #{arg-exps 965}#) + (#{make-application 230}# + #{source 963}# + #{fun-exp 964}# + #{arg-exps 965}#))) + (#{build-conditional 273}# + (lambda (#{source 969}# + #{test-exp 970}# + #{then-exp 971}# + #{else-exp 972}#) + (#{make-conditional 228}# + #{source 969}# + #{test-exp 970}# + #{then-exp 971}# + #{else-exp 972}#))) + (#{build-lexical-reference 277}# + (lambda (#{type 985}# + #{source 986}# + #{name 987}# + #{var 988}#) + (#{make-lexical-ref 214}# + #{source 986}# + #{name 987}# + #{var 988}#))) + (#{analyze-variable 281}# + (lambda (#{mod 1001}# + #{var 1002}# + #{modref-cont 1003}# + #{bare-cont 1004}#) + (if (not #{mod 1001}#) + (#{bare-cont 1004}# #{var 1002}#) + (let ((#{kind 1011}# (car #{mod 1001}#)) + (#{mod 1012}# (cdr #{mod 1001}#))) + (if (memv #{kind 1011}# '(public)) + (#{modref-cont 1003}# + #{mod 1012}# + #{var 1002}# + #t) + (if (memv #{kind 1011}# '(private)) + (if (not (equal? + #{mod 1012}# + (module-name (current-module)))) + (#{modref-cont 1003}# + #{mod 1012}# + #{var 1002}# + #f) + (#{bare-cont 1004}# #{var 1002}#)) + (if (memv #{kind 1011}# '(bare)) + (#{bare-cont 1004}# #{var 1002}#) + (if (memv #{kind 1011}# '(hygiene)) + (if (if (not (equal? + #{mod 1012}# + (module-name (current-module)))) + (module-variable + (resolve-module #{mod 1012}#) + #{var 1002}#) #f) - (#{bare-cont 1003}# #{var 1001}#)) - (syntax-violation - #f - "bad module kind" - #{var 1001}# - #{mod 1011}#)))))))))) - (#{build-global-reference 282}# - (lambda (#{source 1019}# #{var 1020}# #{mod 1021}#) - (#{analyze-variable 280}# - #{mod 1021}# - #{var 1020}# - (lambda (#{mod 1025}# #{var 1026}# #{public? 1027}#) - (#{make-module-ref 217}# - #{source 1019}# - #{mod 1025}# - #{var 1026}# - #{public? 1027}#)) - (lambda (#{var 1031}#) - (#{make-toplevel-ref 221}# - #{source 1019}# - #{var 1031}#))))) - (#{build-global-assignment 284}# - (lambda (#{source 1033}# - #{var 1034}# - #{exp 1035}# - #{mod 1036}#) + (#{modref-cont 1003}# + #{mod 1012}# + #{var 1002}# + #f) + (#{bare-cont 1004}# #{var 1002}#)) + (syntax-violation + #f + "bad module kind" + #{var 1002}# + #{mod 1012}#))))))))) + (#{build-global-reference 283}# + (lambda (#{source 1020}# #{var 1021}# #{mod 1022}#) + (#{analyze-variable 281}# + #{mod 1022}# + #{var 1021}# + (lambda (#{mod 1026}# #{var 1027}# #{public? 1028}#) + (#{make-module-ref 218}# + #{source 1020}# + #{mod 1026}# + #{var 1027}# + #{public? 1028}#)) + (lambda (#{var 1032}#) + (#{make-toplevel-ref 222}# + #{source 1020}# + #{var 1032}#))))) + (#{build-global-assignment 285}# + (lambda (#{source 1034}# + #{var 1035}# + #{exp 1036}# + #{mod 1037}#) (begin - (#{maybe-name-value! 266}# - #{var 1034}# - #{exp 1035}#) - (#{analyze-variable 280}# - #{mod 1036}# - #{var 1034}# - (lambda (#{mod 1041}# #{var 1042}# #{public? 1043}#) - (#{make-module-set 219}# - #{source 1033}# - #{mod 1041}# - #{var 1042}# - #{public? 1043}# - #{exp 1035}#)) - (lambda (#{var 1047}#) - (#{make-toplevel-set 223}# - #{source 1033}# - #{var 1047}# - #{exp 1035}#)))))) - (#{build-global-definition 286}# - (lambda (#{source 1049}# #{var 1050}# #{exp 1051}#) + (#{maybe-name-value! 267}# + #{var 1035}# + #{exp 1036}#) + (#{analyze-variable 281}# + #{mod 1037}# + #{var 1035}# + (lambda (#{mod 1042}# #{var 1043}# #{public? 1044}#) + (#{make-module-set 220}# + #{source 1034}# + #{mod 1042}# + #{var 1043}# + #{public? 1044}# + #{exp 1036}#)) + (lambda (#{var 1048}#) + (#{make-toplevel-set 224}# + #{source 1034}# + #{var 1048}# + #{exp 1036}#)))))) + (#{build-global-definition 287}# + (lambda (#{source 1050}# #{var 1051}# #{exp 1052}#) (begin - (#{maybe-name-value! 266}# - #{var 1050}# - #{exp 1051}#) - (#{make-toplevel-define 225}# - #{source 1049}# - #{var 1050}# - #{exp 1051}#)))) - (#{build-simple-lambda 288}# - (lambda (#{src 1055}# - #{req 1056}# - #{rest 1057}# - #{vars 1058}# - #{meta 1059}# - #{exp 1060}#) - (#{make-lambda 233}# - #{src 1055}# - #{meta 1059}# - (#{make-lambda-case 235}# - #{src 1055}# - #{req 1056}# + (#{maybe-name-value! 267}# + #{var 1051}# + #{exp 1052}#) + (#{make-toplevel-define 226}# + #{source 1050}# + #{var 1051}# + #{exp 1052}#)))) + (#{build-simple-lambda 289}# + (lambda (#{src 1056}# + #{req 1057}# + #{rest 1058}# + #{vars 1059}# + #{meta 1060}# + #{exp 1061}#) + (#{make-lambda 234}# + #{src 1056}# + #{meta 1060}# + (#{make-lambda-case 236}# + #{src 1056}# + #{req 1057}# #f - #{rest 1057}# + #{rest 1058}# #f '() - #{vars 1058}# - #{exp 1060}# + #{vars 1059}# + #{exp 1061}# #f)))) - (#{build-lambda-case 292}# - (lambda (#{src 1073}# - #{req 1074}# - #{opt 1075}# - #{rest 1076}# - #{kw 1077}# - #{inits 1078}# - #{vars 1079}# - #{body 1080}# - #{else-case 1081}#) - (#{make-lambda-case 235}# - #{src 1073}# - #{req 1074}# - #{opt 1075}# - #{rest 1076}# - #{kw 1077}# - #{inits 1078}# - #{vars 1079}# - #{body 1080}# - #{else-case 1081}#))) - (#{build-primref 294}# - (lambda (#{src 1091}# #{name 1092}#) + (#{build-lambda-case 293}# + (lambda (#{src 1074}# + #{req 1075}# + #{opt 1076}# + #{rest 1077}# + #{kw 1078}# + #{inits 1079}# + #{vars 1080}# + #{body 1081}# + #{else-case 1082}#) + (#{make-lambda-case 236}# + #{src 1074}# + #{req 1075}# + #{opt 1076}# + #{rest 1077}# + #{kw 1078}# + #{inits 1079}# + #{vars 1080}# + #{body 1081}# + #{else-case 1082}#))) + (#{build-primref 295}# + (lambda (#{src 1092}# #{name 1093}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref 221}# - #{src 1091}# - #{name 1092}#) - (#{make-module-ref 217}# - #{src 1091}# + (#{make-toplevel-ref 222}# + #{src 1092}# + #{name 1093}#) + (#{make-module-ref 218}# + #{src 1092}# '(guile) - #{name 1092}# + #{name 1093}# #f)))) - (#{build-data 296}# - (lambda (#{src 1095}# #{exp 1096}#) - (#{make-const 209}# #{src 1095}# #{exp 1096}#))) - (#{build-sequence 298}# - (lambda (#{src 1099}# #{exps 1100}#) - (if (null? (cdr #{exps 1100}#)) - (car #{exps 1100}#) - (#{make-sequence 231}# - #{src 1099}# - #{exps 1100}#)))) - (#{build-letrec 304}# - (lambda (#{src 1133}# - #{in-order? 1134}# - #{ids 1135}# - #{vars 1136}# - #{val-exps 1137}# - #{body-exp 1138}#) - (if (null? #{vars 1136}#) - #{body-exp 1138}# + (#{build-data 297}# + (lambda (#{src 1096}# #{exp 1097}#) + (#{make-const 210}# #{src 1096}# #{exp 1097}#))) + (#{build-sequence 299}# + (lambda (#{src 1100}# #{exps 1101}#) + (if (null? (cdr #{exps 1101}#)) + (car #{exps 1101}#) + (#{make-sequence 232}# + #{src 1100}# + #{exps 1101}#)))) + (#{build-letrec 305}# + (lambda (#{src 1134}# + #{in-order? 1135}# + #{ids 1136}# + #{vars 1137}# + #{val-exps 1138}# + #{body-exp 1139}#) + (if (null? #{vars 1137}#) + #{body-exp 1139}# (begin (for-each - #{maybe-name-value! 266}# - #{ids 1135}# - #{val-exps 1137}#) - (#{make-letrec 239}# - #{src 1133}# - #{in-order? 1134}# - #{ids 1135}# - #{vars 1136}# - #{val-exps 1137}# - #{body-exp 1138}#))))) - (#{make-syntax-object 309}# - (lambda (#{expression 1145}# - #{wrap 1146}# - #{module 1147}#) + #{maybe-name-value! 267}# + #{ids 1136}# + #{val-exps 1138}#) + (#{make-letrec 240}# + #{src 1134}# + #{in-order? 1135}# + #{ids 1136}# + #{vars 1137}# + #{val-exps 1138}# + #{body-exp 1139}#))))) + (#{make-syntax-object 310}# + (lambda (#{expression 1146}# + #{wrap 1147}# + #{module 1148}#) (vector 'syntax-object - #{expression 1145}# - #{wrap 1146}# - #{module 1147}#))) - (#{syntax-object? 311}# - (lambda (#{x 1151}#) - (if (vector? #{x 1151}#) - (if (= (vector-length #{x 1151}#) 4) - (eq? (vector-ref #{x 1151}# 0) 'syntax-object) + #{expression 1146}# + #{wrap 1147}# + #{module 1148}#))) + (#{syntax-object? 312}# + (lambda (#{x 1152}#) + (if (vector? #{x 1152}#) + (if (= (vector-length #{x 1152}#) 4) + (eq? (vector-ref #{x 1152}# 0) 'syntax-object) #f) #f))) - (#{syntax-object-expression 313}# - (lambda (#{x 1156}#) (vector-ref #{x 1156}# 1))) - (#{syntax-object-wrap 315}# - (lambda (#{x 1158}#) (vector-ref #{x 1158}# 2))) - (#{syntax-object-module 317}# - (lambda (#{x 1160}#) (vector-ref #{x 1160}# 3))) - (#{source-annotation 326}# - (lambda (#{x 1174}#) - (if (#{syntax-object? 311}# #{x 1174}#) - (#{source-annotation 326}# - (#{syntax-object-expression 313}# #{x 1174}#)) - (if (pair? #{x 1174}#) - (begin - (let ((#{props 1181}# (source-properties #{x 1174}#))) - (if (pair? #{props 1181}#) #{props 1181}# #f))) + (#{syntax-object-expression 314}# + (lambda (#{x 1157}#) (vector-ref #{x 1157}# 1))) + (#{syntax-object-wrap 316}# + (lambda (#{x 1159}#) (vector-ref #{x 1159}# 2))) + (#{syntax-object-module 318}# + (lambda (#{x 1161}#) (vector-ref #{x 1161}# 3))) + (#{source-annotation 327}# + (lambda (#{x 1175}#) + (if (#{syntax-object? 312}# #{x 1175}#) + (#{source-annotation 327}# + (#{syntax-object-expression 314}# #{x 1175}#)) + (if (pair? #{x 1175}#) + (let ((#{props 1182}# (source-properties #{x 1175}#))) + (if (pair? #{props 1182}#) #{props 1182}# #f)) #f)))) - (#{extend-env 336}# - (lambda (#{labels 1183}# #{bindings 1184}# #{r 1185}#) - (if (null? #{labels 1183}#) - #{r 1185}# - (#{extend-env 336}# - (cdr #{labels 1183}#) - (cdr #{bindings 1184}#) - (cons (cons (car #{labels 1183}#) - (car #{bindings 1184}#)) - #{r 1185}#))))) - (#{extend-var-env 338}# - (lambda (#{labels 1189}# #{vars 1190}# #{r 1191}#) - (if (null? #{labels 1189}#) - #{r 1191}# - (#{extend-var-env 338}# - (cdr #{labels 1189}#) - (cdr #{vars 1190}#) - (cons (cons (car #{labels 1189}#) - (cons 'lexical (car #{vars 1190}#))) - #{r 1191}#))))) - (#{macros-only-env 340}# - (lambda (#{r 1196}#) - (if (null? #{r 1196}#) + (#{extend-env 337}# + (lambda (#{labels 1184}# #{bindings 1185}# #{r 1186}#) + (if (null? #{labels 1184}#) + #{r 1186}# + (#{extend-env 337}# + (cdr #{labels 1184}#) + (cdr #{bindings 1185}#) + (cons (cons (car #{labels 1184}#) + (car #{bindings 1185}#)) + #{r 1186}#))))) + (#{extend-var-env 339}# + (lambda (#{labels 1190}# #{vars 1191}# #{r 1192}#) + (if (null? #{labels 1190}#) + #{r 1192}# + (#{extend-var-env 339}# + (cdr #{labels 1190}#) + (cdr #{vars 1191}#) + (cons (cons (car #{labels 1190}#) + (cons 'lexical (car #{vars 1191}#))) + #{r 1192}#))))) + (#{macros-only-env 341}# + (lambda (#{r 1197}#) + (if (null? #{r 1197}#) '() - (begin - (let ((#{a 1199}# (car #{r 1196}#))) - (if (eq? (car (cdr #{a 1199}#)) 'macro) - (cons #{a 1199}# - (#{macros-only-env 340}# (cdr #{r 1196}#))) - (#{macros-only-env 340}# (cdr #{r 1196}#)))))))) - (#{lookup 342}# - (lambda (#{x 1200}# #{r 1201}# #{mod 1202}#) - (begin - (let ((#{t 1208}# (assq #{x 1200}# #{r 1201}#))) - (if #{t 1208}# - (cdr #{t 1208}#) - (if (symbol? #{x 1200}#) - (begin - (let ((#{t 1214}# - (#{get-global-definition-hook 262}# - #{x 1200}# - #{mod 1202}#))) - (if #{t 1214}# #{t 1214}# '(global)))) - '(displaced-lexical))))))) - (#{global-extend 344}# - (lambda (#{type 1219}# #{sym 1220}# #{val 1221}#) - (#{put-global-definition-hook 260}# - #{sym 1220}# - #{type 1219}# - #{val 1221}#))) - (#{nonsymbol-id? 346}# - (lambda (#{x 1225}#) - (if (#{syntax-object? 311}# #{x 1225}#) + (let ((#{a 1200}# (car #{r 1197}#))) + (if (eq? (car (cdr #{a 1200}#)) 'macro) + (cons #{a 1200}# + (#{macros-only-env 341}# (cdr #{r 1197}#))) + (#{macros-only-env 341}# (cdr #{r 1197}#))))))) + (#{lookup 343}# + (lambda (#{x 1201}# #{r 1202}# #{mod 1203}#) + (let ((#{t 1209}# (assq #{x 1201}# #{r 1202}#))) + (if #{t 1209}# + (cdr #{t 1209}#) + (if (symbol? #{x 1201}#) + (let ((#{t 1215}# + (#{get-global-definition-hook 263}# + #{x 1201}# + #{mod 1203}#))) + (if #{t 1215}# #{t 1215}# '(global))) + '(displaced-lexical)))))) + (#{global-extend 345}# + (lambda (#{type 1220}# #{sym 1221}# #{val 1222}#) + (#{put-global-definition-hook 261}# + #{sym 1221}# + #{type 1220}# + #{val 1222}#))) + (#{nonsymbol-id? 347}# + (lambda (#{x 1226}#) + (if (#{syntax-object? 312}# #{x 1226}#) (symbol? - (#{syntax-object-expression 313}# #{x 1225}#)) + (#{syntax-object-expression 314}# #{x 1226}#)) #f))) - (#{id? 348}# - (lambda (#{x 1229}#) - (if (symbol? #{x 1229}#) + (#{id? 349}# + (lambda (#{x 1230}#) + (if (symbol? #{x 1230}#) #t - (if (#{syntax-object? 311}# #{x 1229}#) + (if (#{syntax-object? 312}# #{x 1230}#) (symbol? - (#{syntax-object-expression 313}# #{x 1229}#)) + (#{syntax-object-expression 314}# #{x 1230}#)) #f)))) - (#{id-sym-name&marks 352}# - (lambda (#{x 1236}# #{w 1237}#) - (if (#{syntax-object? 311}# #{x 1236}#) + (#{id-sym-name&marks 353}# + (lambda (#{x 1237}# #{w 1238}#) + (if (#{syntax-object? 312}# #{x 1237}#) (values - (#{syntax-object-expression 313}# #{x 1236}#) - (#{join-marks 406}# - (car #{w 1237}#) - (car (#{syntax-object-wrap 315}# #{x 1236}#)))) - (values #{x 1236}# (car #{w 1237}#))))) - (#{gen-label 366}# + (#{syntax-object-expression 314}# #{x 1237}#) + (#{join-marks 407}# + (car #{w 1238}#) + (car (#{syntax-object-wrap 316}# #{x 1237}#)))) + (values #{x 1237}# (car #{w 1238}#))))) + (#{gen-label 367}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels 368}# - (lambda (#{ls 1243}#) - (if (null? #{ls 1243}#) + (#{gen-labels 369}# + (lambda (#{ls 1244}#) + (if (null? #{ls 1244}#) '() - (cons (#{gen-label 366}#) - (#{gen-labels 368}# (cdr #{ls 1243}#)))))) - (#{make-ribcage 371}# - (lambda (#{symnames 1245}# - #{marks 1246}# - #{labels 1247}#) + (cons (#{gen-label 367}#) + (#{gen-labels 369}# (cdr #{ls 1244}#)))))) + (#{make-ribcage 372}# + (lambda (#{symnames 1246}# + #{marks 1247}# + #{labels 1248}#) (vector 'ribcage - #{symnames 1245}# - #{marks 1246}# - #{labels 1247}#))) - (#{ribcage-symnames 375}# - (lambda (#{x 1256}#) (vector-ref #{x 1256}# 1))) - (#{ribcage-marks 377}# - (lambda (#{x 1258}#) (vector-ref #{x 1258}# 2))) - (#{ribcage-labels 379}# - (lambda (#{x 1260}#) (vector-ref #{x 1260}# 3))) - (#{set-ribcage-symnames! 381}# - (lambda (#{x 1262}# #{update 1263}#) - (vector-set! #{x 1262}# 1 #{update 1263}#))) - (#{set-ribcage-marks! 383}# - (lambda (#{x 1266}# #{update 1267}#) - (vector-set! #{x 1266}# 2 #{update 1267}#))) - (#{set-ribcage-labels! 385}# - (lambda (#{x 1270}# #{update 1271}#) - (vector-set! #{x 1270}# 3 #{update 1271}#))) - (#{anti-mark 392}# - (lambda (#{w 1274}#) - (cons (cons #f (car #{w 1274}#)) - (cons 'shift (cdr #{w 1274}#))))) - (#{extend-ribcage! 398}# - (lambda (#{ribcage 1280}# #{id 1281}# #{label 1282}#) + #{symnames 1246}# + #{marks 1247}# + #{labels 1248}#))) + (#{ribcage-symnames 376}# + (lambda (#{x 1257}#) (vector-ref #{x 1257}# 1))) + (#{ribcage-marks 378}# + (lambda (#{x 1259}#) (vector-ref #{x 1259}# 2))) + (#{ribcage-labels 380}# + (lambda (#{x 1261}#) (vector-ref #{x 1261}# 3))) + (#{set-ribcage-symnames! 382}# + (lambda (#{x 1263}# #{update 1264}#) + (vector-set! #{x 1263}# 1 #{update 1264}#))) + (#{set-ribcage-marks! 384}# + (lambda (#{x 1267}# #{update 1268}#) + (vector-set! #{x 1267}# 2 #{update 1268}#))) + (#{set-ribcage-labels! 386}# + (lambda (#{x 1271}# #{update 1272}#) + (vector-set! #{x 1271}# 3 #{update 1272}#))) + (#{anti-mark 393}# + (lambda (#{w 1275}#) + (cons (cons #f (car #{w 1275}#)) + (cons 'shift (cdr #{w 1275}#))))) + (#{extend-ribcage! 399}# + (lambda (#{ribcage 1281}# #{id 1282}# #{label 1283}#) (begin - (#{set-ribcage-symnames! 381}# - #{ribcage 1280}# - (cons (#{syntax-object-expression 313}# #{id 1281}#) - (#{ribcage-symnames 375}# #{ribcage 1280}#))) - (#{set-ribcage-marks! 383}# - #{ribcage 1280}# - (cons (car (#{syntax-object-wrap 315}# #{id 1281}#)) - (#{ribcage-marks 377}# #{ribcage 1280}#))) - (#{set-ribcage-labels! 385}# - #{ribcage 1280}# - (cons #{label 1282}# - (#{ribcage-labels 379}# #{ribcage 1280}#)))))) - (#{make-binding-wrap 400}# - (lambda (#{ids 1287}# #{labels 1288}# #{w 1289}#) - (if (null? #{ids 1287}#) - #{w 1289}# - (cons (car #{w 1289}#) - (cons (begin - (let ((#{labelvec 1296}# - (list->vector #{labels 1288}#))) - (begin - (let ((#{n 1298}# - (vector-length #{labelvec 1296}#))) - (begin - (let ((#{symnamevec 1301}# - (make-vector #{n 1298}#)) - (#{marksvec 1302}# - (make-vector #{n 1298}#))) - (begin - (letrec* - ((#{f 1306}# - (lambda (#{ids 1307}# #{i 1308}#) - (if (not (null? #{ids 1307}#)) - (call-with-values - (lambda () - (#{id-sym-name&marks 352}# - (car #{ids 1307}#) - #{w 1289}#)) - (lambda (#{symname 1309}# - #{marks 1310}#) - (begin - (vector-set! - #{symnamevec 1301}# - #{i 1308}# - #{symname 1309}#) - (vector-set! - #{marksvec 1302}# - #{i 1308}# - #{marks 1310}#) - (#{f 1306}# - (cdr #{ids 1307}#) - (#{1+}# #{i 1308}#))))))))) - (begin (#{f 1306}# #{ids 1287}# 0))) - (#{make-ribcage 371}# - #{symnamevec 1301}# - #{marksvec 1302}# - #{labelvec 1296}#)))))))) - (cdr #{w 1289}#)))))) - (#{smart-append 402}# - (lambda (#{m1 1315}# #{m2 1316}#) - (if (null? #{m2 1316}#) - #{m1 1315}# - (append #{m1 1315}# #{m2 1316}#)))) - (#{join-wraps 404}# - (lambda (#{w1 1319}# #{w2 1320}#) - (begin - (let ((#{m1 1325}# (car #{w1 1319}#)) - (#{s1 1326}# (cdr #{w1 1319}#))) - (if (null? #{m1 1325}#) - (if (null? #{s1 1326}#) - #{w2 1320}# - (cons (car #{w2 1320}#) - (#{smart-append 402}# - #{s1 1326}# - (cdr #{w2 1320}#)))) - (cons (#{smart-append 402}# - #{m1 1325}# - (car #{w2 1320}#)) - (#{smart-append 402}# - #{s1 1326}# - (cdr #{w2 1320}#)))))))) - (#{join-marks 406}# - (lambda (#{m1 1335}# #{m2 1336}#) - (#{smart-append 402}# #{m1 1335}# #{m2 1336}#))) - (#{same-marks? 408}# - (lambda (#{x 1339}# #{y 1340}#) - (if (eq? #{x 1339}# #{y 1340}#) - (eq? #{x 1339}# #{y 1340}#) - (if (not (null? #{x 1339}#)) - (if (not (null? #{y 1340}#)) - (if (eq? (car #{x 1339}#) (car #{y 1340}#)) - (#{same-marks? 408}# - (cdr #{x 1339}#) - (cdr #{y 1340}#)) + (#{set-ribcage-symnames! 382}# + #{ribcage 1281}# + (cons (#{syntax-object-expression 314}# #{id 1282}#) + (#{ribcage-symnames 376}# #{ribcage 1281}#))) + (#{set-ribcage-marks! 384}# + #{ribcage 1281}# + (cons (car (#{syntax-object-wrap 316}# #{id 1282}#)) + (#{ribcage-marks 378}# #{ribcage 1281}#))) + (#{set-ribcage-labels! 386}# + #{ribcage 1281}# + (cons #{label 1283}# + (#{ribcage-labels 380}# #{ribcage 1281}#)))))) + (#{make-binding-wrap 401}# + (lambda (#{ids 1288}# #{labels 1289}# #{w 1290}#) + (if (null? #{ids 1288}#) + #{w 1290}# + (cons (car #{w 1290}#) + (cons (let ((#{labelvec 1297}# + (list->vector #{labels 1289}#))) + (let ((#{n 1299}# (vector-length #{labelvec 1297}#))) + (let ((#{symnamevec 1302}# (make-vector #{n 1299}#)) + (#{marksvec 1303}# (make-vector #{n 1299}#))) + (begin + (letrec* + ((#{f 1307}# + (lambda (#{ids 1308}# #{i 1309}#) + (if (not (null? #{ids 1308}#)) + (call-with-values + (lambda () + (#{id-sym-name&marks 353}# + (car #{ids 1308}#) + #{w 1290}#)) + (lambda (#{symname 1310}# + #{marks 1311}#) + (begin + (vector-set! + #{symnamevec 1302}# + #{i 1309}# + #{symname 1310}#) + (vector-set! + #{marksvec 1303}# + #{i 1309}# + #{marks 1311}#) + (#{f 1307}# + (cdr #{ids 1308}#) + (#{1+}# #{i 1309}#))))))))) + (#{f 1307}# #{ids 1288}# 0)) + (#{make-ribcage 372}# + #{symnamevec 1302}# + #{marksvec 1303}# + #{labelvec 1297}#))))) + (cdr #{w 1290}#)))))) + (#{smart-append 403}# + (lambda (#{m1 1316}# #{m2 1317}#) + (if (null? #{m2 1317}#) + #{m1 1316}# + (append #{m1 1316}# #{m2 1317}#)))) + (#{join-wraps 405}# + (lambda (#{w1 1320}# #{w2 1321}#) + (let ((#{m1 1326}# (car #{w1 1320}#)) + (#{s1 1327}# (cdr #{w1 1320}#))) + (if (null? #{m1 1326}#) + (if (null? #{s1 1327}#) + #{w2 1321}# + (cons (car #{w2 1321}#) + (#{smart-append 403}# + #{s1 1327}# + (cdr #{w2 1321}#)))) + (cons (#{smart-append 403}# + #{m1 1326}# + (car #{w2 1321}#)) + (#{smart-append 403}# + #{s1 1327}# + (cdr #{w2 1321}#))))))) + (#{join-marks 407}# + (lambda (#{m1 1336}# #{m2 1337}#) + (#{smart-append 403}# #{m1 1336}# #{m2 1337}#))) + (#{same-marks? 409}# + (lambda (#{x 1340}# #{y 1341}#) + (if (eq? #{x 1340}# #{y 1341}#) + (eq? #{x 1340}# #{y 1341}#) + (if (not (null? #{x 1340}#)) + (if (not (null? #{y 1341}#)) + (if (eq? (car #{x 1340}#) (car #{y 1341}#)) + (#{same-marks? 409}# + (cdr #{x 1340}#) + (cdr #{y 1341}#)) #f) #f) #f)))) - (#{id-var-name 410}# - (lambda (#{id 1351}# #{w 1352}#) + (#{id-var-name 411}# + (lambda (#{id 1352}# #{w 1353}#) (letrec* - ((#{search 1358}# - (lambda (#{sym 1374}# #{subst 1375}# #{marks 1376}#) - (if (null? #{subst 1375}#) - (values #f #{marks 1376}#) - (begin - (let ((#{fst 1381}# (car #{subst 1375}#))) - (if (eq? #{fst 1381}# 'shift) - (#{search 1358}# - #{sym 1374}# - (cdr #{subst 1375}#) - (cdr #{marks 1376}#)) - (begin - (let ((#{symnames 1383}# - (#{ribcage-symnames 375}# #{fst 1381}#))) - (if (vector? #{symnames 1383}#) - (#{search-vector-rib 1362}# - #{sym 1374}# - #{subst 1375}# - #{marks 1376}# - #{symnames 1383}# - #{fst 1381}#) - (#{search-list-rib 1360}# - #{sym 1374}# - #{subst 1375}# - #{marks 1376}# - #{symnames 1383}# - #{fst 1381}#)))))))))) - (#{search-list-rib 1360}# - (lambda (#{sym 1384}# - #{subst 1385}# - #{marks 1386}# - #{symnames 1387}# - #{ribcage 1388}#) + ((#{search 1359}# + (lambda (#{sym 1375}# #{subst 1376}# #{marks 1377}#) + (if (null? #{subst 1376}#) + (values #f #{marks 1377}#) + (let ((#{fst 1382}# (car #{subst 1376}#))) + (if (eq? #{fst 1382}# 'shift) + (#{search 1359}# + #{sym 1375}# + (cdr #{subst 1376}#) + (cdr #{marks 1377}#)) + (let ((#{symnames 1384}# + (#{ribcage-symnames 376}# #{fst 1382}#))) + (if (vector? #{symnames 1384}#) + (#{search-vector-rib 1363}# + #{sym 1375}# + #{subst 1376}# + #{marks 1377}# + #{symnames 1384}# + #{fst 1382}#) + (#{search-list-rib 1361}# + #{sym 1375}# + #{subst 1376}# + #{marks 1377}# + #{symnames 1384}# + #{fst 1382}#)))))))) + (#{search-list-rib 1361}# + (lambda (#{sym 1385}# + #{subst 1386}# + #{marks 1387}# + #{symnames 1388}# + #{ribcage 1389}#) (letrec* - ((#{f 1397}# - (lambda (#{symnames 1398}# #{i 1399}#) - (if (null? #{symnames 1398}#) - (#{search 1358}# - #{sym 1384}# - (cdr #{subst 1385}#) - #{marks 1386}#) - (if (if (eq? (car #{symnames 1398}#) #{sym 1384}#) - (#{same-marks? 408}# - #{marks 1386}# + ((#{f 1398}# + (lambda (#{symnames 1399}# #{i 1400}#) + (if (null? #{symnames 1399}#) + (#{search 1359}# + #{sym 1385}# + (cdr #{subst 1386}#) + #{marks 1387}#) + (if (if (eq? (car #{symnames 1399}#) #{sym 1385}#) + (#{same-marks? 409}# + #{marks 1387}# (list-ref - (#{ribcage-marks 377}# #{ribcage 1388}#) - #{i 1399}#)) + (#{ribcage-marks 378}# #{ribcage 1389}#) + #{i 1400}#)) #f) (values (list-ref - (#{ribcage-labels 379}# #{ribcage 1388}#) - #{i 1399}#) - #{marks 1386}#) - (#{f 1397}# - (cdr #{symnames 1398}#) - (#{1+}# #{i 1399}#))))))) - (begin (#{f 1397}# #{symnames 1387}# 0))))) - (#{search-vector-rib 1362}# - (lambda (#{sym 1408}# - #{subst 1409}# - #{marks 1410}# - #{symnames 1411}# - #{ribcage 1412}#) - (begin - (let ((#{n 1419}# (vector-length #{symnames 1411}#))) - (letrec* - ((#{f 1422}# - (lambda (#{i 1423}#) - (if (= #{i 1423}# #{n 1419}#) - (#{search 1358}# - #{sym 1408}# - (cdr #{subst 1409}#) - #{marks 1410}#) - (if (if (eq? (vector-ref - #{symnames 1411}# - #{i 1423}#) - #{sym 1408}#) - (#{same-marks? 408}# - #{marks 1410}# - (vector-ref - (#{ribcage-marks 377}# #{ribcage 1412}#) - #{i 1423}#)) - #f) - (values - (vector-ref - (#{ribcage-labels 379}# #{ribcage 1412}#) - #{i 1423}#) - #{marks 1410}#) - (#{f 1422}# (#{1+}# #{i 1423}#))))))) - (begin (#{f 1422}# 0)))))))) - (begin - (if (symbol? #{id 1351}#) - (begin - (let ((#{t 1435}# - (#{search 1358}# - #{id 1351}# - (cdr #{w 1352}#) - (car #{w 1352}#)))) - (if #{t 1435}# #{t 1435}# #{id 1351}#))) - (if (#{syntax-object? 311}# #{id 1351}#) - (begin - (let ((#{id 1444}# - (#{syntax-object-expression 313}# #{id 1351}#)) - (#{w1 1445}# - (#{syntax-object-wrap 315}# #{id 1351}#))) - (begin - (let ((#{marks 1447}# - (#{join-marks 406}# - (car #{w 1352}#) - (car #{w1 1445}#)))) - (call-with-values - (lambda () - (#{search 1358}# - #{id 1444}# - (cdr #{w 1352}#) - #{marks 1447}#)) - (lambda (#{new-id 1451}# #{marks 1452}#) - (if #{new-id 1451}# - #{new-id 1451}# - (begin - (let ((#{t 1460}# - (#{search 1358}# - #{id 1444}# - (cdr #{w1 1445}#) - #{marks 1452}#))) - (if #{t 1460}# - #{t 1460}# - #{id 1444}#)))))))))) - (syntax-violation - 'id-var-name - "invalid id" - #{id 1351}#))))))) - (#{free-id=? 412}# - (lambda (#{i 1465}# #{j 1466}#) - (if (eq? (if (#{syntax-object? 311}# #{i 1465}#) - (#{syntax-object-expression 313}# #{i 1465}#) - #{i 1465}#) - (if (#{syntax-object? 311}# #{j 1466}#) - (#{syntax-object-expression 313}# #{j 1466}#) - #{j 1466}#)) - (eq? (#{id-var-name 410}# #{i 1465}# '(())) - (#{id-var-name 410}# #{j 1466}# '(()))) + (#{ribcage-labels 380}# #{ribcage 1389}#) + #{i 1400}#) + #{marks 1387}#) + (#{f 1398}# + (cdr #{symnames 1399}#) + (#{1+}# #{i 1400}#))))))) + (#{f 1398}# #{symnames 1388}# 0)))) + (#{search-vector-rib 1363}# + (lambda (#{sym 1409}# + #{subst 1410}# + #{marks 1411}# + #{symnames 1412}# + #{ribcage 1413}#) + (let ((#{n 1420}# (vector-length #{symnames 1412}#))) + (letrec* + ((#{f 1423}# + (lambda (#{i 1424}#) + (if (= #{i 1424}# #{n 1420}#) + (#{search 1359}# + #{sym 1409}# + (cdr #{subst 1410}#) + #{marks 1411}#) + (if (if (eq? (vector-ref #{symnames 1412}# #{i 1424}#) + #{sym 1409}#) + (#{same-marks? 409}# + #{marks 1411}# + (vector-ref + (#{ribcage-marks 378}# #{ribcage 1413}#) + #{i 1424}#)) + #f) + (values + (vector-ref + (#{ribcage-labels 380}# #{ribcage 1413}#) + #{i 1424}#) + #{marks 1411}#) + (#{f 1423}# (#{1+}# #{i 1424}#))))))) + (#{f 1423}# 0)))))) + (if (symbol? #{id 1352}#) + (let ((#{t 1436}# + (#{search 1359}# + #{id 1352}# + (cdr #{w 1353}#) + (car #{w 1353}#)))) + (if #{t 1436}# #{t 1436}# #{id 1352}#)) + (if (#{syntax-object? 312}# #{id 1352}#) + (let ((#{id 1445}# + (#{syntax-object-expression 314}# #{id 1352}#)) + (#{w1 1446}# + (#{syntax-object-wrap 316}# #{id 1352}#))) + (let ((#{marks 1448}# + (#{join-marks 407}# + (car #{w 1353}#) + (car #{w1 1446}#)))) + (call-with-values + (lambda () + (#{search 1359}# + #{id 1445}# + (cdr #{w 1353}#) + #{marks 1448}#)) + (lambda (#{new-id 1452}# #{marks 1453}#) + (if #{new-id 1452}# + #{new-id 1452}# + (let ((#{t 1461}# + (#{search 1359}# + #{id 1445}# + (cdr #{w1 1446}#) + #{marks 1453}#))) + (if #{t 1461}# #{t 1461}# #{id 1445}#))))))) + (syntax-violation + 'id-var-name + "invalid id" + #{id 1352}#)))))) + (#{free-id=? 413}# + (lambda (#{i 1466}# #{j 1467}#) + (if (eq? (if (#{syntax-object? 312}# #{i 1466}#) + (#{syntax-object-expression 314}# #{i 1466}#) + #{i 1466}#) + (if (#{syntax-object? 312}# #{j 1467}#) + (#{syntax-object-expression 314}# #{j 1467}#) + #{j 1467}#)) + (eq? (#{id-var-name 411}# #{i 1466}# '(())) + (#{id-var-name 411}# #{j 1467}# '(()))) #f))) - (#{bound-id=? 414}# - (lambda (#{i 1479}# #{j 1480}#) - (if (if (#{syntax-object? 311}# #{i 1479}#) - (#{syntax-object? 311}# #{j 1480}#) + (#{bound-id=? 415}# + (lambda (#{i 1480}# #{j 1481}#) + (if (if (#{syntax-object? 312}# #{i 1480}#) + (#{syntax-object? 312}# #{j 1481}#) #f) - (if (eq? (#{syntax-object-expression 313}# #{i 1479}#) - (#{syntax-object-expression 313}# #{j 1480}#)) - (#{same-marks? 408}# - (car (#{syntax-object-wrap 315}# #{i 1479}#)) - (car (#{syntax-object-wrap 315}# #{j 1480}#))) + (if (eq? (#{syntax-object-expression 314}# #{i 1480}#) + (#{syntax-object-expression 314}# #{j 1481}#)) + (#{same-marks? 409}# + (car (#{syntax-object-wrap 316}# #{i 1480}#)) + (car (#{syntax-object-wrap 316}# #{j 1481}#))) #f) - (eq? #{i 1479}# #{j 1480}#)))) - (#{valid-bound-ids? 416}# - (lambda (#{ids 1489}#) + (eq? #{i 1480}# #{j 1481}#)))) + (#{valid-bound-ids? 417}# + (lambda (#{ids 1490}#) (if (letrec* - ((#{all-ids? 1494}# - (lambda (#{ids 1495}#) - (if (null? #{ids 1495}#) - (null? #{ids 1495}#) - (if (#{id? 348}# (car #{ids 1495}#)) - (#{all-ids? 1494}# (cdr #{ids 1495}#)) + ((#{all-ids? 1495}# + (lambda (#{ids 1496}#) + (if (null? #{ids 1496}#) + (null? #{ids 1496}#) + (if (#{id? 349}# (car #{ids 1496}#)) + (#{all-ids? 1495}# (cdr #{ids 1496}#)) #f))))) - (begin (#{all-ids? 1494}# #{ids 1489}#))) - (#{distinct-bound-ids? 418}# #{ids 1489}#) + (#{all-ids? 1495}# #{ids 1490}#)) + (#{distinct-bound-ids? 419}# #{ids 1490}#) #f))) - (#{distinct-bound-ids? 418}# - (lambda (#{ids 1503}#) + (#{distinct-bound-ids? 419}# + (lambda (#{ids 1504}#) (letrec* - ((#{distinct? 1507}# - (lambda (#{ids 1508}#) - (if (null? #{ids 1508}#) - (null? #{ids 1508}#) - (if (not (#{bound-id-member? 420}# - (car #{ids 1508}#) - (cdr #{ids 1508}#))) - (#{distinct? 1507}# (cdr #{ids 1508}#)) + ((#{distinct? 1508}# + (lambda (#{ids 1509}#) + (if (null? #{ids 1509}#) + (null? #{ids 1509}#) + (if (not (#{bound-id-member? 421}# + (car #{ids 1509}#) + (cdr #{ids 1509}#))) + (#{distinct? 1508}# (cdr #{ids 1509}#)) #f))))) - (begin (#{distinct? 1507}# #{ids 1503}#))))) - (#{bound-id-member? 420}# - (lambda (#{x 1515}# #{list 1516}#) - (if (not (null? #{list 1516}#)) - (begin - (let ((#{t 1523}# - (#{bound-id=? 414}# - #{x 1515}# - (car #{list 1516}#)))) - (if #{t 1523}# - #{t 1523}# - (#{bound-id-member? 420}# - #{x 1515}# - (cdr #{list 1516}#))))) + (#{distinct? 1508}# #{ids 1504}#)))) + (#{bound-id-member? 421}# + (lambda (#{x 1516}# #{list 1517}#) + (if (not (null? #{list 1517}#)) + (let ((#{t 1524}# + (#{bound-id=? 415}# + #{x 1516}# + (car #{list 1517}#)))) + (if #{t 1524}# + #{t 1524}# + (#{bound-id-member? 421}# + #{x 1516}# + (cdr #{list 1517}#)))) #f))) - (#{wrap 422}# - (lambda (#{x 1525}# #{w 1526}# #{defmod 1527}#) - (if (if (null? (car #{w 1526}#)) - (null? (cdr #{w 1526}#)) + (#{wrap 423}# + (lambda (#{x 1526}# #{w 1527}# #{defmod 1528}#) + (if (if (null? (car #{w 1527}#)) + (null? (cdr #{w 1527}#)) #f) - #{x 1525}# - (if (#{syntax-object? 311}# #{x 1525}#) - (#{make-syntax-object 309}# - (#{syntax-object-expression 313}# #{x 1525}#) - (#{join-wraps 404}# - #{w 1526}# - (#{syntax-object-wrap 315}# #{x 1525}#)) - (#{syntax-object-module 317}# #{x 1525}#)) - (if (null? #{x 1525}#) - #{x 1525}# - (#{make-syntax-object 309}# - #{x 1525}# - #{w 1526}# - #{defmod 1527}#)))))) - (#{source-wrap 424}# - (lambda (#{x 1542}# - #{w 1543}# - #{s 1544}# - #{defmod 1545}#) - (#{wrap 422}# - (#{decorate-source 264}# #{x 1542}# #{s 1544}#) - #{w 1543}# - #{defmod 1545}#))) - (#{chi-sequence 426}# - (lambda (#{body 1550}# - #{r 1551}# - #{w 1552}# - #{s 1553}# - #{mod 1554}#) - (#{build-sequence 298}# - #{s 1553}# + #{x 1526}# + (if (#{syntax-object? 312}# #{x 1526}#) + (#{make-syntax-object 310}# + (#{syntax-object-expression 314}# #{x 1526}#) + (#{join-wraps 405}# + #{w 1527}# + (#{syntax-object-wrap 316}# #{x 1526}#)) + (#{syntax-object-module 318}# #{x 1526}#)) + (if (null? #{x 1526}#) + #{x 1526}# + (#{make-syntax-object 310}# + #{x 1526}# + #{w 1527}# + #{defmod 1528}#)))))) + (#{source-wrap 425}# + (lambda (#{x 1543}# + #{w 1544}# + #{s 1545}# + #{defmod 1546}#) + (#{wrap 423}# + (#{decorate-source 265}# #{x 1543}# #{s 1545}#) + #{w 1544}# + #{defmod 1546}#))) + (#{chi-sequence 427}# + (lambda (#{body 1551}# + #{r 1552}# + #{w 1553}# + #{s 1554}# + #{mod 1555}#) + (#{build-sequence 299}# + #{s 1554}# (letrec* - ((#{dobody 1565}# - (lambda (#{body 1566}# - #{r 1567}# - #{w 1568}# - #{mod 1569}#) - (if (null? #{body 1566}#) + ((#{dobody 1566}# + (lambda (#{body 1567}# + #{r 1568}# + #{w 1569}# + #{mod 1570}#) + (if (null? #{body 1567}#) '() - (begin - (let ((#{first 1571}# - (#{chi 436}# - (car #{body 1566}#) - #{r 1567}# - #{w 1568}# - #{mod 1569}#))) - (cons #{first 1571}# - (#{dobody 1565}# - (cdr #{body 1566}#) - #{r 1567}# - #{w 1568}# - #{mod 1569}#)))))))) - (begin - (#{dobody 1565}# - #{body 1550}# - #{r 1551}# - #{w 1552}# - #{mod 1554}#)))))) - (#{chi-top-sequence 428}# - (lambda (#{body 1572}# - #{r 1573}# - #{w 1574}# - #{s 1575}# - #{m 1576}# - #{esew 1577}# - #{mod 1578}#) + (let ((#{first 1572}# + (#{chi 437}# + (car #{body 1567}#) + #{r 1568}# + #{w 1569}# + #{mod 1570}#))) + (cons #{first 1572}# + (#{dobody 1566}# + (cdr #{body 1567}#) + #{r 1568}# + #{w 1569}# + #{mod 1570}#))))))) + (#{dobody 1566}# + #{body 1551}# + #{r 1552}# + #{w 1553}# + #{mod 1555}#))))) + (#{chi-top-sequence 429}# + (lambda (#{body 1573}# + #{r 1574}# + #{w 1575}# + #{s 1576}# + #{m 1577}# + #{esew 1578}# + #{mod 1579}#) (letrec* - ((#{scan 1587}# - (lambda (#{body 1588}# - #{r 1589}# - #{w 1590}# - #{s 1591}# - #{m 1592}# - #{esew 1593}# - #{mod 1594}# - #{exps 1595}#) - (if (null? #{body 1588}#) - #{exps 1595}# + ((#{scan 1588}# + (lambda (#{body 1589}# + #{r 1590}# + #{w 1591}# + #{s 1592}# + #{m 1593}# + #{esew 1594}# + #{mod 1595}# + #{exps 1596}#) + (if (null? #{body 1589}#) + #{exps 1596}# (call-with-values (lambda () (call-with-values (lambda () - (begin - (let ((#{e 1608}# (car #{body 1588}#))) - (#{syntax-type 434}# - #{e 1608}# - #{r 1589}# - #{w 1590}# - (begin - (let ((#{t 1611}# - (#{source-annotation 326}# - #{e 1608}#))) - (if #{t 1611}# #{t 1611}# #{s 1591}#))) - #f - #{mod 1594}# - #f)))) - (lambda (#{type 1613}# - #{value 1614}# - #{e 1615}# - #{w 1616}# - #{s 1617}# - #{mod 1618}#) - (if (eqv? #{type 1613}# 'begin-form) - (begin - (let ((#{tmp 1627}# - ($sc-dispatch #{e 1615}# '(_)))) - (if #{tmp 1627}# - (@apply (lambda () #{exps 1595}#) #{tmp 1627}#) - (begin - (let ((#{tmp 1628}# - ($sc-dispatch - #{e 1615}# - '(_ any . each-any)))) - (if #{tmp 1628}# - (@apply - (lambda (#{e1 1631}# #{e2 1632}#) - (#{scan 1587}# - (cons #{e1 1631}# #{e2 1632}#) - #{r 1589}# - #{w 1616}# - #{s 1617}# - #{m 1592}# - #{esew 1593}# - #{mod 1618}# - #{exps 1595}#)) - #{tmp 1628}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1615}#))))))) - (if (eqv? #{type 1613}# 'local-syntax-form) - (#{chi-local-syntax 446}# - #{value 1614}# - #{e 1615}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - #{mod 1618}# - (lambda (#{body 1635}# - #{r 1636}# - #{w 1637}# - #{s 1638}# - #{mod 1639}#) - (#{scan 1587}# - #{body 1635}# - #{r 1636}# - #{w 1637}# - #{s 1638}# - #{m 1592}# - #{esew 1593}# - #{mod 1639}# - #{exps 1595}#))) - (if (eqv? #{type 1613}# 'eval-when-form) - (begin - (let ((#{tmp 1647}# - ($sc-dispatch - #{e 1615}# - '(_ each-any any . each-any)))) - (if #{tmp 1647}# - (@apply - (lambda (#{x 1651}# - #{e1 1652}# - #{e2 1653}#) - (begin - (let ((#{when-list 1656}# - (#{chi-when-list 432}# - #{e 1615}# - #{x 1651}# - #{w 1616}#)) - (#{body 1657}# - (cons #{e1 1652}# - #{e2 1653}#))) - (if (eq? #{m 1592}# 'e) - (if (memq 'eval - #{when-list 1656}#) - (#{scan 1587}# - #{body 1657}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - (if (memq 'expand - #{when-list 1656}#) - 'c&e - 'e) - '(eval) - #{mod 1618}# - #{exps 1595}#) - (begin - (if (memq 'expand - #{when-list 1656}#) - (#{top-level-eval-hook 254}# - (#{chi-top-sequence 428}# - #{body 1657}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - 'e - '(eval) - #{mod 1618}#) - #{mod 1618}#)) - (values #{exps 1595}#))) - (if (memq 'load - #{when-list 1656}#) - (if (begin - (let ((#{t 1666}# - (memq 'compile - #{when-list 1656}#))) - (if #{t 1666}# - #{t 1666}# - (begin - (let ((#{t 1669}# - (memq 'expand - #{when-list 1656}#))) - (if #{t 1669}# - #{t 1669}# - (if (eq? #{m 1592}# - 'c&e) - (memq 'eval - #{when-list 1656}#) - #f))))))) - (#{scan 1587}# - #{body 1657}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - 'c&e - '(compile load) - #{mod 1618}# - #{exps 1595}#) - (if (if (eq? #{m 1592}# 'c) - #t - (eq? #{m 1592}# 'c&e)) - (#{scan 1587}# - #{body 1657}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - 'c - '(load) - #{mod 1618}# - #{exps 1595}#) - (values #{exps 1595}#))) - (if (begin - (let ((#{t 1677}# - (memq 'compile - #{when-list 1656}#))) - (if #{t 1677}# - #{t 1677}# - (begin - (let ((#{t 1680}# - (memq 'expand - #{when-list 1656}#))) - (if #{t 1680}# - #{t 1680}# - (if (eq? #{m 1592}# - 'c&e) - (memq 'eval - #{when-list 1656}#) - #f))))))) - (begin - (#{top-level-eval-hook 254}# - (#{chi-top-sequence 428}# - #{body 1657}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - 'e - '(eval) - #{mod 1618}#) - #{mod 1618}#) - (values #{exps 1595}#)) - (values #{exps 1595}#))))))) - #{tmp 1647}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1615}#)))) - (if (eqv? #{type 1613}# 'define-syntax-form) - (begin - (let ((#{n 1688}# - (#{id-var-name 410}# - #{value 1614}# - #{w 1616}#)) - (#{r 1689}# - (#{macros-only-env 340}# - #{r 1589}#))) - (if (eqv? #{m 1592}# 'c) - (if (memq 'compile #{esew 1593}#) - (begin - (let ((#{e 1692}# - (#{chi-install-global 430}# - #{n 1688}# - (#{chi 436}# - #{e 1615}# - #{r 1689}# - #{w 1616}# - #{mod 1618}#)))) + (let ((#{e 1609}# (car #{body 1589}#))) + (#{syntax-type 435}# + #{e 1609}# + #{r 1590}# + #{w 1591}# + (let ((#{t 1612}# + (#{source-annotation 327}# #{e 1609}#))) + (if #{t 1612}# #{t 1612}# #{s 1592}#)) + #f + #{mod 1595}# + #f))) + (lambda (#{type 1614}# + #{value 1615}# + #{e 1616}# + #{w 1617}# + #{s 1618}# + #{mod 1619}#) + (if (memv #{type 1614}# '(begin-form)) + (let ((#{tmp 1628}# ($sc-dispatch #{e 1616}# '(_)))) + (if #{tmp 1628}# + (@apply (lambda () #{exps 1596}#) #{tmp 1628}#) + (let ((#{tmp 1629}# + ($sc-dispatch + #{e 1616}# + '(_ any . each-any)))) + (if #{tmp 1629}# + (@apply + (lambda (#{e1 1632}# #{e2 1633}#) + (#{scan 1588}# + (cons #{e1 1632}# #{e2 1633}#) + #{r 1590}# + #{w 1617}# + #{s 1618}# + #{m 1593}# + #{esew 1594}# + #{mod 1619}# + #{exps 1596}#)) + #{tmp 1629}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1616}#))))) + (if (memv #{type 1614}# '(local-syntax-form)) + (#{chi-local-syntax 447}# + #{value 1615}# + #{e 1616}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + #{mod 1619}# + (lambda (#{body 1636}# + #{r 1637}# + #{w 1638}# + #{s 1639}# + #{mod 1640}#) + (#{scan 1588}# + #{body 1636}# + #{r 1637}# + #{w 1638}# + #{s 1639}# + #{m 1593}# + #{esew 1594}# + #{mod 1640}# + #{exps 1596}#))) + (if (memv #{type 1614}# '(eval-when-form)) + (let ((#{tmp 1648}# + ($sc-dispatch + #{e 1616}# + '(_ each-any any . each-any)))) + (if #{tmp 1648}# + (@apply + (lambda (#{x 1652}# + #{e1 1653}# + #{e2 1654}#) + (let ((#{when-list 1657}# + (#{chi-when-list 433}# + #{e 1616}# + #{x 1652}# + #{w 1617}#)) + (#{body 1658}# + (cons #{e1 1653}# #{e2 1654}#))) + (if (eq? #{m 1593}# 'e) + (if (memq 'eval #{when-list 1657}#) + (#{scan 1588}# + #{body 1658}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + (if (memq 'expand + #{when-list 1657}#) + 'c&e + 'e) + '(eval) + #{mod 1619}# + #{exps 1596}#) (begin - (#{top-level-eval-hook 254}# - #{e 1692}# - #{mod 1618}#) - (if (memq 'load #{esew 1593}#) - (values - (cons #{e 1692}# - #{exps 1595}#)) - (values #{exps 1595}#))))) - (if (memq 'load #{esew 1593}#) + (if (memq 'expand + #{when-list 1657}#) + (#{top-level-eval-hook 255}# + (#{chi-top-sequence 429}# + #{body 1658}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + 'e + '(eval) + #{mod 1619}#) + #{mod 1619}#)) + (values #{exps 1596}#))) + (if (memq 'load #{when-list 1657}#) + (if (let ((#{t 1667}# + (memq 'compile + #{when-list 1657}#))) + (if #{t 1667}# + #{t 1667}# + (let ((#{t 1670}# + (memq 'expand + #{when-list 1657}#))) + (if #{t 1670}# + #{t 1670}# + (if (eq? #{m 1593}# + 'c&e) + (memq 'eval + #{when-list 1657}#) + #f))))) + (#{scan 1588}# + #{body 1658}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + 'c&e + '(compile load) + #{mod 1619}# + #{exps 1596}#) + (if (memq #{m 1593}# '(c c&e)) + (#{scan 1588}# + #{body 1658}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + 'c + '(load) + #{mod 1619}# + #{exps 1596}#) + (values #{exps 1596}#))) + (if (let ((#{t 1678}# + (memq 'compile + #{when-list 1657}#))) + (if #{t 1678}# + #{t 1678}# + (let ((#{t 1681}# + (memq 'expand + #{when-list 1657}#))) + (if #{t 1681}# + #{t 1681}# + (if (eq? #{m 1593}# + 'c&e) + (memq 'eval + #{when-list 1657}#) + #f))))) + (begin + (#{top-level-eval-hook 255}# + (#{chi-top-sequence 429}# + #{body 1658}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + 'e + '(eval) + #{mod 1619}#) + #{mod 1619}#) + (values #{exps 1596}#)) + (values #{exps 1596}#)))))) + #{tmp 1648}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1616}#))) + (if (memv #{type 1614}# '(define-syntax-form)) + (let ((#{n 1689}# + (#{id-var-name 411}# + #{value 1615}# + #{w 1617}#)) + (#{r 1690}# + (#{macros-only-env 341}# #{r 1590}#))) + (if (memv #{m 1593}# '(c)) + (if (memq 'compile #{esew 1594}#) + (let ((#{e 1693}# + (#{chi-install-global 431}# + #{n 1689}# + (#{chi 437}# + #{e 1616}# + #{r 1690}# + #{w 1617}# + #{mod 1619}#)))) + (begin + (#{top-level-eval-hook 255}# + #{e 1693}# + #{mod 1619}#) + (if (memq 'load #{esew 1594}#) + (values + (cons #{e 1693}# #{exps 1596}#)) + (values #{exps 1596}#)))) + (if (memq 'load #{esew 1594}#) + (values + (cons (#{chi-install-global 431}# + #{n 1689}# + (#{chi 437}# + #{e 1616}# + #{r 1690}# + #{w 1617}# + #{mod 1619}#)) + #{exps 1596}#)) + (values #{exps 1596}#))) + (if (memv #{m 1593}# '(c&e)) + (let ((#{e 1696}# + (#{chi-install-global 431}# + #{n 1689}# + (#{chi 437}# + #{e 1616}# + #{r 1690}# + #{w 1617}# + #{mod 1619}#)))) + (begin + (#{top-level-eval-hook 255}# + #{e 1696}# + #{mod 1619}#) (values - (cons (#{chi-install-global 430}# - #{n 1688}# - (#{chi 436}# - #{e 1615}# - #{r 1689}# - #{w 1616}# - #{mod 1618}#)) - #{exps 1595}#)) - (values #{exps 1595}#))) - (if (eqv? #{m 1592}# 'c&e) - (begin - (let ((#{e 1695}# - (#{chi-install-global 430}# - #{n 1688}# - (#{chi 436}# - #{e 1615}# - #{r 1689}# - #{w 1616}# - #{mod 1618}#)))) - (begin - (#{top-level-eval-hook 254}# - #{e 1695}# - #{mod 1618}#) - (values - (cons #{e 1695}# - #{exps 1595}#))))) - (begin - (if (memq 'eval #{esew 1593}#) - (#{top-level-eval-hook 254}# - (#{chi-install-global 430}# - #{n 1688}# - (#{chi 436}# - #{e 1615}# - #{r 1689}# - #{w 1616}# - #{mod 1618}#)) - #{mod 1618}#)) - (values #{exps 1595}#)))))) - (if (eqv? #{type 1613}# 'define-form) - (begin - (let ((#{n 1700}# - (#{id-var-name 410}# - #{value 1614}# - #{w 1616}#))) + (cons #{e 1696}# #{exps 1596}#)))) (begin - (let ((#{type 1702}# - (car (#{lookup 342}# - #{n 1700}# - #{r 1589}# - #{mod 1618}#)))) - (if (if (eqv? #{type 1702}# 'global) - #t - (if (eqv? #{type 1702}# 'core) - #t - (if (eqv? #{type 1702}# - 'macro) - #t - (eqv? #{type 1702}# - 'module-ref)))) - (begin - (if (if (if (eq? #{m 1592}# 'c) - #t - (eq? #{m 1592}# 'c&e)) - (if (not (module-local-variable - (current-module) - #{n 1700}#)) + (if (memq 'eval #{esew 1594}#) + (#{top-level-eval-hook 255}# + (#{chi-install-global 431}# + #{n 1689}# + (#{chi 437}# + #{e 1616}# + #{r 1690}# + #{w 1617}# + #{mod 1619}#)) + #{mod 1619}#)) + (values #{exps 1596}#))))) + (if (memv #{type 1614}# '(define-form)) + (let ((#{n 1701}# + (#{id-var-name 411}# + #{value 1615}# + #{w 1617}#))) + (let ((#{type 1703}# + (car (#{lookup 343}# + #{n 1701}# + #{r 1590}# + #{mod 1619}#)))) + (if (memv #{type 1703}# + '(global + core + macro + module-ref)) + (begin + (if (if (memq #{m 1593}# '(c c&e)) + (if (not (module-local-variable + (current-module) + #{n 1701}#)) + (current-module) + #f) + #f) + (let ((#{old 1710}# + (module-variable (current-module) - #f) + #{n 1701}#))) + (if (if (variable? #{old 1710}#) + (variable-bound? + #{old 1710}#) #f) - (begin - (let ((#{old 1709}# - (module-variable - (current-module) - #{n 1700}#))) - (if (if (variable? - #{old 1709}#) - (variable-bound? - #{old 1709}#) - #f) - (module-define! - (current-module) - #{n 1700}# - (variable-ref - #{old 1709}#)) - (module-add! - (current-module) - #{n 1700}# - (make-undefined-variable)))))) - (values - (cons (if (eq? #{m 1592}# 'c&e) - (begin - (let ((#{x 1713}# - (#{build-global-definition 286}# - #{s 1617}# - #{n 1700}# - (#{chi 436}# - #{e 1615}# - #{r 1589}# - #{w 1616}# - #{mod 1618}#)))) - (begin - (#{top-level-eval-hook 254}# - #{x 1713}# - #{mod 1618}#) - #{x 1713}#))) - (lambda () - (#{build-global-definition 286}# - #{s 1617}# - #{n 1700}# - (#{chi 436}# - #{e 1615}# - #{r 1589}# - #{w 1616}# - #{mod 1618}#)))) - #{exps 1595}#))) - (if (eqv? #{type 1702}# - 'displaced-lexical) - (syntax-violation - #f - "identifier out of context" - #{e 1615}# - (#{wrap 422}# - #{value 1614}# - #{w 1616}# - #{mod 1618}#)) - (syntax-violation - #f - "cannot define keyword at top level" - #{e 1615}# - (#{wrap 422}# - #{value 1614}# - #{w 1616}# - #{mod 1618}#)))))))) + (module-define! + (current-module) + #{n 1701}# + (variable-ref #{old 1710}#)) + (module-add! + (current-module) + #{n 1701}# + (make-undefined-variable))))) + (values + (cons (if (eq? #{m 1593}# 'c&e) + (let ((#{x 1714}# + (#{build-global-definition 287}# + #{s 1618}# + #{n 1701}# + (#{chi 437}# + #{e 1616}# + #{r 1590}# + #{w 1617}# + #{mod 1619}#)))) + (begin + (#{top-level-eval-hook 255}# + #{x 1714}# + #{mod 1619}#) + #{x 1714}#)) + (lambda () + (#{build-global-definition 287}# + #{s 1618}# + #{n 1701}# + (#{chi 437}# + #{e 1616}# + #{r 1590}# + #{w 1617}# + #{mod 1619}#)))) + #{exps 1596}#))) + (if (memv #{type 1703}# + '(displaced-lexical)) + (syntax-violation + #f + "identifier out of context" + #{e 1616}# + (#{wrap 423}# + #{value 1615}# + #{w 1617}# + #{mod 1619}#)) + (syntax-violation + #f + "cannot define keyword at top level" + #{e 1616}# + (#{wrap 423}# + #{value 1615}# + #{w 1617}# + #{mod 1619}#)))))) (values - (cons (if (eq? #{m 1592}# 'c&e) - (begin - (let ((#{x 1718}# - (#{chi-expr 438}# - #{type 1613}# - #{value 1614}# - #{e 1615}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - #{mod 1618}#))) - (begin - (#{top-level-eval-hook 254}# - #{x 1718}# - #{mod 1618}#) - #{x 1718}#))) + (cons (if (eq? #{m 1593}# 'c&e) + (let ((#{x 1719}# + (#{chi-expr 439}# + #{type 1614}# + #{value 1615}# + #{e 1616}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + #{mod 1619}#))) + (begin + (#{top-level-eval-hook 255}# + #{x 1719}# + #{mod 1619}#) + #{x 1719}#)) (lambda () - (#{chi-expr 438}# - #{type 1613}# - #{value 1614}# - #{e 1615}# - #{r 1589}# - #{w 1616}# - #{s 1617}# - #{mod 1618}#))) - #{exps 1595}#)))))))))) - (lambda (#{exps 1719}#) - (#{scan 1587}# - (cdr #{body 1588}#) - #{r 1589}# - #{w 1590}# - #{s 1591}# - #{m 1592}# - #{esew 1593}# - #{mod 1594}# - #{exps 1719}#))))))) - (begin - (call-with-values - (lambda () - (#{scan 1587}# - #{body 1572}# - #{r 1573}# - #{w 1574}# - #{s 1575}# - #{m 1576}# - #{esew 1577}# - #{mod 1578}# - '())) - (lambda (#{exps 1721}#) - (if (null? #{exps 1721}#) - (#{build-void 268}# #{s 1575}#) - (#{build-sequence 298}# - #{s 1575}# - (letrec* - ((#{lp 1726}# - (lambda (#{in 1727}# #{out 1728}#) - (if (null? #{in 1727}#) - #{out 1728}# - (begin - (let ((#{e 1730}# (car #{in 1727}#))) - (#{lp 1726}# - (cdr #{in 1727}#) - (cons (if (procedure? #{e 1730}#) - (#{e 1730}#) - #{e 1730}#) - #{out 1728}#)))))))) - (begin (#{lp 1726}# #{exps 1721}# '()))))))))))) - (#{chi-install-global 430}# - (lambda (#{name 1731}# #{e 1732}#) - (#{build-global-definition 286}# + (#{chi-expr 439}# + #{type 1614}# + #{value 1615}# + #{e 1616}# + #{r 1590}# + #{w 1617}# + #{s 1618}# + #{mod 1619}#))) + #{exps 1596}#)))))))))) + (lambda (#{exps 1720}#) + (#{scan 1588}# + (cdr #{body 1589}#) + #{r 1590}# + #{w 1591}# + #{s 1592}# + #{m 1593}# + #{esew 1594}# + #{mod 1595}# + #{exps 1720}#))))))) + (call-with-values + (lambda () + (#{scan 1588}# + #{body 1573}# + #{r 1574}# + #{w 1575}# + #{s 1576}# + #{m 1577}# + #{esew 1578}# + #{mod 1579}# + '())) + (lambda (#{exps 1722}#) + (if (null? #{exps 1722}#) + (#{build-void 269}# #{s 1576}#) + (#{build-sequence 299}# + #{s 1576}# + (letrec* + ((#{lp 1727}# + (lambda (#{in 1728}# #{out 1729}#) + (if (null? #{in 1728}#) + #{out 1729}# + (let ((#{e 1731}# (car #{in 1728}#))) + (#{lp 1727}# + (cdr #{in 1728}#) + (cons (if (procedure? #{e 1731}#) + (#{e 1731}#) + #{e 1731}#) + #{out 1729}#))))))) + (#{lp 1727}# #{exps 1722}# '()))))))))) + (#{chi-install-global 431}# + (lambda (#{name 1732}# #{e 1733}#) + (#{build-global-definition 287}# #f - #{name 1731}# - (#{build-application 270}# + #{name 1732}# + (#{build-application 271}# #f - (#{build-primref 294}# + (#{build-primref 295}# #f 'make-syntax-transformer) - (list (#{build-data 296}# #f #{name 1731}#) - (#{build-data 296}# #f 'macro) - #{e 1732}#))))) - (#{chi-when-list 432}# - (lambda (#{e 1740}# #{when-list 1741}# #{w 1742}#) + (list (#{build-data 297}# #f #{name 1732}#) + (#{build-data 297}# #f 'macro) + #{e 1733}#))))) + (#{chi-when-list 433}# + (lambda (#{e 1741}# #{when-list 1742}# #{w 1743}#) (letrec* - ((#{f 1749}# - (lambda (#{when-list 1750}# #{situations 1751}#) - (if (null? #{when-list 1750}#) - #{situations 1751}# - (#{f 1749}# - (cdr #{when-list 1750}#) - (cons (begin - (let ((#{x 1753}# (car #{when-list 1750}#))) - (if (#{free-id=? 412}# - #{x 1753}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1752")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1746" "i1747" "i1748")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1743" "i1744" "i1745")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - 'compile - (if (#{free-id=? 412}# - #{x 1753}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1752")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1746" "i1747" "i1748")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1743" "i1744" "i1745")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - 'load - (if (#{free-id=? 412}# - #{x 1753}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1752")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1746" "i1747" "i1748")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1743" "i1744" "i1745")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - 'eval - (if (#{free-id=? 412}# - #{x 1753}# - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1752")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1746" "i1747" "i1748")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1743" "i1744" "i1745")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - 'expand - (syntax-violation - 'eval-when - "invalid situation" - #{e 1740}# - (#{wrap 422}# - #{x 1753}# - #{w 1742}# - #f)))))))) - #{situations 1751}#)))))) - (begin (#{f 1749}# #{when-list 1741}# '()))))) - (#{syntax-type 434}# - (lambda (#{e 1763}# - #{r 1764}# - #{w 1765}# - #{s 1766}# - #{rib 1767}# - #{mod 1768}# - #{for-car? 1769}#) - (if (symbol? #{e 1763}#) - (begin - (let ((#{n 1781}# - (#{id-var-name 410}# #{e 1763}# #{w 1765}#))) - (begin - (let ((#{b 1783}# - (#{lookup 342}# - #{n 1781}# - #{r 1764}# - #{mod 1768}#))) - (begin - (let ((#{type 1785}# (car #{b 1783}#))) - (if (eqv? #{type 1785}# 'lexical) - (values - #{type 1785}# - (cdr #{b 1783}#) - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{type 1785}# 'global) - (values - #{type 1785}# - #{n 1781}# - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{type 1785}# 'macro) - (if #{for-car? 1769}# - (values - #{type 1785}# - (cdr #{b 1783}#) - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (#{syntax-type 434}# - (#{chi-macro 442}# - (cdr #{b 1783}#) - #{e 1763}# - #{r 1764}# - #{w 1765}# - #{s 1766}# - #{rib 1767}# - #{mod 1768}#) - #{r 1764}# - '(()) - #{s 1766}# - #{rib 1767}# - #{mod 1768}# - #f)) - (values - #{type 1785}# - (cdr #{b 1783}#) - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#)))))))))) - (if (pair? #{e 1763}#) - (begin - (let ((#{first 1799}# (car #{e 1763}#))) - (call-with-values - (lambda () - (#{syntax-type 434}# - #{first 1799}# - #{r 1764}# - #{w 1765}# - #{s 1766}# - #{rib 1767}# - #{mod 1768}# - #t)) - (lambda (#{ftype 1800}# - #{fval 1801}# - #{fe 1802}# - #{fw 1803}# - #{fs 1804}# - #{fmod 1805}#) - (if (eqv? #{ftype 1800}# 'lexical) - (values - 'lexical-call - #{fval 1801}# - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{ftype 1800}# 'global) - (values - 'global-call - (#{make-syntax-object 309}# - #{fval 1801}# - #{w 1765}# - #{fmod 1805}#) - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{ftype 1800}# 'macro) - (#{syntax-type 434}# - (#{chi-macro 442}# - #{fval 1801}# - #{e 1763}# - #{r 1764}# - #{w 1765}# - #{s 1766}# - #{rib 1767}# - #{mod 1768}#) - #{r 1764}# - '(()) - #{s 1766}# - #{rib 1767}# - #{mod 1768}# - #{for-car? 1769}#) - (if (eqv? #{ftype 1800}# 'module-ref) - (call-with-values - (lambda () - (#{fval 1801}# - #{e 1763}# - #{r 1764}# - #{w 1765}#)) - (lambda (#{e 1817}# - #{r 1818}# - #{w 1819}# - #{s 1820}# - #{mod 1821}#) - (#{syntax-type 434}# - #{e 1817}# - #{r 1818}# - #{w 1819}# - #{s 1820}# - #{rib 1767}# - #{mod 1821}# - #{for-car? 1769}#))) - (if (eqv? #{ftype 1800}# 'core) - (values - 'core-form - #{fval 1801}# - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{ftype 1800}# 'local-syntax) - (values - 'local-syntax-form - #{fval 1801}# - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{ftype 1800}# 'begin) - (values - 'begin-form - #f - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{ftype 1800}# 'eval-when) - (values - 'eval-when-form - #f - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (if (eqv? #{ftype 1800}# 'define) - (begin - (let ((#{tmp 1833}# - ($sc-dispatch - #{e 1763}# - '(_ any any)))) - (if (if #{tmp 1833}# - (@apply - (lambda (#{name 1836}# - #{val 1837}#) - (#{id? 348}# #{name 1836}#)) - #{tmp 1833}#) - #f) - (@apply - (lambda (#{name 1840}# - #{val 1841}#) - (values - 'define-form - #{name 1840}# - #{val 1841}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#)) - #{tmp 1833}#) - (begin - (let ((#{tmp 1842}# - ($sc-dispatch - #{e 1763}# - '(_ (any . any) - any - . - each-any)))) - (if (if #{tmp 1842}# - (@apply - (lambda (#{name 1847}# - #{args 1848}# - #{e1 1849}# - #{e2 1850}#) - (if (#{id? 348}# - #{name 1847}#) - (#{valid-bound-ids? 416}# - (#{lambda-var-list 466}# - #{args 1848}#)) - #f)) - #{tmp 1842}#) - #f) - (@apply - (lambda (#{name 1857}# - #{args 1858}# - #{e1 1859}# - #{e2 1860}#) - (values - 'define-form - (#{wrap 422}# - #{name 1857}# - #{w 1765}# - #{mod 1768}#) - (#{decorate-source 264}# - (cons '#(syntax-object - lambda - ((top) - #(ribcage - #(name - args - e1 - e2) - #((top) - (top) - (top) - (top)) - #("i1853" - "i1854" - "i1855" - "i1856")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1806" - "i1807" - "i1808" - "i1809" - "i1810" - "i1811")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1798")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1770" - "i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - (#{wrap 422}# - (cons #{args 1858}# - (cons #{e1 1859}# - #{e2 1860}#)) - #{w 1765}# - #{mod 1768}#)) - #{s 1766}#) - '(()) - #{s 1766}# - #{mod 1768}#)) - #{tmp 1842}#) - (begin - (let ((#{tmp 1863}# - ($sc-dispatch - #{e 1763}# - '(_ any)))) - (if (if #{tmp 1863}# - (@apply - (lambda (#{name 1865}#) - (#{id? 348}# - #{name 1865}#)) - #{tmp 1863}#) - #f) - (@apply - (lambda (#{name 1867}#) - (values - 'define-form - (#{wrap 422}# - #{name 1867}# - #{w 1765}# - #{mod 1768}#) - '(#(syntax-object - if - ((top) - #(ribcage - #(name) - #((top)) - #("i1866")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1806" - "i1807" - "i1808" - "i1809" - "i1810" - "i1811")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1798")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1770" - "i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1866")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1806" - "i1807" - "i1808" - "i1809" - "i1810" - "i1811")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1798")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1770" - "i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1866")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1806" - "i1807" - "i1808" - "i1809" - "i1810" - "i1811")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1798")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1770" - "i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile))) - '(()) - #{s 1766}# - #{mod 1768}#)) - #{tmp 1863}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1763}#)))))))))) - (if (eqv? #{ftype 1800}# 'define-syntax) - (begin - (let ((#{tmp 1871}# - ($sc-dispatch - #{e 1763}# - '(_ any any)))) - (if (if #{tmp 1871}# - (@apply - (lambda (#{name 1874}# - #{val 1875}#) - (#{id? 348}# - #{name 1874}#)) - #{tmp 1871}#) - #f) - (@apply - (lambda (#{name 1878}# - #{val 1879}#) - (values - 'define-syntax-form - #{name 1878}# - #{val 1879}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#)) - #{tmp 1871}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1763}#)))) - (values - 'call - #f - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#))))))))))))))) - (if (#{syntax-object? 311}# #{e 1763}#) - (#{syntax-type 434}# - (#{syntax-object-expression 313}# #{e 1763}#) - #{r 1764}# - (#{join-wraps 404}# - #{w 1765}# - (#{syntax-object-wrap 315}# #{e 1763}#)) - (begin - (let ((#{t 1885}# - (#{source-annotation 326}# #{e 1763}#))) - (if #{t 1885}# #{t 1885}# #{s 1766}#))) - #{rib 1767}# - (begin - (let ((#{t 1889}# - (#{syntax-object-module 317}# #{e 1763}#))) - (if #{t 1889}# #{t 1889}# #{mod 1768}#))) - #{for-car? 1769}#) - (if (self-evaluating? #{e 1763}#) - (values - 'constant - #f - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#) - (values - 'other - #f - #{e 1763}# - #{w 1765}# - #{s 1766}# - #{mod 1768}#))))))) - (#{chi 436}# - (lambda (#{e 1894}# #{r 1895}# #{w 1896}# #{mod 1897}#) - (call-with-values - (lambda () - (#{syntax-type 434}# - #{e 1894}# - #{r 1895}# - #{w 1896}# - (#{source-annotation 326}# #{e 1894}#) - #f - #{mod 1897}# - #f)) - (lambda (#{type 1902}# - #{value 1903}# - #{e 1904}# - #{w 1905}# - #{s 1906}# - #{mod 1907}#) - (#{chi-expr 438}# - #{type 1902}# - #{value 1903}# - #{e 1904}# - #{r 1895}# - #{w 1905}# - #{s 1906}# - #{mod 1907}#))))) - (#{chi-expr 438}# - (lambda (#{type 1914}# - #{value 1915}# - #{e 1916}# - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - (if (eqv? #{type 1914}# 'lexical) - (#{build-lexical-reference 276}# - 'value - #{s 1919}# - #{e 1916}# - #{value 1915}#) - (if (if (eqv? #{type 1914}# 'core) - #t - (eqv? #{type 1914}# 'core-form)) - (#{value 1915}# - #{e 1916}# - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - (if (eqv? #{type 1914}# 'module-ref) - (call-with-values - (lambda () - (#{value 1915}# #{e 1916}# #{r 1917}# #{w 1918}#)) - (lambda (#{e 1931}# - #{r 1932}# - #{w 1933}# - #{s 1934}# - #{mod 1935}#) - (#{chi 436}# - #{e 1931}# - #{r 1932}# - #{w 1933}# - #{mod 1935}#))) - (if (eqv? #{type 1914}# 'lexical-call) - (#{chi-application 440}# - (begin - (let ((#{id 1943}# (car #{e 1916}#))) - (#{build-lexical-reference 276}# - 'fun - (#{source-annotation 326}# #{id 1943}#) - (if (#{syntax-object? 311}# #{id 1943}#) - (syntax->datum #{id 1943}#) - #{id 1943}#) - #{value 1915}#))) - #{e 1916}# - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - (if (eqv? #{type 1914}# 'global-call) - (#{chi-application 440}# - (#{build-global-reference 282}# - (#{source-annotation 326}# (car #{e 1916}#)) - (if (#{syntax-object? 311}# #{value 1915}#) - (#{syntax-object-expression 313}# #{value 1915}#) - #{value 1915}#) - (if (#{syntax-object? 311}# #{value 1915}#) - (#{syntax-object-module 317}# #{value 1915}#) - #{mod 1920}#)) - #{e 1916}# - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - (if (eqv? #{type 1914}# 'constant) - (#{build-data 296}# - #{s 1919}# - (#{strip 462}# - (#{source-wrap 424}# - #{e 1916}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - '(()))) - (if (eqv? #{type 1914}# 'global) - (#{build-global-reference 282}# - #{s 1919}# - #{value 1915}# - #{mod 1920}#) - (if (eqv? #{type 1914}# 'call) - (#{chi-application 440}# - (#{chi 436}# - (car #{e 1916}#) - #{r 1917}# - #{w 1918}# - #{mod 1920}#) - #{e 1916}# - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - (if (eqv? #{type 1914}# 'begin-form) - (begin - (let ((#{tmp 1951}# - ($sc-dispatch - #{e 1916}# - '(_ any . each-any)))) - (if #{tmp 1951}# - (@apply - (lambda (#{e1 1954}# #{e2 1955}#) - (#{chi-sequence 426}# - (cons #{e1 1954}# #{e2 1955}#) - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#)) - #{tmp 1951}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1916}#)))) - (if (eqv? #{type 1914}# 'local-syntax-form) - (#{chi-local-syntax 446}# - #{value 1915}# - #{e 1916}# - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}# - #{chi-sequence 426}#) - (if (eqv? #{type 1914}# 'eval-when-form) - (begin - (let ((#{tmp 1960}# - ($sc-dispatch - #{e 1916}# - '(_ each-any any . each-any)))) - (if #{tmp 1960}# - (@apply - (lambda (#{x 1964}# - #{e1 1965}# - #{e2 1966}#) - (begin - (let ((#{when-list 1968}# - (#{chi-when-list 432}# - #{e 1916}# - #{x 1964}# - #{w 1918}#))) - (if (memq 'eval #{when-list 1968}#) - (#{chi-sequence 426}# - (cons #{e1 1965}# #{e2 1966}#) - #{r 1917}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#) - (#{chi-void 450}#))))) - #{tmp 1960}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1916}#)))) - (if (if (eqv? #{type 1914}# 'define-form) - #t - (eqv? #{type 1914}# 'define-syntax-form)) - (syntax-violation - #f - "definition in expression context" - #{e 1916}# - (#{wrap 422}# - #{value 1915}# - #{w 1918}# - #{mod 1920}#)) - (if (eqv? #{type 1914}# 'syntax) - (syntax-violation - #f - "reference to pattern variable outside syntax form" - (#{source-wrap 424}# - #{e 1916}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#)) - (if (eqv? #{type 1914}# 'displaced-lexical) - (syntax-violation - #f - "reference to identifier outside its scope" - (#{source-wrap 424}# - #{e 1916}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#)) - (syntax-violation - #f - "unexpected syntax" - (#{source-wrap 424}# - #{e 1916}# - #{w 1918}# - #{s 1919}# - #{mod 1920}#)))))))))))))))))) - (#{chi-application 440}# - (lambda (#{x 1975}# - #{e 1976}# - #{r 1977}# - #{w 1978}# - #{s 1979}# - #{mod 1980}#) - (begin - (let ((#{tmp 1988}# - ($sc-dispatch #{e 1976}# '(any . each-any)))) - (if #{tmp 1988}# - (@apply - (lambda (#{e0 1991}# #{e1 1992}#) - (#{build-application 270}# - #{s 1979}# - #{x 1975}# - (map (lambda (#{e 1993}#) - (#{chi 436}# - #{e 1993}# - #{r 1977}# - #{w 1978}# - #{mod 1980}#)) - #{e1 1992}#))) - #{tmp 1988}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1976}#)))))) - (#{chi-macro 442}# - (lambda (#{p 1996}# - #{e 1997}# - #{r 1998}# - #{w 1999}# - #{s 2000}# - #{rib 2001}# - #{mod 2002}#) - (letrec* - ((#{rebuild-macro-output 2011}# - (lambda (#{x 2012}# #{m 2013}#) - (if (pair? #{x 2012}#) - (#{decorate-source 264}# - (cons (#{rebuild-macro-output 2011}# - (car #{x 2012}#) - #{m 2013}#) - (#{rebuild-macro-output 2011}# - (cdr #{x 2012}#) - #{m 2013}#)) - #{s 2000}#) - (if (#{syntax-object? 311}# #{x 2012}#) - (begin - (let ((#{w 2021}# - (#{syntax-object-wrap 315}# #{x 2012}#))) - (begin - (let ((#{ms 2024}# (car #{w 2021}#)) - (#{s 2025}# (cdr #{w 2021}#))) - (if (if (pair? #{ms 2024}#) - (eq? (car #{ms 2024}#) #f) - #f) - (#{make-syntax-object 309}# - (#{syntax-object-expression 313}# #{x 2012}#) - (cons (cdr #{ms 2024}#) - (if #{rib 2001}# - (cons #{rib 2001}# (cdr #{s 2025}#)) - (cdr #{s 2025}#))) - (#{syntax-object-module 317}# #{x 2012}#)) - (#{make-syntax-object 309}# - (#{decorate-source 264}# - (#{syntax-object-expression 313}# #{x 2012}#) - #{s 2025}#) - (cons (cons #{m 2013}# #{ms 2024}#) - (if #{rib 2001}# - (cons #{rib 2001}# - (cons 'shift #{s 2025}#)) - (cons 'shift #{s 2025}#))) - (#{syntax-object-module 317}# #{x 2012}#))))))) - (if (vector? #{x 2012}#) - (begin - (let ((#{n 2037}# (vector-length #{x 2012}#))) - (begin - (let ((#{v 2039}# - (#{decorate-source 264}# - (make-vector #{n 2037}#) - #{x 2012}#))) - (letrec* - ((#{loop 2042}# - (lambda (#{i 2043}#) - (if (= #{i 2043}# #{n 2037}#) - #{v 2039}# - (begin - (vector-set! - #{v 2039}# - #{i 2043}# - (#{rebuild-macro-output 2011}# - (vector-ref #{x 2012}# #{i 2043}#) - #{m 2013}#)) - (#{loop 2042}# (#{1+}# #{i 2043}#))))))) - (begin (#{loop 2042}# 0))))))) - (if (symbol? #{x 2012}#) - (syntax-violation - #f - "encountered raw symbol in macro output" - (#{source-wrap 424}# - #{e 1997}# - #{w 1999}# - (cdr #{w 1999}#) - #{mod 2002}#) - #{x 2012}#) - (#{decorate-source 264}# #{x 2012}# #{s 2000}#)))))))) - (begin - (#{rebuild-macro-output 2011}# - (#{p 1996}# - (#{source-wrap 424}# - #{e 1997}# - (#{anti-mark 392}# #{w 1999}#) - #{s 2000}# - #{mod 2002}#)) - (gensym "m")))))) - (#{chi-body 444}# - (lambda (#{body 2053}# - #{outer-form 2054}# - #{r 2055}# - #{w 2056}# - #{mod 2057}#) - (begin - (let ((#{r 2065}# - (cons '("placeholder" placeholder) #{r 2055}#))) - (begin - (let ((#{ribcage 2067}# - (#{make-ribcage 371}# '() '() '()))) - (begin - (let ((#{w 2070}# - (cons (car #{w 2056}#) - (cons #{ribcage 2067}# (cdr #{w 2056}#))))) - (letrec* - ((#{parse 2082}# - (lambda (#{body 2083}# - #{ids 2084}# - #{labels 2085}# - #{var-ids 2086}# - #{vars 2087}# - #{vals 2088}# - #{bindings 2089}#) - (if (null? #{body 2083}#) - (syntax-violation - #f - "no expressions in body" - #{outer-form 2054}#) - (begin - (let ((#{e 2094}# (cdr (car #{body 2083}#))) - (#{er 2095}# (car (car #{body 2083}#)))) - (call-with-values - (lambda () - (#{syntax-type 434}# - #{e 2094}# - #{er 2095}# - '(()) - (#{source-annotation 326}# #{er 2095}#) - #{ribcage 2067}# - #{mod 2057}# - #f)) - (lambda (#{type 2097}# - #{value 2098}# - #{e 2099}# - #{w 2100}# - #{s 2101}# - #{mod 2102}#) - (if (eqv? #{type 2097}# 'define-form) - (begin - (let ((#{id 2112}# - (#{wrap 422}# - #{value 2098}# - #{w 2100}# - #{mod 2102}#)) - (#{label 2113}# - (#{gen-label 366}#))) - (begin - (let ((#{var 2115}# - (#{gen-var 464}# - #{id 2112}#))) - (begin - (#{extend-ribcage! 398}# - #{ribcage 2067}# - #{id 2112}# - #{label 2113}#) - (#{parse 2082}# - (cdr #{body 2083}#) - (cons #{id 2112}# - #{ids 2084}#) - (cons #{label 2113}# - #{labels 2085}#) - (cons #{id 2112}# - #{var-ids 2086}#) - (cons #{var 2115}# - #{vars 2087}#) - (cons (cons #{er 2095}# - (#{wrap 422}# - #{e 2099}# - #{w 2100}# - #{mod 2102}#)) - #{vals 2088}#) - (cons (cons 'lexical - #{var 2115}#) - #{bindings 2089}#))))))) - (if (eqv? #{type 2097}# - 'define-syntax-form) - (begin - (let ((#{id 2120}# - (#{wrap 422}# - #{value 2098}# - #{w 2100}# - #{mod 2102}#)) - (#{label 2121}# - (#{gen-label 366}#))) - (begin - (#{extend-ribcage! 398}# - #{ribcage 2067}# - #{id 2120}# - #{label 2121}#) - (#{parse 2082}# - (cdr #{body 2083}#) - (cons #{id 2120}# #{ids 2084}#) - (cons #{label 2121}# - #{labels 2085}#) - #{var-ids 2086}# - #{vars 2087}# - #{vals 2088}# - (cons (cons 'macro - (cons #{er 2095}# - (#{wrap 422}# - #{e 2099}# - #{w 2100}# - #{mod 2102}#))) - #{bindings 2089}#))))) - (if (eqv? #{type 2097}# 'begin-form) - (begin - (let ((#{tmp 2125}# - ($sc-dispatch - #{e 2099}# - '(_ . each-any)))) - (if #{tmp 2125}# - (@apply - (lambda (#{e1 2127}#) - (#{parse 2082}# - (letrec* - ((#{f 2130}# - (lambda (#{forms 2131}#) - (if (null? #{forms 2131}#) - (cdr #{body 2083}#) - (cons (cons #{er 2095}# - (#{wrap 422}# - (car #{forms 2131}#) - #{w 2100}# - #{mod 2102}#)) - (#{f 2130}# - (cdr #{forms 2131}#))))))) - (begin - (#{f 2130}# - #{e1 2127}#))) - #{ids 2084}# - #{labels 2085}# - #{var-ids 2086}# - #{vars 2087}# - #{vals 2088}# - #{bindings 2089}#)) - #{tmp 2125}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 2099}#)))) - (if (eqv? #{type 2097}# - 'local-syntax-form) - (#{chi-local-syntax 446}# - #{value 2098}# - #{e 2099}# - #{er 2095}# - #{w 2100}# - #{s 2101}# - #{mod 2102}# - (lambda (#{forms 2134}# - #{er 2135}# - #{w 2136}# - #{s 2137}# - #{mod 2138}#) - (#{parse 2082}# - (letrec* - ((#{f 2146}# - (lambda (#{forms 2147}#) - (if (null? #{forms 2147}#) - (cdr #{body 2083}#) - (cons (cons #{er 2135}# - (#{wrap 422}# - (car #{forms 2147}#) - #{w 2136}# - #{mod 2138}#)) - (#{f 2146}# - (cdr #{forms 2147}#))))))) - (begin - (#{f 2146}# - #{forms 2134}#))) - #{ids 2084}# - #{labels 2085}# - #{var-ids 2086}# - #{vars 2087}# - #{vals 2088}# - #{bindings 2089}#))) - (if (null? #{ids 2084}#) - (#{build-sequence 298}# - #f - (map (lambda (#{x 2150}#) - (#{chi 436}# - (cdr #{x 2150}#) - (car #{x 2150}#) - '(()) - #{mod 2102}#)) - (cons (cons #{er 2095}# - (#{source-wrap 424}# - #{e 2099}# - #{w 2100}# - #{s 2101}# - #{mod 2102}#)) - (cdr #{body 2083}#)))) - (begin - (if (not (#{valid-bound-ids? 416}# - #{ids 2084}#)) - (syntax-violation - #f - "invalid or duplicate identifier in definition" - #{outer-form 2054}#)) - (letrec* - ((#{loop 2157}# - (lambda (#{bs 2158}# - #{er-cache 2159}# - #{r-cache 2160}#) - (if (not (null? #{bs 2158}#)) - (begin - (let ((#{b 2163}# - (car #{bs 2158}#))) - (if (eq? (car #{b 2163}#) - 'macro) - (begin - (let ((#{er 2166}# - (car (cdr #{b 2163}#)))) - (begin - (let ((#{r-cache 2168}# - (if (eq? #{er 2166}# - #{er-cache 2159}#) - #{r-cache 2160}# - (#{macros-only-env 340}# - #{er 2166}#)))) - (begin - (set-cdr! - #{b 2163}# - (#{eval-local-transformer 448}# - (#{chi 436}# - (cdr (cdr #{b 2163}#)) - #{r-cache 2168}# - '(()) - #{mod 2102}#) - #{mod 2102}#)) - (#{loop 2157}# - (cdr #{bs 2158}#) - #{er 2166}# - #{r-cache 2168}#)))))) - (#{loop 2157}# - (cdr #{bs 2158}#) - #{er-cache 2159}# - #{r-cache 2160}#)))))))) - (begin - (#{loop 2157}# - #{bindings 2089}# - #f - #f))) - (set-cdr! - #{r 2065}# - (#{extend-env 336}# - #{labels 2085}# - #{bindings 2089}# - (cdr #{r 2065}#))) - (#{build-letrec 304}# - #f - #t - (reverse - (map syntax->datum - #{var-ids 2086}#)) - (reverse #{vars 2087}#) - (map (lambda (#{x 2171}#) - (#{chi 436}# - (cdr #{x 2171}#) - (car #{x 2171}#) - '(()) - #{mod 2102}#)) - (reverse #{vals 2088}#)) - (#{build-sequence 298}# - #f - (map (lambda (#{x 2175}#) - (#{chi 436}# - (cdr #{x 2175}#) - (car #{x 2175}#) - '(()) - #{mod 2102}#)) - (cons (cons #{er 2095}# - (#{source-wrap 424}# - #{e 2099}# - #{w 2100}# - #{s 2101}# - #{mod 2102}#)) - (cdr #{body 2083}#))))))))))))))))))) - (begin - (#{parse 2082}# - (map (lambda (#{x 2090}#) - (cons #{r 2065}# - (#{wrap 422}# - #{x 2090}# - #{w 2070}# - #{mod 2057}#))) - #{body 2053}#) - '() - '() - '() - '() - '() - '()))))))))))) - (#{chi-local-syntax 446}# - (lambda (#{rec? 2178}# - #{e 2179}# - #{r 2180}# - #{w 2181}# - #{s 2182}# - #{mod 2183}# - #{k 2184}#) - (begin - (let ((#{tmp 2193}# - ($sc-dispatch - #{e 2179}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 2193}# - (@apply - (lambda (#{id 2198}# - #{val 2199}# - #{e1 2200}# - #{e2 2201}#) - (if (not (#{valid-bound-ids? 416}# #{id 2198}#)) - (syntax-violation - #f - "duplicate bound keyword" - #{e 2179}#) - (begin - (let ((#{labels 2206}# - (#{gen-labels 368}# #{id 2198}#))) - (begin - (let ((#{new-w 2208}# - (#{make-binding-wrap 400}# - #{id 2198}# - #{labels 2206}# - #{w 2181}#))) - (#{k 2184}# - (cons #{e1 2200}# #{e2 2201}#) - (#{extend-env 336}# - #{labels 2206}# - (begin - (let ((#{trans-r 2213}# - (#{macros-only-env 340}# #{r 2180}#))) - (begin - (if #{rec? 2178}# (if #f #f)) - (map (lambda (#{x 2214}#) - (cons 'macro - (#{eval-local-transformer 448}# - (#{chi 436}# - #{x 2214}# - #{trans-r 2213}# - (if #{rec? 2178}# - #{new-w 2208}# - #{w 2181}#) - #{mod 2183}#) - #{mod 2183}#))) - #{val 2199}#)))) - #{r 2180}#) - #{new-w 2208}# - #{s 2182}# - #{mod 2183}#))))))) - #{tmp 2193}#) - (syntax-violation - #f - "bad local syntax definition" - (#{source-wrap 424}# - #{e 2179}# - #{w 2181}# - #{s 2182}# - #{mod 2183}#))))))) - (#{eval-local-transformer 448}# - (lambda (#{expanded 2220}# #{mod 2221}#) - (begin - (let ((#{p 2225}# - (#{local-eval-hook 256}# - #{expanded 2220}# - #{mod 2221}#))) - (if (procedure? #{p 2225}#) - #{p 2225}# - (syntax-violation - #f - "nonprocedure transformer" - #{p 2225}#)))))) - (#{chi-void 450}# - (lambda () (#{build-void 268}# #f))) - (#{ellipsis? 452}# - (lambda (#{x 2227}#) - (if (#{nonsymbol-id? 346}# #{x 2227}#) - (#{free-id=? 412}# - #{x 2227}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - #f))) - (#{lambda-formals 454}# - (lambda (#{orig-args 2231}#) - (letrec* - ((#{req 2234}# - (lambda (#{args 2237}# #{rreq 2238}#) - (begin - (let ((#{tmp 2242}# ($sc-dispatch #{args 2237}# '()))) - (if #{tmp 2242}# - (@apply - (lambda () - (#{check 2236}# (reverse #{rreq 2238}#) #f)) - #{tmp 2242}#) - (begin - (let ((#{tmp 2243}# - ($sc-dispatch #{args 2237}# '(any . any)))) - (if (if #{tmp 2243}# - (@apply - (lambda (#{a 2246}# #{b 2247}#) - (#{id? 348}# #{a 2246}#)) - #{tmp 2243}#) - #f) - (@apply - (lambda (#{a 2250}# #{b 2251}#) - (#{req 2234}# - #{b 2251}# - (cons #{a 2250}# #{rreq 2238}#))) - #{tmp 2243}#) - (begin - (let ((#{tmp 2252}# (list #{args 2237}#))) - (if (if #{tmp 2252}# - (@apply - (lambda (#{r 2254}#) - (#{id? 348}# #{r 2254}#)) - #{tmp 2252}#) - #f) - (@apply - (lambda (#{r 2256}#) - (#{check 2236}# - (reverse #{rreq 2238}#) - #{r 2256}#)) - #{tmp 2252}#) - (syntax-violation - 'lambda - "invalid argument list" - #{orig-args 2231}# - #{args 2237}#)))))))))))) - (#{check 2236}# - (lambda (#{req 2259}# #{rest 2260}#) - (if (#{distinct-bound-ids? 418}# - (if #{rest 2260}# - (cons #{rest 2260}# #{req 2259}#) - #{req 2259}#)) - (values #{req 2259}# #f #{rest 2260}# #f) - (syntax-violation - 'lambda - "duplicate identifier in argument list" - #{orig-args 2231}#))))) - (begin (#{req 2234}# #{orig-args 2231}# '()))))) - (#{lambda*-formals 458}# - (lambda (#{orig-args 2293}#) - (letrec* - ((#{req 2296}# - (lambda (#{args 2305}# #{rreq 2306}#) - (begin - (let ((#{tmp 2310}# ($sc-dispatch #{args 2305}# '()))) - (if #{tmp 2310}# - (@apply - (lambda () - (#{check 2304}# - (reverse #{rreq 2306}#) - '() - #f - '())) - #{tmp 2310}#) - (begin - (let ((#{tmp 2311}# - ($sc-dispatch #{args 2305}# '(any . any)))) - (if (if #{tmp 2311}# - (@apply - (lambda (#{a 2314}# #{b 2315}#) - (#{id? 348}# #{a 2314}#)) - #{tmp 2311}#) - #f) - (@apply - (lambda (#{a 2318}# #{b 2319}#) - (#{req 2296}# - #{b 2319}# - (cons #{a 2318}# #{rreq 2306}#))) - #{tmp 2311}#) - (begin - (let ((#{tmp 2320}# - ($sc-dispatch #{args 2305}# '(any . any)))) - (if (if #{tmp 2320}# - (@apply - (lambda (#{a 2323}# #{b 2324}#) - (eq? (syntax->datum #{a 2323}#) - #:optional)) - #{tmp 2320}#) - #f) - (@apply - (lambda (#{a 2327}# #{b 2328}#) - (#{opt 2298}# - #{b 2328}# - (reverse #{rreq 2306}#) - '())) - #{tmp 2320}#) - (begin - (let ((#{tmp 2329}# - ($sc-dispatch - #{args 2305}# - '(any . any)))) - (if (if #{tmp 2329}# - (@apply - (lambda (#{a 2332}# #{b 2333}#) - (eq? (syntax->datum #{a 2332}#) - #:key)) - #{tmp 2329}#) - #f) - (@apply - (lambda (#{a 2336}# #{b 2337}#) - (#{key 2300}# - #{b 2337}# - (reverse #{rreq 2306}#) - '() - '())) - #{tmp 2329}#) - (begin - (let ((#{tmp 2338}# - ($sc-dispatch - #{args 2305}# - '(any any)))) - (if (if #{tmp 2338}# - (@apply - (lambda (#{a 2341}# - #{b 2342}#) - (eq? (syntax->datum - #{a 2341}#) - #:rest)) - #{tmp 2338}#) - #f) - (@apply - (lambda (#{a 2345}# #{b 2346}#) - (#{rest 2302}# - #{b 2346}# - (reverse #{rreq 2306}#) - '() - '())) - #{tmp 2338}#) - (begin - (let ((#{tmp 2347}# - (list #{args 2305}#))) - (if (if #{tmp 2347}# - (@apply - (lambda (#{r 2349}#) - (#{id? 348}# - #{r 2349}#)) - #{tmp 2347}#) - #f) - (@apply - (lambda (#{r 2351}#) - (#{rest 2302}# - #{r 2351}# - (reverse #{rreq 2306}#) - '() - '())) - #{tmp 2347}#) - (syntax-violation - 'lambda* - "invalid argument list" - #{orig-args 2293}# - #{args 2305}#))))))))))))))))))))) - (#{opt 2298}# - (lambda (#{args 2354}# #{req 2355}# #{ropt 2356}#) - (begin - (let ((#{tmp 2361}# ($sc-dispatch #{args 2354}# '()))) - (if #{tmp 2361}# - (@apply - (lambda () - (#{check 2304}# - #{req 2355}# - (reverse #{ropt 2356}#) - #f - '())) - #{tmp 2361}#) - (begin - (let ((#{tmp 2362}# - ($sc-dispatch #{args 2354}# '(any . any)))) - (if (if #{tmp 2362}# - (@apply - (lambda (#{a 2365}# #{b 2366}#) - (#{id? 348}# #{a 2365}#)) - #{tmp 2362}#) - #f) - (@apply - (lambda (#{a 2369}# #{b 2370}#) - (#{opt 2298}# - #{b 2370}# - #{req 2355}# - (cons (cons #{a 2369}# - '(#(syntax-object - #f - ((top) - #(ribcage - #(a b) - #((top) (top)) - #("i2367" "i2368")) - #(ribcage () () ()) - #(ribcage - #(args req ropt) - #((top) (top) (top)) - #("i2357" "i2358" "i2359")) - #(ribcage - (check rest key opt req) - ((top) - (top) - (top) - (top) - (top)) - ("i2303" - "i2301" - "i2299" - "i2297" - "i2295")) - #(ribcage - #(orig-args) - #((top)) - #("i2294")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)))) - #{ropt 2356}#))) - #{tmp 2362}#) - (begin - (let ((#{tmp 2371}# - ($sc-dispatch - #{args 2354}# - '((any any) . any)))) - (if (if #{tmp 2371}# - (@apply - (lambda (#{a 2375}# - #{init 2376}# - #{b 2377}#) - (#{id? 348}# #{a 2375}#)) - #{tmp 2371}#) - #f) - (@apply - (lambda (#{a 2381}# #{init 2382}# #{b 2383}#) - (#{opt 2298}# - #{b 2383}# - #{req 2355}# - (cons (list #{a 2381}# #{init 2382}#) - #{ropt 2356}#))) - #{tmp 2371}#) - (begin - (let ((#{tmp 2384}# - ($sc-dispatch - #{args 2354}# - '(any . any)))) - (if (if #{tmp 2384}# - (@apply - (lambda (#{a 2387}# #{b 2388}#) - (eq? (syntax->datum #{a 2387}#) - #:key)) - #{tmp 2384}#) - #f) - (@apply - (lambda (#{a 2391}# #{b 2392}#) - (#{key 2300}# - #{b 2392}# - #{req 2355}# - (reverse #{ropt 2356}#) - '())) - #{tmp 2384}#) - (begin - (let ((#{tmp 2393}# - ($sc-dispatch - #{args 2354}# - '(any any)))) - (if (if #{tmp 2393}# - (@apply - (lambda (#{a 2396}# - #{b 2397}#) - (eq? (syntax->datum - #{a 2396}#) - #:rest)) - #{tmp 2393}#) - #f) - (@apply - (lambda (#{a 2400}# #{b 2401}#) - (#{rest 2302}# - #{b 2401}# - #{req 2355}# - (reverse #{ropt 2356}#) - '())) - #{tmp 2393}#) - (begin - (let ((#{tmp 2402}# - (list #{args 2354}#))) - (if (if #{tmp 2402}# - (@apply - (lambda (#{r 2404}#) - (#{id? 348}# - #{r 2404}#)) - #{tmp 2402}#) - #f) - (@apply - (lambda (#{r 2406}#) - (#{rest 2302}# - #{r 2406}# - #{req 2355}# - (reverse #{ropt 2356}#) - '())) - #{tmp 2402}#) - (syntax-violation - 'lambda* - "invalid optional argument list" - #{orig-args 2293}# - #{args 2354}#))))))))))))))))))))) - (#{key 2300}# - (lambda (#{args 2409}# - #{req 2410}# - #{opt 2411}# - #{rkey 2412}#) - (begin - (let ((#{tmp 2418}# ($sc-dispatch #{args 2409}# '()))) - (if #{tmp 2418}# - (@apply - (lambda () - (#{check 2304}# - #{req 2410}# - #{opt 2411}# - #f - (cons #f (reverse #{rkey 2412}#)))) - #{tmp 2418}#) - (begin - (let ((#{tmp 2419}# - ($sc-dispatch #{args 2409}# '(any . any)))) - (if (if #{tmp 2419}# - (@apply - (lambda (#{a 2422}# #{b 2423}#) - (#{id? 348}# #{a 2422}#)) - #{tmp 2419}#) - #f) - (@apply - (lambda (#{a 2426}# #{b 2427}#) - (begin - (let ((#{tmp 2429}# - (symbol->keyword - (syntax->datum #{a 2426}#)))) - (#{key 2300}# - #{b 2427}# - #{req 2410}# - #{opt 2411}# - (cons (cons #{tmp 2429}# - (cons #{a 2426}# - '(#(syntax-object - #f - ((top) - #(ribcage () () ()) - #(ribcage - #(k) - #((top)) - #("i2430")) - #(ribcage - #(a b) - #((top) (top)) - #("i2424" - "i2425")) - #(ribcage () () ()) - #(ribcage - #(args - req - opt - rkey) - #((top) - (top) - (top) - (top)) - #("i2413" - "i2414" - "i2415" - "i2416")) - #(ribcage - (check rest - key - opt - req) - ((top) - (top) - (top) - (top) - (top)) - ("i2303" - "i2301" - "i2299" - "i2297" - "i2295")) - #(ribcage - #(orig-args) - #((top)) - #("i2294")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile))))) - #{rkey 2412}#))))) - #{tmp 2419}#) - (begin - (let ((#{tmp 2432}# - ($sc-dispatch - #{args 2409}# - '((any any) . any)))) - (if (if #{tmp 2432}# - (@apply - (lambda (#{a 2436}# - #{init 2437}# - #{b 2438}#) - (#{id? 348}# #{a 2436}#)) - #{tmp 2432}#) - #f) - (@apply - (lambda (#{a 2442}# #{init 2443}# #{b 2444}#) - (begin - (let ((#{tmp 2446}# - (symbol->keyword - (syntax->datum #{a 2442}#)))) - (#{key 2300}# - #{b 2444}# - #{req 2410}# - #{opt 2411}# - (cons (list #{tmp 2446}# - #{a 2442}# - #{init 2443}#) - #{rkey 2412}#))))) - #{tmp 2432}#) - (begin - (let ((#{tmp 2449}# - ($sc-dispatch - #{args 2409}# - '((any any any) . any)))) - (if (if #{tmp 2449}# - (@apply - (lambda (#{a 2454}# - #{init 2455}# - #{k 2456}# - #{b 2457}#) - (if (#{id? 348}# #{a 2454}#) - (keyword? - (syntax->datum #{k 2456}#)) - #f)) - #{tmp 2449}#) - #f) - (@apply - (lambda (#{a 2464}# - #{init 2465}# - #{k 2466}# - #{b 2467}#) - (#{key 2300}# - #{b 2467}# - #{req 2410}# - #{opt 2411}# - (cons (list #{k 2466}# - #{a 2464}# - #{init 2465}#) - #{rkey 2412}#))) - #{tmp 2449}#) - (begin - (let ((#{tmp 2468}# - ($sc-dispatch - #{args 2409}# - '(any)))) - (if (if #{tmp 2468}# - (@apply - (lambda (#{aok 2470}#) - (eq? (syntax->datum - #{aok 2470}#) - #:allow-other-keys)) - #{tmp 2468}#) - #f) - (@apply - (lambda (#{aok 2472}#) - (#{check 2304}# - #{req 2410}# - #{opt 2411}# - #f - (cons #t - (reverse - #{rkey 2412}#)))) - #{tmp 2468}#) - (begin - (let ((#{tmp 2473}# - ($sc-dispatch - #{args 2409}# - '(any any any)))) - (if (if #{tmp 2473}# - (@apply - (lambda (#{aok 2477}# - #{a 2478}# - #{b 2479}#) - (if (eq? (syntax->datum - #{aok 2477}#) - #:allow-other-keys) - (eq? (syntax->datum - #{a 2478}#) - #:rest) - #f)) - #{tmp 2473}#) - #f) - (@apply - (lambda (#{aok 2485}# - #{a 2486}# - #{b 2487}#) - (#{rest 2302}# - #{b 2487}# - #{req 2410}# - #{opt 2411}# - (cons #t - (reverse - #{rkey 2412}#)))) - #{tmp 2473}#) - (begin - (let ((#{tmp 2488}# - ($sc-dispatch - #{args 2409}# - '(any . any)))) - (if (if #{tmp 2488}# - (@apply - (lambda (#{aok 2491}# - #{r 2492}#) - (if (eq? (syntax->datum - #{aok 2491}#) - #:allow-other-keys) - (#{id? 348}# - #{r 2492}#) - #f)) - #{tmp 2488}#) - #f) - (@apply - (lambda (#{aok 2497}# - #{r 2498}#) - (#{rest 2302}# - #{r 2498}# - #{req 2410}# - #{opt 2411}# - (cons #t - (reverse - #{rkey 2412}#)))) - #{tmp 2488}#) - (begin - (let ((#{tmp 2499}# - ($sc-dispatch - #{args 2409}# - '(any any)))) - (if (if #{tmp 2499}# - (@apply - (lambda (#{a 2502}# - #{b 2503}#) - (eq? (syntax->datum - #{a 2502}#) - #:rest)) - #{tmp 2499}#) - #f) - (@apply - (lambda (#{a 2506}# - #{b 2507}#) - (#{rest 2302}# - #{b 2507}# - #{req 2410}# - #{opt 2411}# - (cons #f - (reverse - #{rkey 2412}#)))) - #{tmp 2499}#) - (begin - (let ((#{tmp 2508}# - (list #{args 2409}#))) - (if (if #{tmp 2508}# - (@apply - (lambda (#{r 2510}#) - (#{id? 348}# - #{r 2510}#)) - #{tmp 2508}#) - #f) - (@apply - (lambda (#{r 2512}#) - (#{rest 2302}# - #{r 2512}# - #{req 2410}# - #{opt 2411}# - (cons #f - (reverse - #{rkey 2412}#)))) - #{tmp 2508}#) - (syntax-violation - 'lambda* - "invalid keyword argument list" - #{orig-args 2293}# - #{args 2409}#)))))))))))))))))))))))))))))) - (#{rest 2302}# - (lambda (#{args 2515}# - #{req 2516}# - #{opt 2517}# - #{kw 2518}#) - (begin - (let ((#{tmp 2524}# (list #{args 2515}#))) - (if (if #{tmp 2524}# - (@apply - (lambda (#{r 2526}#) (#{id? 348}# #{r 2526}#)) - #{tmp 2524}#) - #f) - (@apply - (lambda (#{r 2528}#) - (#{check 2304}# - #{req 2516}# - #{opt 2517}# - #{r 2528}# - #{kw 2518}#)) - #{tmp 2524}#) - (syntax-violation - 'lambda* - "invalid rest argument" - #{orig-args 2293}# - #{args 2515}#)))))) - (#{check 2304}# - (lambda (#{req 2531}# - #{opt 2532}# - #{rest 2533}# - #{kw 2534}#) - (if (#{distinct-bound-ids? 418}# - (append - #{req 2531}# - (map car #{opt 2532}#) - (if #{rest 2533}# (list #{rest 2533}#) '()) - (if (pair? #{kw 2534}#) - (map cadr (cdr #{kw 2534}#)) - '()))) - (values - #{req 2531}# - #{opt 2532}# - #{rest 2533}# - #{kw 2534}#) - (syntax-violation - 'lambda* - "duplicate identifier in argument list" - #{orig-args 2293}#))))) - (begin (#{req 2296}# #{orig-args 2293}# '()))))) - (#{chi-lambda-case 460}# - (lambda (#{e 2542}# - #{r 2543}# - #{w 2544}# - #{s 2545}# - #{mod 2546}# - #{get-formals 2547}# - #{clauses 2548}#) - (letrec* - ((#{expand-opt 2559}# - (lambda (#{req 2582}# - #{opt 2583}# - #{rest 2584}# - #{kw 2585}# - #{body 2586}# - #{vars 2587}# - #{r* 2588}# - #{w* 2589}# - #{out 2590}# - #{inits 2591}#) - (if (pair? #{opt 2583}#) - (begin - (let ((#{tmp 2604}# (car #{opt 2583}#))) - (begin - (let ((#{tmp 2605}# - ($sc-dispatch #{tmp 2604}# '(any any)))) - (if #{tmp 2605}# - (@apply - (lambda (#{id 2608}# #{i 2609}#) - (begin - (let ((#{v 2612}# - (#{gen-var 464}# #{id 2608}#))) - (begin - (let ((#{l 2614}# - (#{gen-labels 368}# - (list #{v 2612}#)))) - (begin - (let ((#{r** 2616}# - (#{extend-var-env 338}# - #{l 2614}# - (list #{v 2612}#) - #{r* 2588}#))) - (begin - (let ((#{w** 2618}# - (#{make-binding-wrap 400}# - (list #{id 2608}#) - #{l 2614}# - #{w* 2589}#))) - (#{expand-opt 2559}# - #{req 2582}# - (cdr #{opt 2583}#) - #{rest 2584}# - #{kw 2585}# - #{body 2586}# - (cons #{v 2612}# #{vars 2587}#) - #{r** 2616}# - #{w** 2618}# - (cons (syntax->datum - #{id 2608}#) - #{out 2590}#) - (cons (#{chi 436}# - #{i 2609}# - #{r* 2588}# - #{w* 2589}# - #{mod 2546}#) - #{inits 2591}#))))))))))) - #{tmp 2605}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 2604}#)))))) - (if #{rest 2584}# - (begin - (let ((#{v 2623}# (#{gen-var 464}# #{rest 2584}#))) - (begin - (let ((#{l 2625}# - (#{gen-labels 368}# (list #{v 2623}#)))) - (begin - (let ((#{r* 2627}# - (#{extend-var-env 338}# - #{l 2625}# - (list #{v 2623}#) - #{r* 2588}#))) - (begin - (let ((#{w* 2629}# - (#{make-binding-wrap 400}# - (list #{rest 2584}#) - #{l 2625}# - #{w* 2589}#))) - (#{expand-kw 2561}# - #{req 2582}# - (if (pair? #{out 2590}#) - (reverse #{out 2590}#) - #f) - (syntax->datum #{rest 2584}#) - (if (pair? #{kw 2585}#) - (cdr #{kw 2585}#) - #{kw 2585}#) - #{body 2586}# - (cons #{v 2623}# #{vars 2587}#) - #{r* 2627}# - #{w* 2629}# - (if (pair? #{kw 2585}#) - (car #{kw 2585}#) - #f) - '() - #{inits 2591}#))))))))) - (#{expand-kw 2561}# - #{req 2582}# - (if (pair? #{out 2590}#) - (reverse #{out 2590}#) - #f) - #f - (if (pair? #{kw 2585}#) - (cdr #{kw 2585}#) - #{kw 2585}#) - #{body 2586}# - #{vars 2587}# - #{r* 2588}# - #{w* 2589}# - (if (pair? #{kw 2585}#) (car #{kw 2585}#) #f) - '() - #{inits 2591}#))))) - (#{expand-kw 2561}# - (lambda (#{req 2631}# - #{opt 2632}# - #{rest 2633}# - #{kw 2634}# - #{body 2635}# - #{vars 2636}# - #{r* 2637}# - #{w* 2638}# - #{aok 2639}# - #{out 2640}# - #{inits 2641}#) - (if (pair? #{kw 2634}#) - (begin - (let ((#{tmp 2655}# (car #{kw 2634}#))) - (begin - (let ((#{tmp 2656}# - ($sc-dispatch #{tmp 2655}# '(any any any)))) - (if #{tmp 2656}# - (@apply - (lambda (#{k 2660}# #{id 2661}# #{i 2662}#) - (begin - (let ((#{v 2665}# - (#{gen-var 464}# #{id 2661}#))) - (begin - (let ((#{l 2667}# - (#{gen-labels 368}# - (list #{v 2665}#)))) - (begin - (let ((#{r** 2669}# - (#{extend-var-env 338}# - #{l 2667}# - (list #{v 2665}#) - #{r* 2637}#))) - (begin - (let ((#{w** 2671}# - (#{make-binding-wrap 400}# - (list #{id 2661}#) - #{l 2667}# - #{w* 2638}#))) - (#{expand-kw 2561}# - #{req 2631}# - #{opt 2632}# - #{rest 2633}# - (cdr #{kw 2634}#) - #{body 2635}# - (cons #{v 2665}# #{vars 2636}#) - #{r** 2669}# - #{w** 2671}# - #{aok 2639}# - (cons (list (syntax->datum - #{k 2660}#) - (syntax->datum - #{id 2661}#) - #{v 2665}#) - #{out 2640}#) - (cons (#{chi 436}# - #{i 2662}# - #{r* 2637}# - #{w* 2638}# - #{mod 2546}#) - #{inits 2641}#))))))))))) - #{tmp 2656}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 2655}#)))))) - (#{expand-body 2563}# - #{req 2631}# - #{opt 2632}# - #{rest 2633}# - (if (if #{aok 2639}# - #{aok 2639}# - (pair? #{out 2640}#)) - (cons #{aok 2639}# (reverse #{out 2640}#)) - #f) - #{body 2635}# - (reverse #{vars 2636}#) - #{r* 2637}# - #{w* 2638}# - (reverse #{inits 2641}#) - '())))) - (#{expand-body 2563}# - (lambda (#{req 2677}# - #{opt 2678}# - #{rest 2679}# - #{kw 2680}# - #{body 2681}# - #{vars 2682}# - #{r* 2683}# - #{w* 2684}# - #{inits 2685}# - #{meta 2686}#) - (begin - (let ((#{tmp 2698}# - ($sc-dispatch - #{body 2681}# - '(any any . each-any)))) - (if (if #{tmp 2698}# - (@apply - (lambda (#{docstring 2702}# #{e1 2703}# #{e2 2704}#) - (string? (syntax->datum #{docstring 2702}#))) - #{tmp 2698}#) - #f) - (@apply - (lambda (#{docstring 2708}# #{e1 2709}# #{e2 2710}#) - (#{expand-body 2563}# - #{req 2677}# - #{opt 2678}# - #{rest 2679}# - #{kw 2680}# - (cons #{e1 2709}# #{e2 2710}#) - #{vars 2682}# - #{r* 2683}# - #{w* 2684}# - #{inits 2685}# - (append - #{meta 2686}# - (list (cons 'documentation - (syntax->datum #{docstring 2708}#)))))) - #{tmp 2698}#) - (begin - (let ((#{tmp 2713}# - ($sc-dispatch - #{body 2681}# - '(#(vector #(each (any . any))) - any - . - each-any)))) - (if #{tmp 2713}# - (@apply - (lambda (#{k 2718}# - #{v 2719}# - #{e1 2720}# - #{e2 2721}#) - (#{expand-body 2563}# - #{req 2677}# - #{opt 2678}# - #{rest 2679}# - #{kw 2680}# - (cons #{e1 2720}# #{e2 2721}#) - #{vars 2682}# - #{r* 2683}# - #{w* 2684}# - #{inits 2685}# - (append - #{meta 2686}# - (syntax->datum - (map cons #{k 2718}# #{v 2719}#))))) - #{tmp 2713}#) - (begin - (let ((#{tmp 2725}# - ($sc-dispatch - #{body 2681}# - '(any . each-any)))) - (if #{tmp 2725}# - (@apply - (lambda (#{e1 2728}# #{e2 2729}#) - (values - #{meta 2686}# - #{req 2677}# - #{opt 2678}# - #{rest 2679}# - #{kw 2680}# - #{inits 2685}# - #{vars 2682}# - (#{chi-body 444}# - (cons #{e1 2728}# #{e2 2729}#) - (#{source-wrap 424}# - #{e 2542}# - #{w 2544}# - #{s 2545}# - #{mod 2546}#) - #{r* 2683}# - #{w* 2684}# - #{mod 2546}#))) - #{tmp 2725}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{body 2681}#))))))))))))) - (begin - (begin - (let ((#{tmp 2732}# - ($sc-dispatch #{clauses 2548}# '()))) - (if #{tmp 2732}# - (@apply (lambda () (values '() #f)) #{tmp 2732}#) - (begin - (let ((#{tmp 2733}# - ($sc-dispatch - #{clauses 2548}# - '((any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 2733}# - (@apply - (lambda (#{args 2740}# - #{e1 2741}# - #{e2 2742}# - #{args* 2743}# - #{e1* 2744}# - #{e2* 2745}#) - (call-with-values - (lambda () (#{get-formals 2547}# #{args 2740}#)) - (lambda (#{req 2746}# - #{opt 2747}# - #{rest 2748}# - #{kw 2749}#) - (call-with-values - (lambda () - (begin - (let ((#{body 4787}# - (cons #{e1 2741}# #{e2 2742}#))) - (begin - (let ((#{vars 4788}# - (map #{gen-var 464}# - #{req 2746}#)) - (#{labels 4789}# - (#{gen-labels 368}# - #{req 2746}#))) - (begin - (let ((#{r* 4790}# - (#{extend-var-env 338}# - #{labels 4789}# - #{vars 4788}# - #{r 2543}#)) - (#{w* 4791}# - (#{make-binding-wrap 400}# - #{req 2746}# - #{labels 4789}# - #{w 2544}#))) - (#{expand-opt 2559}# - (map syntax->datum - #{req 2746}#) - #{opt 2747}# - #{rest 2748}# - #{kw 2749}# - #{body 4787}# - (reverse #{vars 4788}#) - #{r* 4790}# - #{w* 4791}# - '() - '())))))))) - (lambda (#{meta 2755}# - #{req 2756}# - #{opt 2757}# - #{rest 2758}# - #{kw 2759}# - #{inits 2760}# - #{vars 2761}# - #{body 2762}#) - (call-with-values - (lambda () - (#{chi-lambda-case 460}# - #{e 2542}# - #{r 2543}# - #{w 2544}# - #{s 2545}# - #{mod 2546}# - #{get-formals 2547}# - (map (lambda (#{tmp 2773}# - #{tmp 2772}# - #{tmp 2771}#) - (cons #{tmp 2771}# - (cons #{tmp 2772}# - #{tmp 2773}#))) - #{e2* 2745}# - #{e1* 2744}# - #{args* 2743}#))) - (lambda (#{meta* 2775}# #{else* 2776}#) - (values - (append #{meta 2755}# #{meta* 2775}#) - (#{build-lambda-case 292}# - #{s 2545}# - #{req 2756}# - #{opt 2757}# - #{rest 2758}# - #{kw 2759}# - #{inits 2760}# - #{vars 2761}# - #{body 2762}# - #{else* 2776}#))))))))) - #{tmp 2733}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{clauses 2548}#))))))))))) - (#{strip 462}# - (lambda (#{x 2779}# #{w 2780}#) - (if (memq 'top (car #{w 2780}#)) - #{x 2779}# - (letrec* - ((#{f 2787}# - (lambda (#{x 2788}#) - (if (#{syntax-object? 311}# #{x 2788}#) - (#{strip 462}# - (#{syntax-object-expression 313}# #{x 2788}#) - (#{syntax-object-wrap 315}# #{x 2788}#)) - (if (pair? #{x 2788}#) - (begin - (let ((#{a 2795}# (#{f 2787}# (car #{x 2788}#))) - (#{d 2796}# (#{f 2787}# (cdr #{x 2788}#)))) - (if (if (eq? #{a 2795}# (car #{x 2788}#)) - (eq? #{d 2796}# (cdr #{x 2788}#)) - #f) - #{x 2788}# - (cons #{a 2795}# #{d 2796}#)))) - (if (vector? #{x 2788}#) - (begin - (let ((#{old 2802}# (vector->list #{x 2788}#))) - (begin - (let ((#{new 2804}# (map #{f 2787}# #{old 2802}#))) - (letrec* - ((#{lp 2808}# - (lambda (#{l1 2809}# #{l2 2810}#) - (if (null? #{l1 2809}#) - #{x 2788}# - (if (eq? (car #{l1 2809}#) - (car #{l2 2810}#)) - (#{lp 2808}# - (cdr #{l1 2809}#) - (cdr #{l2 2810}#)) - (list->vector #{new 2804}#)))))) - (begin - (#{lp 2808}# #{old 2802}# #{new 2804}#))))))) - #{x 2788}#)))))) - (begin (#{f 2787}# #{x 2779}#)))))) - (#{gen-var 464}# - (lambda (#{id 2812}#) - (begin - (let ((#{id 2815}# - (if (#{syntax-object? 311}# #{id 2812}#) - (#{syntax-object-expression 313}# #{id 2812}#) - #{id 2812}#))) - (gensym - (string-append (symbol->string #{id 2815}#) " ")))))) - (#{lambda-var-list 466}# - (lambda (#{vars 2817}#) - (letrec* - ((#{lvl 2823}# - (lambda (#{vars 2824}# #{ls 2825}# #{w 2826}#) - (if (pair? #{vars 2824}#) - (#{lvl 2823}# - (cdr #{vars 2824}#) - (cons (#{wrap 422}# (car #{vars 2824}#) #{w 2826}# #f) - #{ls 2825}#) - #{w 2826}#) - (if (#{id? 348}# #{vars 2824}#) - (cons (#{wrap 422}# #{vars 2824}# #{w 2826}# #f) - #{ls 2825}#) - (if (null? #{vars 2824}#) - #{ls 2825}# - (if (#{syntax-object? 311}# #{vars 2824}#) - (#{lvl 2823}# - (#{syntax-object-expression 313}# #{vars 2824}#) - #{ls 2825}# - (#{join-wraps 404}# - #{w 2826}# - (#{syntax-object-wrap 315}# #{vars 2824}#))) - (cons #{vars 2824}# #{ls 2825}#)))))))) - (begin (#{lvl 2823}# #{vars 2817}# '() '(()))))))) - (begin - (begin - (module-define! - (current-module) - 'letrec-syntax - (make-syntax-transformer - 'letrec-syntax - 'local-syntax - #t)) - (module-define! - (current-module) - 'let-syntax - (make-syntax-transformer - 'let-syntax - 'local-syntax - #f)) - (#{global-extend 344}# - 'core - 'fluid-let-syntax - (lambda (#{e 2837}# - #{r 2838}# - #{w 2839}# - #{s 2840}# - #{mod 2841}#) - (begin - (let ((#{tmp 2848}# - ($sc-dispatch - #{e 2837}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 2848}# - (@apply - (lambda (#{var 2853}# - #{val 2854}# - #{e1 2855}# - #{e2 2856}#) - (#{valid-bound-ids? 416}# #{var 2853}#)) - #{tmp 2848}#) - #f) - (@apply - (lambda (#{var 2862}# - #{val 2863}# - #{e1 2864}# - #{e2 2865}#) - (begin - (let ((#{names 2867}# - (map (lambda (#{x 2868}#) - (#{id-var-name 410}# - #{x 2868}# - #{w 2839}#)) - #{var 2862}#))) - (begin - (for-each - (lambda (#{id 2871}# #{n 2872}#) - (begin - (let ((#{atom-key 2877}# - (car (begin - (let ((#{t 5035}# - (assq #{n 2872}# - #{r 2838}#))) - (if #{t 5035}# - (cdr #{t 5035}#) - (if (symbol? #{n 2872}#) - (begin - (let ((#{t 5036}# - (#{get-global-definition-hook 262}# - #{n 2872}# - #{mod 2841}#))) - (if #{t 5036}# - #{t 5036}# - '(global)))) - '(displaced-lexical)))))))) - (if (eqv? #{atom-key 2877}# - 'displaced-lexical) - (syntax-violation - 'fluid-let-syntax - "identifier out of context" - #{e 2837}# - (#{wrap 422}# - (begin - (if (if (pair? #{id 2871}#) - #{s 2840}# - #f) - (set-source-properties! - #{id 2871}# - #{s 2840}#)) - #{id 2871}#) - #{w 2839}# - #{mod 2841}#)))))) - #{var 2862}# - #{names 2867}#) - (#{chi-body 444}# - (cons #{e1 2864}# #{e2 2865}#) - (#{wrap 422}# - (begin - (if (if (pair? #{e 2837}#) #{s 2840}# #f) - (set-source-properties! - #{e 2837}# - #{s 2840}#)) - #{e 2837}#) - #{w 2839}# - #{mod 2841}#) - (#{extend-env 336}# - #{names 2867}# - (begin - (let ((#{trans-r 2883}# - (#{macros-only-env 340}# #{r 2838}#))) - (map (lambda (#{x 2884}#) - (cons 'macro - (#{eval-local-transformer 448}# - (#{chi 436}# - #{x 2884}# - #{trans-r 2883}# - #{w 2839}# - #{mod 2841}#) - #{mod 2841}#))) - #{val 2863}#))) - #{r 2838}#) - #{w 2839}# - #{mod 2841}#))))) - #{tmp 2848}#) - (syntax-violation - 'fluid-let-syntax - "bad syntax" - (#{wrap 422}# - (begin - (if (if (pair? #{e 2837}#) #{s 2840}# #f) - (set-source-properties! #{e 2837}# #{s 2840}#)) - #{e 2837}#) - #{w 2839}# - #{mod 2841}#))))))) - (module-define! - (current-module) - 'quote - (make-syntax-transformer - 'quote - 'core - (lambda (#{e 2890}# - #{r 2891}# - #{w 2892}# - #{s 2893}# - #{mod 2894}#) - (begin - (let ((#{tmp 2901}# ($sc-dispatch #{e 2890}# '(_ any)))) - (if #{tmp 2901}# - (@apply - (lambda (#{e 2903}#) - (begin - (let ((#{exp 5265}# - (#{strip 462}# #{e 2903}# #{w 2892}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #{s 2893}# - #{exp 5265}#)))) - #{tmp 2901}#) - (syntax-violation - 'quote - "bad syntax" - (#{wrap 422}# - (begin - (if (if (pair? #{e 2890}#) #{s 2893}# #f) - (set-source-properties! #{e 2890}# #{s 2893}#)) - #{e 2890}#) - #{w 2892}# - #{mod 2894}#)))))))) - (#{global-extend 344}# - 'core - 'syntax - (letrec* - ((#{gen-syntax 2907}# - (lambda (#{src 2922}# - #{e 2923}# - #{r 2924}# - #{maps 2925}# - #{ellipsis? 2926}# - #{mod 2927}#) - (if (if (symbol? #{e 2923}#) - #t - (if (if (vector? #{e 2923}#) - (if (= (vector-length #{e 2923}#) 4) - (eq? (vector-ref #{e 2923}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{e 2923}# 1)) - #f)) - (begin - (let ((#{label 2935}# - (#{id-var-name 410}# #{e 2923}# '(())))) - (begin - (let ((#{b 2938}# - (begin - (let ((#{t 5328}# - (assq #{label 2935}# #{r 2924}#))) - (if #{t 5328}# - (cdr #{t 5328}#) - (if (symbol? #{label 2935}#) - (begin - (let ((#{t 5329}# - (#{get-global-definition-hook 262}# - #{label 2935}# - #{mod 2927}#))) - (if #{t 5329}# - #{t 5329}# - '(global)))) - '(displaced-lexical))))))) - (if (eq? (car #{b 2938}#) 'syntax) - (call-with-values - (lambda () - (begin - (let ((#{var.lev 2941}# (cdr #{b 2938}#))) - (#{gen-ref 2909}# - #{src 2922}# - (car #{var.lev 2941}#) - (cdr #{var.lev 2941}#) - #{maps 2925}#)))) - (lambda (#{var 2943}# #{maps 2944}#) - (values - (list 'ref #{var 2943}#) - #{maps 2944}#))) - (if (#{ellipsis? 2926}# #{e 2923}#) - (syntax-violation - 'syntax - "misplaced ellipsis" - #{src 2922}#) - (values - (list 'quote #{e 2923}#) - #{maps 2925}#))))))) - (begin - (let ((#{tmp 2950}# - ($sc-dispatch #{e 2923}# '(any any)))) - (if (if #{tmp 2950}# - (@apply - (lambda (#{dots 2953}# #{e 2954}#) - (#{ellipsis? 2926}# #{dots 2953}#)) - #{tmp 2950}#) - #f) - (@apply - (lambda (#{dots 2957}# #{e 2958}#) - (#{gen-syntax 2907}# - #{src 2922}# - #{e 2958}# - #{r 2924}# - #{maps 2925}# - (lambda (#{x 2959}#) #f) - #{mod 2927}#)) - #{tmp 2950}#) - (begin - (let ((#{tmp 2961}# - ($sc-dispatch #{e 2923}# '(any any . any)))) - (if (if #{tmp 2961}# - (@apply - (lambda (#{x 2965}# - #{dots 2966}# - #{y 2967}#) - (#{ellipsis? 2926}# #{dots 2966}#)) - #{tmp 2961}#) - #f) - (@apply - (lambda (#{x 2971}# #{dots 2972}# #{y 2973}#) - (letrec* - ((#{f 2977}# - (lambda (#{y 2978}# #{k 2979}#) - (begin - (let ((#{tmp 2987}# - ($sc-dispatch - #{y 2978}# - '(any . any)))) - (if (if #{tmp 2987}# - (@apply - (lambda (#{dots 2990}# - #{y 2991}#) - (#{ellipsis? 2926}# - #{dots 2990}#)) - #{tmp 2987}#) - #f) - (@apply - (lambda (#{dots 2994}# - #{y 2995}#) - (#{f 2977}# - #{y 2995}# - (lambda (#{maps 2996}#) - (call-with-values - (lambda () - (#{k 2979}# - (cons '() - #{maps 2996}#))) - (lambda (#{x 2998}# - #{maps 2999}#) - (if (null? (car #{maps 2999}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 2922}#) - (values - (#{gen-mappend 2911}# - #{x 2998}# - (car #{maps 2999}#)) - (cdr #{maps 2999}#)))))))) - #{tmp 2987}#) - (call-with-values - (lambda () - (#{gen-syntax 2907}# - #{src 2922}# - #{y 2978}# - #{r 2924}# - #{maps 2925}# - #{ellipsis? 2926}# - #{mod 2927}#)) - (lambda (#{y 3004}# - #{maps 3005}#) - (call-with-values - (lambda () - (#{k 2979}# - #{maps 3005}#)) - (lambda (#{x 3008}# - #{maps 3009}#) - (values - (#{gen-append 2917}# - #{x 3008}# - #{y 3004}#) - #{maps 3009}#))))))))))) - (begin - (#{f 2977}# - #{y 2973}# - (lambda (#{maps 2980}#) - (call-with-values - (lambda () - (#{gen-syntax 2907}# - #{src 2922}# - #{x 2971}# - #{r 2924}# - (cons '() #{maps 2980}#) - #{ellipsis? 2926}# - #{mod 2927}#)) - (lambda (#{x 2982}# #{maps 2983}#) - (if (null? (car #{maps 2983}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 2922}#) - (values - (#{gen-map 2913}# - #{x 2982}# - (car #{maps 2983}#)) - (cdr #{maps 2983}#)))))))))) - #{tmp 2961}#) - (begin - (let ((#{tmp 3012}# - ($sc-dispatch #{e 2923}# '(any . any)))) - (if #{tmp 3012}# - (@apply - (lambda (#{x 3015}# #{y 3016}#) - (call-with-values - (lambda () - (#{gen-syntax 2907}# - #{src 2922}# - #{x 3015}# - #{r 2924}# - #{maps 2925}# - #{ellipsis? 2926}# - #{mod 2927}#)) - (lambda (#{x 3017}# #{maps 3018}#) - (call-with-values - (lambda () - (#{gen-syntax 2907}# - #{src 2922}# - #{y 3016}# - #{r 2924}# - #{maps 3018}# - #{ellipsis? 2926}# - #{mod 2927}#)) - (lambda (#{y 3021}# #{maps 3022}#) - (values - (#{gen-cons 2915}# - #{x 3017}# - #{y 3021}#) - #{maps 3022}#)))))) - #{tmp 3012}#) - (begin - (let ((#{tmp 3025}# - ($sc-dispatch - #{e 2923}# - '#(vector (any . each-any))))) - (if #{tmp 3025}# - (@apply - (lambda (#{e1 3028}# #{e2 3029}#) - (call-with-values - (lambda () - (#{gen-syntax 2907}# - #{src 2922}# - (cons #{e1 3028}# - #{e2 3029}#) - #{r 2924}# - #{maps 2925}# - #{ellipsis? 2926}# - #{mod 2927}#)) - (lambda (#{e 3031}# - #{maps 3032}#) - (values - (#{gen-vector 2919}# - #{e 3031}#) - #{maps 3032}#)))) - #{tmp 3025}#) - (values - (list 'quote #{e 2923}#) - #{maps 2925}#)))))))))))))))) - (#{gen-ref 2909}# - (lambda (#{src 3038}# - #{var 3039}# - #{level 3040}# - #{maps 3041}#) - (if (= #{level 3040}# 0) - (values #{var 3039}# #{maps 3041}#) - (if (null? #{maps 3041}#) - (syntax-violation - 'syntax - "missing ellipsis" - #{src 3038}#) - (call-with-values - (lambda () - (#{gen-ref 2909}# - #{src 3038}# - #{var 3039}# - (#{1-}# #{level 3040}#) - (cdr #{maps 3041}#))) - (lambda (#{outer-var 3048}# #{outer-maps 3049}#) - (begin - (let ((#{b 3053}# - (assq #{outer-var 3048}# - (car #{maps 3041}#)))) - (if #{b 3053}# - (values (cdr #{b 3053}#) #{maps 3041}#) - (begin - (let ((#{inner-var 3055}# - (gensym - (string-append - (symbol->string 'tmp) - " ")))) - (values - #{inner-var 3055}# - (cons (cons (cons #{outer-var 3048}# - #{inner-var 3055}#) - (car #{maps 3041}#)) - #{outer-maps 3049}#))))))))))))) - (#{gen-mappend 2911}# - (lambda (#{e 3056}# #{map-env 3057}#) - (list 'apply - '(primitive append) - (#{gen-map 2913}# #{e 3056}# #{map-env 3057}#)))) - (#{gen-map 2913}# - (lambda (#{e 3061}# #{map-env 3062}#) - (begin - (let ((#{formals 3067}# (map cdr #{map-env 3062}#)) - (#{actuals 3068}# - (map (lambda (#{x 3069}#) - (list 'ref (car #{x 3069}#))) - #{map-env 3062}#))) - (if (eq? (car #{e 3061}#) 'ref) - (car #{actuals 3068}#) - (if (and-map - (lambda (#{x 3076}#) - (if (eq? (car #{x 3076}#) 'ref) - (memq (car (cdr #{x 3076}#)) #{formals 3067}#) - #f)) - (cdr #{e 3061}#)) - (cons 'map - (cons (list 'primitive (car #{e 3061}#)) - (map (begin - (let ((#{r 3082}# - (map cons - #{formals 3067}# - #{actuals 3068}#))) - (lambda (#{x 3083}#) - (cdr (assq (car (cdr #{x 3083}#)) - #{r 3082}#))))) - (cdr #{e 3061}#)))) - (cons 'map - (cons (list 'lambda #{formals 3067}# #{e 3061}#) - #{actuals 3068}#)))))))) - (#{gen-cons 2915}# - (lambda (#{x 3087}# #{y 3088}#) - (begin - (let ((#{atom-key 3093}# (car #{y 3088}#))) - (if (eqv? #{atom-key 3093}# 'quote) - (if (eq? (car #{x 3087}#) 'quote) - (list 'quote - (cons (car (cdr #{x 3087}#)) - (car (cdr #{y 3088}#)))) - (if (eq? (car (cdr #{y 3088}#)) '()) - (list 'list #{x 3087}#) - (list 'cons #{x 3087}# #{y 3088}#))) - (if (eqv? #{atom-key 3093}# 'list) - (cons 'list (cons #{x 3087}# (cdr #{y 3088}#))) - (list 'cons #{x 3087}# #{y 3088}#))))))) - (#{gen-append 2917}# - (lambda (#{x 3102}# #{y 3103}#) - (if (equal? #{y 3103}# ''()) - #{x 3102}# - (list 'append #{x 3102}# #{y 3103}#)))) - (#{gen-vector 2919}# - (lambda (#{x 3107}#) - (if (eq? (car #{x 3107}#) 'list) - (cons 'vector (cdr #{x 3107}#)) - (if (eq? (car #{x 3107}#) 'quote) - (list 'quote - (list->vector (car (cdr #{x 3107}#)))) - (list 'list->vector #{x 3107}#))))) - (#{regen 2921}# - (lambda (#{x 3117}#) - (begin - (let ((#{atom-key 3121}# (car #{x 3117}#))) - (if (eqv? #{atom-key 3121}# 'ref) - (begin - (let ((#{name 5344}# (car (cdr #{x 3117}#))) - (#{var 5345}# (car (cdr #{x 3117}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #f - #{name 5344}# - #{var 5345}#))) - (if (eqv? #{atom-key 3121}# 'primitive) - (begin - (let ((#{name 5354}# (car (cdr #{x 3117}#)))) - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - #{name 5354}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - #{name 5354}# - #f)))) - (if (eqv? #{atom-key 3121}# 'quote) - (begin - (let ((#{exp 5368}# (car (cdr #{x 3117}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - #{exp 5368}#))) - (if (eqv? #{atom-key 3121}# 'lambda) - (if (list? (car (cdr #{x 3117}#))) - (begin - (let ((#{req 5376}# (car (cdr #{x 3117}#))) - (#{vars 5378}# (car (cdr #{x 3117}#))) - (#{exp 5380}# - (#{regen 2921}# - (car (cdr (cdr #{x 3117}#)))))) - (begin - (let ((#{body 5385}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - #{req 5376}# - #f - #f - #f - '() - #{vars 5378}# - #{exp 5380}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 5385}#))))) - (error "how did we get here" #{x 3117}#)) - (begin - (let ((#{fun-exp 5400}# - (begin - (let ((#{name 5405}# (car #{x 3117}#))) - (if (equal? - (module-name (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - #{name 5405}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - #{name 5405}# - #f))))) - (#{arg-exps 5401}# - (map #{regen 2921}# (cdr #{x 3117}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 5400}# - #{arg-exps 5401}#)))))))))))) - (begin - (lambda (#{e 3133}# - #{r 3134}# - #{w 3135}# - #{s 3136}# - #{mod 3137}#) - (begin - (let ((#{e 3144}# - (#{wrap 422}# - (begin - (if (if (pair? #{e 3133}#) #{s 3136}# #f) - (set-source-properties! #{e 3133}# #{s 3136}#)) - #{e 3133}#) - #{w 3135}# - #{mod 3137}#))) - (begin - (let ((#{tmp 3146}# ($sc-dispatch #{e 3144}# '(_ any)))) - (if #{tmp 3146}# - (@apply - (lambda (#{x 3148}#) - (call-with-values - (lambda () - (#{gen-syntax 2907}# - #{e 3144}# - #{x 3148}# - #{r 3134}# - '() - #{ellipsis? 452}# - #{mod 3137}#)) - (lambda (#{e 3149}# #{maps 3150}#) - (#{regen 2921}# #{e 3149}#)))) - #{tmp 3146}#) - (syntax-violation - 'syntax - "bad `syntax' form" - #{e 3144}#)))))))))) - (#{global-extend 344}# - 'core - 'lambda - (lambda (#{e 3155}# - #{r 3156}# - #{w 3157}# - #{s 3158}# - #{mod 3159}#) - (begin - (let ((#{tmp 3166}# - ($sc-dispatch #{e 3155}# '(_ any any . each-any)))) - (if #{tmp 3166}# - (@apply - (lambda (#{args 3170}# #{e1 3171}# #{e2 3172}#) - (call-with-values - (lambda () - (#{lambda-formals 454}# #{args 3170}#)) - (lambda (#{req 3173}# - #{opt 3174}# - #{rest 3175}# - #{kw 3176}#) - (letrec* - ((#{lp 3184}# - (lambda (#{body 3185}# #{meta 3186}#) - (begin - (let ((#{tmp 3189}# - ($sc-dispatch - #{body 3185}# - '(any any . each-any)))) - (if (if #{tmp 3189}# - (@apply - (lambda (#{docstring 3193}# - #{e1 3194}# - #{e2 3195}#) - (string? - (syntax->datum - #{docstring 3193}#))) - #{tmp 3189}#) - #f) - (@apply - (lambda (#{docstring 3199}# - #{e1 3200}# - #{e2 3201}#) - (#{lp 3184}# - (cons #{e1 3200}# #{e2 3201}#) - (append - #{meta 3186}# - (list (cons 'documentation - (syntax->datum - #{docstring 3199}#)))))) - #{tmp 3189}#) - (begin - (let ((#{tmp 3204}# - ($sc-dispatch - #{body 3185}# - '(#(vector - #(each (any . any))) - any - . - each-any)))) - (if #{tmp 3204}# - (@apply - (lambda (#{k 3209}# - #{v 3210}# - #{e1 3211}# - #{e2 3212}#) - (#{lp 3184}# - (cons #{e1 3211}# #{e2 3212}#) - (append - #{meta 3186}# - (syntax->datum - (map cons - #{k 3209}# - #{v 3210}#))))) - #{tmp 3204}#) - (let ((#{e 2266}# #{e 3155}#) - (#{r 2267}# #{r 3156}#) - (#{w 2268}# #{w 3157}#) - (#{s 2269}# #{s 3158}#) - (#{mod 2270}# #{mod 3159}#) - (#{req 2271}# #{req 3173}#) - (#{rest 2272}# #{rest 3175}#) - (#{meta 2273}# #{meta 3186}#) - (#{body 2274}# #{body 3185}#)) - (begin - (let ((#{ids 2286}# - (if #{rest 2272}# - (append - #{req 2271}# - (list #{rest 2272}#)) - #{req 2271}#))) - (begin - (let ((#{vars 2288}# - (map #{gen-var 464}# - #{ids 2286}#))) - (begin - (let ((#{labels 2290}# - (#{gen-labels 368}# - #{ids 2286}#))) - (#{build-simple-lambda 288}# - #{s 2269}# - (map syntax->datum - #{req 2271}#) - (if #{rest 2272}# - (syntax->datum - #{rest 2272}#) - #f) - #{vars 2288}# - #{meta 2273}# - (#{chi-body 444}# - #{body 2274}# - (#{source-wrap 424}# - #{e 2266}# - #{w 2268}# - #{s 2269}# - #{mod 2270}#) - (#{extend-var-env 338}# - #{labels 2290}# - #{vars 2288}# - #{r 2267}#) - (#{make-binding-wrap 400}# - #{ids 2286}# - #{labels 2290}# - #{w 2268}#) - #{mod 2270}#)))))))))))))))))) - (begin - (#{lp 3184}# - (cons #{e1 3171}# #{e2 3172}#) - '())))))) - #{tmp 3166}#) - (syntax-violation - 'lambda - "bad lambda" - #{e 3155}#)))))) - (module-define! - (current-module) - 'lambda* - (make-syntax-transformer - 'lambda* - 'core - (lambda (#{e 3220}# - #{r 3221}# - #{w 3222}# - #{s 3223}# - #{mod 3224}#) - (begin - (let ((#{tmp 3231}# - ($sc-dispatch #{e 3220}# '(_ any any . each-any)))) - (if #{tmp 3231}# - (@apply - (lambda (#{args 3235}# #{e1 3236}# #{e2 3237}#) - (call-with-values - (lambda () - (#{chi-lambda-case 460}# - #{e 3220}# - #{r 3221}# - #{w 3222}# - #{s 3223}# - #{mod 3224}# - #{lambda*-formals 458}# - (list (cons #{args 3235}# - (cons #{e1 3236}# #{e2 3237}#))))) - (lambda (#{meta 3239}# #{lcase 3240}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 3223}# - #{meta 3239}# - #{lcase 3240}#)))) - #{tmp 3231}#) - (syntax-violation - 'lambda - "bad lambda*" - #{e 3220}#))))))) - (module-define! - (current-module) - 'case-lambda - (make-syntax-transformer - 'case-lambda - 'core - (lambda (#{e 3245}# - #{r 3246}# - #{w 3247}# - #{s 3248}# - #{mod 3249}#) - (begin - (let ((#{tmp 3256}# - ($sc-dispatch - #{e 3245}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 3256}# - (@apply - (lambda (#{args 3263}# - #{e1 3264}# - #{e2 3265}# - #{args* 3266}# - #{e1* 3267}# - #{e2* 3268}#) - (call-with-values - (lambda () - (#{chi-lambda-case 460}# - #{e 3245}# - #{r 3246}# - #{w 3247}# - #{s 3248}# - #{mod 3249}# - #{lambda-formals 454}# - (cons (cons #{args 3263}# - (cons #{e1 3264}# #{e2 3265}#)) - (map (lambda (#{tmp 3272}# - #{tmp 3271}# - #{tmp 3270}#) - (cons #{tmp 3270}# - (cons #{tmp 3271}# - #{tmp 3272}#))) - #{e2* 3268}# - #{e1* 3267}# - #{args* 3266}#)))) - (lambda (#{meta 3274}# #{lcase 3275}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 3248}# - #{meta 3274}# - #{lcase 3275}#)))) - #{tmp 3256}#) - (syntax-violation - 'case-lambda - "bad case-lambda" - #{e 3245}#))))))) - (module-define! - (current-module) - 'case-lambda* - (make-syntax-transformer - 'case-lambda* - 'core - (lambda (#{e 3280}# - #{r 3281}# - #{w 3282}# - #{s 3283}# - #{mod 3284}#) - (begin - (let ((#{tmp 3291}# - ($sc-dispatch - #{e 3280}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 3291}# - (@apply - (lambda (#{args 3298}# - #{e1 3299}# - #{e2 3300}# - #{args* 3301}# - #{e1* 3302}# - #{e2* 3303}#) - (call-with-values - (lambda () - (#{chi-lambda-case 460}# - #{e 3280}# - #{r 3281}# - #{w 3282}# - #{s 3283}# - #{mod 3284}# - #{lambda*-formals 458}# - (cons (cons #{args 3298}# - (cons #{e1 3299}# #{e2 3300}#)) - (map (lambda (#{tmp 3307}# - #{tmp 3306}# - #{tmp 3305}#) - (cons #{tmp 3305}# - (cons #{tmp 3306}# - #{tmp 3307}#))) - #{e2* 3303}# - #{e1* 3302}# - #{args* 3301}#)))) - (lambda (#{meta 3309}# #{lcase 3310}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 3283}# - #{meta 3309}# - #{lcase 3310}#)))) - #{tmp 3291}#) - (syntax-violation - 'case-lambda - "bad case-lambda*" - #{e 3280}#))))))) - (#{global-extend 344}# - 'core - 'let - (letrec* - ((#{chi-let 3316}# - (lambda (#{e 3317}# - #{r 3318}# - #{w 3319}# - #{s 3320}# - #{mod 3321}# - #{constructor 3322}# - #{ids 3323}# - #{vals 3324}# - #{exps 3325}#) - (if (not (#{valid-bound-ids? 416}# #{ids 3323}#)) - (syntax-violation - 'let - "duplicate bound variable" - #{e 3317}#) - (begin - (let ((#{labels 3337}# - (#{gen-labels 368}# #{ids 3323}#)) - (#{new-vars 3338}# - (map #{gen-var 464}# #{ids 3323}#))) - (begin - (let ((#{nw 3341}# - (#{make-binding-wrap 400}# - #{ids 3323}# - #{labels 3337}# - #{w 3319}#)) - (#{nr 3342}# - (#{extend-var-env 338}# - #{labels 3337}# - #{new-vars 3338}# - #{r 3318}#))) - (#{constructor 3322}# - #{s 3320}# - (map syntax->datum #{ids 3323}#) - #{new-vars 3338}# - (map (lambda (#{x 3343}#) - (#{chi 436}# - #{x 3343}# - #{r 3318}# - #{w 3319}# - #{mod 3321}#)) - #{vals 3324}#) - (#{chi-body 444}# - #{exps 3325}# - (#{wrap 422}# - (begin - (if (if (pair? #{e 3317}#) #{s 3320}# #f) - (set-source-properties! - #{e 3317}# - #{s 3320}#)) - #{e 3317}#) - #{nw 3341}# - #{mod 3321}#) - #{nr 3342}# - #{nw 3341}# - #{mod 3321}#)))))))))) - (begin - (lambda (#{e 3345}# - #{r 3346}# - #{w 3347}# - #{s 3348}# - #{mod 3349}#) - (begin - (let ((#{tmp 3356}# - ($sc-dispatch - #{e 3345}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3356}# - (@apply - (lambda (#{id 3361}# - #{val 3362}# - #{e1 3363}# - #{e2 3364}#) - (and-map #{id? 348}# #{id 3361}#)) - #{tmp 3356}#) - #f) - (@apply - (lambda (#{id 3370}# - #{val 3371}# - #{e1 3372}# - #{e2 3373}#) - (#{chi-let 3316}# - #{e 3345}# - #{r 3346}# - #{w 3347}# - #{s 3348}# - #{mod 3349}# - (lambda (#{src 1103}# - #{ids 1104}# - #{vars 1105}# - #{val-exps 1106}# - #{body-exp 1107}#) - (begin - (for-each - #{maybe-name-value! 266}# - #{ids 1104}# - #{val-exps 1106}#) - (if (null? #{vars 1105}#) - #{body-exp 1107}# - (#{make-let 237}# - #{src 1103}# - #{ids 1104}# - #{vars 1105}# - #{val-exps 1106}# - #{body-exp 1107}#)))) - #{id 3370}# - #{val 3371}# - (cons #{e1 3372}# #{e2 3373}#))) - #{tmp 3356}#) - (begin - (let ((#{tmp 3377}# - ($sc-dispatch - #{e 3345}# - '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 3377}# - (@apply - (lambda (#{f 3383}# - #{id 3384}# - #{val 3385}# - #{e1 3386}# - #{e2 3387}#) - (if (if (symbol? #{f 3383}#) - #t - (if (if (vector? #{f 3383}#) - (if (= (vector-length #{f 3383}#) - 4) - (eq? (vector-ref #{f 3383}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{f 3383}# 1)) - #f)) - (and-map #{id? 348}# #{id 3384}#) - #f)) - #{tmp 3377}#) - #f) - (@apply - (lambda (#{f 3396}# - #{id 3397}# - #{val 3398}# - #{e1 3399}# - #{e2 3400}#) - (#{chi-let 3316}# - #{e 3345}# - #{r 3346}# - #{w 3347}# - #{s 3348}# - #{mod 3349}# - (lambda (#{src 1113}# - #{ids 1114}# - #{vars 1115}# - #{val-exps 1116}# - #{body-exp 1117}#) - (begin - (let ((#{f 1127}# (car #{vars 1115}#)) - (#{f-name 1128}# (car #{ids 1114}#)) - (#{vars 1129}# (cdr #{vars 1115}#)) - (#{ids 1130}# (cdr #{ids 1114}#))) - (begin - (let ((#{proc 1132}# - (#{build-simple-lambda 288}# - #{src 1113}# - #{ids 1130}# - #f - #{vars 1129}# - '() - #{body-exp 1117}#))) - (begin - (#{maybe-name-value! 266}# - #{f-name 1128}# - #{proc 1132}#) - (for-each - #{maybe-name-value! 266}# - #{ids 1130}# - #{val-exps 1116}#) - (#{make-letrec 239}# - #{src 1113}# - #f - (list #{f-name 1128}#) - (list #{f 1127}#) - (list #{proc 1132}#) - (#{build-application 270}# - #{src 1113}# - (#{build-lexical-reference 276}# - 'fun - #{src 1113}# - #{f-name 1128}# - #{f 1127}#) - #{val-exps 1116}#)))))))) - (cons #{f 3396}# #{id 3397}#) - #{val 3398}# - (cons #{e1 3399}# #{e2 3400}#))) - #{tmp 3377}#) - (syntax-violation - 'let - "bad let" - (#{wrap 422}# - (begin - (if (if (pair? #{e 3345}#) #{s 3348}# #f) - (set-source-properties! - #{e 3345}# - #{s 3348}#)) - #{e 3345}#) - #{w 3347}# - #{mod 3349}#)))))))))))) - (#{global-extend 344}# - 'core - 'letrec - (lambda (#{e 3406}# - #{r 3407}# - #{w 3408}# - #{s 3409}# - #{mod 3410}#) - (begin - (let ((#{tmp 3417}# - ($sc-dispatch - #{e 3406}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3417}# - (@apply - (lambda (#{id 3422}# - #{val 3423}# - #{e1 3424}# - #{e2 3425}#) - (and-map #{id? 348}# #{id 3422}#)) - #{tmp 3417}#) - #f) - (@apply - (lambda (#{id 3431}# - #{val 3432}# - #{e1 3433}# - #{e2 3434}#) - (if (not (#{valid-bound-ids? 416}# #{id 3431}#)) - (syntax-violation - 'letrec - "duplicate bound variable" - #{e 3406}#) - (begin - (let ((#{labels 3440}# - (#{gen-labels 368}# #{id 3431}#)) - (#{new-vars 3441}# - (map #{gen-var 464}# #{id 3431}#))) - (begin - (let ((#{w 3444}# - (#{make-binding-wrap 400}# - #{id 3431}# - #{labels 3440}# - #{w 3408}#)) - (#{r 3445}# - (#{extend-var-env 338}# - #{labels 3440}# - #{new-vars 3441}# - #{r 3407}#))) - (#{build-letrec 304}# - #{s 3409}# - #f - (map syntax->datum #{id 3431}#) - #{new-vars 3441}# - (map (lambda (#{x 3446}#) - (#{chi 436}# - #{x 3446}# - #{r 3445}# - #{w 3444}# - #{mod 3410}#)) - #{val 3432}#) - (#{chi-body 444}# - (cons #{e1 3433}# #{e2 3434}#) - (#{wrap 422}# - (begin - (if (if (pair? #{e 3406}#) #{s 3409}# #f) - (set-source-properties! - #{e 3406}# - #{s 3409}#)) - #{e 3406}#) - #{w 3444}# - #{mod 3410}#) - #{r 3445}# - #{w 3444}# - #{mod 3410}#)))))))) - #{tmp 3417}#) - (syntax-violation - 'letrec - "bad letrec" - (#{wrap 422}# - (begin - (if (if (pair? #{e 3406}#) #{s 3409}# #f) - (set-source-properties! #{e 3406}# #{s 3409}#)) - #{e 3406}#) - #{w 3408}# - #{mod 3410}#))))))) - (#{global-extend 344}# - 'core - 'letrec* - (lambda (#{e 3452}# - #{r 3453}# - #{w 3454}# - #{s 3455}# - #{mod 3456}#) - (begin - (let ((#{tmp 3463}# - ($sc-dispatch - #{e 3452}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3463}# - (@apply - (lambda (#{id 3468}# - #{val 3469}# - #{e1 3470}# - #{e2 3471}#) - (and-map #{id? 348}# #{id 3468}#)) - #{tmp 3463}#) - #f) - (@apply - (lambda (#{id 3477}# - #{val 3478}# - #{e1 3479}# - #{e2 3480}#) - (if (not (#{valid-bound-ids? 416}# #{id 3477}#)) - (syntax-violation - 'letrec* - "duplicate bound variable" - #{e 3452}#) - (begin - (let ((#{labels 3486}# - (#{gen-labels 368}# #{id 3477}#)) - (#{new-vars 3487}# - (map #{gen-var 464}# #{id 3477}#))) - (begin - (let ((#{w 3490}# - (#{make-binding-wrap 400}# - #{id 3477}# - #{labels 3486}# - #{w 3454}#)) - (#{r 3491}# - (#{extend-var-env 338}# - #{labels 3486}# - #{new-vars 3487}# - #{r 3453}#))) - (#{build-letrec 304}# - #{s 3455}# - #t - (map syntax->datum #{id 3477}#) - #{new-vars 3487}# - (map (lambda (#{x 3492}#) - (#{chi 436}# - #{x 3492}# - #{r 3491}# - #{w 3490}# - #{mod 3456}#)) - #{val 3478}#) - (#{chi-body 444}# - (cons #{e1 3479}# #{e2 3480}#) - (#{wrap 422}# - (begin - (if (if (pair? #{e 3452}#) #{s 3455}# #f) - (set-source-properties! - #{e 3452}# - #{s 3455}#)) - #{e 3452}#) - #{w 3490}# - #{mod 3456}#) - #{r 3491}# - #{w 3490}# - #{mod 3456}#)))))))) - #{tmp 3463}#) - (syntax-violation - 'letrec* - "bad letrec*" - (#{wrap 422}# - (begin - (if (if (pair? #{e 3452}#) #{s 3455}# #f) - (set-source-properties! #{e 3452}# #{s 3455}#)) - #{e 3452}#) - #{w 3454}# - #{mod 3456}#))))))) - (#{global-extend 344}# - 'core - 'set! - (lambda (#{e 3498}# - #{r 3499}# - #{w 3500}# - #{s 3501}# - #{mod 3502}#) - (begin - (let ((#{tmp 3509}# - ($sc-dispatch #{e 3498}# '(_ any any)))) - (if (if #{tmp 3509}# - (@apply - (lambda (#{id 3512}# #{val 3513}#) - (if (symbol? #{id 3512}#) - #t - (if (if (vector? #{id 3512}#) - (if (= (vector-length #{id 3512}#) 4) - (eq? (vector-ref #{id 3512}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{id 3512}# 1)) - #f))) - #{tmp 3509}#) - #f) - (@apply - (lambda (#{id 3516}# #{val 3517}#) - (begin - (let ((#{n 3520}# - (#{id-var-name 410}# #{id 3516}# #{w 3500}#)) - (#{id-mod 3521}# - (if (if (vector? #{id 3516}#) - (if (= (vector-length #{id 3516}#) 4) - (eq? (vector-ref #{id 3516}# 0) - 'syntax-object) - #f) - #f) - (vector-ref #{id 3516}# 3) - #{mod 3502}#))) - (begin - (let ((#{b 3523}# - (begin - (let ((#{t 7015}# - (assq #{n 3520}# #{r 3499}#))) - (if #{t 7015}# - (cdr #{t 7015}#) - (if (symbol? #{n 3520}#) - (begin - (let ((#{t 7016}# - (#{get-global-definition-hook 262}# - #{n 3520}# - #{id-mod 3521}#))) - (if #{t 7016}# - #{t 7016}# - '(global)))) - '(displaced-lexical))))))) - (begin - (let ((#{atom-key 3526}# (car #{b 3523}#))) - (if (eqv? #{atom-key 3526}# 'lexical) - (let ((#{source 992}# #{s 3501}#) - (#{name 993}# - (syntax->datum #{id 3516}#)) - (#{var 994}# (cdr #{b 3523}#)) - (#{exp 995}# - (#{chi 436}# - #{val 3517}# - #{r 3499}# - #{w 3500}# - #{mod 3502}#))) - (begin - (#{maybe-name-value! 266}# - #{name 993}# - #{exp 995}#) - (#{make-lexical-set 215}# - #{source 992}# - #{name 993}# - #{var 994}# - #{exp 995}#))) - (if (eqv? #{atom-key 3526}# 'global) - (#{build-global-assignment 284}# - #{s 3501}# - #{n 3520}# - (#{chi 436}# - #{val 3517}# - #{r 3499}# - #{w 3500}# - #{mod 3502}#) - #{id-mod 3521}#) - (if (eqv? #{atom-key 3526}# 'macro) - (begin - (let ((#{p 3533}# (cdr #{b 3523}#))) - (if (procedure-property - #{p 3533}# - 'variable-transformer) - (#{chi 436}# - (#{chi-macro 442}# - #{p 3533}# - #{e 3498}# - #{r 3499}# - #{w 3500}# - #{s 3501}# - #f - #{mod 3502}#) - #{r 3499}# - '(()) - #{mod 3502}#) - (syntax-violation - 'set! - "not a variable transformer" - (#{wrap 422}# - #{e 3498}# - #{w 3500}# - #{mod 3502}#) - (#{wrap 422}# - #{id 3516}# - #{w 3500}# - #{id-mod 3521}#))))) - (if (eqv? #{atom-key 3526}# - 'displaced-lexical) - (syntax-violation - 'set! - "identifier out of context" - (#{wrap 422}# - #{id 3516}# - #{w 3500}# - #{mod 3502}#)) - (syntax-violation - 'set! - "bad set!" - (#{wrap 422}# - (begin - (if (if (pair? #{e 3498}#) - #{s 3501}# - #f) - (set-source-properties! - #{e 3498}# - #{s 3501}#)) - #{e 3498}#) - #{w 3500}# - #{mod 3502}#))))))))))))) - #{tmp 3509}#) - (begin - (let ((#{tmp 3538}# - ($sc-dispatch - #{e 3498}# - '(_ (any . each-any) any)))) - (if #{tmp 3538}# - (@apply - (lambda (#{head 3542}# #{tail 3543}# #{val 3544}#) - (call-with-values - (lambda () - (#{syntax-type 434}# - #{head 3542}# - #{r 3499}# - '(()) - #f - #f - #{mod 3502}# - #t)) - (lambda (#{type 3547}# - #{value 3548}# - #{ee 3549}# - #{ww 3550}# - #{ss 3551}# - #{modmod 3552}#) - (if (eqv? #{type 3547}# 'module-ref) - (begin - (let ((#{val 3561}# - (#{chi 436}# - #{val 3544}# - #{r 3499}# - #{w 3500}# - #{mod 3502}#))) - (call-with-values - (lambda () - (#{value 3548}# - (cons #{head 3542}# #{tail 3543}#) - #{r 3499}# - #{w 3500}#)) - (lambda (#{e 3563}# - #{r 3564}# - #{w 3565}# - #{s* 3566}# - #{mod 3567}#) - (begin - (let ((#{tmp 3574}# - (list #{e 3563}#))) - (if (if #{tmp 3574}# - (@apply - (lambda (#{e 3576}#) - (if (symbol? #{e 3576}#) - #t - (if (if (vector? - #{e 3576}#) - (if (= (vector-length - #{e 3576}#) - 4) - (eq? (vector-ref - #{e 3576}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{e 3576}# - 1)) - #f))) - #{tmp 3574}#) - #f) - (@apply - (lambda (#{e 3578}#) - (begin - (let ((#{var 7355}# - (syntax->datum - #{e 3578}#))) - (begin - (if (if (struct? - #{val 3561}#) - (eq? (struct-vtable - #{val 3561}#) - (vector-ref - %expanded-vtables - 13)) - #f) - (begin - (let ((#{meta 7366}# - (struct-ref - #{val 3561}# - 1))) - (if (not (assq 'name - #{meta 7366}#)) - (begin - (let ((#{v 7376}# - (cons (cons 'name - #{var 7355}#) - #{meta 7366}#))) - (struct-set! - #{val 3561}# - 1 - #{v 7376}#))))))) - (#{analyze-variable 280}# - #{mod 3567}# - #{var 7355}# - (lambda (#{mod 7358}# - #{var 7359}# - #{public? 7360}#) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 6) - #{s 3501}# - #{mod 7358}# - #{var 7359}# - #{public? 7360}# - #{val 3561}#)) - (lambda (#{var 7361}#) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 8) - #{s 3501}# - #{var 7361}# - #{val 3561}#))))))) - #{tmp 3574}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3563}#)))))))) - (#{build-application 270}# - #{s 3501}# - (#{chi 436}# - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type value ee ww ss modmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i3553" - "i3554" - "i3555" - "i3556" - "i3557" - "i3558")) - #(ribcage - #(head tail val) - #((top) (top) (top)) - #("i3539" "i3540" "i3541")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3503" - "i3504" - "i3505" - "i3506" - "i3507")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - #{head 3542}#) - #{r 3499}# - #{w 3500}# - #{mod 3502}#) - (map (lambda (#{e 3580}#) - (#{chi 436}# - #{e 3580}# - #{r 3499}# - #{w 3500}# - #{mod 3502}#)) - (append - #{tail 3543}# - (list #{val 3544}#)))))))) - #{tmp 3538}#) - (syntax-violation - 'set! - "bad set!" - (#{wrap 422}# - (begin - (if (if (pair? #{e 3498}#) #{s 3501}# #f) - (set-source-properties! #{e 3498}# #{s 3501}#)) - #{e 3498}#) - #{w 3500}# - #{mod 3502}#)))))))))) - (module-define! - (current-module) - '@ - (make-syntax-transformer - '@ - 'module-ref - (lambda (#{e 3585}# #{r 3586}# #{w 3587}#) - (begin - (let ((#{tmp 3592}# - ($sc-dispatch #{e 3585}# '(_ each-any any)))) - (if (if #{tmp 3592}# - (@apply - (lambda (#{mod 3595}# #{id 3596}#) - (if (and-map #{id? 348}# #{mod 3595}#) - (if (symbol? #{id 3596}#) - #t - (if (if (vector? #{id 3596}#) - (if (= (vector-length #{id 3596}#) 4) - (eq? (vector-ref #{id 3596}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{id 3596}# 1)) - #f)) - #f)) - #{tmp 3592}#) - #f) - (@apply - (lambda (#{mod 3602}# #{id 3603}#) - (values - (syntax->datum #{id 3603}#) - #{r 3586}# - #{w 3587}# - #f - (syntax->datum - (cons '#(syntax-object - public + ((#{f 1750}# + (lambda (#{when-list 1751}# #{situations 1752}#) + (if (null? #{when-list 1751}#) + #{situations 1752}# + (#{f 1750}# + (cdr #{when-list 1751}#) + (cons (let ((#{x 1754}# (car #{when-list 1751}#))) + (if (#{free-id=? 413}# + #{x 1754}# + '#(syntax-object + compile ((top) - #(ribcage - #(mod id) - #((top) (top)) - #("i3600" "i3601")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1753")) #(ribcage () () ()) #(ribcage - #(e r w) + #(f when-list situations) #((top) (top) (top)) - #("i3588" "i3589" "i3590")) + #("i1747" "i1748" "i1749")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1744" "i1745" "i1746")) #(ribcage (lambda-var-list gen-var @@ -10970,6685 +1634,1705 @@ (top) (top) (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" "i397" - "i396" - "i394" + "i395" + "i392" "i391" "i390" - "i389" + "i388" "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" "i365" - "i364" - "i362" - "i360" - "i358" + "i363" + "i361" + "i359" + "i357" "i356" "i355" "i354" - "i353" + "i352" "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" "i335" "i334" - "i333" - "i331" + "i332" + "i330" "i329" - "i328" + "i326" "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" "i259" - "i258" - "i255" + "i256" + "i254" "i253" "i252" "i251" "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - #{mod 3602}#)))) - #{tmp 3592}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3585}#))))))) - (#{global-extend 344}# - 'module-ref - '@@ - (lambda (#{e 3605}# #{r 3606}# #{w 3607}#) - (letrec* - ((#{remodulate 3612}# - (lambda (#{x 3613}# #{mod 3614}#) - (if (pair? #{x 3613}#) - (cons (#{remodulate 3612}# - (car #{x 3613}#) - #{mod 3614}#) - (#{remodulate 3612}# - (cdr #{x 3613}#) - #{mod 3614}#)) - (if (if (vector? #{x 3613}#) - (if (= (vector-length #{x 3613}#) 4) - (eq? (vector-ref #{x 3613}# 0) 'syntax-object) - #f) - #f) - (begin - (let ((#{expression 7616}# - (#{remodulate 3612}# - (vector-ref #{x 3613}# 1) - #{mod 3614}#)) - (#{wrap 7617}# (vector-ref #{x 3613}# 2))) - (vector - 'syntax-object - #{expression 7616}# - #{wrap 7617}# - #{mod 3614}#))) - (if (vector? #{x 3613}#) - (begin - (let ((#{n 3625}# (vector-length #{x 3613}#))) - (begin - (let ((#{v 3627}# (make-vector #{n 3625}#))) - (letrec* - ((#{loop 3630}# - (lambda (#{i 3631}#) - (if (= #{i 3631}# #{n 3625}#) - #{v 3627}# - (begin - (vector-set! - #{v 3627}# - #{i 3631}# - (#{remodulate 3612}# - (vector-ref - #{x 3613}# - #{i 3631}#) - #{mod 3614}#)) - (#{loop 3630}# - (#{1+}# #{i 3631}#))))))) - (begin (#{loop 3630}# 0))))))) - #{x 3613}#)))))) - (begin - (begin - (let ((#{tmp 3638}# - ($sc-dispatch #{e 3605}# '(_ each-any any)))) - (if (if #{tmp 3638}# - (@apply - (lambda (#{mod 3641}# #{exp 3642}#) - (and-map #{id? 348}# #{mod 3641}#)) - #{tmp 3638}#) - #f) - (@apply - (lambda (#{mod 3646}# #{exp 3647}#) - (begin - (let ((#{mod 3649}# - (syntax->datum - (cons '#(syntax-object - private - ((top) - #(ribcage - #(mod exp) - #((top) (top)) - #("i3644" "i3645")) - #(ribcage - (remodulate) - ((top)) - ("i3611")) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3608" "i3609" "i3610")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - #{mod 3646}#)))) - (values - (#{remodulate 3612}# #{exp 3647}# #{mod 3649}#) - #{r 3606}# - #{w 3607}# - (#{source-annotation 326}# #{exp 3647}#) - #{mod 3649}#)))) - #{tmp 3638}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3605}#)))))))) - (#{global-extend 344}# - 'core - 'if - (lambda (#{e 3651}# - #{r 3652}# - #{w 3653}# - #{s 3654}# - #{mod 3655}#) - (begin - (let ((#{tmp 3662}# - ($sc-dispatch #{e 3651}# '(_ any any)))) - (if #{tmp 3662}# - (@apply - (lambda (#{test 3665}# #{then 3666}#) - (#{build-conditional 272}# - #{s 3654}# - (#{chi 436}# - #{test 3665}# - #{r 3652}# - #{w 3653}# - #{mod 3655}#) - (#{chi 436}# - #{then 3666}# - #{r 3652}# - #{w 3653}# - #{mod 3655}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f))) - #{tmp 3662}#) - (begin - (let ((#{tmp 3668}# - ($sc-dispatch #{e 3651}# '(_ any any any)))) - (if #{tmp 3668}# - (@apply - (lambda (#{test 3672}# #{then 3673}# #{else 3674}#) - (#{build-conditional 272}# - #{s 3654}# - (#{chi 436}# - #{test 3672}# - #{r 3652}# - #{w 3653}# - #{mod 3655}#) - (#{chi 436}# - #{then 3673}# - #{r 3652}# - #{w 3653}# - #{mod 3655}#) - (#{chi 436}# - #{else 3674}# - #{r 3652}# - #{w 3653}# - #{mod 3655}#))) - #{tmp 3668}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3651}#))))))))) - (#{global-extend 344}# - 'core - 'with-fluids - (lambda (#{e 3675}# - #{r 3676}# - #{w 3677}# - #{s 3678}# - #{mod 3679}#) - (begin - (let ((#{tmp 3686}# - ($sc-dispatch - #{e 3675}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 3686}# - (@apply - (lambda (#{fluid 3691}# - #{val 3692}# - #{b 3693}# - #{b* 3694}#) - (let ((#{source 976}# #{s 3678}#) - (#{fluids 977}# - (map (lambda (#{x 3695}#) - (#{chi 436}# - #{x 3695}# - #{r 3676}# - #{w 3677}# - #{mod 3679}#)) - #{fluid 3691}#)) - (#{vals 978}# - (map (lambda (#{x 3698}#) - (#{chi 436}# - #{x 3698}# - #{r 3676}# - #{w 3677}# - #{mod 3679}#)) - #{val 3692}#)) - (#{body 979}# - (#{chi-body 444}# - (cons #{b 3693}# #{b* 3694}#) - (#{wrap 422}# - (begin - (if (if (pair? #{e 3675}#) #{s 3678}# #f) - (set-source-properties! - #{e 3675}# - #{s 3678}#)) - #{e 3675}#) - #{w 3677}# - #{mod 3679}#) - #{r 3676}# - #{w 3677}# - #{mod 3679}#))) - (#{make-dynlet 241}# - #{source 976}# - #{fluids 977}# - #{vals 978}# - #{body 979}#))) - #{tmp 3686}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3675}#)))))) - (module-define! - (current-module) - 'begin - (make-syntax-transformer 'begin 'begin '())) - (module-define! - (current-module) - 'define - (make-syntax-transformer 'define 'define '())) - (module-define! - (current-module) - 'define-syntax - (make-syntax-transformer - 'define-syntax - 'define-syntax - '())) - (module-define! - (current-module) - 'eval-when - (make-syntax-transformer - 'eval-when - 'eval-when - '())) - (#{global-extend 344}# - 'core - 'syntax-case - (letrec* - ((#{convert-pattern 3703}# - (lambda (#{pattern 3710}# #{keys 3711}#) - (letrec* - ((#{cvt* 3715}# - (lambda (#{p* 3720}# #{n 3721}# #{ids 3722}#) - (if (not (pair? #{p* 3720}#)) - (#{cvt 3719}# - #{p* 3720}# - #{n 3721}# - #{ids 3722}#) - (call-with-values - (lambda () - (#{cvt* 3715}# - (cdr #{p* 3720}#) - #{n 3721}# - #{ids 3722}#)) - (lambda (#{y 3726}# #{ids 3727}#) - (call-with-values - (lambda () - (#{cvt 3719}# - (car #{p* 3720}#) - #{n 3721}# - #{ids 3727}#)) - (lambda (#{x 3730}# #{ids 3731}#) - (values - (cons #{x 3730}# #{y 3726}#) - #{ids 3731}#)))))))) - (#{v-reverse 3717}# - (lambda (#{x 3734}#) - (letrec* - ((#{loop 3739}# - (lambda (#{r 3740}# #{x 3741}#) - (if (not (pair? #{x 3741}#)) - (values #{r 3740}# #{x 3741}#) - (#{loop 3739}# - (cons (car #{x 3741}#) #{r 3740}#) - (cdr #{x 3741}#)))))) - (begin (#{loop 3739}# '() #{x 3734}#))))) - (#{cvt 3719}# - (lambda (#{p 3742}# #{n 3743}# #{ids 3744}#) - (if (if (symbol? #{p 3742}#) - #t - (if (if (vector? #{p 3742}#) - (if (= (vector-length #{p 3742}#) 4) - (eq? (vector-ref #{p 3742}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{p 3742}# 1)) - #f)) - (if (#{bound-id-member? 420}# - #{p 3742}# - #{keys 3711}#) - (values - (vector 'free-id #{p 3742}#) - #{ids 3744}#) - (if (if (eq? (if (if (vector? #{p 3742}#) - (if (= (vector-length #{p 3742}#) - 4) - (eq? (vector-ref #{p 3742}# 0) - 'syntax-object) - #f) - #f) - (vector-ref #{p 3742}# 1) - #{p 3742}#) - (if (if (= (vector-length - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3745" - "i3746" - "i3747")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3718" - "i3716" - "i3714")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3712" "i3713")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3745" - "i3746" - "i3747")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3718" - "i3716" - "i3714")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3712" "i3713")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3745" "i3746" "i3747")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3718" "i3716" "i3714")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3712" "i3713")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3745" "i3746" "i3747")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3718" "i3716" "i3714")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3712" "i3713")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)))) - (eq? (#{id-var-name 410}# #{p 3742}# '(())) - (#{id-var-name 410}# - '#(syntax-object - _ + ("i45" "i44" "i43"))) + (hygiene guile))) + 'compile + (if (#{free-id=? 413}# + #{x 1754}# + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1753")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1747" "i1748" "i1749")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1744" "i1745" "i1746")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))) + 'load + (if (#{free-id=? 413}# + #{x 1754}# + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1753")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1747" "i1748" "i1749")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1744" "i1745" "i1746")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3745" "i3746" "i3747")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3718" "i3716" "i3714")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3712" "i3713")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" "i3706" "i3704" "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - '(()))) - #f) - (values '_ #{ids 3744}#) - (values - 'any - (cons (cons #{p 3742}# #{n 3743}#) - #{ids 3744}#)))) - (begin - (let ((#{tmp 3754}# - ($sc-dispatch #{p 3742}# '(any any)))) - (if (if #{tmp 3754}# - (@apply - (lambda (#{x 3757}# #{dots 3758}#) - (if (if (if (vector? #{dots 3758}#) - (if (= (vector-length - #{dots 3758}#) - 4) - (eq? (vector-ref - #{dots 3758}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{dots 3758}# 1)) - #f) - (if (eq? (if (if (vector? - #{dots 3758}#) - (if (= (vector-length - #{dots 3758}#) - 4) - (eq? (vector-ref - #{dots 3758}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{dots 3758}# 1) - #{dots 3758}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)))) - (eq? (#{id-var-name 410}# - #{dots 3758}# - '(())) - (#{id-var-name 410}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - '(()))) - #f) - #f)) - #{tmp 3754}#) - #f) - (@apply - (lambda (#{x 3761}# #{dots 3762}#) - (call-with-values - (lambda () - (#{cvt 3719}# - #{x 3761}# - (#{1+}# #{n 3743}#) - #{ids 3744}#)) - (lambda (#{p 3764}# #{ids 3765}#) - (values - (if (eq? #{p 3764}# 'any) - 'each-any - (vector 'each #{p 3764}#)) - #{ids 3765}#)))) - #{tmp 3754}#) - (begin - (let ((#{tmp 3768}# - ($sc-dispatch - #{p 3742}# - '(any any . any)))) - (if (if #{tmp 3768}# - (@apply - (lambda (#{x 3772}# - #{dots 3773}# - #{ys 3774}#) - (if (if (if (vector? #{dots 3773}#) - (if (= (vector-length - #{dots 3773}#) - 4) - (eq? (vector-ref - #{dots 3773}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref - #{dots 3773}# - 1)) - #f) - (if (eq? (if (if (vector? - #{dots 3773}#) - (if (= (vector-length - #{dots 3773}#) - 4) - (eq? (vector-ref - #{dots 3773}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{dots 3773}# - 1) - #{dots 3773}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - ... + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))) + 'eval + (if (#{free-id=? 413}# + #{x 1754}# + '#(syntax-object + expand + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1753")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1747" "i1748" "i1749")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1744" "i1745" "i1746")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))) + 'expand + (syntax-violation + 'eval-when + "invalid situation" + #{e 1741}# + (#{wrap 423}# + #{x 1754}# + #{w 1743}# + #f))))))) + #{situations 1752}#)))))) + (#{f 1750}# #{when-list 1742}# '())))) + (#{syntax-type 435}# + (lambda (#{e 1764}# + #{r 1765}# + #{w 1766}# + #{s 1767}# + #{rib 1768}# + #{mod 1769}# + #{for-car? 1770}#) + (if (symbol? #{e 1764}#) + (let ((#{n 1782}# + (#{id-var-name 411}# #{e 1764}# #{w 1766}#))) + (let ((#{b 1784}# + (#{lookup 343}# + #{n 1782}# + #{r 1765}# + #{mod 1769}#))) + (let ((#{type 1786}# (car #{b 1784}#))) + (if (memv #{type 1786}# '(lexical)) + (values + #{type 1786}# + (cdr #{b 1784}#) + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{type 1786}# '(global)) + (values + #{type 1786}# + #{n 1782}# + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{type 1786}# '(macro)) + (if #{for-car? 1770}# + (values + #{type 1786}# + (cdr #{b 1784}#) + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (#{syntax-type 435}# + (#{chi-macro 443}# + (cdr #{b 1784}#) + #{e 1764}# + #{r 1765}# + #{w 1766}# + #{s 1767}# + #{rib 1768}# + #{mod 1769}#) + #{r 1765}# + '(()) + #{s 1767}# + #{rib 1768}# + #{mod 1769}# + #f)) + (values + #{type 1786}# + (cdr #{b 1784}#) + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#))))))) + (if (pair? #{e 1764}#) + (let ((#{first 1800}# (car #{e 1764}#))) + (call-with-values + (lambda () + (#{syntax-type 435}# + #{first 1800}# + #{r 1765}# + #{w 1766}# + #{s 1767}# + #{rib 1768}# + #{mod 1769}# + #t)) + (lambda (#{ftype 1801}# + #{fval 1802}# + #{fe 1803}# + #{fw 1804}# + #{fs 1805}# + #{fmod 1806}#) + (if (memv #{ftype 1801}# '(lexical)) + (values + 'lexical-call + #{fval 1802}# + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{ftype 1801}# '(global)) + (values + 'global-call + (#{make-syntax-object 310}# + #{fval 1802}# + #{w 1766}# + #{fmod 1806}#) + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{ftype 1801}# '(macro)) + (#{syntax-type 435}# + (#{chi-macro 443}# + #{fval 1802}# + #{e 1764}# + #{r 1765}# + #{w 1766}# + #{s 1767}# + #{rib 1768}# + #{mod 1769}#) + #{r 1765}# + '(()) + #{s 1767}# + #{rib 1768}# + #{mod 1769}# + #{for-car? 1770}#) + (if (memv #{ftype 1801}# '(module-ref)) + (call-with-values + (lambda () + (#{fval 1802}# #{e 1764}# #{r 1765}# #{w 1766}#)) + (lambda (#{e 1818}# + #{r 1819}# + #{w 1820}# + #{s 1821}# + #{mod 1822}#) + (#{syntax-type 435}# + #{e 1818}# + #{r 1819}# + #{w 1820}# + #{s 1821}# + #{rib 1768}# + #{mod 1822}# + #{for-car? 1770}#))) + (if (memv #{ftype 1801}# '(core)) + (values + 'core-form + #{fval 1802}# + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{ftype 1801}# '(local-syntax)) + (values + 'local-syntax-form + #{fval 1802}# + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{ftype 1801}# '(begin)) + (values + 'begin-form + #f + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{ftype 1801}# '(eval-when)) + (values + 'eval-when-form + #f + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (if (memv #{ftype 1801}# '(define)) + (let ((#{tmp 1834}# + ($sc-dispatch + #{e 1764}# + '(_ any any)))) + (if (if #{tmp 1834}# + (@apply + (lambda (#{name 1837}# + #{val 1838}#) + (#{id? 349}# #{name 1837}#)) + #{tmp 1834}#) + #f) + (@apply + (lambda (#{name 1841}# #{val 1842}#) + (values + 'define-form + #{name 1841}# + #{val 1842}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#)) + #{tmp 1834}#) + (let ((#{tmp 1843}# + ($sc-dispatch + #{e 1764}# + '(_ (any . any) + any + . + each-any)))) + (if (if #{tmp 1843}# + (@apply + (lambda (#{name 1848}# + #{args 1849}# + #{e1 1850}# + #{e2 1851}#) + (if (#{id? 349}# + #{name 1848}#) + (#{valid-bound-ids? 417}# + (#{lambda-var-list 467}# + #{args 1849}#)) + #f)) + #{tmp 1843}#) + #f) + (@apply + (lambda (#{name 1858}# + #{args 1859}# + #{e1 1860}# + #{e2 1861}#) + (values + 'define-form + (#{wrap 423}# + #{name 1858}# + #{w 1766}# + #{mod 1769}#) + (#{decorate-source 265}# + (cons '#(syntax-object + lambda ((top) + #(ribcage + #(name + args + e1 + e2) + #((top) + (top) + (top) + (top)) + #("i1854" + "i1855" + "i1856" + "i1857")) #(ribcage () () @@ -17658,9 +3342,66 @@ () ()) #(ribcage - #(x) + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) + #(ribcage + () + () + ()) + #(ribcage + #(first) #((top)) - #("i2228")) + #("i1799")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777")) #(ribcage (lambda-var-list gen-var @@ -17934,142 +3675,142 @@ (top) (top) (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" "i397" - "i396" - "i394" + "i395" + "i392" "i391" "i390" - "i389" + "i388" "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" "i365" - "i364" - "i362" - "i360" - "i358" + "i363" + "i361" + "i359" + "i357" "i356" "i355" "i354" - "i353" + "i352" "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" "i335" "i334" - "i333" - "i331" + "i332" + "i330" "i329" - "i328" + "i326" "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" "i259" - "i258" - "i255" + "i256" + "i254" "i253" "i252" "i251" "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) #(ribcage (define-structure define-expansion-accessors @@ -18077,2412 +3818,98 @@ ((top) (top) (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)))) - (eq? (#{id-var-name 410}# - #{dots 3773}# - '(())) - (#{id-var-name 410}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - '(()))) - #f) - #f)) - #{tmp 3768}#) - #f) - (@apply - (lambda (#{x 3778}# - #{dots 3779}# - #{ys 3780}#) - (call-with-values - (lambda () - (#{cvt* 3715}# - #{ys 3780}# - #{n 3743}# - #{ids 3744}#)) - (lambda (#{ys 3781}# #{ids 3782}#) - (call-with-values - (lambda () - (#{cvt 3719}# - #{x 3778}# - (#{1+}# #{n 3743}#) - #{ids 3782}#)) - (lambda (#{x 3785}# #{ids 3786}#) - (call-with-values - (lambda () - (#{v-reverse 3717}# - #{ys 3781}#)) - (lambda (#{ys 3789}# - #{e 3790}#) - (values - (vector - 'each+ - #{x 3785}# - #{ys 3789}# - #{e 3790}#) - #{ids 3786}#)))))))) - #{tmp 3768}#) - (begin - (let ((#{tmp 3794}# - ($sc-dispatch - #{p 3742}# - '(any . any)))) - (if #{tmp 3794}# - (@apply - (lambda (#{x 3797}# #{y 3798}#) - (call-with-values - (lambda () - (#{cvt 3719}# - #{y 3798}# - #{n 3743}# - #{ids 3744}#)) - (lambda (#{y 3799}# - #{ids 3800}#) - (call-with-values - (lambda () - (#{cvt 3719}# - #{x 3797}# - #{n 3743}# - #{ids 3800}#)) - (lambda (#{x 3803}# - #{ids 3804}#) - (values - (cons #{x 3803}# - #{y 3799}#) - #{ids 3804}#)))))) - #{tmp 3794}#) - (begin - (let ((#{tmp 3807}# - ($sc-dispatch - #{p 3742}# - '()))) - (if #{tmp 3807}# - (@apply - (lambda () - (values '() #{ids 3744}#)) - #{tmp 3807}#) - (begin - (let ((#{tmp 3808}# - ($sc-dispatch - #{p 3742}# - '#(vector - each-any)))) - (if #{tmp 3808}# - (@apply - (lambda (#{x 3810}#) - (call-with-values - (lambda () - (#{cvt 3719}# - #{x 3810}# - #{n 3743}# - #{ids 3744}#)) - (lambda (#{p 3812}# - #{ids 3813}#) - (values - (vector - 'vector - #{p 3812}#) - #{ids 3813}#)))) - #{tmp 3808}#) - (values - (vector - 'atom - (#{strip 462}# - #{p 3742}# - '(()))) - #{ids 3744}#)))))))))))))))))))) - (begin (#{cvt 3719}# #{pattern 3710}# 0 '()))))) - (#{build-dispatch-call 3705}# - (lambda (#{pvars 3819}# - #{exp 3820}# - #{y 3821}# - #{r 3822}# - #{mod 3823}#) - (begin - (let ((#{ids 3831}# (map car #{pvars 3819}#))) - (begin - (map cdr #{pvars 3819}#) - (begin - (let ((#{labels 3835}# - (#{gen-labels 368}# #{ids 3831}#)) - (#{new-vars 3836}# - (map #{gen-var 464}# #{ids 3831}#))) - (#{build-application 270}# - #f - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'apply) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'apply - #f)) - (list (#{build-simple-lambda 288}# - #f - (map syntax->datum #{ids 3831}#) - #f - #{new-vars 3836}# - '() - (#{chi 436}# - #{exp 3820}# - (#{extend-env 336}# - #{labels 3835}# - (map (lambda (#{var 3840}# - #{level 3841}#) - (cons 'syntax - (cons #{var 3840}# - #{level 3841}#))) - #{new-vars 3836}# - (map cdr #{pvars 3819}#)) - #{r 3822}#) - (#{make-binding-wrap 400}# - #{ids 3831}# - #{labels 3835}# - '(())) - #{mod 3823}#)) - #{y 3821}#))))))))) - (#{gen-clause 3707}# - (lambda (#{x 3847}# - #{keys 3848}# - #{clauses 3849}# - #{r 3850}# - #{pat 3851}# - #{fender 3852}# - #{exp 3853}# - #{mod 3854}#) - (call-with-values - (lambda () - (#{convert-pattern 3703}# - #{pat 3851}# - #{keys 3848}#)) - (lambda (#{p 3863}# #{pvars 3864}#) - (if (not (#{distinct-bound-ids? 418}# - (map car #{pvars 3864}#))) - (syntax-violation - 'syntax-case - "duplicate pattern variable" - #{pat 3851}#) - (if (not (and-map - (lambda (#{x 3871}#) - (not (begin - (let ((#{x 9163}# (car #{x 3871}#))) - (if (if (if (vector? #{x 9163}#) - (if (= (vector-length - #{x 9163}#) - 4) - (eq? (vector-ref - #{x 9163}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{x 9163}# 1)) - #f) - (if (eq? (if (if (vector? - #{x 9163}#) - (if (= (vector-length - #{x 9163}#) - 4) - (eq? (vector-ref - #{x 9163}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{x 9163}# - 1) - #{x 9163}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)))) - (eq? (#{id-var-name 410}# - #{x 9163}# - '(())) - (#{id-var-name 410}# - '#(syntax-object - ... + ("i45" + "i44" + "i43"))) + (hygiene guile)) + (#{wrap 423}# + (cons #{args 1859}# + (cons #{e1 1860}# + #{e2 1861}#)) + #{w 1766}# + #{mod 1769}#)) + #{s 1767}#) + '(()) + #{s 1767}# + #{mod 1769}#)) + #{tmp 1843}#) + (let ((#{tmp 1864}# + ($sc-dispatch + #{e 1764}# + '(_ any)))) + (if (if #{tmp 1864}# + (@apply + (lambda (#{name 1866}#) + (#{id? 349}# + #{name 1866}#)) + #{tmp 1864}#) + #f) + (@apply + (lambda (#{name 1868}#) + (values + 'define-form + (#{wrap 423}# + #{name 1868}# + #{w 1766}# + #{mod 1769}#) + '(#(syntax-object + if ((top) + #(ribcage + #(name) + #((top)) + #("i1867")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(x) + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) + #(ribcage () () ()) + #(ribcage + #(first) #((top)) - #("i2228")) + #("i1799")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777")) #(ribcage (lambda-var-list gen-var @@ -20756,456 +4183,11192 @@ (top) (top) (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" "i397" - "i396" - "i394" + "i395" + "i392" "i391" "i390" - "i389" + "i388" "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" "i365" - "i364" - "i362" - "i360" - "i358" + "i363" + "i361" + "i359" + "i357" "i356" "i355" "i354" - "i353" + "i352" "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" "i335" "i334" - "i333" - "i331" + "i332" + "i330" "i329" - "i328" + "i326" "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" "i259" - "i258" - "i255" + "i256" + "i254" "i253" "i252" "i251" "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i44" - "i43" - "i42"))) + ("i45" + "i44" + "i43"))) (hygiene guile)) - '(()))) - #f) - #f))))) - #{pvars 3864}#)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1867")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1799")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1867")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1799")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile))) + '(()) + #{s 1767}# + #{mod 1769}#)) + #{tmp 1864}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1764}#))))))) + (if (memv #{ftype 1801}# '(define-syntax)) + (let ((#{tmp 1872}# + ($sc-dispatch + #{e 1764}# + '(_ any any)))) + (if (if #{tmp 1872}# + (@apply + (lambda (#{name 1875}# + #{val 1876}#) + (#{id? 349}# #{name 1875}#)) + #{tmp 1872}#) + #f) + (@apply + (lambda (#{name 1879}# #{val 1880}#) + (values + 'define-syntax-form + #{name 1879}# + #{val 1880}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#)) + #{tmp 1872}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1764}#))) + (values + 'call + #f + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#)))))))))))))) + (if (#{syntax-object? 312}# #{e 1764}#) + (#{syntax-type 435}# + (#{syntax-object-expression 314}# #{e 1764}#) + #{r 1765}# + (#{join-wraps 405}# + #{w 1766}# + (#{syntax-object-wrap 316}# #{e 1764}#)) + (let ((#{t 1886}# + (#{source-annotation 327}# #{e 1764}#))) + (if #{t 1886}# #{t 1886}# #{s 1767}#)) + #{rib 1768}# + (let ((#{t 1890}# + (#{syntax-object-module 318}# #{e 1764}#))) + (if #{t 1890}# #{t 1890}# #{mod 1769}#)) + #{for-car? 1770}#) + (if (self-evaluating? #{e 1764}#) + (values + 'constant + #f + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#) + (values + 'other + #f + #{e 1764}# + #{w 1766}# + #{s 1767}# + #{mod 1769}#))))))) + (#{chi 437}# + (lambda (#{e 1895}# #{r 1896}# #{w 1897}# #{mod 1898}#) + (call-with-values + (lambda () + (#{syntax-type 435}# + #{e 1895}# + #{r 1896}# + #{w 1897}# + (#{source-annotation 327}# #{e 1895}#) + #f + #{mod 1898}# + #f)) + (lambda (#{type 1903}# + #{value 1904}# + #{e 1905}# + #{w 1906}# + #{s 1907}# + #{mod 1908}#) + (#{chi-expr 439}# + #{type 1903}# + #{value 1904}# + #{e 1905}# + #{r 1896}# + #{w 1906}# + #{s 1907}# + #{mod 1908}#))))) + (#{chi-expr 439}# + (lambda (#{type 1915}# + #{value 1916}# + #{e 1917}# + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + (if (memv #{type 1915}# '(lexical)) + (#{build-lexical-reference 277}# + 'value + #{s 1920}# + #{e 1917}# + #{value 1916}#) + (if (memv #{type 1915}# '(core core-form)) + (#{value 1916}# + #{e 1917}# + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + (if (memv #{type 1915}# '(module-ref)) + (call-with-values + (lambda () + (#{value 1916}# #{e 1917}# #{r 1918}# #{w 1919}#)) + (lambda (#{e 1932}# + #{r 1933}# + #{w 1934}# + #{s 1935}# + #{mod 1936}#) + (#{chi 437}# + #{e 1932}# + #{r 1933}# + #{w 1934}# + #{mod 1936}#))) + (if (memv #{type 1915}# '(lexical-call)) + (#{chi-application 441}# + (let ((#{id 1944}# (car #{e 1917}#))) + (#{build-lexical-reference 277}# + 'fun + (#{source-annotation 327}# #{id 1944}#) + (if (#{syntax-object? 312}# #{id 1944}#) + (syntax->datum #{id 1944}#) + #{id 1944}#) + #{value 1916}#)) + #{e 1917}# + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + (if (memv #{type 1915}# '(global-call)) + (#{chi-application 441}# + (#{build-global-reference 283}# + (#{source-annotation 327}# (car #{e 1917}#)) + (if (#{syntax-object? 312}# #{value 1916}#) + (#{syntax-object-expression 314}# #{value 1916}#) + #{value 1916}#) + (if (#{syntax-object? 312}# #{value 1916}#) + (#{syntax-object-module 318}# #{value 1916}#) + #{mod 1921}#)) + #{e 1917}# + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + (if (memv #{type 1915}# '(constant)) + (#{build-data 297}# + #{s 1920}# + (#{strip 463}# + (#{source-wrap 425}# + #{e 1917}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + '(()))) + (if (memv #{type 1915}# '(global)) + (#{build-global-reference 283}# + #{s 1920}# + #{value 1916}# + #{mod 1921}#) + (if (memv #{type 1915}# '(call)) + (#{chi-application 441}# + (#{chi 437}# + (car #{e 1917}#) + #{r 1918}# + #{w 1919}# + #{mod 1921}#) + #{e 1917}# + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + (if (memv #{type 1915}# '(begin-form)) + (let ((#{tmp 1952}# + ($sc-dispatch + #{e 1917}# + '(_ any . each-any)))) + (if #{tmp 1952}# + (@apply + (lambda (#{e1 1955}# #{e2 1956}#) + (#{chi-sequence 427}# + (cons #{e1 1955}# #{e2 1956}#) + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#)) + #{tmp 1952}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1917}#))) + (if (memv #{type 1915}# '(local-syntax-form)) + (#{chi-local-syntax 447}# + #{value 1916}# + #{e 1917}# + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}# + #{chi-sequence 427}#) + (if (memv #{type 1915}# '(eval-when-form)) + (let ((#{tmp 1961}# + ($sc-dispatch + #{e 1917}# + '(_ each-any any . each-any)))) + (if #{tmp 1961}# + (@apply + (lambda (#{x 1965}# #{e1 1966}# #{e2 1967}#) + (let ((#{when-list 1969}# + (#{chi-when-list 433}# + #{e 1917}# + #{x 1965}# + #{w 1919}#))) + (if (memq 'eval #{when-list 1969}#) + (#{chi-sequence 427}# + (cons #{e1 1966}# #{e2 1967}#) + #{r 1918}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#) + (#{chi-void 451}#)))) + #{tmp 1961}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1917}#))) + (if (memv #{type 1915}# + '(define-form define-syntax-form)) + (syntax-violation + #f + "definition in expression context" + #{e 1917}# + (#{wrap 423}# + #{value 1916}# + #{w 1919}# + #{mod 1921}#)) + (if (memv #{type 1915}# '(syntax)) + (syntax-violation + #f + "reference to pattern variable outside syntax form" + (#{source-wrap 425}# + #{e 1917}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#)) + (if (memv #{type 1915}# '(displaced-lexical)) + (syntax-violation + #f + "reference to identifier outside its scope" + (#{source-wrap 425}# + #{e 1917}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#)) + (syntax-violation + #f + "unexpected syntax" + (#{source-wrap 425}# + #{e 1917}# + #{w 1919}# + #{s 1920}# + #{mod 1921}#)))))))))))))))))) + (#{chi-application 441}# + (lambda (#{x 1976}# + #{e 1977}# + #{r 1978}# + #{w 1979}# + #{s 1980}# + #{mod 1981}#) + (let ((#{tmp 1989}# + ($sc-dispatch #{e 1977}# '(any . each-any)))) + (if #{tmp 1989}# + (@apply + (lambda (#{e0 1992}# #{e1 1993}#) + (#{build-application 271}# + #{s 1980}# + #{x 1976}# + (map (lambda (#{e 1994}#) + (#{chi 437}# + #{e 1994}# + #{r 1978}# + #{w 1979}# + #{mod 1981}#)) + #{e1 1993}#))) + #{tmp 1989}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1977}#))))) + (#{chi-macro 443}# + (lambda (#{p 1997}# + #{e 1998}# + #{r 1999}# + #{w 2000}# + #{s 2001}# + #{rib 2002}# + #{mod 2003}#) + (letrec* + ((#{rebuild-macro-output 2012}# + (lambda (#{x 2013}# #{m 2014}#) + (if (pair? #{x 2013}#) + (#{decorate-source 265}# + (cons (#{rebuild-macro-output 2012}# + (car #{x 2013}#) + #{m 2014}#) + (#{rebuild-macro-output 2012}# + (cdr #{x 2013}#) + #{m 2014}#)) + #{s 2001}#) + (if (#{syntax-object? 312}# #{x 2013}#) + (let ((#{w 2022}# + (#{syntax-object-wrap 316}# #{x 2013}#))) + (let ((#{ms 2025}# (car #{w 2022}#)) + (#{s 2026}# (cdr #{w 2022}#))) + (if (if (pair? #{ms 2025}#) + (eq? (car #{ms 2025}#) #f) + #f) + (#{make-syntax-object 310}# + (#{syntax-object-expression 314}# #{x 2013}#) + (cons (cdr #{ms 2025}#) + (if #{rib 2002}# + (cons #{rib 2002}# (cdr #{s 2026}#)) + (cdr #{s 2026}#))) + (#{syntax-object-module 318}# #{x 2013}#)) + (#{make-syntax-object 310}# + (#{decorate-source 265}# + (#{syntax-object-expression 314}# #{x 2013}#) + #{s 2026}#) + (cons (cons #{m 2014}# #{ms 2025}#) + (if #{rib 2002}# + (cons #{rib 2002}# (cons 'shift #{s 2026}#)) + (cons 'shift #{s 2026}#))) + (#{syntax-object-module 318}# #{x 2013}#))))) + (if (vector? #{x 2013}#) + (let ((#{n 2038}# (vector-length #{x 2013}#))) + (let ((#{v 2040}# + (#{decorate-source 265}# + (make-vector #{n 2038}#) + #{x 2013}#))) + (letrec* + ((#{loop 2043}# + (lambda (#{i 2044}#) + (if (= #{i 2044}# #{n 2038}#) + #{v 2040}# + (begin + (vector-set! + #{v 2040}# + #{i 2044}# + (#{rebuild-macro-output 2012}# + (vector-ref #{x 2013}# #{i 2044}#) + #{m 2014}#)) + (#{loop 2043}# (#{1+}# #{i 2044}#))))))) + (#{loop 2043}# 0)))) + (if (symbol? #{x 2013}#) + (syntax-violation + #f + "encountered raw symbol in macro output" + (#{source-wrap 425}# + #{e 1998}# + #{w 2000}# + (cdr #{w 2000}#) + #{mod 2003}#) + #{x 2013}#) + (#{decorate-source 265}# #{x 2013}# #{s 2001}#)))))))) + (#{rebuild-macro-output 2012}# + (#{p 1997}# + (#{source-wrap 425}# + #{e 1998}# + (#{anti-mark 393}# #{w 2000}#) + #{s 2001}# + #{mod 2003}#)) + (gensym "m"))))) + (#{chi-body 445}# + (lambda (#{body 2054}# + #{outer-form 2055}# + #{r 2056}# + #{w 2057}# + #{mod 2058}#) + (let ((#{r 2066}# + (cons '("placeholder" placeholder) #{r 2056}#))) + (let ((#{ribcage 2068}# + (#{make-ribcage 372}# '() '() '()))) + (let ((#{w 2071}# + (cons (car #{w 2057}#) + (cons #{ribcage 2068}# (cdr #{w 2057}#))))) + (letrec* + ((#{parse 2083}# + (lambda (#{body 2084}# + #{ids 2085}# + #{labels 2086}# + #{var-ids 2087}# + #{vars 2088}# + #{vals 2089}# + #{bindings 2090}#) + (if (null? #{body 2084}#) + (syntax-violation + #f + "no expressions in body" + #{outer-form 2055}#) + (let ((#{e 2095}# (cdr (car #{body 2084}#))) + (#{er 2096}# (car (car #{body 2084}#)))) + (call-with-values + (lambda () + (#{syntax-type 435}# + #{e 2095}# + #{er 2096}# + '(()) + (#{source-annotation 327}# #{er 2096}#) + #{ribcage 2068}# + #{mod 2058}# + #f)) + (lambda (#{type 2098}# + #{value 2099}# + #{e 2100}# + #{w 2101}# + #{s 2102}# + #{mod 2103}#) + (if (memv #{type 2098}# '(define-form)) + (let ((#{id 2113}# + (#{wrap 423}# + #{value 2099}# + #{w 2101}# + #{mod 2103}#)) + (#{label 2114}# (#{gen-label 367}#))) + (let ((#{var 2116}# + (#{gen-var 465}# #{id 2113}#))) + (begin + (#{extend-ribcage! 399}# + #{ribcage 2068}# + #{id 2113}# + #{label 2114}#) + (#{parse 2083}# + (cdr #{body 2084}#) + (cons #{id 2113}# #{ids 2085}#) + (cons #{label 2114}# #{labels 2086}#) + (cons #{id 2113}# #{var-ids 2087}#) + (cons #{var 2116}# #{vars 2088}#) + (cons (cons #{er 2096}# + (#{wrap 423}# + #{e 2100}# + #{w 2101}# + #{mod 2103}#)) + #{vals 2089}#) + (cons (cons 'lexical #{var 2116}#) + #{bindings 2090}#))))) + (if (memv #{type 2098}# '(define-syntax-form)) + (let ((#{id 2121}# + (#{wrap 423}# + #{value 2099}# + #{w 2101}# + #{mod 2103}#)) + (#{label 2122}# (#{gen-label 367}#))) + (begin + (#{extend-ribcage! 399}# + #{ribcage 2068}# + #{id 2121}# + #{label 2122}#) + (#{parse 2083}# + (cdr #{body 2084}#) + (cons #{id 2121}# #{ids 2085}#) + (cons #{label 2122}# #{labels 2086}#) + #{var-ids 2087}# + #{vars 2088}# + #{vals 2089}# + (cons (cons 'macro + (cons #{er 2096}# + (#{wrap 423}# + #{e 2100}# + #{w 2101}# + #{mod 2103}#))) + #{bindings 2090}#)))) + (if (memv #{type 2098}# '(begin-form)) + (let ((#{tmp 2126}# + ($sc-dispatch + #{e 2100}# + '(_ . each-any)))) + (if #{tmp 2126}# + (@apply + (lambda (#{e1 2128}#) + (#{parse 2083}# + (letrec* + ((#{f 2131}# + (lambda (#{forms 2132}#) + (if (null? #{forms 2132}#) + (cdr #{body 2084}#) + (cons (cons #{er 2096}# + (#{wrap 423}# + (car #{forms 2132}#) + #{w 2101}# + #{mod 2103}#)) + (#{f 2131}# + (cdr #{forms 2132}#))))))) + (#{f 2131}# #{e1 2128}#)) + #{ids 2085}# + #{labels 2086}# + #{var-ids 2087}# + #{vars 2088}# + #{vals 2089}# + #{bindings 2090}#)) + #{tmp 2126}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 2100}#))) + (if (memv #{type 2098}# '(local-syntax-form)) + (#{chi-local-syntax 447}# + #{value 2099}# + #{e 2100}# + #{er 2096}# + #{w 2101}# + #{s 2102}# + #{mod 2103}# + (lambda (#{forms 2135}# + #{er 2136}# + #{w 2137}# + #{s 2138}# + #{mod 2139}#) + (#{parse 2083}# + (letrec* + ((#{f 2147}# + (lambda (#{forms 2148}#) + (if (null? #{forms 2148}#) + (cdr #{body 2084}#) + (cons (cons #{er 2136}# + (#{wrap 423}# + (car #{forms 2148}#) + #{w 2137}# + #{mod 2139}#)) + (#{f 2147}# + (cdr #{forms 2148}#))))))) + (#{f 2147}# #{forms 2135}#)) + #{ids 2085}# + #{labels 2086}# + #{var-ids 2087}# + #{vars 2088}# + #{vals 2089}# + #{bindings 2090}#))) + (if (null? #{ids 2085}#) + (#{build-sequence 299}# + #f + (map (lambda (#{x 2151}#) + (#{chi 437}# + (cdr #{x 2151}#) + (car #{x 2151}#) + '(()) + #{mod 2103}#)) + (cons (cons #{er 2096}# + (#{source-wrap 425}# + #{e 2100}# + #{w 2101}# + #{s 2102}# + #{mod 2103}#)) + (cdr #{body 2084}#)))) + (begin + (if (not (#{valid-bound-ids? 417}# + #{ids 2085}#)) + (syntax-violation + #f + "invalid or duplicate identifier in definition" + #{outer-form 2055}#)) + (letrec* + ((#{loop 2158}# + (lambda (#{bs 2159}# + #{er-cache 2160}# + #{r-cache 2161}#) + (if (not (null? #{bs 2159}#)) + (let ((#{b 2164}# + (car #{bs 2159}#))) + (if (eq? (car #{b 2164}#) + 'macro) + (let ((#{er 2167}# + (car (cdr #{b 2164}#)))) + (let ((#{r-cache 2169}# + (if (eq? #{er 2167}# + #{er-cache 2160}#) + #{r-cache 2161}# + (#{macros-only-env 341}# + #{er 2167}#)))) + (begin + (set-cdr! + #{b 2164}# + (#{eval-local-transformer 449}# + (#{chi 437}# + (cdr (cdr #{b 2164}#)) + #{r-cache 2169}# + '(()) + #{mod 2103}#) + #{mod 2103}#)) + (#{loop 2158}# + (cdr #{bs 2159}#) + #{er 2167}# + #{r-cache 2169}#)))) + (#{loop 2158}# + (cdr #{bs 2159}#) + #{er-cache 2160}# + #{r-cache 2161}#))))))) + (#{loop 2158}# + #{bindings 2090}# + #f + #f)) + (set-cdr! + #{r 2066}# + (#{extend-env 337}# + #{labels 2086}# + #{bindings 2090}# + (cdr #{r 2066}#))) + (#{build-letrec 305}# + #f + #t + (reverse + (map syntax->datum + #{var-ids 2087}#)) + (reverse #{vars 2088}#) + (map (lambda (#{x 2172}#) + (#{chi 437}# + (cdr #{x 2172}#) + (car #{x 2172}#) + '(()) + #{mod 2103}#)) + (reverse #{vals 2089}#)) + (#{build-sequence 299}# + #f + (map (lambda (#{x 2176}#) + (#{chi 437}# + (cdr #{x 2176}#) + (car #{x 2176}#) + '(()) + #{mod 2103}#)) + (cons (cons #{er 2096}# + (#{source-wrap 425}# + #{e 2100}# + #{w 2101}# + #{s 2102}# + #{mod 2103}#)) + (cdr #{body 2084}#)))))))))))))))))) + (#{parse 2083}# + (map (lambda (#{x 2091}#) + (cons #{r 2066}# + (#{wrap 423}# + #{x 2091}# + #{w 2071}# + #{mod 2058}#))) + #{body 2054}#) + '() + '() + '() + '() + '() + '()))))))) + (#{chi-local-syntax 447}# + (lambda (#{rec? 2179}# + #{e 2180}# + #{r 2181}# + #{w 2182}# + #{s 2183}# + #{mod 2184}# + #{k 2185}#) + (let ((#{tmp 2194}# + ($sc-dispatch + #{e 2180}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 2194}# + (@apply + (lambda (#{id 2199}# + #{val 2200}# + #{e1 2201}# + #{e2 2202}#) + (if (not (#{valid-bound-ids? 417}# #{id 2199}#)) + (syntax-violation + #f + "duplicate bound keyword" + #{e 2180}#) + (let ((#{labels 2207}# + (#{gen-labels 369}# #{id 2199}#))) + (let ((#{new-w 2209}# + (#{make-binding-wrap 401}# + #{id 2199}# + #{labels 2207}# + #{w 2182}#))) + (#{k 2185}# + (cons #{e1 2201}# #{e2 2202}#) + (#{extend-env 337}# + #{labels 2207}# + (let ((#{trans-r 2214}# + (#{macros-only-env 341}# #{r 2181}#))) + (begin + (if #{rec? 2179}# (if #f #f)) + (map (lambda (#{x 2215}#) + (cons 'macro + (#{eval-local-transformer 449}# + (#{chi 437}# + #{x 2215}# + #{trans-r 2214}# + (if #{rec? 2179}# + #{new-w 2209}# + #{w 2182}#) + #{mod 2184}#) + #{mod 2184}#))) + #{val 2200}#))) + #{r 2181}#) + #{new-w 2209}# + #{s 2183}# + #{mod 2184}#))))) + #{tmp 2194}#) + (syntax-violation + #f + "bad local syntax definition" + (#{source-wrap 425}# + #{e 2180}# + #{w 2182}# + #{s 2183}# + #{mod 2184}#)))))) + (#{eval-local-transformer 449}# + (lambda (#{expanded 2221}# #{mod 2222}#) + (let ((#{p 2226}# + (#{local-eval-hook 257}# + #{expanded 2221}# + #{mod 2222}#))) + (if (procedure? #{p 2226}#) + #{p 2226}# + (syntax-violation + #f + "nonprocedure transformer" + #{p 2226}#))))) + (#{chi-void 451}# + (lambda () (#{build-void 269}# #f))) + (#{ellipsis? 453}# + (lambda (#{x 2228}#) + (if (#{nonsymbol-id? 347}# #{x 2228}#) + (#{free-id=? 413}# + #{x 2228}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))) + #f))) + (#{lambda-formals 455}# + (lambda (#{orig-args 2232}#) + (letrec* + ((#{req 2235}# + (lambda (#{args 2238}# #{rreq 2239}#) + (let ((#{tmp 2243}# ($sc-dispatch #{args 2238}# '()))) + (if #{tmp 2243}# + (@apply + (lambda () + (#{check 2237}# (reverse #{rreq 2239}#) #f)) + #{tmp 2243}#) + (let ((#{tmp 2244}# + ($sc-dispatch #{args 2238}# '(any . any)))) + (if (if #{tmp 2244}# + (@apply + (lambda (#{a 2247}# #{b 2248}#) + (#{id? 349}# #{a 2247}#)) + #{tmp 2244}#) + #f) + (@apply + (lambda (#{a 2251}# #{b 2252}#) + (#{req 2235}# + #{b 2252}# + (cons #{a 2251}# #{rreq 2239}#))) + #{tmp 2244}#) + (let ((#{tmp 2253}# (list #{args 2238}#))) + (if (if #{tmp 2253}# + (@apply + (lambda (#{r 2255}#) (#{id? 349}# #{r 2255}#)) + #{tmp 2253}#) + #f) + (@apply + (lambda (#{r 2257}#) + (#{check 2237}# + (reverse #{rreq 2239}#) + #{r 2257}#)) + #{tmp 2253}#) + (syntax-violation + 'lambda + "invalid argument list" + #{orig-args 2232}# + #{args 2238}#))))))))) + (#{check 2237}# + (lambda (#{req 2260}# #{rest 2261}#) + (if (#{distinct-bound-ids? 419}# + (if #{rest 2261}# + (cons #{rest 2261}# #{req 2260}#) + #{req 2260}#)) + (values #{req 2260}# #f #{rest 2261}# #f) + (syntax-violation + 'lambda + "duplicate identifier in argument list" + #{orig-args 2232}#))))) + (#{req 2235}# #{orig-args 2232}# '())))) + (#{lambda*-formals 459}# + (lambda (#{orig-args 2294}#) + (letrec* + ((#{req 2297}# + (lambda (#{args 2306}# #{rreq 2307}#) + (let ((#{tmp 2311}# ($sc-dispatch #{args 2306}# '()))) + (if #{tmp 2311}# + (@apply + (lambda () + (#{check 2305}# + (reverse #{rreq 2307}#) + '() + #f + '())) + #{tmp 2311}#) + (let ((#{tmp 2312}# + ($sc-dispatch #{args 2306}# '(any . any)))) + (if (if #{tmp 2312}# + (@apply + (lambda (#{a 2315}# #{b 2316}#) + (#{id? 349}# #{a 2315}#)) + #{tmp 2312}#) + #f) + (@apply + (lambda (#{a 2319}# #{b 2320}#) + (#{req 2297}# + #{b 2320}# + (cons #{a 2319}# #{rreq 2307}#))) + #{tmp 2312}#) + (let ((#{tmp 2321}# + ($sc-dispatch #{args 2306}# '(any . any)))) + (if (if #{tmp 2321}# + (@apply + (lambda (#{a 2324}# #{b 2325}#) + (eq? (syntax->datum #{a 2324}#) #:optional)) + #{tmp 2321}#) + #f) + (@apply + (lambda (#{a 2328}# #{b 2329}#) + (#{opt 2299}# + #{b 2329}# + (reverse #{rreq 2307}#) + '())) + #{tmp 2321}#) + (let ((#{tmp 2330}# + ($sc-dispatch #{args 2306}# '(any . any)))) + (if (if #{tmp 2330}# + (@apply + (lambda (#{a 2333}# #{b 2334}#) + (eq? (syntax->datum #{a 2333}#) #:key)) + #{tmp 2330}#) + #f) + (@apply + (lambda (#{a 2337}# #{b 2338}#) + (#{key 2301}# + #{b 2338}# + (reverse #{rreq 2307}#) + '() + '())) + #{tmp 2330}#) + (let ((#{tmp 2339}# + ($sc-dispatch #{args 2306}# '(any any)))) + (if (if #{tmp 2339}# + (@apply + (lambda (#{a 2342}# #{b 2343}#) + (eq? (syntax->datum #{a 2342}#) + #:rest)) + #{tmp 2339}#) + #f) + (@apply + (lambda (#{a 2346}# #{b 2347}#) + (#{rest 2303}# + #{b 2347}# + (reverse #{rreq 2307}#) + '() + '())) + #{tmp 2339}#) + (let ((#{tmp 2348}# (list #{args 2306}#))) + (if (if #{tmp 2348}# + (@apply + (lambda (#{r 2350}#) + (#{id? 349}# #{r 2350}#)) + #{tmp 2348}#) + #f) + (@apply + (lambda (#{r 2352}#) + (#{rest 2303}# + #{r 2352}# + (reverse #{rreq 2307}#) + '() + '())) + #{tmp 2348}#) + (syntax-violation + 'lambda* + "invalid argument list" + #{orig-args 2294}# + #{args 2306}#))))))))))))))) + (#{opt 2299}# + (lambda (#{args 2355}# #{req 2356}# #{ropt 2357}#) + (let ((#{tmp 2362}# ($sc-dispatch #{args 2355}# '()))) + (if #{tmp 2362}# + (@apply + (lambda () + (#{check 2305}# + #{req 2356}# + (reverse #{ropt 2357}#) + #f + '())) + #{tmp 2362}#) + (let ((#{tmp 2363}# + ($sc-dispatch #{args 2355}# '(any . any)))) + (if (if #{tmp 2363}# + (@apply + (lambda (#{a 2366}# #{b 2367}#) + (#{id? 349}# #{a 2366}#)) + #{tmp 2363}#) + #f) + (@apply + (lambda (#{a 2370}# #{b 2371}#) + (#{opt 2299}# + #{b 2371}# + #{req 2356}# + (cons (cons #{a 2370}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(a b) + #((top) (top)) + #("i2368" "i2369")) + #(ribcage () () ()) + #(ribcage + #(args req ropt) + #((top) (top) (top)) + #("i2358" "i2359" "i2360")) + #(ribcage + (check rest key opt req) + ((top) (top) (top) (top) (top)) + ("i2304" + "i2302" + "i2300" + "i2298" + "i2296")) + #(ribcage + #(orig-args) + #((top)) + #("i2295")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + #{ropt 2357}#))) + #{tmp 2363}#) + (let ((#{tmp 2372}# + ($sc-dispatch #{args 2355}# '((any any) . any)))) + (if (if #{tmp 2372}# + (@apply + (lambda (#{a 2376}# #{init 2377}# #{b 2378}#) + (#{id? 349}# #{a 2376}#)) + #{tmp 2372}#) + #f) + (@apply + (lambda (#{a 2382}# #{init 2383}# #{b 2384}#) + (#{opt 2299}# + #{b 2384}# + #{req 2356}# + (cons (list #{a 2382}# #{init 2383}#) + #{ropt 2357}#))) + #{tmp 2372}#) + (let ((#{tmp 2385}# + ($sc-dispatch #{args 2355}# '(any . any)))) + (if (if #{tmp 2385}# + (@apply + (lambda (#{a 2388}# #{b 2389}#) + (eq? (syntax->datum #{a 2388}#) #:key)) + #{tmp 2385}#) + #f) + (@apply + (lambda (#{a 2392}# #{b 2393}#) + (#{key 2301}# + #{b 2393}# + #{req 2356}# + (reverse #{ropt 2357}#) + '())) + #{tmp 2385}#) + (let ((#{tmp 2394}# + ($sc-dispatch #{args 2355}# '(any any)))) + (if (if #{tmp 2394}# + (@apply + (lambda (#{a 2397}# #{b 2398}#) + (eq? (syntax->datum #{a 2397}#) + #:rest)) + #{tmp 2394}#) + #f) + (@apply + (lambda (#{a 2401}# #{b 2402}#) + (#{rest 2303}# + #{b 2402}# + #{req 2356}# + (reverse #{ropt 2357}#) + '())) + #{tmp 2394}#) + (let ((#{tmp 2403}# (list #{args 2355}#))) + (if (if #{tmp 2403}# + (@apply + (lambda (#{r 2405}#) + (#{id? 349}# #{r 2405}#)) + #{tmp 2403}#) + #f) + (@apply + (lambda (#{r 2407}#) + (#{rest 2303}# + #{r 2407}# + #{req 2356}# + (reverse #{ropt 2357}#) + '())) + #{tmp 2403}#) + (syntax-violation + 'lambda* + "invalid optional argument list" + #{orig-args 2294}# + #{args 2355}#))))))))))))))) + (#{key 2301}# + (lambda (#{args 2410}# + #{req 2411}# + #{opt 2412}# + #{rkey 2413}#) + (let ((#{tmp 2419}# ($sc-dispatch #{args 2410}# '()))) + (if #{tmp 2419}# + (@apply + (lambda () + (#{check 2305}# + #{req 2411}# + #{opt 2412}# + #f + (cons #f (reverse #{rkey 2413}#)))) + #{tmp 2419}#) + (let ((#{tmp 2420}# + ($sc-dispatch #{args 2410}# '(any . any)))) + (if (if #{tmp 2420}# + (@apply + (lambda (#{a 2423}# #{b 2424}#) + (#{id? 349}# #{a 2423}#)) + #{tmp 2420}#) + #f) + (@apply + (lambda (#{a 2427}# #{b 2428}#) + (let ((#{tmp 2430}# + (symbol->keyword + (syntax->datum #{a 2427}#)))) + (#{key 2301}# + #{b 2428}# + #{req 2411}# + #{opt 2412}# + (cons (cons #{tmp 2430}# + (cons #{a 2427}# + '(#(syntax-object + #f + ((top) + #(ribcage () () ()) + #(ribcage + #(k) + #((top)) + #("i2431")) + #(ribcage + #(a b) + #((top) (top)) + #("i2425" "i2426")) + #(ribcage () () ()) + #(ribcage + #(args req opt rkey) + #((top) + (top) + (top) + (top)) + #("i2414" + "i2415" + "i2416" + "i2417")) + #(ribcage + (check rest key opt req) + ((top) + (top) + (top) + (top) + (top)) + ("i2304" + "i2302" + "i2300" + "i2298" + "i2296")) + #(ribcage + #(orig-args) + #((top)) + #("i2295")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))))) + #{rkey 2413}#)))) + #{tmp 2420}#) + (let ((#{tmp 2433}# + ($sc-dispatch #{args 2410}# '((any any) . any)))) + (if (if #{tmp 2433}# + (@apply + (lambda (#{a 2437}# #{init 2438}# #{b 2439}#) + (#{id? 349}# #{a 2437}#)) + #{tmp 2433}#) + #f) + (@apply + (lambda (#{a 2443}# #{init 2444}# #{b 2445}#) + (let ((#{tmp 2447}# + (symbol->keyword + (syntax->datum #{a 2443}#)))) + (#{key 2301}# + #{b 2445}# + #{req 2411}# + #{opt 2412}# + (cons (list #{tmp 2447}# + #{a 2443}# + #{init 2444}#) + #{rkey 2413}#)))) + #{tmp 2433}#) + (let ((#{tmp 2450}# + ($sc-dispatch + #{args 2410}# + '((any any any) . any)))) + (if (if #{tmp 2450}# + (@apply + (lambda (#{a 2455}# + #{init 2456}# + #{k 2457}# + #{b 2458}#) + (if (#{id? 349}# #{a 2455}#) + (keyword? (syntax->datum #{k 2457}#)) + #f)) + #{tmp 2450}#) + #f) + (@apply + (lambda (#{a 2465}# + #{init 2466}# + #{k 2467}# + #{b 2468}#) + (#{key 2301}# + #{b 2468}# + #{req 2411}# + #{opt 2412}# + (cons (list #{k 2467}# + #{a 2465}# + #{init 2466}#) + #{rkey 2413}#))) + #{tmp 2450}#) + (let ((#{tmp 2469}# + ($sc-dispatch #{args 2410}# '(any)))) + (if (if #{tmp 2469}# + (@apply + (lambda (#{aok 2471}#) + (eq? (syntax->datum #{aok 2471}#) + #:allow-other-keys)) + #{tmp 2469}#) + #f) + (@apply + (lambda (#{aok 2473}#) + (#{check 2305}# + #{req 2411}# + #{opt 2412}# + #f + (cons #t (reverse #{rkey 2413}#)))) + #{tmp 2469}#) + (let ((#{tmp 2474}# + ($sc-dispatch + #{args 2410}# + '(any any any)))) + (if (if #{tmp 2474}# + (@apply + (lambda (#{aok 2478}# + #{a 2479}# + #{b 2480}#) + (if (eq? (syntax->datum + #{aok 2478}#) + #:allow-other-keys) + (eq? (syntax->datum #{a 2479}#) + #:rest) + #f)) + #{tmp 2474}#) + #f) + (@apply + (lambda (#{aok 2486}# + #{a 2487}# + #{b 2488}#) + (#{rest 2303}# + #{b 2488}# + #{req 2411}# + #{opt 2412}# + (cons #t (reverse #{rkey 2413}#)))) + #{tmp 2474}#) + (let ((#{tmp 2489}# + ($sc-dispatch + #{args 2410}# + '(any . any)))) + (if (if #{tmp 2489}# + (@apply + (lambda (#{aok 2492}# + #{r 2493}#) + (if (eq? (syntax->datum + #{aok 2492}#) + #:allow-other-keys) + (#{id? 349}# #{r 2493}#) + #f)) + #{tmp 2489}#) + #f) + (@apply + (lambda (#{aok 2498}# #{r 2499}#) + (#{rest 2303}# + #{r 2499}# + #{req 2411}# + #{opt 2412}# + (cons #t + (reverse + #{rkey 2413}#)))) + #{tmp 2489}#) + (let ((#{tmp 2500}# + ($sc-dispatch + #{args 2410}# + '(any any)))) + (if (if #{tmp 2500}# + (@apply + (lambda (#{a 2503}# + #{b 2504}#) + (eq? (syntax->datum + #{a 2503}#) + #:rest)) + #{tmp 2500}#) + #f) + (@apply + (lambda (#{a 2507}# #{b 2508}#) + (#{rest 2303}# + #{b 2508}# + #{req 2411}# + #{opt 2412}# + (cons #f + (reverse + #{rkey 2413}#)))) + #{tmp 2500}#) + (let ((#{tmp 2509}# + (list #{args 2410}#))) + (if (if #{tmp 2509}# + (@apply + (lambda (#{r 2511}#) + (#{id? 349}# + #{r 2511}#)) + #{tmp 2509}#) + #f) + (@apply + (lambda (#{r 2513}#) + (#{rest 2303}# + #{r 2513}# + #{req 2411}# + #{opt 2412}# + (cons #f + (reverse + #{rkey 2413}#)))) + #{tmp 2509}#) + (syntax-violation + 'lambda* + "invalid keyword argument list" + #{orig-args 2294}# + #{args 2410}#))))))))))))))))))))) + (#{rest 2303}# + (lambda (#{args 2516}# + #{req 2517}# + #{opt 2518}# + #{kw 2519}#) + (let ((#{tmp 2525}# (list #{args 2516}#))) + (if (if #{tmp 2525}# + (@apply + (lambda (#{r 2527}#) (#{id? 349}# #{r 2527}#)) + #{tmp 2525}#) + #f) + (@apply + (lambda (#{r 2529}#) + (#{check 2305}# + #{req 2517}# + #{opt 2518}# + #{r 2529}# + #{kw 2519}#)) + #{tmp 2525}#) + (syntax-violation + 'lambda* + "invalid rest argument" + #{orig-args 2294}# + #{args 2516}#))))) + (#{check 2305}# + (lambda (#{req 2532}# + #{opt 2533}# + #{rest 2534}# + #{kw 2535}#) + (if (#{distinct-bound-ids? 419}# + (append + #{req 2532}# + (map car #{opt 2533}#) + (if #{rest 2534}# (list #{rest 2534}#) '()) + (if (pair? #{kw 2535}#) + (map cadr (cdr #{kw 2535}#)) + '()))) + (values + #{req 2532}# + #{opt 2533}# + #{rest 2534}# + #{kw 2535}#) + (syntax-violation + 'lambda* + "duplicate identifier in argument list" + #{orig-args 2294}#))))) + (#{req 2297}# #{orig-args 2294}# '())))) + (#{chi-lambda-case 461}# + (lambda (#{e 2543}# + #{r 2544}# + #{w 2545}# + #{s 2546}# + #{mod 2547}# + #{get-formals 2548}# + #{clauses 2549}#) + (letrec* + ((#{expand-opt 2560}# + (lambda (#{req 2583}# + #{opt 2584}# + #{rest 2585}# + #{kw 2586}# + #{body 2587}# + #{vars 2588}# + #{r* 2589}# + #{w* 2590}# + #{out 2591}# + #{inits 2592}#) + (if (pair? #{opt 2584}#) + (let ((#{tmp 2605}# (car #{opt 2584}#))) + (let ((#{tmp 2606}# + ($sc-dispatch #{tmp 2605}# '(any any)))) + (if #{tmp 2606}# + (@apply + (lambda (#{id 2609}# #{i 2610}#) + (let ((#{v 2613}# (#{gen-var 465}# #{id 2609}#))) + (let ((#{l 2615}# + (#{gen-labels 369}# (list #{v 2613}#)))) + (let ((#{r** 2617}# + (#{extend-var-env 339}# + #{l 2615}# + (list #{v 2613}#) + #{r* 2589}#))) + (let ((#{w** 2619}# + (#{make-binding-wrap 401}# + (list #{id 2609}#) + #{l 2615}# + #{w* 2590}#))) + (#{expand-opt 2560}# + #{req 2583}# + (cdr #{opt 2584}#) + #{rest 2585}# + #{kw 2586}# + #{body 2587}# + (cons #{v 2613}# #{vars 2588}#) + #{r** 2617}# + #{w** 2619}# + (cons (syntax->datum #{id 2609}#) + #{out 2591}#) + (cons (#{chi 437}# + #{i 2610}# + #{r* 2589}# + #{w* 2590}# + #{mod 2547}#) + #{inits 2592}#))))))) + #{tmp 2606}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 2605}#)))) + (if #{rest 2585}# + (let ((#{v 2624}# (#{gen-var 465}# #{rest 2585}#))) + (let ((#{l 2626}# + (#{gen-labels 369}# (list #{v 2624}#)))) + (let ((#{r* 2628}# + (#{extend-var-env 339}# + #{l 2626}# + (list #{v 2624}#) + #{r* 2589}#))) + (let ((#{w* 2630}# + (#{make-binding-wrap 401}# + (list #{rest 2585}#) + #{l 2626}# + #{w* 2590}#))) + (#{expand-kw 2562}# + #{req 2583}# + (if (pair? #{out 2591}#) + (reverse #{out 2591}#) + #f) + (syntax->datum #{rest 2585}#) + (if (pair? #{kw 2586}#) + (cdr #{kw 2586}#) + #{kw 2586}#) + #{body 2587}# + (cons #{v 2624}# #{vars 2588}#) + #{r* 2628}# + #{w* 2630}# + (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f) + '() + #{inits 2592}#))))) + (#{expand-kw 2562}# + #{req 2583}# + (if (pair? #{out 2591}#) + (reverse #{out 2591}#) + #f) + #f + (if (pair? #{kw 2586}#) + (cdr #{kw 2586}#) + #{kw 2586}#) + #{body 2587}# + #{vars 2588}# + #{r* 2589}# + #{w* 2590}# + (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f) + '() + #{inits 2592}#))))) + (#{expand-kw 2562}# + (lambda (#{req 2632}# + #{opt 2633}# + #{rest 2634}# + #{kw 2635}# + #{body 2636}# + #{vars 2637}# + #{r* 2638}# + #{w* 2639}# + #{aok 2640}# + #{out 2641}# + #{inits 2642}#) + (if (pair? #{kw 2635}#) + (let ((#{tmp 2656}# (car #{kw 2635}#))) + (let ((#{tmp 2657}# + ($sc-dispatch #{tmp 2656}# '(any any any)))) + (if #{tmp 2657}# + (@apply + (lambda (#{k 2661}# #{id 2662}# #{i 2663}#) + (let ((#{v 2666}# (#{gen-var 465}# #{id 2662}#))) + (let ((#{l 2668}# + (#{gen-labels 369}# (list #{v 2666}#)))) + (let ((#{r** 2670}# + (#{extend-var-env 339}# + #{l 2668}# + (list #{v 2666}#) + #{r* 2638}#))) + (let ((#{w** 2672}# + (#{make-binding-wrap 401}# + (list #{id 2662}#) + #{l 2668}# + #{w* 2639}#))) + (#{expand-kw 2562}# + #{req 2632}# + #{opt 2633}# + #{rest 2634}# + (cdr #{kw 2635}#) + #{body 2636}# + (cons #{v 2666}# #{vars 2637}#) + #{r** 2670}# + #{w** 2672}# + #{aok 2640}# + (cons (list (syntax->datum #{k 2661}#) + (syntax->datum #{id 2662}#) + #{v 2666}#) + #{out 2641}#) + (cons (#{chi 437}# + #{i 2663}# + #{r* 2638}# + #{w* 2639}# + #{mod 2547}#) + #{inits 2642}#))))))) + #{tmp 2657}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 2656}#)))) + (#{expand-body 2564}# + #{req 2632}# + #{opt 2633}# + #{rest 2634}# + (if (if #{aok 2640}# + #{aok 2640}# + (pair? #{out 2641}#)) + (cons #{aok 2640}# (reverse #{out 2641}#)) + #f) + #{body 2636}# + (reverse #{vars 2637}#) + #{r* 2638}# + #{w* 2639}# + (reverse #{inits 2642}#) + '())))) + (#{expand-body 2564}# + (lambda (#{req 2678}# + #{opt 2679}# + #{rest 2680}# + #{kw 2681}# + #{body 2682}# + #{vars 2683}# + #{r* 2684}# + #{w* 2685}# + #{inits 2686}# + #{meta 2687}#) + (let ((#{tmp 2699}# + ($sc-dispatch + #{body 2682}# + '(any any . each-any)))) + (if (if #{tmp 2699}# + (@apply + (lambda (#{docstring 2703}# #{e1 2704}# #{e2 2705}#) + (string? (syntax->datum #{docstring 2703}#))) + #{tmp 2699}#) + #f) + (@apply + (lambda (#{docstring 2709}# #{e1 2710}# #{e2 2711}#) + (#{expand-body 2564}# + #{req 2678}# + #{opt 2679}# + #{rest 2680}# + #{kw 2681}# + (cons #{e1 2710}# #{e2 2711}#) + #{vars 2683}# + #{r* 2684}# + #{w* 2685}# + #{inits 2686}# + (append + #{meta 2687}# + (list (cons 'documentation + (syntax->datum #{docstring 2709}#)))))) + #{tmp 2699}#) + (let ((#{tmp 2714}# + ($sc-dispatch + #{body 2682}# + '(#(vector #(each (any . any))) any . each-any)))) + (if #{tmp 2714}# + (@apply + (lambda (#{k 2719}# #{v 2720}# #{e1 2721}# #{e2 2722}#) + (#{expand-body 2564}# + #{req 2678}# + #{opt 2679}# + #{rest 2680}# + #{kw 2681}# + (cons #{e1 2721}# #{e2 2722}#) + #{vars 2683}# + #{r* 2684}# + #{w* 2685}# + #{inits 2686}# + (append + #{meta 2687}# + (syntax->datum + (map cons #{k 2719}# #{v 2720}#))))) + #{tmp 2714}#) + (let ((#{tmp 2726}# + ($sc-dispatch #{body 2682}# '(any . each-any)))) + (if #{tmp 2726}# + (@apply + (lambda (#{e1 2729}# #{e2 2730}#) + (values + #{meta 2687}# + #{req 2678}# + #{opt 2679}# + #{rest 2680}# + #{kw 2681}# + #{inits 2686}# + #{vars 2683}# + (#{chi-body 445}# + (cons #{e1 2729}# #{e2 2730}#) + (#{source-wrap 425}# + #{e 2543}# + #{w 2545}# + #{s 2546}# + #{mod 2547}#) + #{r* 2684}# + #{w* 2685}# + #{mod 2547}#))) + #{tmp 2726}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{body 2682}#)))))))))) + (let ((#{tmp 2733}# + ($sc-dispatch #{clauses 2549}# '()))) + (if #{tmp 2733}# + (@apply (lambda () (values '() #f)) #{tmp 2733}#) + (let ((#{tmp 2734}# + ($sc-dispatch + #{clauses 2549}# + '((any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 2734}# + (@apply + (lambda (#{args 2741}# + #{e1 2742}# + #{e2 2743}# + #{args* 2744}# + #{e1* 2745}# + #{e2* 2746}#) + (call-with-values + (lambda () (#{get-formals 2548}# #{args 2741}#)) + (lambda (#{req 2747}# + #{opt 2748}# + #{rest 2749}# + #{kw 2750}#) + (call-with-values + (lambda () + (let ((#{body 4788}# + (cons #{e1 2742}# #{e2 2743}#))) + (let ((#{vars 4789}# + (map #{gen-var 465}# #{req 2747}#)) + (#{labels 4790}# + (#{gen-labels 369}# #{req 2747}#))) + (let ((#{r* 4791}# + (#{extend-var-env 339}# + #{labels 4790}# + #{vars 4789}# + #{r 2544}#)) + (#{w* 4792}# + (#{make-binding-wrap 401}# + #{req 2747}# + #{labels 4790}# + #{w 2545}#))) + (#{expand-opt 2560}# + (map syntax->datum #{req 2747}#) + #{opt 2748}# + #{rest 2749}# + #{kw 2750}# + #{body 4788}# + (reverse #{vars 4789}#) + #{r* 4791}# + #{w* 4792}# + '() + '()))))) + (lambda (#{meta 2756}# + #{req 2757}# + #{opt 2758}# + #{rest 2759}# + #{kw 2760}# + #{inits 2761}# + #{vars 2762}# + #{body 2763}#) + (call-with-values + (lambda () + (#{chi-lambda-case 461}# + #{e 2543}# + #{r 2544}# + #{w 2545}# + #{s 2546}# + #{mod 2547}# + #{get-formals 2548}# + (map (lambda (#{tmp 2774}# + #{tmp 2773}# + #{tmp 2772}#) + (cons #{tmp 2772}# + (cons #{tmp 2773}# + #{tmp 2774}#))) + #{e2* 2746}# + #{e1* 2745}# + #{args* 2744}#))) + (lambda (#{meta* 2776}# #{else* 2777}#) + (values + (append #{meta 2756}# #{meta* 2776}#) + (#{build-lambda-case 293}# + #{s 2546}# + #{req 2757}# + #{opt 2758}# + #{rest 2759}# + #{kw 2760}# + #{inits 2761}# + #{vars 2762}# + #{body 2763}# + #{else* 2777}#))))))))) + #{tmp 2734}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{clauses 2549}#)))))))) + (#{strip 463}# + (lambda (#{x 2780}# #{w 2781}#) + (if (memq 'top (car #{w 2781}#)) + #{x 2780}# + (letrec* + ((#{f 2788}# + (lambda (#{x 2789}#) + (if (#{syntax-object? 312}# #{x 2789}#) + (#{strip 463}# + (#{syntax-object-expression 314}# #{x 2789}#) + (#{syntax-object-wrap 316}# #{x 2789}#)) + (if (pair? #{x 2789}#) + (let ((#{a 2796}# (#{f 2788}# (car #{x 2789}#))) + (#{d 2797}# (#{f 2788}# (cdr #{x 2789}#)))) + (if (if (eq? #{a 2796}# (car #{x 2789}#)) + (eq? #{d 2797}# (cdr #{x 2789}#)) + #f) + #{x 2789}# + (cons #{a 2796}# #{d 2797}#))) + (if (vector? #{x 2789}#) + (let ((#{old 2803}# (vector->list #{x 2789}#))) + (let ((#{new 2805}# (map #{f 2788}# #{old 2803}#))) + (letrec* + ((#{lp 2809}# + (lambda (#{l1 2810}# #{l2 2811}#) + (if (null? #{l1 2810}#) + #{x 2789}# + (if (eq? (car #{l1 2810}#) + (car #{l2 2811}#)) + (#{lp 2809}# + (cdr #{l1 2810}#) + (cdr #{l2 2811}#)) + (list->vector #{new 2805}#)))))) + (#{lp 2809}# #{old 2803}# #{new 2805}#)))) + #{x 2789}#)))))) + (#{f 2788}# #{x 2780}#))))) + (#{gen-var 465}# + (lambda (#{id 2813}#) + (let ((#{id 2816}# + (if (#{syntax-object? 312}# #{id 2813}#) + (#{syntax-object-expression 314}# #{id 2813}#) + #{id 2813}#))) + (gensym + (string-append (symbol->string #{id 2816}#) " "))))) + (#{lambda-var-list 467}# + (lambda (#{vars 2818}#) + (letrec* + ((#{lvl 2824}# + (lambda (#{vars 2825}# #{ls 2826}# #{w 2827}#) + (if (pair? #{vars 2825}#) + (#{lvl 2824}# + (cdr #{vars 2825}#) + (cons (#{wrap 423}# (car #{vars 2825}#) #{w 2827}# #f) + #{ls 2826}#) + #{w 2827}#) + (if (#{id? 349}# #{vars 2825}#) + (cons (#{wrap 423}# #{vars 2825}# #{w 2827}# #f) + #{ls 2826}#) + (if (null? #{vars 2825}#) + #{ls 2826}# + (if (#{syntax-object? 312}# #{vars 2825}#) + (#{lvl 2824}# + (#{syntax-object-expression 314}# #{vars 2825}#) + #{ls 2826}# + (#{join-wraps 405}# + #{w 2827}# + (#{syntax-object-wrap 316}# #{vars 2825}#))) + (cons #{vars 2825}# #{ls 2826}#)))))))) + (#{lvl 2824}# #{vars 2818}# '() '(())))))) + (begin + (module-define! + (current-module) + 'letrec-syntax + (make-syntax-transformer + 'letrec-syntax + 'local-syntax + #t)) + (module-define! + (current-module) + 'let-syntax + (make-syntax-transformer + 'let-syntax + 'local-syntax + #f)) + (#{global-extend 345}# + 'core + 'fluid-let-syntax + (lambda (#{e 2838}# + #{r 2839}# + #{w 2840}# + #{s 2841}# + #{mod 2842}#) + (let ((#{tmp 2849}# + ($sc-dispatch + #{e 2838}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 2849}# + (@apply + (lambda (#{var 2854}# + #{val 2855}# + #{e1 2856}# + #{e2 2857}#) + (#{valid-bound-ids? 417}# #{var 2854}#)) + #{tmp 2849}#) + #f) + (@apply + (lambda (#{var 2863}# + #{val 2864}# + #{e1 2865}# + #{e2 2866}#) + (let ((#{names 2868}# + (map (lambda (#{x 2869}#) + (#{id-var-name 411}# #{x 2869}# #{w 2840}#)) + #{var 2863}#))) + (begin + (for-each + (lambda (#{id 2872}# #{n 2873}#) + (let ((#{atom-key 2878}# + (car (let ((#{t 5036}# + (assq #{n 2873}# #{r 2839}#))) + (if #{t 5036}# + (cdr #{t 5036}#) + (if (symbol? #{n 2873}#) + (let ((#{t 5037}# + (#{get-global-definition-hook 263}# + #{n 2873}# + #{mod 2842}#))) + (if #{t 5037}# + #{t 5037}# + '(global))) + '(displaced-lexical))))))) + (if (memv #{atom-key 2878}# '(displaced-lexical)) + (syntax-violation + 'fluid-let-syntax + "identifier out of context" + #{e 2838}# + (#{wrap 423}# + (begin + (if (if (pair? #{id 2872}#) #{s 2841}# #f) + (set-source-properties! + #{id 2872}# + #{s 2841}#)) + #{id 2872}#) + #{w 2840}# + #{mod 2842}#))))) + #{var 2863}# + #{names 2868}#) + (#{chi-body 445}# + (cons #{e1 2865}# #{e2 2866}#) + (#{wrap 423}# + (begin + (if (if (pair? #{e 2838}#) #{s 2841}# #f) + (set-source-properties! #{e 2838}# #{s 2841}#)) + #{e 2838}#) + #{w 2840}# + #{mod 2842}#) + (#{extend-env 337}# + #{names 2868}# + (let ((#{trans-r 2884}# + (#{macros-only-env 341}# #{r 2839}#))) + (map (lambda (#{x 2885}#) + (cons 'macro + (#{eval-local-transformer 449}# + (#{chi 437}# + #{x 2885}# + #{trans-r 2884}# + #{w 2840}# + #{mod 2842}#) + #{mod 2842}#))) + #{val 2864}#)) + #{r 2839}#) + #{w 2840}# + #{mod 2842}#)))) + #{tmp 2849}#) + (syntax-violation + 'fluid-let-syntax + "bad syntax" + (#{wrap 423}# + (begin + (if (if (pair? #{e 2838}#) #{s 2841}# #f) + (set-source-properties! #{e 2838}# #{s 2841}#)) + #{e 2838}#) + #{w 2840}# + #{mod 2842}#)))))) + (module-define! + (current-module) + 'quote + (make-syntax-transformer + 'quote + 'core + (lambda (#{e 2891}# + #{r 2892}# + #{w 2893}# + #{s 2894}# + #{mod 2895}#) + (let ((#{tmp 2902}# ($sc-dispatch #{e 2891}# '(_ any)))) + (if #{tmp 2902}# + (@apply + (lambda (#{e 2904}#) + (let ((#{exp 5266}# + (#{strip 463}# #{e 2904}# #{w 2893}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{s 2894}# + #{exp 5266}#))) + #{tmp 2902}#) + (syntax-violation + 'quote + "bad syntax" + (#{wrap 423}# + (begin + (if (if (pair? #{e 2891}#) #{s 2894}# #f) + (set-source-properties! #{e 2891}# #{s 2894}#)) + #{e 2891}#) + #{w 2893}# + #{mod 2895}#))))))) + (#{global-extend 345}# + 'core + 'syntax + (letrec* + ((#{gen-syntax 2908}# + (lambda (#{src 2923}# + #{e 2924}# + #{r 2925}# + #{maps 2926}# + #{ellipsis? 2927}# + #{mod 2928}#) + (if (if (symbol? #{e 2924}#) + #t + (if (if (vector? #{e 2924}#) + (if (= (vector-length #{e 2924}#) 4) + (eq? (vector-ref #{e 2924}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 2924}# 1)) + #f)) + (let ((#{label 2936}# + (#{id-var-name 411}# #{e 2924}# '(())))) + (let ((#{b 2939}# + (let ((#{t 5329}# (assq #{label 2936}# #{r 2925}#))) + (if #{t 5329}# + (cdr #{t 5329}#) + (if (symbol? #{label 2936}#) + (let ((#{t 5330}# + (#{get-global-definition-hook 263}# + #{label 2936}# + #{mod 2928}#))) + (if #{t 5330}# #{t 5330}# '(global))) + '(displaced-lexical)))))) + (if (eq? (car #{b 2939}#) 'syntax) + (call-with-values + (lambda () + (let ((#{var.lev 2942}# (cdr #{b 2939}#))) + (#{gen-ref 2910}# + #{src 2923}# + (car #{var.lev 2942}#) + (cdr #{var.lev 2942}#) + #{maps 2926}#))) + (lambda (#{var 2944}# #{maps 2945}#) + (values (list 'ref #{var 2944}#) #{maps 2945}#))) + (if (#{ellipsis? 2927}# #{e 2924}#) (syntax-violation - 'syntax-case + 'syntax "misplaced ellipsis" - #{pat 3851}#) - (begin - (let ((#{y 3875}# + #{src 2923}#) + (values (list 'quote #{e 2924}#) #{maps 2926}#))))) + (let ((#{tmp 2951}# + ($sc-dispatch #{e 2924}# '(any any)))) + (if (if #{tmp 2951}# + (@apply + (lambda (#{dots 2954}# #{e 2955}#) + (#{ellipsis? 2927}# #{dots 2954}#)) + #{tmp 2951}#) + #f) + (@apply + (lambda (#{dots 2958}# #{e 2959}#) + (#{gen-syntax 2908}# + #{src 2923}# + #{e 2959}# + #{r 2925}# + #{maps 2926}# + (lambda (#{x 2960}#) #f) + #{mod 2928}#)) + #{tmp 2951}#) + (let ((#{tmp 2962}# + ($sc-dispatch #{e 2924}# '(any any . any)))) + (if (if #{tmp 2962}# + (@apply + (lambda (#{x 2966}# #{dots 2967}# #{y 2968}#) + (#{ellipsis? 2927}# #{dots 2967}#)) + #{tmp 2962}#) + #f) + (@apply + (lambda (#{x 2972}# #{dots 2973}# #{y 2974}#) + (letrec* + ((#{f 2978}# + (lambda (#{y 2979}# #{k 2980}#) + (let ((#{tmp 2988}# + ($sc-dispatch + #{y 2979}# + '(any . any)))) + (if (if #{tmp 2988}# + (@apply + (lambda (#{dots 2991}# #{y 2992}#) + (#{ellipsis? 2927}# + #{dots 2991}#)) + #{tmp 2988}#) + #f) + (@apply + (lambda (#{dots 2995}# #{y 2996}#) + (#{f 2978}# + #{y 2996}# + (lambda (#{maps 2997}#) + (call-with-values + (lambda () + (#{k 2980}# + (cons '() #{maps 2997}#))) + (lambda (#{x 2999}# + #{maps 3000}#) + (if (null? (car #{maps 3000}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 2923}#) + (values + (#{gen-mappend 2912}# + #{x 2999}# + (car #{maps 3000}#)) + (cdr #{maps 3000}#)))))))) + #{tmp 2988}#) + (call-with-values + (lambda () + (#{gen-syntax 2908}# + #{src 2923}# + #{y 2979}# + #{r 2925}# + #{maps 2926}# + #{ellipsis? 2927}# + #{mod 2928}#)) + (lambda (#{y 3005}# #{maps 3006}#) + (call-with-values + (lambda () + (#{k 2980}# #{maps 3006}#)) + (lambda (#{x 3009}# #{maps 3010}#) + (values + (#{gen-append 2918}# + #{x 3009}# + #{y 3005}#) + #{maps 3010}#)))))))))) + (#{f 2978}# + #{y 2974}# + (lambda (#{maps 2981}#) + (call-with-values + (lambda () + (#{gen-syntax 2908}# + #{src 2923}# + #{x 2972}# + #{r 2925}# + (cons '() #{maps 2981}#) + #{ellipsis? 2927}# + #{mod 2928}#)) + (lambda (#{x 2983}# #{maps 2984}#) + (if (null? (car #{maps 2984}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 2923}#) + (values + (#{gen-map 2914}# + #{x 2983}# + (car #{maps 2984}#)) + (cdr #{maps 2984}#))))))))) + #{tmp 2962}#) + (let ((#{tmp 3013}# + ($sc-dispatch #{e 2924}# '(any . any)))) + (if #{tmp 3013}# + (@apply + (lambda (#{x 3016}# #{y 3017}#) + (call-with-values + (lambda () + (#{gen-syntax 2908}# + #{src 2923}# + #{x 3016}# + #{r 2925}# + #{maps 2926}# + #{ellipsis? 2927}# + #{mod 2928}#)) + (lambda (#{x 3018}# #{maps 3019}#) + (call-with-values + (lambda () + (#{gen-syntax 2908}# + #{src 2923}# + #{y 3017}# + #{r 2925}# + #{maps 3019}# + #{ellipsis? 2927}# + #{mod 2928}#)) + (lambda (#{y 3022}# #{maps 3023}#) + (values + (#{gen-cons 2916}# + #{x 3018}# + #{y 3022}#) + #{maps 3023}#)))))) + #{tmp 3013}#) + (let ((#{tmp 3026}# + ($sc-dispatch + #{e 2924}# + '#(vector (any . each-any))))) + (if #{tmp 3026}# + (@apply + (lambda (#{e1 3029}# #{e2 3030}#) + (call-with-values + (lambda () + (#{gen-syntax 2908}# + #{src 2923}# + (cons #{e1 3029}# #{e2 3030}#) + #{r 2925}# + #{maps 2926}# + #{ellipsis? 2927}# + #{mod 2928}#)) + (lambda (#{e 3032}# #{maps 3033}#) + (values + (#{gen-vector 2920}# #{e 3032}#) + #{maps 3033}#)))) + #{tmp 3026}#) + (values + (list 'quote #{e 2924}#) + #{maps 2926}#)))))))))))) + (#{gen-ref 2910}# + (lambda (#{src 3039}# + #{var 3040}# + #{level 3041}# + #{maps 3042}#) + (if (= #{level 3041}# 0) + (values #{var 3040}# #{maps 3042}#) + (if (null? #{maps 3042}#) + (syntax-violation + 'syntax + "missing ellipsis" + #{src 3039}#) + (call-with-values + (lambda () + (#{gen-ref 2910}# + #{src 3039}# + #{var 3040}# + (#{1-}# #{level 3041}#) + (cdr #{maps 3042}#))) + (lambda (#{outer-var 3049}# #{outer-maps 3050}#) + (let ((#{b 3054}# + (assq #{outer-var 3049}# (car #{maps 3042}#)))) + (if #{b 3054}# + (values (cdr #{b 3054}#) #{maps 3042}#) + (let ((#{inner-var 3056}# (gensym (string-append (symbol->string 'tmp) " ")))) - (begin - (let ((#{fun-exp 9203}# - (begin - (let ((#{req 9208}# (list 'tmp)) - (#{vars 9210}# (list #{y 3875}#)) - (#{exp 9212}# - (begin - (let ((#{y 3879}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 3) - #f - 'tmp - #{y 3875}#))) - (begin - (let ((#{test-exp 9227}# - (begin - (let ((#{tmp 3883}# - ($sc-dispatch - #{fender 3852}# - '#(atom - #t)))) - (if #{tmp 3883}# - (@apply - (lambda () - #{y 3879}#) - #{tmp 3883}#) - (begin - (let ((#{then-exp 9234}# - (#{build-dispatch-call 3705}# - #{pvars 3864}# - #{fender 3852}# - #{y 3879}# - #{r 3850}# - #{mod 3854}#)) - (#{else-exp 9235}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 1) - #f - #f))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 10) - #f - #{y 3879}# - #{then-exp 9234}# - #{else-exp 9235}#))))))) - (#{then-exp 9228}# - (#{build-dispatch-call 3705}# - #{pvars 3864}# - #{exp 3853}# - #{y 3879}# - #{r 3850}# - #{mod 3854}#)) - (#{else-exp 9229}# - (#{gen-syntax-case 3709}# - #{x 3847}# - #{keys 3848}# - #{clauses 3849}# - #{r 3850}# - #{mod 3854}#))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 10) - #f - #{test-exp 9227}# - #{then-exp 9228}# - #{else-exp 9229}#))))))) - (begin - (let ((#{body 9260}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 14) - #f - #{req 9208}# - #f - #f - #f - '() - #{vars 9210}# - #{exp 9212}# - #f))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 13) - #f - '() - #{body 9260}#)))))) - (#{arg-exps 9204}# - (list (if (eq? #{p 3863}# 'any) - (begin - (let ((#{fun-exp 9275}# - (if (equal? - (module-name - (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 7) - #f - 'list) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 5) - #f - '(guile) - 'list - #f))) - (#{arg-exps 9276}# - (list #{x 3847}#))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 11) - #f - #{fun-exp 9275}# - #{arg-exps 9276}#))) - (begin - (let ((#{fun-exp 9298}# - (if (equal? - (module-name - (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 7) - #f - '$sc-dispatch) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 5) - #f - '(guile) - '$sc-dispatch - #f))) - (#{arg-exps 9299}# - (list #{x 3847}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 1) - #f - #{p 3863}#)))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 11) - #f - #{fun-exp 9298}# - #{arg-exps 9299}#))))))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 9203}# - #{arg-exps 9204}#))))))))))) - (#{gen-syntax-case 3709}# - (lambda (#{x 3893}# - #{keys 3894}# - #{clauses 3895}# - #{r 3896}# - #{mod 3897}#) - (if (null? #{clauses 3895}#) - (begin - (let ((#{fun-exp 9334}# - (if (equal? (module-name (current-module)) '(guile)) + (values + #{inner-var 3056}# + (cons (cons (cons #{outer-var 3049}# + #{inner-var 3056}#) + (car #{maps 3042}#)) + #{outer-maps 3050}#))))))))))) + (#{gen-mappend 2912}# + (lambda (#{e 3057}# #{map-env 3058}#) + (list 'apply + '(primitive append) + (#{gen-map 2914}# #{e 3057}# #{map-env 3058}#)))) + (#{gen-map 2914}# + (lambda (#{e 3062}# #{map-env 3063}#) + (let ((#{formals 3068}# (map cdr #{map-env 3063}#)) + (#{actuals 3069}# + (map (lambda (#{x 3070}#) + (list 'ref (car #{x 3070}#))) + #{map-env 3063}#))) + (if (eq? (car #{e 3062}#) 'ref) + (car #{actuals 3069}#) + (if (and-map + (lambda (#{x 3077}#) + (if (eq? (car #{x 3077}#) 'ref) + (memq (car (cdr #{x 3077}#)) #{formals 3068}#) + #f)) + (cdr #{e 3062}#)) + (cons 'map + (cons (list 'primitive (car #{e 3062}#)) + (map (let ((#{r 3083}# + (map cons + #{formals 3068}# + #{actuals 3069}#))) + (lambda (#{x 3084}#) + (cdr (assq (car (cdr #{x 3084}#)) + #{r 3083}#)))) + (cdr #{e 3062}#)))) + (cons 'map + (cons (list 'lambda #{formals 3068}# #{e 3062}#) + #{actuals 3069}#))))))) + (#{gen-cons 2916}# + (lambda (#{x 3088}# #{y 3089}#) + (let ((#{atom-key 3094}# (car #{y 3089}#))) + (if (memv #{atom-key 3094}# '(quote)) + (if (eq? (car #{x 3088}#) 'quote) + (list 'quote + (cons (car (cdr #{x 3088}#)) + (car (cdr #{y 3089}#)))) + (if (eq? (car (cdr #{y 3089}#)) '()) + (list 'list #{x 3088}#) + (list 'cons #{x 3088}# #{y 3089}#))) + (if (memv #{atom-key 3094}# '(list)) + (cons 'list (cons #{x 3088}# (cdr #{y 3089}#))) + (list 'cons #{x 3088}# #{y 3089}#)))))) + (#{gen-append 2918}# + (lambda (#{x 3103}# #{y 3104}#) + (if (equal? #{y 3104}# ''()) + #{x 3103}# + (list 'append #{x 3103}# #{y 3104}#)))) + (#{gen-vector 2920}# + (lambda (#{x 3108}#) + (if (eq? (car #{x 3108}#) 'list) + (cons 'vector (cdr #{x 3108}#)) + (if (eq? (car #{x 3108}#) 'quote) + (list 'quote + (list->vector (car (cdr #{x 3108}#)))) + (list 'list->vector #{x 3108}#))))) + (#{regen 2922}# + (lambda (#{x 3118}#) + (let ((#{atom-key 3122}# (car #{x 3118}#))) + (if (memv #{atom-key 3122}# '(ref)) + (let ((#{name 5345}# (car (cdr #{x 3118}#))) + (#{var 5346}# (car (cdr #{x 3118}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + #{name 5345}# + #{var 5346}#)) + (if (memv #{atom-key 3122}# '(primitive)) + (let ((#{name 5355}# (car (cdr #{x 3118}#)))) + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5355}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5355}# + #f))) + (if (memv #{atom-key 3122}# '(quote)) + (let ((#{exp 5369}# (car (cdr #{x 3118}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #{exp 5369}#)) + (if (memv #{atom-key 3122}# '(lambda)) + (if (list? (car (cdr #{x 3118}#))) + (let ((#{req 5377}# (car (cdr #{x 3118}#))) + (#{vars 5379}# (car (cdr #{x 3118}#))) + (#{exp 5381}# + (#{regen 2922}# + (car (cdr (cdr #{x 3118}#)))))) + (let ((#{body 5386}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 5377}# + #f + #f + #f + '() + #{vars 5379}# + #{exp 5381}# + #f))) (make-struct/no-tail - (vector-ref %expanded-vtables 7) + (vector-ref %expanded-vtables 13) #f - 'syntax-violation) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'syntax-violation - #f))) - (#{arg-exps 9335}# - (list (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f + '() + #{body 5386}#))) + (error "how did we get here" #{x 3118}#)) + (let ((#{fun-exp 5401}# + (let ((#{name 5406}# (car #{x 3118}#))) + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5406}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5406}# + #f)))) + (#{arg-exps 5402}# + (map #{regen 2922}# (cdr #{x 3118}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 5401}# + #{arg-exps 5402}#)))))))))) + (lambda (#{e 3134}# + #{r 3135}# + #{w 3136}# + #{s 3137}# + #{mod 3138}#) + (let ((#{e 3145}# + (#{wrap 423}# + (begin + (if (if (pair? #{e 3134}#) #{s 3137}# #f) + (set-source-properties! #{e 3134}# #{s 3137}#)) + #{e 3134}#) + #{w 3136}# + #{mod 3138}#))) + (let ((#{tmp 3147}# ($sc-dispatch #{e 3145}# '(_ any)))) + (if #{tmp 3147}# + (@apply + (lambda (#{x 3149}#) + (call-with-values + (lambda () + (#{gen-syntax 2908}# + #{e 3145}# + #{x 3149}# + #{r 3135}# + '() + #{ellipsis? 453}# + #{mod 3138}#)) + (lambda (#{e 3150}# #{maps 3151}#) + (#{regen 2922}# #{e 3150}#)))) + #{tmp 3147}#) + (syntax-violation + 'syntax + "bad `syntax' form" + #{e 3145}#))))))) + (#{global-extend 345}# + 'core + 'lambda + (lambda (#{e 3156}# + #{r 3157}# + #{w 3158}# + #{s 3159}# + #{mod 3160}#) + (let ((#{tmp 3167}# + ($sc-dispatch #{e 3156}# '(_ any any . each-any)))) + (if #{tmp 3167}# + (@apply + (lambda (#{args 3171}# #{e1 3172}# #{e2 3173}#) + (call-with-values + (lambda () + (#{lambda-formals 455}# #{args 3171}#)) + (lambda (#{req 3174}# + #{opt 3175}# + #{rest 3176}# + #{kw 3177}#) + (letrec* + ((#{lp 3185}# + (lambda (#{body 3186}# #{meta 3187}#) + (let ((#{tmp 3190}# + ($sc-dispatch + #{body 3186}# + '(any any . each-any)))) + (if (if #{tmp 3190}# + (@apply + (lambda (#{docstring 3194}# + #{e1 3195}# + #{e2 3196}#) + (string? + (syntax->datum #{docstring 3194}#))) + #{tmp 3190}#) #f) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - "source expression failed to match any pattern") - #{x 3893}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 9334}# - #{arg-exps 9335}#))) - (begin - (let ((#{tmp 3907}# (car #{clauses 3895}#))) - (begin - (let ((#{tmp 3908}# - ($sc-dispatch #{tmp 3907}# '(any any)))) - (if #{tmp 3908}# - (@apply - (lambda (#{pat 3911}# #{exp 3912}#) - (if (if (if (symbol? #{pat 3911}#) - #t - (if (if (vector? #{pat 3911}#) - (if (= (vector-length - #{pat 3911}#) - 4) - (eq? (vector-ref - #{pat 3911}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{pat 3911}# 1)) - #f)) - (and-map - (lambda (#{x 3915}#) - (not (if (eq? (if (if (vector? - #{pat 3911}#) - (if (= (vector-length - #{pat 3911}#) - 4) - (eq? (vector-ref - #{pat 3911}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{pat 3911}# - 1) - #{pat 3911}#) - (if (if (vector? - #{x 3915}#) - (if (= (vector-length - #{x 3915}#) - 4) - (eq? (vector-ref - #{x 3915}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{x 3915}# - 1) - #{x 3915}#)) - (eq? (#{id-var-name 410}# - #{pat 3911}# - '(())) - (#{id-var-name 410}# - #{x 3915}# - '(()))) + (@apply + (lambda (#{docstring 3200}# + #{e1 3201}# + #{e2 3202}#) + (#{lp 3185}# + (cons #{e1 3201}# #{e2 3202}#) + (append + #{meta 3187}# + (list (cons 'documentation + (syntax->datum + #{docstring 3200}#)))))) + #{tmp 3190}#) + (let ((#{tmp 3205}# + ($sc-dispatch + #{body 3186}# + '(#(vector #(each (any . any))) + any + . + each-any)))) + (if #{tmp 3205}# + (@apply + (lambda (#{k 3210}# + #{v 3211}# + #{e1 3212}# + #{e2 3213}#) + (#{lp 3185}# + (cons #{e1 3212}# #{e2 3213}#) + (append + #{meta 3187}# + (syntax->datum + (map cons + #{k 3210}# + #{v 3211}#))))) + #{tmp 3205}#) + ((lambda (#{e 2267}# + #{r 2268}# + #{w 2269}# + #{s 2270}# + #{mod 2271}# + #{req 2272}# + #{rest 2273}# + #{meta 2274}# + #{body 2275}#) + (let ((#{ids 2287}# + (if #{rest 2273}# + (append + #{req 2272}# + (list #{rest 2273}#)) + #{req 2272}#))) + (let ((#{vars 2289}# + (map #{gen-var 465}# + #{ids 2287}#))) + (let ((#{labels 2291}# + (#{gen-labels 369}# + #{ids 2287}#))) + (#{build-simple-lambda 289}# + #{s 2270}# + (map syntax->datum #{req 2272}#) + (if #{rest 2273}# + (syntax->datum #{rest 2273}#) + #f) + #{vars 2289}# + #{meta 2274}# + (#{chi-body 445}# + #{body 2275}# + (#{source-wrap 425}# + #{e 2267}# + #{w 2269}# + #{s 2270}# + #{mod 2271}#) + (#{extend-var-env 339}# + #{labels 2291}# + #{vars 2289}# + #{r 2268}#) + (#{make-binding-wrap 401}# + #{ids 2287}# + #{labels 2291}# + #{w 2269}#) + #{mod 2271}#)))))) + #{e 3156}# + #{r 3157}# + #{w 3158}# + #{s 3159}# + #{mod 3160}# + #{req 3174}# + #{rest 3176}# + #{meta 3187}# + #{body 3186}#)))))))) + (#{lp 3185}# (cons #{e1 3172}# #{e2 3173}#) '()))))) + #{tmp 3167}#) + (syntax-violation + 'lambda + "bad lambda" + #{e 3156}#))))) + (module-define! + (current-module) + 'lambda* + (make-syntax-transformer + 'lambda* + 'core + (lambda (#{e 3221}# + #{r 3222}# + #{w 3223}# + #{s 3224}# + #{mod 3225}#) + (let ((#{tmp 3232}# + ($sc-dispatch #{e 3221}# '(_ any any . each-any)))) + (if #{tmp 3232}# + (@apply + (lambda (#{args 3236}# #{e1 3237}# #{e2 3238}#) + (call-with-values + (lambda () + (#{chi-lambda-case 461}# + #{e 3221}# + #{r 3222}# + #{w 3223}# + #{s 3224}# + #{mod 3225}# + #{lambda*-formals 459}# + (list (cons #{args 3236}# + (cons #{e1 3237}# #{e2 3238}#))))) + (lambda (#{meta 3240}# #{lcase 3241}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 3224}# + #{meta 3240}# + #{lcase 3241}#)))) + #{tmp 3232}#) + (syntax-violation + 'lambda + "bad lambda*" + #{e 3221}#)))))) + (module-define! + (current-module) + 'case-lambda + (make-syntax-transformer + 'case-lambda + 'core + (lambda (#{e 3246}# + #{r 3247}# + #{w 3248}# + #{s 3249}# + #{mod 3250}#) + (let ((#{tmp 3257}# + ($sc-dispatch + #{e 3246}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 3257}# + (@apply + (lambda (#{args 3264}# + #{e1 3265}# + #{e2 3266}# + #{args* 3267}# + #{e1* 3268}# + #{e2* 3269}#) + (call-with-values + (lambda () + (#{chi-lambda-case 461}# + #{e 3246}# + #{r 3247}# + #{w 3248}# + #{s 3249}# + #{mod 3250}# + #{lambda-formals 455}# + (cons (cons #{args 3264}# + (cons #{e1 3265}# #{e2 3266}#)) + (map (lambda (#{tmp 3273}# + #{tmp 3272}# + #{tmp 3271}#) + (cons #{tmp 3271}# + (cons #{tmp 3272}# #{tmp 3273}#))) + #{e2* 3269}# + #{e1* 3268}# + #{args* 3267}#)))) + (lambda (#{meta 3275}# #{lcase 3276}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 3249}# + #{meta 3275}# + #{lcase 3276}#)))) + #{tmp 3257}#) + (syntax-violation + 'case-lambda + "bad case-lambda" + #{e 3246}#)))))) + (module-define! + (current-module) + 'case-lambda* + (make-syntax-transformer + 'case-lambda* + 'core + (lambda (#{e 3281}# + #{r 3282}# + #{w 3283}# + #{s 3284}# + #{mod 3285}#) + (let ((#{tmp 3292}# + ($sc-dispatch + #{e 3281}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 3292}# + (@apply + (lambda (#{args 3299}# + #{e1 3300}# + #{e2 3301}# + #{args* 3302}# + #{e1* 3303}# + #{e2* 3304}#) + (call-with-values + (lambda () + (#{chi-lambda-case 461}# + #{e 3281}# + #{r 3282}# + #{w 3283}# + #{s 3284}# + #{mod 3285}# + #{lambda*-formals 459}# + (cons (cons #{args 3299}# + (cons #{e1 3300}# #{e2 3301}#)) + (map (lambda (#{tmp 3308}# + #{tmp 3307}# + #{tmp 3306}#) + (cons #{tmp 3306}# + (cons #{tmp 3307}# #{tmp 3308}#))) + #{e2* 3304}# + #{e1* 3303}# + #{args* 3302}#)))) + (lambda (#{meta 3310}# #{lcase 3311}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 3284}# + #{meta 3310}# + #{lcase 3311}#)))) + #{tmp 3292}#) + (syntax-violation + 'case-lambda + "bad case-lambda*" + #{e 3281}#)))))) + (#{global-extend 345}# + 'core + 'let + (letrec* + ((#{chi-let 3317}# + (lambda (#{e 3318}# + #{r 3319}# + #{w 3320}# + #{s 3321}# + #{mod 3322}# + #{constructor 3323}# + #{ids 3324}# + #{vals 3325}# + #{exps 3326}#) + (if (not (#{valid-bound-ids? 417}# #{ids 3324}#)) + (syntax-violation + 'let + "duplicate bound variable" + #{e 3318}#) + (let ((#{labels 3338}# + (#{gen-labels 369}# #{ids 3324}#)) + (#{new-vars 3339}# + (map #{gen-var 465}# #{ids 3324}#))) + (let ((#{nw 3342}# + (#{make-binding-wrap 401}# + #{ids 3324}# + #{labels 3338}# + #{w 3320}#)) + (#{nr 3343}# + (#{extend-var-env 339}# + #{labels 3338}# + #{new-vars 3339}# + #{r 3319}#))) + (#{constructor 3323}# + #{s 3321}# + (map syntax->datum #{ids 3324}#) + #{new-vars 3339}# + (map (lambda (#{x 3344}#) + (#{chi 437}# + #{x 3344}# + #{r 3319}# + #{w 3320}# + #{mod 3322}#)) + #{vals 3325}#) + (#{chi-body 445}# + #{exps 3326}# + (#{wrap 423}# + (begin + (if (if (pair? #{e 3318}#) #{s 3321}# #f) + (set-source-properties! #{e 3318}# #{s 3321}#)) + #{e 3318}#) + #{nw 3342}# + #{mod 3322}#) + #{nr 3343}# + #{nw 3342}# + #{mod 3322}#)))))))) + (lambda (#{e 3346}# + #{r 3347}# + #{w 3348}# + #{s 3349}# + #{mod 3350}#) + (let ((#{tmp 3357}# + ($sc-dispatch + #{e 3346}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 3357}# + (@apply + (lambda (#{id 3362}# + #{val 3363}# + #{e1 3364}# + #{e2 3365}#) + (and-map #{id? 349}# #{id 3362}#)) + #{tmp 3357}#) + #f) + (@apply + (lambda (#{id 3371}# + #{val 3372}# + #{e1 3373}# + #{e2 3374}#) + (#{chi-let 3317}# + #{e 3346}# + #{r 3347}# + #{w 3348}# + #{s 3349}# + #{mod 3350}# + (lambda (#{src 1104}# + #{ids 1105}# + #{vars 1106}# + #{val-exps 1107}# + #{body-exp 1108}#) + (begin + (for-each + #{maybe-name-value! 267}# + #{ids 1105}# + #{val-exps 1107}#) + (if (null? #{vars 1106}#) + #{body-exp 1108}# + (#{make-let 238}# + #{src 1104}# + #{ids 1105}# + #{vars 1106}# + #{val-exps 1107}# + #{body-exp 1108}#)))) + #{id 3371}# + #{val 3372}# + (cons #{e1 3373}# #{e2 3374}#))) + #{tmp 3357}#) + (let ((#{tmp 3378}# + ($sc-dispatch + #{e 3346}# + '(_ any #(each (any any)) any . each-any)))) + (if (if #{tmp 3378}# + (@apply + (lambda (#{f 3384}# + #{id 3385}# + #{val 3386}# + #{e1 3387}# + #{e2 3388}#) + (if (if (symbol? #{f 3384}#) + #t + (if (if (vector? #{f 3384}#) + (if (= (vector-length #{f 3384}#) 4) + (eq? (vector-ref #{f 3384}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{f 3384}# 1)) + #f)) + (and-map #{id? 349}# #{id 3385}#) + #f)) + #{tmp 3378}#) + #f) + (@apply + (lambda (#{f 3397}# + #{id 3398}# + #{val 3399}# + #{e1 3400}# + #{e2 3401}#) + (#{chi-let 3317}# + #{e 3346}# + #{r 3347}# + #{w 3348}# + #{s 3349}# + #{mod 3350}# + (lambda (#{src 1114}# + #{ids 1115}# + #{vars 1116}# + #{val-exps 1117}# + #{body-exp 1118}#) + (let ((#{f 1128}# (car #{vars 1116}#)) + (#{f-name 1129}# (car #{ids 1115}#)) + (#{vars 1130}# (cdr #{vars 1116}#)) + (#{ids 1131}# (cdr #{ids 1115}#))) + (let ((#{proc 1133}# + (#{build-simple-lambda 289}# + #{src 1114}# + #{ids 1131}# + #f + #{vars 1130}# + '() + #{body-exp 1118}#))) + (begin + (#{maybe-name-value! 267}# + #{f-name 1129}# + #{proc 1133}#) + (for-each + #{maybe-name-value! 267}# + #{ids 1131}# + #{val-exps 1117}#) + (#{make-letrec 240}# + #{src 1114}# + #f + (list #{f-name 1129}#) + (list #{f 1128}#) + (list #{proc 1133}#) + (#{build-application 271}# + #{src 1114}# + (#{build-lexical-reference 277}# + 'fun + #{src 1114}# + #{f-name 1129}# + #{f 1128}#) + #{val-exps 1117}#)))))) + (cons #{f 3397}# #{id 3398}#) + #{val 3399}# + (cons #{e1 3400}# #{e2 3401}#))) + #{tmp 3378}#) + (syntax-violation + 'let + "bad let" + (#{wrap 423}# + (begin + (if (if (pair? #{e 3346}#) #{s 3349}# #f) + (set-source-properties! #{e 3346}# #{s 3349}#)) + #{e 3346}#) + #{w 3348}# + #{mod 3350}#))))))))) + (#{global-extend 345}# + 'core + 'letrec + (lambda (#{e 3407}# + #{r 3408}# + #{w 3409}# + #{s 3410}# + #{mod 3411}#) + (let ((#{tmp 3418}# + ($sc-dispatch + #{e 3407}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 3418}# + (@apply + (lambda (#{id 3423}# + #{val 3424}# + #{e1 3425}# + #{e2 3426}#) + (and-map #{id? 349}# #{id 3423}#)) + #{tmp 3418}#) + #f) + (@apply + (lambda (#{id 3432}# + #{val 3433}# + #{e1 3434}# + #{e2 3435}#) + (if (not (#{valid-bound-ids? 417}# #{id 3432}#)) + (syntax-violation + 'letrec + "duplicate bound variable" + #{e 3407}#) + (let ((#{labels 3441}# + (#{gen-labels 369}# #{id 3432}#)) + (#{new-vars 3442}# + (map #{gen-var 465}# #{id 3432}#))) + (let ((#{w 3445}# + (#{make-binding-wrap 401}# + #{id 3432}# + #{labels 3441}# + #{w 3409}#)) + (#{r 3446}# + (#{extend-var-env 339}# + #{labels 3441}# + #{new-vars 3442}# + #{r 3408}#))) + (#{build-letrec 305}# + #{s 3410}# + #f + (map syntax->datum #{id 3432}#) + #{new-vars 3442}# + (map (lambda (#{x 3447}#) + (#{chi 437}# + #{x 3447}# + #{r 3446}# + #{w 3445}# + #{mod 3411}#)) + #{val 3433}#) + (#{chi-body 445}# + (cons #{e1 3434}# #{e2 3435}#) + (#{wrap 423}# + (begin + (if (if (pair? #{e 3407}#) #{s 3410}# #f) + (set-source-properties! #{e 3407}# #{s 3410}#)) + #{e 3407}#) + #{w 3445}# + #{mod 3411}#) + #{r 3446}# + #{w 3445}# + #{mod 3411}#)))))) + #{tmp 3418}#) + (syntax-violation + 'letrec + "bad letrec" + (#{wrap 423}# + (begin + (if (if (pair? #{e 3407}#) #{s 3410}# #f) + (set-source-properties! #{e 3407}# #{s 3410}#)) + #{e 3407}#) + #{w 3409}# + #{mod 3411}#)))))) + (#{global-extend 345}# + 'core + 'letrec* + (lambda (#{e 3453}# + #{r 3454}# + #{w 3455}# + #{s 3456}# + #{mod 3457}#) + (let ((#{tmp 3464}# + ($sc-dispatch + #{e 3453}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 3464}# + (@apply + (lambda (#{id 3469}# + #{val 3470}# + #{e1 3471}# + #{e2 3472}#) + (and-map #{id? 349}# #{id 3469}#)) + #{tmp 3464}#) + #f) + (@apply + (lambda (#{id 3478}# + #{val 3479}# + #{e1 3480}# + #{e2 3481}#) + (if (not (#{valid-bound-ids? 417}# #{id 3478}#)) + (syntax-violation + 'letrec* + "duplicate bound variable" + #{e 3453}#) + (let ((#{labels 3487}# + (#{gen-labels 369}# #{id 3478}#)) + (#{new-vars 3488}# + (map #{gen-var 465}# #{id 3478}#))) + (let ((#{w 3491}# + (#{make-binding-wrap 401}# + #{id 3478}# + #{labels 3487}# + #{w 3455}#)) + (#{r 3492}# + (#{extend-var-env 339}# + #{labels 3487}# + #{new-vars 3488}# + #{r 3454}#))) + (#{build-letrec 305}# + #{s 3456}# + #t + (map syntax->datum #{id 3478}#) + #{new-vars 3488}# + (map (lambda (#{x 3493}#) + (#{chi 437}# + #{x 3493}# + #{r 3492}# + #{w 3491}# + #{mod 3457}#)) + #{val 3479}#) + (#{chi-body 445}# + (cons #{e1 3480}# #{e2 3481}#) + (#{wrap 423}# + (begin + (if (if (pair? #{e 3453}#) #{s 3456}# #f) + (set-source-properties! #{e 3453}# #{s 3456}#)) + #{e 3453}#) + #{w 3491}# + #{mod 3457}#) + #{r 3492}# + #{w 3491}# + #{mod 3457}#)))))) + #{tmp 3464}#) + (syntax-violation + 'letrec* + "bad letrec*" + (#{wrap 423}# + (begin + (if (if (pair? #{e 3453}#) #{s 3456}# #f) + (set-source-properties! #{e 3453}# #{s 3456}#)) + #{e 3453}#) + #{w 3455}# + #{mod 3457}#)))))) + (#{global-extend 345}# + 'core + 'set! + (lambda (#{e 3499}# + #{r 3500}# + #{w 3501}# + #{s 3502}# + #{mod 3503}#) + (let ((#{tmp 3510}# + ($sc-dispatch #{e 3499}# '(_ any any)))) + (if (if #{tmp 3510}# + (@apply + (lambda (#{id 3513}# #{val 3514}#) + (if (symbol? #{id 3513}#) + #t + (if (if (vector? #{id 3513}#) + (if (= (vector-length #{id 3513}#) 4) + (eq? (vector-ref #{id 3513}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 3513}# 1)) + #f))) + #{tmp 3510}#) + #f) + (@apply + (lambda (#{id 3517}# #{val 3518}#) + (let ((#{n 3521}# + (#{id-var-name 411}# #{id 3517}# #{w 3501}#)) + (#{id-mod 3522}# + (if (if (vector? #{id 3517}#) + (if (= (vector-length #{id 3517}#) 4) + (eq? (vector-ref #{id 3517}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{id 3517}# 3) + #{mod 3503}#))) + (let ((#{b 3524}# + (let ((#{t 7016}# (assq #{n 3521}# #{r 3500}#))) + (if #{t 7016}# + (cdr #{t 7016}#) + (if (symbol? #{n 3521}#) + (let ((#{t 7017}# + (#{get-global-definition-hook 263}# + #{n 3521}# + #{id-mod 3522}#))) + (if #{t 7017}# #{t 7017}# '(global))) + '(displaced-lexical)))))) + (let ((#{atom-key 3527}# (car #{b 3524}#))) + (if (memv #{atom-key 3527}# '(lexical)) + ((lambda (#{source 993}# + #{name 994}# + #{var 995}# + #{exp 996}#) + (begin + (#{maybe-name-value! 267}# + #{name 994}# + #{exp 996}#) + (#{make-lexical-set 216}# + #{source 993}# + #{name 994}# + #{var 995}# + #{exp 996}#))) + #{s 3502}# + (syntax->datum #{id 3517}#) + (cdr #{b 3524}#) + (#{chi 437}# + #{val 3518}# + #{r 3500}# + #{w 3501}# + #{mod 3503}#)) + (if (memv #{atom-key 3527}# '(global)) + (#{build-global-assignment 285}# + #{s 3502}# + #{n 3521}# + (#{chi 437}# + #{val 3518}# + #{r 3500}# + #{w 3501}# + #{mod 3503}#) + #{id-mod 3522}#) + (if (memv #{atom-key 3527}# '(macro)) + (let ((#{p 3534}# (cdr #{b 3524}#))) + (if (procedure-property + #{p 3534}# + 'variable-transformer) + (#{chi 437}# + (#{chi-macro 443}# + #{p 3534}# + #{e 3499}# + #{r 3500}# + #{w 3501}# + #{s 3502}# + #f + #{mod 3503}#) + #{r 3500}# + '(()) + #{mod 3503}#) + (syntax-violation + 'set! + "not a variable transformer" + (#{wrap 423}# + #{e 3499}# + #{w 3501}# + #{mod 3503}#) + (#{wrap 423}# + #{id 3517}# + #{w 3501}# + #{id-mod 3522}#)))) + (if (memv #{atom-key 3527}# '(displaced-lexical)) + (syntax-violation + 'set! + "identifier out of context" + (#{wrap 423}# + #{id 3517}# + #{w 3501}# + #{mod 3503}#)) + (syntax-violation + 'set! + "bad set!" + (#{wrap 423}# + (begin + (if (if (pair? #{e 3499}#) #{s 3502}# #f) + (set-source-properties! + #{e 3499}# + #{s 3502}#)) + #{e 3499}#) + #{w 3501}# + #{mod 3503}#)))))))))) + #{tmp 3510}#) + (let ((#{tmp 3539}# + ($sc-dispatch + #{e 3499}# + '(_ (any . each-any) any)))) + (if #{tmp 3539}# + (@apply + (lambda (#{head 3543}# #{tail 3544}# #{val 3545}#) + (call-with-values + (lambda () + (#{syntax-type 435}# + #{head 3543}# + #{r 3500}# + '(()) + #f + #f + #{mod 3503}# + #t)) + (lambda (#{type 3548}# + #{value 3549}# + #{ee 3550}# + #{ww 3551}# + #{ss 3552}# + #{modmod 3553}#) + (if (memv #{type 3548}# '(module-ref)) + (let ((#{val 3562}# + (#{chi 437}# + #{val 3545}# + #{r 3500}# + #{w 3501}# + #{mod 3503}#))) + (call-with-values + (lambda () + (#{value 3549}# + (cons #{head 3543}# #{tail 3544}#) + #{r 3500}# + #{w 3501}#)) + (lambda (#{e 3564}# + #{r 3565}# + #{w 3566}# + #{s* 3567}# + #{mod 3568}#) + (let ((#{tmp 3575}# (list #{e 3564}#))) + (if (if #{tmp 3575}# + (@apply + (lambda (#{e 3577}#) + (if (symbol? #{e 3577}#) + #t + (if (if (vector? #{e 3577}#) + (if (= (vector-length + #{e 3577}#) + 4) + (eq? (vector-ref + #{e 3577}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{e 3577}# 1)) #f))) - (cons '#(syntax-object + #{tmp 3575}#) + #f) + (@apply + (lambda (#{e 3579}#) + (let ((#{var 7356}# + (syntax->datum #{e 3579}#))) + (begin + (if (if (struct? #{val 3562}#) + (eq? (struct-vtable + #{val 3562}#) + (vector-ref + %expanded-vtables + 13)) + #f) + (let ((#{meta 7367}# + (struct-ref + #{val 3562}# + 1))) + (if (not (assq 'name + #{meta 7367}#)) + (let ((#{v 7377}# + (cons (cons 'name + #{var 7356}#) + #{meta 7367}#))) + (struct-set! + #{val 3562}# + 1 + #{v 7377}#))))) + (#{analyze-variable 281}# + #{mod 3568}# + #{var 7356}# + (lambda (#{mod 7359}# + #{var 7360}# + #{public? 7361}#) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 6) + #{s 3502}# + #{mod 7359}# + #{var 7360}# + #{public? 7361}# + #{val 3562}#)) + (lambda (#{var 7362}#) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 8) + #{s 3502}# + #{var 7362}# + #{val 3562}#)))))) + #{tmp 3575}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3564}#)))))) + (#{build-application 271}# + #{s 3502}# + (#{chi 437}# + (list '#(syntax-object + setter + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(type value ee ww ss modmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i3554" + "i3555" + "i3556" + "i3557" + "i3558" + "i3559")) + #(ribcage + #(head tail val) + #((top) (top) (top)) + #("i3540" "i3541" "i3542")) + #(ribcage () () ()) + #(ribcage + #(e r w s mod) + #((top) (top) (top) (top) (top)) + #("i3504" + "i3505" + "i3506" + "i3507" + "i3508")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + #{head 3543}#) + #{r 3500}# + #{w 3501}# + #{mod 3503}#) + (map (lambda (#{e 3581}#) + (#{chi 437}# + #{e 3581}# + #{r 3500}# + #{w 3501}# + #{mod 3503}#)) + (append + #{tail 3544}# + (list #{val 3545}#)))))))) + #{tmp 3539}#) + (syntax-violation + 'set! + "bad set!" + (#{wrap 423}# + (begin + (if (if (pair? #{e 3499}#) #{s 3502}# #f) + (set-source-properties! #{e 3499}# #{s 3502}#)) + #{e 3499}#) + #{w 3501}# + #{mod 3503}#)))))))) + (module-define! + (current-module) + '@ + (make-syntax-transformer + '@ + 'module-ref + (lambda (#{e 3586}# #{r 3587}# #{w 3588}#) + (let ((#{tmp 3593}# + ($sc-dispatch #{e 3586}# '(_ each-any any)))) + (if (if #{tmp 3593}# + (@apply + (lambda (#{mod 3596}# #{id 3597}#) + (if (and-map #{id? 349}# #{mod 3596}#) + (if (symbol? #{id 3597}#) + #t + (if (if (vector? #{id 3597}#) + (if (= (vector-length #{id 3597}#) 4) + (eq? (vector-ref #{id 3597}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 3597}# 1)) + #f)) + #f)) + #{tmp 3593}#) + #f) + (@apply + (lambda (#{mod 3603}# #{id 3604}#) + (values + (syntax->datum #{id 3604}#) + #{r 3587}# + #{w 3588}# + #f + (syntax->datum + (cons '#(syntax-object + public + ((top) + #(ribcage + #(mod id) + #((top) (top)) + #("i3601" "i3602")) + #(ribcage () () ()) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3589" "i3590" "i3591")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + #{mod 3603}#)))) + #{tmp 3593}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3586}#)))))) + (#{global-extend 345}# + 'module-ref + '@@ + (lambda (#{e 3606}# #{r 3607}# #{w 3608}#) + (letrec* + ((#{remodulate 3613}# + (lambda (#{x 3614}# #{mod 3615}#) + (if (pair? #{x 3614}#) + (cons (#{remodulate 3613}# + (car #{x 3614}#) + #{mod 3615}#) + (#{remodulate 3613}# + (cdr #{x 3614}#) + #{mod 3615}#)) + (if (if (vector? #{x 3614}#) + (if (= (vector-length #{x 3614}#) 4) + (eq? (vector-ref #{x 3614}# 0) 'syntax-object) + #f) + #f) + (let ((#{expression 7617}# + (#{remodulate 3613}# + (vector-ref #{x 3614}# 1) + #{mod 3615}#)) + (#{wrap 7618}# (vector-ref #{x 3614}# 2))) + (vector + 'syntax-object + #{expression 7617}# + #{wrap 7618}# + #{mod 3615}#)) + (if (vector? #{x 3614}#) + (let ((#{n 3626}# (vector-length #{x 3614}#))) + (let ((#{v 3628}# (make-vector #{n 3626}#))) + (letrec* + ((#{loop 3631}# + (lambda (#{i 3632}#) + (if (= #{i 3632}# #{n 3626}#) + #{v 3628}# + (begin + (vector-set! + #{v 3628}# + #{i 3632}# + (#{remodulate 3613}# + (vector-ref #{x 3614}# #{i 3632}#) + #{mod 3615}#)) + (#{loop 3631}# (#{1+}# #{i 3632}#))))))) + (#{loop 3631}# 0)))) + #{x 3614}#)))))) + (let ((#{tmp 3639}# + ($sc-dispatch #{e 3606}# '(_ each-any any)))) + (if (if #{tmp 3639}# + (@apply + (lambda (#{mod 3642}# #{exp 3643}#) + (and-map #{id? 349}# #{mod 3642}#)) + #{tmp 3639}#) + #f) + (@apply + (lambda (#{mod 3647}# #{exp 3648}#) + (let ((#{mod 3650}# + (syntax->datum + (cons '#(syntax-object + private + ((top) + #(ribcage + #(mod exp) + #((top) (top)) + #("i3645" "i3646")) + #(ribcage (remodulate) ((top)) ("i3612")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3609" "i3610" "i3611")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + #{mod 3647}#)))) + (values + (#{remodulate 3613}# #{exp 3648}# #{mod 3650}#) + #{r 3607}# + #{w 3608}# + (#{source-annotation 327}# #{exp 3648}#) + #{mod 3650}#))) + #{tmp 3639}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3606}#)))))) + (#{global-extend 345}# + 'core + 'if + (lambda (#{e 3652}# + #{r 3653}# + #{w 3654}# + #{s 3655}# + #{mod 3656}#) + (let ((#{tmp 3663}# + ($sc-dispatch #{e 3652}# '(_ any any)))) + (if #{tmp 3663}# + (@apply + (lambda (#{test 3666}# #{then 3667}#) + (#{build-conditional 273}# + #{s 3655}# + (#{chi 437}# + #{test 3666}# + #{r 3653}# + #{w 3654}# + #{mod 3656}#) + (#{chi 437}# + #{then 3667}# + #{r 3653}# + #{w 3654}# + #{mod 3656}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f))) + #{tmp 3663}#) + (let ((#{tmp 3669}# + ($sc-dispatch #{e 3652}# '(_ any any any)))) + (if #{tmp 3669}# + (@apply + (lambda (#{test 3673}# #{then 3674}# #{else 3675}#) + (#{build-conditional 273}# + #{s 3655}# + (#{chi 437}# + #{test 3673}# + #{r 3653}# + #{w 3654}# + #{mod 3656}#) + (#{chi 437}# + #{then 3674}# + #{r 3653}# + #{w 3654}# + #{mod 3656}#) + (#{chi 437}# + #{else 3675}# + #{r 3653}# + #{w 3654}# + #{mod 3656}#))) + #{tmp 3669}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3652}#))))))) + (#{global-extend 345}# + 'core + 'with-fluids + (lambda (#{e 3676}# + #{r 3677}# + #{w 3678}# + #{s 3679}# + #{mod 3680}#) + (let ((#{tmp 3687}# + ($sc-dispatch + #{e 3676}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 3687}# + (@apply + (lambda (#{fluid 3692}# + #{val 3693}# + #{b 3694}# + #{b* 3695}#) + ((lambda (#{source 977}# + #{fluids 978}# + #{vals 979}# + #{body 980}#) + (#{make-dynlet 242}# + #{source 977}# + #{fluids 978}# + #{vals 979}# + #{body 980}#)) + #{s 3679}# + (map (lambda (#{x 3696}#) + (#{chi 437}# + #{x 3696}# + #{r 3677}# + #{w 3678}# + #{mod 3680}#)) + #{fluid 3692}#) + (map (lambda (#{x 3699}#) + (#{chi 437}# + #{x 3699}# + #{r 3677}# + #{w 3678}# + #{mod 3680}#)) + #{val 3693}#) + (#{chi-body 445}# + (cons #{b 3694}# #{b* 3695}#) + (#{wrap 423}# + (begin + (if (if (pair? #{e 3676}#) #{s 3679}# #f) + (set-source-properties! #{e 3676}# #{s 3679}#)) + #{e 3676}#) + #{w 3678}# + #{mod 3680}#) + #{r 3677}# + #{w 3678}# + #{mod 3680}#))) + #{tmp 3687}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3676}#))))) + (module-define! + (current-module) + 'begin + (make-syntax-transformer 'begin 'begin '())) + (module-define! + (current-module) + 'define + (make-syntax-transformer 'define 'define '())) + (module-define! + (current-module) + 'define-syntax + (make-syntax-transformer + 'define-syntax + 'define-syntax + '())) + (module-define! + (current-module) + 'eval-when + (make-syntax-transformer + 'eval-when + 'eval-when + '())) + (#{global-extend 345}# + 'core + 'syntax-case + (letrec* + ((#{convert-pattern 3704}# + (lambda (#{pattern 3711}# #{keys 3712}#) + (letrec* + ((#{cvt* 3716}# + (lambda (#{p* 3721}# #{n 3722}# #{ids 3723}#) + (if (not (pair? #{p* 3721}#)) + (#{cvt 3720}# + #{p* 3721}# + #{n 3722}# + #{ids 3723}#) + (call-with-values + (lambda () + (#{cvt* 3716}# + (cdr #{p* 3721}#) + #{n 3722}# + #{ids 3723}#)) + (lambda (#{y 3727}# #{ids 3728}#) + (call-with-values + (lambda () + (#{cvt 3720}# + (car #{p* 3721}#) + #{n 3722}# + #{ids 3728}#)) + (lambda (#{x 3731}# #{ids 3732}#) + (values + (cons #{x 3731}# #{y 3727}#) + #{ids 3732}#)))))))) + (#{v-reverse 3718}# + (lambda (#{x 3735}#) + (letrec* + ((#{loop 3740}# + (lambda (#{r 3741}# #{x 3742}#) + (if (not (pair? #{x 3742}#)) + (values #{r 3741}# #{x 3742}#) + (#{loop 3740}# + (cons (car #{x 3742}#) #{r 3741}#) + (cdr #{x 3742}#)))))) + (#{loop 3740}# '() #{x 3735}#)))) + (#{cvt 3720}# + (lambda (#{p 3743}# #{n 3744}# #{ids 3745}#) + (if (if (symbol? #{p 3743}#) + #t + (if (if (vector? #{p 3743}#) + (if (= (vector-length #{p 3743}#) 4) + (eq? (vector-ref #{p 3743}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{p 3743}# 1)) + #f)) + (if (#{bound-id-member? 421}# + #{p 3743}# + #{keys 3712}#) + (values + (vector 'free-id #{p 3743}#) + #{ids 3745}#) + (if (if (eq? (if (if (vector? #{p 3743}#) + (if (= (vector-length #{p 3743}#) 4) + (eq? (vector-ref #{p 3743}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{p 3743}# 1) + #{p 3743}#) + (if (if (= (vector-length + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3746" + "i3747" + "i3748")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3719" + "i3717" + "i3715")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3713" "i3714")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3746" + "i3747" + "i3748")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3719" + "i3717" + "i3715")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3713" "i3714")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3746" "i3747" "i3748")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3719" "i3717" "i3715")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3713" "i3714")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + 1) + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3746" "i3747" "i3748")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3719" "i3717" "i3715")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3713" "i3714")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" "i3707" "i3705" "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + (eq? (#{id-var-name 411}# #{p 3743}# '(())) + (#{id-var-name 411}# + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3746" "i3747" "i3748")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3719" "i3717" "i3715")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3713" "i3714")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" "i3707" "i3705" "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + '(()))) + #f) + (values '_ #{ids 3745}#) + (values + 'any + (cons (cons #{p 3743}# #{n 3744}#) #{ids 3745}#)))) + (let ((#{tmp 3755}# + ($sc-dispatch #{p 3743}# '(any any)))) + (if (if #{tmp 3755}# + (@apply + (lambda (#{x 3758}# #{dots 3759}#) + (if (if (if (vector? #{dots 3759}#) + (if (= (vector-length + #{dots 3759}#) + 4) + (eq? (vector-ref #{dots 3759}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{dots 3759}# 1)) + #f) + (if (eq? (if (if (vector? #{dots 3759}#) + (if (= (vector-length + #{dots 3759}#) + 4) + (eq? (vector-ref + #{dots 3759}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{dots 3759}# 1) + #{dots 3759}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + (eq? (#{id-var-name 411}# + #{dots 3759}# + '(())) + (#{id-var-name 411}# + '#(syntax-object ... ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) + #(x) + #((top)) + #("i2229")) #(ribcage (lambda-var-list gen-var @@ -21479,6601 +15642,3427 @@ (top) (top) (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" "i397" - "i396" - "i394" + "i395" + "i392" "i391" "i390" - "i389" + "i388" "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" "i365" - "i364" - "i362" - "i360" - "i358" + "i363" + "i361" + "i359" + "i357" "i356" "i355" "i354" - "i353" + "i352" "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" "i335" "i334" - "i333" - "i331" + "i332" + "i330" "i329" - "i328" + "i326" "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" "i259" - "i258" - "i255" + "i256" + "i254" "i253" "i252" "i251" "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i44" "i43" "i42"))) + ("i45" "i44" "i43"))) (hygiene guile)) - #{keys 3894}#)) - #f) - (if (if (eq? (if (if (= (vector-length - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" - "i3910")) - #(ribcage - () - () - ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" - "i3910")) - #(ribcage - () - () - ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile))) - (if (if (= (vector-length - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" - "i3910")) - #(ribcage - () - () - ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" - "i3910")) - #(ribcage - () - () - ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)))) - (eq? (#{id-var-name 410}# - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - '(())) - (#{id-var-name 410}# - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3909" "i3910")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3898" - "i3899" - "i3900" - "i3901" - "i3902")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3708" - "i3706" - "i3704" - "i3702")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i44" "i43" "i42"))) - (hygiene guile)) - '(()))) - #f) - (#{chi 436}# - #{exp 3912}# - #{r 3896}# - '(()) - #{mod 3897}#) - (begin - (let ((#{labels 3920}# - (list (symbol->string - (gensym "i")))) - (#{var 3921}# - (begin - (let ((#{id 9472}# - (if (if (vector? - #{pat 3911}#) - (if (= (vector-length - #{pat 3911}#) - 4) - (eq? (vector-ref - #{pat 3911}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{pat 3911}# - 1) - #{pat 3911}#))) - (gensym - (string-append - (symbol->string - #{id 9472}#) - " ")))))) - (#{build-application 270}# - #f - (#{build-simple-lambda 288}# - #f - (list (syntax->datum #{pat 3911}#)) - #f - (list #{var 3921}#) - '() - (#{chi 436}# - #{exp 3912}# - (#{extend-env 336}# - #{labels 3920}# - (list (cons 'syntax - (cons #{var 3921}# - 0))) - #{r 3896}#) - (#{make-binding-wrap 400}# - (list #{pat 3911}#) - #{labels 3920}# - '(())) - #{mod 3897}#)) - (list #{x 3893}#))))) - (#{gen-clause 3707}# - #{x 3893}# - #{keys 3894}# - (cdr #{clauses 3895}#) - #{r 3896}# - #{pat 3911}# - #t - #{exp 3912}# - #{mod 3897}#))) - #{tmp 3908}#) - (begin - (let ((#{tmp 3927}# - ($sc-dispatch - #{tmp 3907}# - '(any any any)))) - (if #{tmp 3927}# - (@apply - (lambda (#{pat 3931}# - #{fender 3932}# - #{exp 3933}#) - (#{gen-clause 3707}# - #{x 3893}# - #{keys 3894}# - (cdr #{clauses 3895}#) - #{r 3896}# - #{pat 3931}# - #{fender 3932}# - #{exp 3933}# - #{mod 3897}#)) - #{tmp 3927}#) - (syntax-violation - 'syntax-case - "invalid clause" - (car #{clauses 3895}#)))))))))))))) - (begin - (lambda (#{e 3936}# - #{r 3937}# - #{w 3938}# - #{s 3939}# - #{mod 3940}#) - (begin - (let ((#{e 3947}# - (#{wrap 422}# - (begin - (if (if (pair? #{e 3936}#) #{s 3939}# #f) - (set-source-properties! #{e 3936}# #{s 3939}#)) - #{e 3936}#) - #{w 3938}# - #{mod 3940}#))) - (begin - (let ((#{tmp 3949}# - ($sc-dispatch - #{e 3947}# - '(_ any each-any . each-any)))) - (if #{tmp 3949}# - (@apply - (lambda (#{val 3953}# #{key 3954}# #{m 3955}#) - (if (and-map - (lambda (#{x 3956}#) - (if (if (symbol? #{x 3956}#) - #t - (if (if (vector? #{x 3956}#) + '(()))) + #f) + #f)) + #{tmp 3755}#) + #f) + (@apply + (lambda (#{x 3762}# #{dots 3763}#) + (call-with-values + (lambda () + (#{cvt 3720}# + #{x 3762}# + (#{1+}# #{n 3744}#) + #{ids 3745}#)) + (lambda (#{p 3765}# #{ids 3766}#) + (values + (if (eq? #{p 3765}# 'any) + 'each-any + (vector 'each #{p 3765}#)) + #{ids 3766}#)))) + #{tmp 3755}#) + (let ((#{tmp 3769}# + ($sc-dispatch #{p 3743}# '(any any . any)))) + (if (if #{tmp 3769}# + (@apply + (lambda (#{x 3773}# + #{dots 3774}# + #{ys 3775}#) + (if (if (if (vector? #{dots 3774}#) (if (= (vector-length - #{x 3956}#) + #{dots 3774}#) 4) (eq? (vector-ref - #{x 3956}# + #{dots 3774}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 3956}# 1)) - #f)) - (not (if (if (if (vector? #{x 3956}#) - (if (= (vector-length - #{x 3956}#) + (symbol? + (vector-ref #{dots 3774}# 1)) + #f) + (if (eq? (if (if (vector? + #{dots 3774}#) + (if (= (vector-length + #{dots 3774}#) + 4) + (eq? (vector-ref + #{dots 3774}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{dots 3774}# 1) + #{dots 3774}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene + guile))) 4) (eq? (vector-ref - #{x 3956}# + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene + guile)) 0) 'syntax-object) #f) - #f) - (symbol? - (vector-ref #{x 3956}# 1)) - #f) - (if (eq? (if (if (vector? - #{x 3956}#) - (if (= (vector-length - #{x 3956}#) - 4) - (eq? (vector-ref - #{x 3956}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{x 3956}# - 1) - #{x 3956}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene - guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)) - 1) - '#(syntax-object - ... + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2228")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i396" - "i394" - "i391" - "i390" - "i389" - "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" - "i365" - "i364" - "i362" - "i360" - "i358" - "i356" - "i355" - "i354" - "i353" - "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i334" - "i333" - "i331" - "i329" - "i328" - "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i258" - "i255" - "i253" - "i252" - "i251" - "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i44" - "i43" - "i42"))) - (hygiene guile)))) - (eq? (#{id-var-name 410}# - #{x 3956}# - '(())) - (#{id-var-name 410}# + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + (eq? (#{id-var-name 411}# + #{dots 3774}# + '(())) + (#{id-var-name 411}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + '(()))) + #f) + #f)) + #{tmp 3769}#) + #f) + (@apply + (lambda (#{x 3779}# #{dots 3780}# #{ys 3781}#) + (call-with-values + (lambda () + (#{cvt* 3716}# + #{ys 3781}# + #{n 3744}# + #{ids 3745}#)) + (lambda (#{ys 3782}# #{ids 3783}#) + (call-with-values + (lambda () + (#{cvt 3720}# + #{x 3779}# + (#{1+}# #{n 3744}#) + #{ids 3783}#)) + (lambda (#{x 3786}# #{ids 3787}#) + (call-with-values + (lambda () + (#{v-reverse 3718}# #{ys 3782}#)) + (lambda (#{ys 3790}# #{e 3791}#) + (values + (vector + 'each+ + #{x 3786}# + #{ys 3790}# + #{e 3791}#) + #{ids 3787}#)))))))) + #{tmp 3769}#) + (let ((#{tmp 3795}# + ($sc-dispatch #{p 3743}# '(any . any)))) + (if #{tmp 3795}# + (@apply + (lambda (#{x 3798}# #{y 3799}#) + (call-with-values + (lambda () + (#{cvt 3720}# + #{y 3799}# + #{n 3744}# + #{ids 3745}#)) + (lambda (#{y 3800}# #{ids 3801}#) + (call-with-values + (lambda () + (#{cvt 3720}# + #{x 3798}# + #{n 3744}# + #{ids 3801}#)) + (lambda (#{x 3804}# #{ids 3805}#) + (values + (cons #{x 3804}# #{y 3800}#) + #{ids 3805}#)))))) + #{tmp 3795}#) + (let ((#{tmp 3808}# + ($sc-dispatch #{p 3743}# '()))) + (if #{tmp 3808}# + (@apply + (lambda () (values '() #{ids 3745}#)) + #{tmp 3808}#) + (let ((#{tmp 3809}# + ($sc-dispatch + #{p 3743}# + '#(vector each-any)))) + (if #{tmp 3809}# + (@apply + (lambda (#{x 3811}#) + (call-with-values + (lambda () + (#{cvt 3720}# + #{x 3811}# + #{n 3744}# + #{ids 3745}#)) + (lambda (#{p 3813}# + #{ids 3814}#) + (values + (vector 'vector #{p 3813}#) + #{ids 3814}#)))) + #{tmp 3809}#) + (values + (vector + 'atom + (#{strip 463}# #{p 3743}# '(()))) + #{ids 3745}#))))))))))))))) + (#{cvt 3720}# #{pattern 3711}# 0 '())))) + (#{build-dispatch-call 3706}# + (lambda (#{pvars 3820}# + #{exp 3821}# + #{y 3822}# + #{r 3823}# + #{mod 3824}#) + (let ((#{ids 3832}# (map car #{pvars 3820}#))) + (begin + (map cdr #{pvars 3820}#) + (let ((#{labels 3836}# + (#{gen-labels 369}# #{ids 3832}#)) + (#{new-vars 3837}# + (map #{gen-var 465}# #{ids 3832}#))) + (#{build-application 271}# + #f + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'apply) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'apply + #f)) + (list (#{build-simple-lambda 289}# + #f + (map syntax->datum #{ids 3832}#) + #f + #{new-vars 3837}# + '() + (#{chi 437}# + #{exp 3821}# + (#{extend-env 337}# + #{labels 3836}# + (map (lambda (#{var 3841}# #{level 3842}#) + (cons 'syntax + (cons #{var 3841}# + #{level 3842}#))) + #{new-vars 3837}# + (map cdr #{pvars 3820}#)) + #{r 3823}#) + (#{make-binding-wrap 401}# + #{ids 3832}# + #{labels 3836}# + '(())) + #{mod 3824}#)) + #{y 3822}#))))))) + (#{gen-clause 3708}# + (lambda (#{x 3848}# + #{keys 3849}# + #{clauses 3850}# + #{r 3851}# + #{pat 3852}# + #{fender 3853}# + #{exp 3854}# + #{mod 3855}#) + (call-with-values + (lambda () + (#{convert-pattern 3704}# + #{pat 3852}# + #{keys 3849}#)) + (lambda (#{p 3864}# #{pvars 3865}#) + (if (not (#{distinct-bound-ids? 419}# + (map car #{pvars 3865}#))) + (syntax-violation + 'syntax-case + "duplicate pattern variable" + #{pat 3852}#) + (if (not (and-map + (lambda (#{x 3872}#) + (not (let ((#{x 9164}# (car #{x 3872}#))) + (if (if (if (vector? #{x 9164}#) + (if (= (vector-length + #{x 9164}#) + 4) + (eq? (vector-ref + #{x 9164}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{x 9164}# 1)) + #f) + (if (eq? (if (if (vector? #{x 9164}#) + (if (= (vector-length + #{x 9164}#) + 4) + (eq? (vector-ref + #{x 9164}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 9164}# 1) + #{x 9164}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref '#(syntax-object ... ((top) @@ -28082,7 +19071,7 @@ #(ribcage #(x) #((top)) - #("i2228")) + #("i2229")) #(ribcage (lambda-var-list gen-var @@ -28356,1124 +19345,9428 @@ (top) (top) (top)) - ("i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" "i397" - "i396" - "i394" + "i395" + "i392" "i391" "i390" - "i389" + "i388" "i387" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i367" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" "i365" - "i364" - "i362" - "i360" - "i358" + "i363" + "i361" + "i359" + "i357" "i356" "i355" "i354" - "i353" + "i352" "i351" - "i350" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" "i335" "i334" - "i333" - "i331" + "i332" + "i330" "i329" - "i328" + "i326" "i325" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" "i259" - "i258" - "i255" + "i256" + "i254" "i253" "i252" "i251" "i250" - "i249" - "i247" - "i245" - "i243" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206")) + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i44" - "i43" - "i42"))) + ("i45" + "i44" + "i43"))) (hygiene guile)) - '(()))) - #f) - #f)) - #f)) - #{key 3954}#) - (begin - (let ((#{x 3962}# - (gensym - (string-append - (symbol->string 'tmp) - " ")))) - (#{build-application 270}# - #{s 3939}# - (begin - (let ((#{req 9846}# (list 'tmp)) - (#{vars 9848}# (list #{x 3962}#)) - (#{exp 9850}# - (#{gen-syntax-case 3709}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 3) - #f - 'tmp - #{x 3962}#) - #{key 3954}# - #{m 3955}# - #{r 3937}# - #{mod 3940}#))) - (begin - (let ((#{body 9867}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 14) - #f - #{req 9846}# - #f - #f - #f - '() - #{vars 9848}# - #{exp 9850}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 9867}#))))) - (list (#{chi 436}# - #{val 3953}# - #{r 3937}# - '(()) - #{mod 3940}#))))) - (syntax-violation - 'syntax-case - "invalid literals list" - #{e 3947}#))) - #{tmp 3949}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3947}#)))))))))) - (set! macroexpand - (lambda* - (#{x 3968}# - #:optional - (#{m 3970}# 'e) - (#{esew 3972}# '(eval))) - (#{chi-top-sequence 428}# - (list #{x 3968}#) - '() - '((top)) - #f - #{m 3970}# - #{esew 3972}# - (cons 'hygiene (module-name (current-module)))))) - (set! identifier? - (lambda (#{x 3976}#) - (if (if (vector? #{x 3976}#) - (if (= (vector-length #{x 3976}#) 4) - (eq? (vector-ref #{x 3976}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 3976}# 1)) - #f))) - (set! datum->syntax - (lambda (#{id 3978}# #{datum 3979}#) - (begin - (let ((#{wrap 9941}# (vector-ref #{id 3978}# 2)) - (#{module 9942}# (vector-ref #{id 3978}# 3))) - (vector - 'syntax-object - #{datum 3979}# - #{wrap 9941}# - #{module 9942}#))))) - (set! syntax->datum - (lambda (#{x 3982}#) - (#{strip 462}# #{x 3982}# '(())))) - (set! syntax-source - (lambda (#{x 3985}#) - (#{source-annotation 326}# #{x 3985}#))) - (set! generate-temporaries - (lambda (#{ls 3987}#) - (begin - (if (not (list? #{ls 3987}#)) - (syntax-violation - 'generate-temporaries - "invalid argument" - #{ls 3987}#)) - (begin - (let ((#{mod 3993}# - (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 3994}#) - (#{wrap 422}# (gensym) '((top)) #{mod 3993}#)) - #{ls 3987}#)))))) - (set! free-identifier=? - (lambda (#{x 3998}# #{y 3999}#) - (begin - (if (not (if (if (vector? #{x 3998}#) - (if (= (vector-length #{x 3998}#) 4) - (eq? (vector-ref #{x 3998}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 3998}# 1)) - #f)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{x 3998}#)) - (if (not (if (if (vector? #{y 3999}#) - (if (= (vector-length #{y 3999}#) 4) - (eq? (vector-ref #{y 3999}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{y 3999}# 1)) - #f)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{y 3999}#)) - (if (eq? (if (if (vector? #{x 3998}#) - (if (= (vector-length #{x 3998}#) 4) - (eq? (vector-ref #{x 3998}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{x 3998}# 1) - #{x 3998}#) - (if (if (vector? #{y 3999}#) - (if (= (vector-length #{y 3999}#) 4) - (eq? (vector-ref #{y 3999}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{y 3999}# 1) - #{y 3999}#)) - (eq? (#{id-var-name 410}# #{x 3998}# '(())) - (#{id-var-name 410}# #{y 3999}# '(()))) - #f)))) - (set! bound-identifier=? - (lambda (#{x 4008}# #{y 4009}#) - (begin - (if (not (if (if (vector? #{x 4008}#) - (if (= (vector-length #{x 4008}#) 4) - (eq? (vector-ref #{x 4008}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 4008}# 1)) - #f)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{x 4008}#)) - (if (not (if (if (vector? #{y 4009}#) - (if (= (vector-length #{y 4009}#) 4) - (eq? (vector-ref #{y 4009}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{y 4009}# 1)) - #f)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{y 4009}#)) - (if (if (if (vector? #{x 4008}#) - (if (= (vector-length #{x 4008}#) 4) - (eq? (vector-ref #{x 4008}# 0) 'syntax-object) - #f) - #f) - (if (vector? #{y 4009}#) - (if (= (vector-length #{y 4009}#) 4) - (eq? (vector-ref #{y 4009}# 0) 'syntax-object) - #f) - #f) - #f) - (if (eq? (vector-ref #{x 4008}# 1) - (vector-ref #{y 4009}# 1)) - (#{same-marks? 408}# - (car (vector-ref #{x 4008}# 2)) - (car (vector-ref #{y 4009}# 2))) - #f) - (eq? #{x 4008}# #{y 4009}#))))) - (set! syntax-violation - (lambda* - (#{who 4018}# - #{message 4019}# - #{form 4020}# - #:optional - (#{subform 4024}# #f)) - (begin - (if (not (if (not #{who 4018}#) - (not #{who 4018}#) - (begin - (let ((#{t 4036}# (string? #{who 4018}#))) - (if #{t 4036}# - #{t 4036}# - (symbol? #{who 4018}#)))))) - (syntax-violation - 'syntax-violation - "invalid argument" - #{who 4018}#)) - (if (not (string? #{message 4019}#)) - (syntax-violation - 'syntax-violation - "invalid argument" - #{message 4019}#)) - (throw 'syntax-error - #{who 4018}# - #{message 4019}# - (#{source-annotation 326}# - (if #{form 4020}# #{form 4020}# #{subform 4024}#)) - (#{strip 462}# #{form 4020}# '(())) - (if #{subform 4024}# - (#{strip 462}# #{subform 4024}# '(())) - #f))))) - (letrec* - ((#{match-each 4050}# - (lambda (#{e 4063}# #{p 4064}# #{w 4065}# #{mod 4066}#) - (if (pair? #{e 4063}#) - (begin - (let ((#{first 4074}# - (#{match 4062}# - (car #{e 4063}#) - #{p 4064}# - #{w 4065}# - '() - #{mod 4066}#))) - (if #{first 4074}# - (begin - (let ((#{rest 4078}# - (#{match-each 4050}# - (cdr #{e 4063}#) - #{p 4064}# - #{w 4065}# - #{mod 4066}#))) - (if #{rest 4078}# - (cons #{first 4074}# #{rest 4078}#) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + (eq? (#{id-var-name 411}# + #{x 9164}# + '(())) + (#{id-var-name 411}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + '(()))) + #f) + #f)))) + #{pvars 3865}#)) + (syntax-violation + 'syntax-case + "misplaced ellipsis" + #{pat 3852}#) + (let ((#{y 3876}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (let ((#{fun-exp 9204}# + (let ((#{req 9209}# (list 'tmp)) + (#{vars 9211}# (list #{y 3876}#)) + (#{exp 9213}# + (let ((#{y 3880}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 3) + #f + 'tmp + #{y 3876}#))) + (let ((#{test-exp 9228}# + (let ((#{tmp 3884}# + ($sc-dispatch + #{fender 3853}# + '#(atom #t)))) + (if #{tmp 3884}# + (@apply + (lambda () #{y 3880}#) + #{tmp 3884}#) + (let ((#{then-exp 9235}# + (#{build-dispatch-call 3706}# + #{pvars 3865}# + #{fender 3853}# + #{y 3880}# + #{r 3851}# + #{mod 3855}#)) + (#{else-exp 9236}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #f))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 10) + #f + #{y 3880}# + #{then-exp 9235}# + #{else-exp 9236}#))))) + (#{then-exp 9229}# + (#{build-dispatch-call 3706}# + #{pvars 3865}# + #{exp 3854}# + #{y 3880}# + #{r 3851}# + #{mod 3855}#)) + (#{else-exp 9230}# + (#{gen-syntax-case 3710}# + #{x 3848}# + #{keys 3849}# + #{clauses 3850}# + #{r 3851}# + #{mod 3855}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 10) + #f + #{test-exp 9228}# + #{then-exp 9229}# + #{else-exp 9230}#))))) + (let ((#{body 9261}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 9209}# + #f + #f + #f + '() + #{vars 9211}# + #{exp 9213}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 9261}#)))) + (#{arg-exps 9205}# + (list (if (eq? #{p 3864}# 'any) + (let ((#{fun-exp 9276}# + (if (equal? + (module-name + (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 7) + #f + 'list) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 5) + #f + '(guile) + 'list + #f))) + (#{arg-exps 9277}# + (list #{x 3848}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 9276}# + #{arg-exps 9277}#)) + (let ((#{fun-exp 9299}# + (if (equal? + (module-name + (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 7) + #f + '$sc-dispatch) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 5) + #f + '(guile) + '$sc-dispatch + #f))) + (#{arg-exps 9300}# + (list #{x 3848}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #{p 3864}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 9299}# + #{arg-exps 9300}#)))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 9204}# + #{arg-exps 9205}#))))))))) + (#{gen-syntax-case 3710}# + (lambda (#{x 3894}# + #{keys 3895}# + #{clauses 3896}# + #{r 3897}# + #{mod 3898}#) + (if (null? #{clauses 3896}#) + (let ((#{fun-exp 9335}# + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'syntax-violation) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'syntax-violation #f))) - #f))) - (if (null? #{e 4063}#) - '() - (if (if (vector? #{e 4063}#) - (if (= (vector-length #{e 4063}#) 4) - (eq? (vector-ref #{e 4063}# 0) 'syntax-object) - #f) - #f) - (#{match-each 4050}# - (vector-ref #{e 4063}# 1) - #{p 4064}# - (#{join-wraps 404}# - #{w 4065}# - (vector-ref #{e 4063}# 2)) - (vector-ref #{e 4063}# 3)) - #f))))) - (#{match-each+ 4052}# - (lambda (#{e 4086}# - #{x-pat 4087}# - #{y-pat 4088}# - #{z-pat 4089}# - #{w 4090}# - #{r 4091}# - #{mod 4092}#) - (letrec* - ((#{f 4103}# - (lambda (#{e 4104}# #{w 4105}#) - (if (pair? #{e 4104}#) - (call-with-values - (lambda () - (#{f 4103}# (cdr #{e 4104}#) #{w 4105}#)) - (lambda (#{xr* 4108}# #{y-pat 4109}# #{r 4110}#) - (if #{r 4110}# - (if (null? #{y-pat 4109}#) - (begin - (let ((#{xr 4115}# - (#{match 4062}# - (car #{e 4104}#) - #{x-pat 4087}# - #{w 4105}# - '() - #{mod 4092}#))) - (if #{xr 4115}# - (values - (cons #{xr 4115}# #{xr* 4108}#) - #{y-pat 4109}# - #{r 4110}#) - (values #f #f #f)))) - (values - '() - (cdr #{y-pat 4109}#) - (#{match 4062}# - (car #{e 4104}#) - (car #{y-pat 4109}#) - #{w 4105}# - #{r 4110}# - #{mod 4092}#))) - (values #f #f #f)))) - (if (if (vector? #{e 4104}#) - (if (= (vector-length #{e 4104}#) 4) - (eq? (vector-ref #{e 4104}# 0) 'syntax-object) - #f) - #f) - (#{f 4103}# - (vector-ref #{e 4104}# 1) - (#{join-wraps 404}# #{w 4105}# #{e 4104}#)) - (values - '() - #{y-pat 4088}# - (#{match 4062}# - #{e 4104}# - #{z-pat 4089}# - #{w 4105}# - #{r 4091}# - #{mod 4092}#))))))) - (begin (#{f 4103}# #{e 4086}# #{w 4090}#))))) - (#{match-each-any 4054}# - (lambda (#{e 4119}# #{w 4120}# #{mod 4121}#) - (if (pair? #{e 4119}#) - (begin - (let ((#{l 4128}# - (#{match-each-any 4054}# - (cdr #{e 4119}#) - #{w 4120}# - #{mod 4121}#))) - (if #{l 4128}# - (cons (#{wrap 422}# - (car #{e 4119}#) - #{w 4120}# - #{mod 4121}#) - #{l 4128}#) - #f))) - (if (null? #{e 4119}#) - '() - (if (if (vector? #{e 4119}#) - (if (= (vector-length #{e 4119}#) 4) - (eq? (vector-ref #{e 4119}# 0) 'syntax-object) - #f) - #f) - (#{match-each-any 4054}# - (vector-ref #{e 4119}# 1) - (#{join-wraps 404}# - #{w 4120}# - (vector-ref #{e 4119}# 2)) - #{mod 4121}#) - #f))))) - (#{match-empty 4056}# - (lambda (#{p 4136}# #{r 4137}#) - (if (null? #{p 4136}#) - #{r 4137}# - (if (eq? #{p 4136}# '_) - #{r 4137}# - (if (eq? #{p 4136}# 'any) - (cons '() #{r 4137}#) - (if (pair? #{p 4136}#) - (#{match-empty 4056}# - (car #{p 4136}#) - (#{match-empty 4056}# - (cdr #{p 4136}#) - #{r 4137}#)) - (if (eq? #{p 4136}# 'each-any) - (cons '() #{r 4137}#) - (begin - (let ((#{atom-key 4153}# (vector-ref #{p 4136}# 0))) - (if (eqv? #{atom-key 4153}# 'each) - (#{match-empty 4056}# - (vector-ref #{p 4136}# 1) - #{r 4137}#) - (if (eqv? #{atom-key 4153}# 'each+) - (#{match-empty 4056}# - (vector-ref #{p 4136}# 1) - (#{match-empty 4056}# - (reverse (vector-ref #{p 4136}# 2)) - (#{match-empty 4056}# - (vector-ref #{p 4136}# 3) - #{r 4137}#))) - (if (if (eqv? #{atom-key 4153}# 'free-id) - #t - (eqv? #{atom-key 4153}# 'atom)) - #{r 4137}# - (if (eqv? #{atom-key 4153}# 'vector) - (#{match-empty 4056}# - (vector-ref #{p 4136}# 1) - #{r 4137}#)))))))))))))) - (#{combine 4058}# - (lambda (#{r* 4158}# #{r 4159}#) - (if (null? (car #{r* 4158}#)) - #{r 4159}# - (cons (map car #{r* 4158}#) - (#{combine 4058}# - (map cdr #{r* 4158}#) - #{r 4159}#))))) - (#{match* 4060}# - (lambda (#{e 4162}# - #{p 4163}# - #{w 4164}# - #{r 4165}# - #{mod 4166}#) - (if (null? #{p 4163}#) - (if (null? #{e 4162}#) #{r 4165}# #f) - (if (pair? #{p 4163}#) - (if (pair? #{e 4162}#) - (#{match 4062}# - (car #{e 4162}#) - (car #{p 4163}#) - #{w 4164}# - (#{match 4062}# - (cdr #{e 4162}#) - (cdr #{p 4163}#) - #{w 4164}# - #{r 4165}# - #{mod 4166}#) - #{mod 4166}#) - #f) - (if (eq? #{p 4163}# 'each-any) - (begin - (let ((#{l 4183}# - (#{match-each-any 4054}# - #{e 4162}# - #{w 4164}# - #{mod 4166}#))) - (if #{l 4183}# (cons #{l 4183}# #{r 4165}#) #f))) - (begin - (let ((#{atom-key 4189}# (vector-ref #{p 4163}# 0))) - (if (eqv? #{atom-key 4189}# 'each) - (if (null? #{e 4162}#) - (#{match-empty 4056}# - (vector-ref #{p 4163}# 1) - #{r 4165}#) - (begin - (let ((#{l 4192}# - (#{match-each 4050}# - #{e 4162}# - (vector-ref #{p 4163}# 1) - #{w 4164}# - #{mod 4166}#))) - (if #{l 4192}# - (letrec* - ((#{collect 4197}# - (lambda (#{l 4198}#) - (if (null? (car #{l 4198}#)) - #{r 4165}# - (cons (map car #{l 4198}#) - (#{collect 4197}# - (map cdr #{l 4198}#))))))) - (begin (#{collect 4197}# #{l 4192}#))) - #f)))) - (if (eqv? #{atom-key 4189}# 'each+) - (call-with-values - (lambda () - (#{match-each+ 4052}# - #{e 4162}# - (vector-ref #{p 4163}# 1) - (vector-ref #{p 4163}# 2) - (vector-ref #{p 4163}# 3) - #{w 4164}# - #{r 4165}# - #{mod 4166}#)) - (lambda (#{xr* 4200}# #{y-pat 4201}# #{r 4202}#) - (if #{r 4202}# - (if (null? #{y-pat 4201}#) - (if (null? #{xr* 4200}#) - (#{match-empty 4056}# - (vector-ref #{p 4163}# 1) - #{r 4202}#) - (#{combine 4058}# - #{xr* 4200}# - #{r 4202}#)) - #f) - #f))) - (if (eqv? #{atom-key 4189}# 'free-id) - (if (if (symbol? #{e 4162}#) + (#{arg-exps 9336}# + (list (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #f) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + "source expression failed to match any pattern") + #{x 3894}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 9335}# + #{arg-exps 9336}#)) + (let ((#{tmp 3908}# (car #{clauses 3896}#))) + (let ((#{tmp 3909}# + ($sc-dispatch #{tmp 3908}# '(any any)))) + (if #{tmp 3909}# + (@apply + (lambda (#{pat 3912}# #{exp 3913}#) + (if (if (if (symbol? #{pat 3912}#) #t - (if (if (vector? #{e 4162}#) - (if (= (vector-length #{e 4162}#) 4) - (eq? (vector-ref #{e 4162}# 0) + (if (if (vector? #{pat 3912}#) + (if (= (vector-length #{pat 3912}#) 4) + (eq? (vector-ref #{pat 3912}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 4162}# 1)) + (symbol? (vector-ref #{pat 3912}# 1)) #f)) - (if (begin - (let ((#{i 10361}# - (#{wrap 422}# - #{e 4162}# - #{w 4164}# - #{mod 4166}#)) - (#{j 10362}# - (vector-ref #{p 4163}# 1))) - (if (eq? (if (if (vector? #{i 10361}#) - (if (= (vector-length - #{i 10361}#) - 4) - (eq? (vector-ref - #{i 10361}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{i 10361}# 1) - #{i 10361}#) - (if (if (vector? #{j 10362}#) - (if (= (vector-length - #{j 10362}#) - 4) - (eq? (vector-ref - #{j 10362}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{j 10362}# 1) - #{j 10362}#)) - (eq? (#{id-var-name 410}# - #{i 10361}# - '(())) - (#{id-var-name 410}# - #{j 10362}# - '(()))) - #f))) - #{r 4165}# - #f) + (and-map + (lambda (#{x 3916}#) + (not (if (eq? (if (if (vector? #{pat 3912}#) + (if (= (vector-length + #{pat 3912}#) + 4) + (eq? (vector-ref + #{pat 3912}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{pat 3912}# 1) + #{pat 3912}#) + (if (if (vector? #{x 3916}#) + (if (= (vector-length + #{x 3916}#) + 4) + (eq? (vector-ref + #{x 3916}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 3916}# 1) + #{x 3916}#)) + (eq? (#{id-var-name 411}# + #{pat 3912}# + '(())) + (#{id-var-name 411}# + #{x 3916}# + '(()))) + #f))) + (cons '#(syntax-object + ... + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" "i3707" "i3705" "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + #{keys 3895}#)) #f) - (if (eqv? #{atom-key 4189}# 'atom) - (if (equal? - (vector-ref #{p 4163}# 1) - (#{strip 462}# #{e 4162}# #{w 4164}#)) - #{r 4165}# + (if (if (eq? (if (if (= (vector-length + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + 1) + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile))) + (if (if (= (vector-length + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + 1) + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + (eq? (#{id-var-name 411}# + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + '(())) + (#{id-var-name 411}# + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3899" + "i3900" + "i3901" + "i3902" + "i3903")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3709" + "i3707" + "i3705" + "i3703")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + '(()))) #f) - (if (eqv? #{atom-key 4189}# 'vector) - (if (vector? #{e 4162}#) - (#{match 4062}# - (vector->list #{e 4162}#) - (vector-ref #{p 4163}# 1) - #{w 4164}# - #{r 4165}# - #{mod 4166}#) - #f))))))))))))) - (#{match 4062}# - (lambda (#{e 4219}# - #{p 4220}# - #{w 4221}# - #{r 4222}# - #{mod 4223}#) - (if (not #{r 4222}#) - #f - (if (eq? #{p 4220}# '_) - #{r 4222}# - (if (eq? #{p 4220}# 'any) - (cons (#{wrap 422}# #{e 4219}# #{w 4221}# #{mod 4223}#) - #{r 4222}#) - (if (if (vector? #{e 4219}#) - (if (= (vector-length #{e 4219}#) 4) - (eq? (vector-ref #{e 4219}# 0) 'syntax-object) + (#{chi 437}# + #{exp 3913}# + #{r 3897}# + '(()) + #{mod 3898}#) + (let ((#{labels 3921}# + (list (symbol->string (gensym "i")))) + (#{var 3922}# + (let ((#{id 9473}# + (if (if (vector? #{pat 3912}#) + (if (= (vector-length + #{pat 3912}#) + 4) + (eq? (vector-ref + #{pat 3912}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{pat 3912}# 1) + #{pat 3912}#))) + (gensym + (string-append + (symbol->string #{id 9473}#) + " "))))) + (#{build-application 271}# + #f + (#{build-simple-lambda 289}# + #f + (list (syntax->datum #{pat 3912}#)) + #f + (list #{var 3922}#) + '() + (#{chi 437}# + #{exp 3913}# + (#{extend-env 337}# + #{labels 3921}# + (list (cons 'syntax + (cons #{var 3922}# 0))) + #{r 3897}#) + (#{make-binding-wrap 401}# + (list #{pat 3912}#) + #{labels 3921}# + '(())) + #{mod 3898}#)) + (list #{x 3894}#)))) + (#{gen-clause 3708}# + #{x 3894}# + #{keys 3895}# + (cdr #{clauses 3896}#) + #{r 3897}# + #{pat 3912}# + #t + #{exp 3913}# + #{mod 3898}#))) + #{tmp 3909}#) + (let ((#{tmp 3928}# + ($sc-dispatch #{tmp 3908}# '(any any any)))) + (if #{tmp 3928}# + (@apply + (lambda (#{pat 3932}# #{fender 3933}# #{exp 3934}#) + (#{gen-clause 3708}# + #{x 3894}# + #{keys 3895}# + (cdr #{clauses 3896}#) + #{r 3897}# + #{pat 3932}# + #{fender 3933}# + #{exp 3934}# + #{mod 3898}#)) + #{tmp 3928}#) + (syntax-violation + 'syntax-case + "invalid clause" + (car #{clauses 3896}#))))))))))) + (lambda (#{e 3937}# + #{r 3938}# + #{w 3939}# + #{s 3940}# + #{mod 3941}#) + (let ((#{e 3948}# + (#{wrap 423}# + (begin + (if (if (pair? #{e 3937}#) #{s 3940}# #f) + (set-source-properties! #{e 3937}# #{s 3940}#)) + #{e 3937}#) + #{w 3939}# + #{mod 3941}#))) + (let ((#{tmp 3950}# + ($sc-dispatch + #{e 3948}# + '(_ any each-any . each-any)))) + (if #{tmp 3950}# + (@apply + (lambda (#{val 3954}# #{key 3955}# #{m 3956}#) + (if (and-map + (lambda (#{x 3957}#) + (if (if (symbol? #{x 3957}#) + #t + (if (if (vector? #{x 3957}#) + (if (= (vector-length #{x 3957}#) 4) + (eq? (vector-ref #{x 3957}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 3957}# 1)) + #f)) + (not (if (if (if (vector? #{x 3957}#) + (if (= (vector-length #{x 3957}#) + 4) + (eq? (vector-ref #{x 3957}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 3957}# 1)) + #f) + (if (eq? (if (if (vector? #{x 3957}#) + (if (= (vector-length + #{x 3957}#) + 4) + (eq? (vector-ref + #{x 3957}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 3957}# 1) + #{x 3957}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i45" + "i44" + "i43"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)))) + (eq? (#{id-var-name 411}# + #{x 3957}# + '(())) + (#{id-var-name 411}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2229")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" + "i416" + "i414" + "i412" + "i410" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i397" + "i395" + "i392" + "i391" + "i390" + "i388" + "i387" + "i385" + "i383" + "i381" + "i379" + "i377" + "i375" + "i373" + "i371" + "i368" + "i366" + "i365" + "i363" + "i361" + "i359" + "i357" + "i356" + "i355" + "i354" + "i352" + "i351" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i335" + "i334" + "i332" + "i330" + "i329" + "i326" + "i325" + "i323" + "i321" + "i319" + "i317" + "i315" + "i313" + "i311" + "i309" + "i307" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i278" + "i276" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i259" + "i256" + "i254" + "i253" + "i252" + "i251" + "i250" + "i248" + "i246" + "i244" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i229" + "i227" + "i225" + "i223" + "i221" + "i219" + "i217" + "i215" + "i213" + "i211" + "i209" + "i207")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i45" "i44" "i43"))) + (hygiene guile)) + '(()))) + #f) + #f)) + #f)) + #{key 3955}#) + (let ((#{x 3963}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (#{build-application 271}# + #{s 3940}# + (let ((#{req 9847}# (list 'tmp)) + (#{vars 9849}# (list #{x 3963}#)) + (#{exp 9851}# + (#{gen-syntax-case 3710}# + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + 'tmp + #{x 3963}#) + #{key 3955}# + #{m 3956}# + #{r 3938}# + #{mod 3941}#))) + (let ((#{body 9868}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 9847}# + #f + #f + #f + '() + #{vars 9849}# + #{exp 9851}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 9868}#))) + (list (#{chi 437}# + #{val 3954}# + #{r 3938}# + '(()) + #{mod 3941}#)))) + (syntax-violation + 'syntax-case + "invalid literals list" + #{e 3948}#))) + #{tmp 3950}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3948}#))))))) + (set! macroexpand + (lambda* + (#{x 3969}# + #:optional + (#{m 3971}# 'e) + (#{esew 3973}# '(eval))) + (#{chi-top-sequence 429}# + (list #{x 3969}#) + '() + '((top)) + #f + #{m 3971}# + #{esew 3973}# + (cons 'hygiene (module-name (current-module)))))) + (set! identifier? + (lambda (#{x 3977}#) + (if (if (vector? #{x 3977}#) + (if (= (vector-length #{x 3977}#) 4) + (eq? (vector-ref #{x 3977}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 3977}# 1)) + #f))) + (set! datum->syntax + (lambda (#{id 3979}# #{datum 3980}#) + (let ((#{wrap 9942}# (vector-ref #{id 3979}# 2)) + (#{module 9943}# (vector-ref #{id 3979}# 3))) + (vector + 'syntax-object + #{datum 3980}# + #{wrap 9942}# + #{module 9943}#)))) + (set! syntax->datum + (lambda (#{x 3983}#) + (#{strip 463}# #{x 3983}# '(())))) + (set! syntax-source + (lambda (#{x 3986}#) + (#{source-annotation 327}# #{x 3986}#))) + (set! generate-temporaries + (lambda (#{ls 3988}#) + (begin + (if (not (list? #{ls 3988}#)) + (syntax-violation + 'generate-temporaries + "invalid argument" + #{ls 3988}#)) + (let ((#{mod 3994}# + (cons 'hygiene (module-name (current-module))))) + (map (lambda (#{x 3995}#) + (#{wrap 423}# (gensym) '((top)) #{mod 3994}#)) + #{ls 3988}#))))) + (set! free-identifier=? + (lambda (#{x 3999}# #{y 4000}#) + (begin + (if (not (if (if (vector? #{x 3999}#) + (if (= (vector-length #{x 3999}#) 4) + (eq? (vector-ref #{x 3999}# 0) 'syntax-object) #f) #f) - (#{match* 4060}# - (vector-ref #{e 4219}# 1) - #{p 4220}# - (#{join-wraps 404}# - #{w 4221}# - (vector-ref #{e 4219}# 2)) - #{r 4222}# - (vector-ref #{e 4219}# 3)) - (#{match* 4060}# - #{e 4219}# - #{p 4220}# - #{w 4221}# - #{r 4222}# - #{mod 4223}#)))))))) + (symbol? (vector-ref #{x 3999}# 1)) + #f)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{x 3999}#)) + (if (not (if (if (vector? #{y 4000}#) + (if (= (vector-length #{y 4000}#) 4) + (eq? (vector-ref #{y 4000}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{y 4000}# 1)) + #f)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{y 4000}#)) + (if (eq? (if (if (vector? #{x 3999}#) + (if (= (vector-length #{x 3999}#) 4) + (eq? (vector-ref #{x 3999}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{x 3999}# 1) + #{x 3999}#) + (if (if (vector? #{y 4000}#) + (if (= (vector-length #{y 4000}#) 4) + (eq? (vector-ref #{y 4000}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{y 4000}# 1) + #{y 4000}#)) + (eq? (#{id-var-name 411}# #{x 3999}# '(())) + (#{id-var-name 411}# #{y 4000}# '(()))) + #f)))) + (set! bound-identifier=? + (lambda (#{x 4009}# #{y 4010}#) (begin - (set! $sc-dispatch - (lambda (#{e 4238}# #{p 4239}#) - (if (eq? #{p 4239}# 'any) - (list #{e 4238}#) - (if (eq? #{p 4239}# '_) - '() - (if (if (vector? #{e 4238}#) - (if (= (vector-length #{e 4238}#) 4) - (eq? (vector-ref #{e 4238}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 4009}#) + (if (= (vector-length #{x 4009}#) 4) + (eq? (vector-ref #{x 4009}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 4009}# 1)) + #f)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{x 4009}#)) + (if (not (if (if (vector? #{y 4010}#) + (if (= (vector-length #{y 4010}#) 4) + (eq? (vector-ref #{y 4010}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{y 4010}# 1)) + #f)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{y 4010}#)) + (if (if (if (vector? #{x 4009}#) + (if (= (vector-length #{x 4009}#) 4) + (eq? (vector-ref #{x 4009}# 0) 'syntax-object) + #f) + #f) + (if (vector? #{y 4010}#) + (if (= (vector-length #{y 4010}#) 4) + (eq? (vector-ref #{y 4010}# 0) 'syntax-object) + #f) + #f) + #f) + (if (eq? (vector-ref #{x 4009}# 1) + (vector-ref #{y 4010}# 1)) + (#{same-marks? 409}# + (car (vector-ref #{x 4009}# 2)) + (car (vector-ref #{y 4010}# 2))) + #f) + (eq? #{x 4009}# #{y 4010}#))))) + (set! syntax-violation + (lambda* + (#{who 4019}# + #{message 4020}# + #{form 4021}# + #:optional + (#{subform 4025}# #f)) + (begin + (if (not (if (not #{who 4019}#) + (not #{who 4019}#) + (let ((#{t 4037}# (string? #{who 4019}#))) + (if #{t 4037}# #{t 4037}# (symbol? #{who 4019}#))))) + (syntax-violation + 'syntax-violation + "invalid argument" + #{who 4019}#)) + (if (not (string? #{message 4020}#)) + (syntax-violation + 'syntax-violation + "invalid argument" + #{message 4020}#)) + (throw 'syntax-error + #{who 4019}# + #{message 4020}# + (#{source-annotation 327}# + (if #{form 4021}# #{form 4021}# #{subform 4025}#)) + (#{strip 463}# #{form 4021}# '(())) + (if #{subform 4025}# + (#{strip 463}# #{subform 4025}# '(())) + #f))))) + (letrec* + ((#{match-each 4051}# + (lambda (#{e 4064}# #{p 4065}# #{w 4066}# #{mod 4067}#) + (if (pair? #{e 4064}#) + (let ((#{first 4075}# + (#{match 4063}# + (car #{e 4064}#) + #{p 4065}# + #{w 4066}# + '() + #{mod 4067}#))) + (if #{first 4075}# + (let ((#{rest 4079}# + (#{match-each 4051}# + (cdr #{e 4064}#) + #{p 4065}# + #{w 4066}# + #{mod 4067}#))) + (if #{rest 4079}# + (cons #{first 4075}# #{rest 4079}#) + #f)) + #f)) + (if (null? #{e 4064}#) + '() + (if (if (vector? #{e 4064}#) + (if (= (vector-length #{e 4064}#) 4) + (eq? (vector-ref #{e 4064}# 0) 'syntax-object) + #f) + #f) + (#{match-each 4051}# + (vector-ref #{e 4064}# 1) + #{p 4065}# + (#{join-wraps 405}# + #{w 4066}# + (vector-ref #{e 4064}# 2)) + (vector-ref #{e 4064}# 3)) + #f))))) + (#{match-each+ 4053}# + (lambda (#{e 4087}# + #{x-pat 4088}# + #{y-pat 4089}# + #{z-pat 4090}# + #{w 4091}# + #{r 4092}# + #{mod 4093}#) + (letrec* + ((#{f 4104}# + (lambda (#{e 4105}# #{w 4106}#) + (if (pair? #{e 4105}#) + (call-with-values + (lambda () + (#{f 4104}# (cdr #{e 4105}#) #{w 4106}#)) + (lambda (#{xr* 4109}# #{y-pat 4110}# #{r 4111}#) + (if #{r 4111}# + (if (null? #{y-pat 4110}#) + (let ((#{xr 4116}# + (#{match 4063}# + (car #{e 4105}#) + #{x-pat 4088}# + #{w 4106}# + '() + #{mod 4093}#))) + (if #{xr 4116}# + (values + (cons #{xr 4116}# #{xr* 4109}#) + #{y-pat 4110}# + #{r 4111}#) + (values #f #f #f))) + (values + '() + (cdr #{y-pat 4110}#) + (#{match 4063}# + (car #{e 4105}#) + (car #{y-pat 4110}#) + #{w 4106}# + #{r 4111}# + #{mod 4093}#))) + (values #f #f #f)))) + (if (if (vector? #{e 4105}#) + (if (= (vector-length #{e 4105}#) 4) + (eq? (vector-ref #{e 4105}# 0) 'syntax-object) + #f) #f) - #f) - (#{match* 4060}# - (vector-ref #{e 4238}# 1) - #{p 4239}# - (vector-ref #{e 4238}# 2) - '() - (vector-ref #{e 4238}# 3)) - (#{match* 4060}# - #{e 4238}# - #{p 4239}# - '(()) - '() - #f))))))))))) + (#{f 4104}# + (vector-ref #{e 4105}# 1) + (#{join-wraps 405}# #{w 4106}# #{e 4105}#)) + (values + '() + #{y-pat 4089}# + (#{match 4063}# + #{e 4105}# + #{z-pat 4090}# + #{w 4106}# + #{r 4092}# + #{mod 4093}#))))))) + (#{f 4104}# #{e 4087}# #{w 4091}#)))) + (#{match-each-any 4055}# + (lambda (#{e 4120}# #{w 4121}# #{mod 4122}#) + (if (pair? #{e 4120}#) + (let ((#{l 4129}# + (#{match-each-any 4055}# + (cdr #{e 4120}#) + #{w 4121}# + #{mod 4122}#))) + (if #{l 4129}# + (cons (#{wrap 423}# + (car #{e 4120}#) + #{w 4121}# + #{mod 4122}#) + #{l 4129}#) + #f)) + (if (null? #{e 4120}#) + '() + (if (if (vector? #{e 4120}#) + (if (= (vector-length #{e 4120}#) 4) + (eq? (vector-ref #{e 4120}# 0) 'syntax-object) + #f) + #f) + (#{match-each-any 4055}# + (vector-ref #{e 4120}# 1) + (#{join-wraps 405}# + #{w 4121}# + (vector-ref #{e 4120}# 2)) + #{mod 4122}#) + #f))))) + (#{match-empty 4057}# + (lambda (#{p 4137}# #{r 4138}#) + (if (null? #{p 4137}#) + #{r 4138}# + (if (eq? #{p 4137}# '_) + #{r 4138}# + (if (eq? #{p 4137}# 'any) + (cons '() #{r 4138}#) + (if (pair? #{p 4137}#) + (#{match-empty 4057}# + (car #{p 4137}#) + (#{match-empty 4057}# + (cdr #{p 4137}#) + #{r 4138}#)) + (if (eq? #{p 4137}# 'each-any) + (cons '() #{r 4138}#) + (let ((#{atom-key 4154}# (vector-ref #{p 4137}# 0))) + (if (memv #{atom-key 4154}# '(each)) + (#{match-empty 4057}# + (vector-ref #{p 4137}# 1) + #{r 4138}#) + (if (memv #{atom-key 4154}# '(each+)) + (#{match-empty 4057}# + (vector-ref #{p 4137}# 1) + (#{match-empty 4057}# + (reverse (vector-ref #{p 4137}# 2)) + (#{match-empty 4057}# + (vector-ref #{p 4137}# 3) + #{r 4138}#))) + (if (memv #{atom-key 4154}# '(free-id atom)) + #{r 4138}# + (if (memv #{atom-key 4154}# '(vector)) + (#{match-empty 4057}# + (vector-ref #{p 4137}# 1) + #{r 4138}#))))))))))))) + (#{combine 4059}# + (lambda (#{r* 4159}# #{r 4160}#) + (if (null? (car #{r* 4159}#)) + #{r 4160}# + (cons (map car #{r* 4159}#) + (#{combine 4059}# + (map cdr #{r* 4159}#) + #{r 4160}#))))) + (#{match* 4061}# + (lambda (#{e 4163}# + #{p 4164}# + #{w 4165}# + #{r 4166}# + #{mod 4167}#) + (if (null? #{p 4164}#) + (if (null? #{e 4163}#) #{r 4166}# #f) + (if (pair? #{p 4164}#) + (if (pair? #{e 4163}#) + (#{match 4063}# + (car #{e 4163}#) + (car #{p 4164}#) + #{w 4165}# + (#{match 4063}# + (cdr #{e 4163}#) + (cdr #{p 4164}#) + #{w 4165}# + #{r 4166}# + #{mod 4167}#) + #{mod 4167}#) + #f) + (if (eq? #{p 4164}# 'each-any) + (let ((#{l 4184}# + (#{match-each-any 4055}# + #{e 4163}# + #{w 4165}# + #{mod 4167}#))) + (if #{l 4184}# (cons #{l 4184}# #{r 4166}#) #f)) + (let ((#{atom-key 4190}# (vector-ref #{p 4164}# 0))) + (if (memv #{atom-key 4190}# '(each)) + (if (null? #{e 4163}#) + (#{match-empty 4057}# + (vector-ref #{p 4164}# 1) + #{r 4166}#) + (let ((#{l 4193}# + (#{match-each 4051}# + #{e 4163}# + (vector-ref #{p 4164}# 1) + #{w 4165}# + #{mod 4167}#))) + (if #{l 4193}# + (letrec* + ((#{collect 4198}# + (lambda (#{l 4199}#) + (if (null? (car #{l 4199}#)) + #{r 4166}# + (cons (map car #{l 4199}#) + (#{collect 4198}# + (map cdr #{l 4199}#))))))) + (#{collect 4198}# #{l 4193}#)) + #f))) + (if (memv #{atom-key 4190}# '(each+)) + (call-with-values + (lambda () + (#{match-each+ 4053}# + #{e 4163}# + (vector-ref #{p 4164}# 1) + (vector-ref #{p 4164}# 2) + (vector-ref #{p 4164}# 3) + #{w 4165}# + #{r 4166}# + #{mod 4167}#)) + (lambda (#{xr* 4201}# #{y-pat 4202}# #{r 4203}#) + (if #{r 4203}# + (if (null? #{y-pat 4202}#) + (if (null? #{xr* 4201}#) + (#{match-empty 4057}# + (vector-ref #{p 4164}# 1) + #{r 4203}#) + (#{combine 4059}# #{xr* 4201}# #{r 4203}#)) + #f) + #f))) + (if (memv #{atom-key 4190}# '(free-id)) + (if (if (symbol? #{e 4163}#) + #t + (if (if (vector? #{e 4163}#) + (if (= (vector-length #{e 4163}#) 4) + (eq? (vector-ref #{e 4163}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 4163}# 1)) + #f)) + (if (let ((#{i 10362}# + (#{wrap 423}# + #{e 4163}# + #{w 4165}# + #{mod 4167}#)) + (#{j 10363}# (vector-ref #{p 4164}# 1))) + (if (eq? (if (if (vector? #{i 10362}#) + (if (= (vector-length + #{i 10362}#) + 4) + (eq? (vector-ref + #{i 10362}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{i 10362}# 1) + #{i 10362}#) + (if (if (vector? #{j 10363}#) + (if (= (vector-length + #{j 10363}#) + 4) + (eq? (vector-ref + #{j 10363}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{j 10363}# 1) + #{j 10363}#)) + (eq? (#{id-var-name 411}# #{i 10362}# '(())) + (#{id-var-name 411}# + #{j 10363}# + '(()))) + #f)) + #{r 4166}# + #f) + #f) + (if (memv #{atom-key 4190}# '(atom)) + (if (equal? + (vector-ref #{p 4164}# 1) + (#{strip 463}# #{e 4163}# #{w 4165}#)) + #{r 4166}# + #f) + (if (memv #{atom-key 4190}# '(vector)) + (if (vector? #{e 4163}#) + (#{match 4063}# + (vector->list #{e 4163}#) + (vector-ref #{p 4164}# 1) + #{w 4165}# + #{r 4166}# + #{mod 4167}#) + #f)))))))))))) + (#{match 4063}# + (lambda (#{e 4220}# + #{p 4221}# + #{w 4222}# + #{r 4223}# + #{mod 4224}#) + (if (not #{r 4223}#) + #f + (if (eq? #{p 4221}# '_) + #{r 4223}# + (if (eq? #{p 4221}# 'any) + (cons (#{wrap 423}# #{e 4220}# #{w 4222}# #{mod 4224}#) + #{r 4223}#) + (if (if (vector? #{e 4220}#) + (if (= (vector-length #{e 4220}#) 4) + (eq? (vector-ref #{e 4220}# 0) 'syntax-object) + #f) + #f) + (#{match* 4061}# + (vector-ref #{e 4220}# 1) + #{p 4221}# + (#{join-wraps 405}# + #{w 4222}# + (vector-ref #{e 4220}# 2)) + #{r 4223}# + (vector-ref #{e 4220}# 3)) + (#{match* 4061}# + #{e 4220}# + #{p 4221}# + #{w 4222}# + #{r 4223}# + #{mod 4224}#)))))))) + (set! $sc-dispatch + (lambda (#{e 4239}# #{p 4240}#) + (if (eq? #{p 4240}# 'any) + (list #{e 4239}#) + (if (eq? #{p 4240}# '_) + '() + (if (if (vector? #{e 4239}#) + (if (= (vector-length #{e 4239}#) 4) + (eq? (vector-ref #{e 4239}# 0) 'syntax-object) + #f) + #f) + (#{match* 4061}# + (vector-ref #{e 4239}# 1) + #{p 4240}# + (vector-ref #{e 4239}# 2) + '() + (vector-ref #{e 4239}# 3)) + (#{match* 4061}# + #{e 4239}# + #{p 4240}# + '(()) + '() + #f))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 10408}#) - (begin - (let ((#{tmp 10411}# - ($sc-dispatch #{x 10408}# '(_ () any . each-any)))) - (if #{tmp 10411}# - (@apply - (lambda (#{e1 10414}# #{e2 10415}#) - (cons '#(syntax-object - let - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i10412" "i10413")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10409"))) - (hygiene guile)) - (cons '() (cons #{e1 10414}# #{e2 10415}#)))) - #{tmp 10411}#) - (begin - (let ((#{tmp 10417}# + (lambda (#{x 10409}#) + (let ((#{tmp 10412}# + ($sc-dispatch #{x 10409}# '(_ () any . each-any)))) + (if #{tmp 10412}# + (@apply + (lambda (#{e1 10415}# #{e2 10416}#) + (cons '#(syntax-object + let + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10413" "i10414")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10410"))) + (hygiene guile)) + (cons '() (cons #{e1 10415}# #{e2 10416}#)))) + #{tmp 10412}#) + (let ((#{tmp 10418}# + ($sc-dispatch + #{x 10409}# + '(_ ((any any)) any . each-any)))) + (if #{tmp 10418}# + (@apply + (lambda (#{out 10423}# + #{in 10424}# + #{e1 10425}# + #{e2 10426}#) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10419" "i10420" "i10421" "i10422")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10410"))) + (hygiene guile)) + #{in 10424}# + '() + (list #{out 10423}# + (cons '#(syntax-object + let + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10419" + "i10420" + "i10421" + "i10422")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10410"))) + (hygiene guile)) + (cons '() + (cons #{e1 10425}# #{e2 10426}#)))))) + #{tmp 10418}#) + (let ((#{tmp 10428}# ($sc-dispatch - #{x 10408}# - '(_ ((any any)) any . each-any)))) - (if #{tmp 10417}# + #{x 10409}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 10428}# (@apply - (lambda (#{out 10422}# - #{in 10423}# - #{e1 10424}# - #{e2 10425}#) + (lambda (#{out 10433}# + #{in 10434}# + #{e1 10435}# + #{e2 10436}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10418" "i10419" "i10420" "i10421")) + #("i10429" "i10430" "i10431" "i10432")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10409"))) + #(ribcage #(x) #((top)) #("i10410"))) (hygiene guile)) - #{in 10423}# + (cons '#(syntax-object + list + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10429" "i10430" "i10431" "i10432")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10410"))) + (hygiene guile)) + #{in 10434}#) '() - (list #{out 10422}# + (list #{out 10433}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10418" - "i10419" - "i10420" - "i10421")) + #("i10429" + "i10430" + "i10431" + "i10432")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10409"))) + #("i10410"))) (hygiene guile)) (cons '() - (cons #{e1 10424}# - #{e2 10425}#)))))) - #{tmp 10417}#) - (begin - (let ((#{tmp 10427}# - ($sc-dispatch - #{x 10408}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 10427}# - (@apply - (lambda (#{out 10432}# - #{in 10433}# - #{e1 10434}# - #{e2 10435}#) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i10428" "i10429" "i10430" "i10431")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10409"))) - (hygiene guile)) - (cons '#(syntax-object - list - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i10428" - "i10429" - "i10430" - "i10431")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10409"))) - (hygiene guile)) - #{in 10433}#) - '() - (list #{out 10432}# - (cons '#(syntax-object - let - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i10428" - "i10429" - "i10430" - "i10431")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10409"))) - (hygiene guile)) - (cons '() - (cons #{e1 10434}# - #{e2 10435}#)))))) - #{tmp 10427}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10408}#))))))))))))) + (cons #{e1 10435}# + #{e2 10436}#)))))) + #{tmp 10428}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10409}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 10439}#) - (begin - (let ((#{tmp 10442}# - ($sc-dispatch - #{x 10439}# - '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 10442}# - (@apply - (lambda (#{k 10447}# - #{keyword 10448}# - #{pattern 10449}# - #{template 10450}#) - (list '#(syntax-object - lambda - ((top) - #(ribcage - #(k keyword pattern template) - #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) + (lambda (#{x 10440}#) + (let ((#{tmp 10443}# + ($sc-dispatch + #{x 10440}# + '(_ each-any . #(each ((any . any) any)))))) + (if #{tmp 10443}# + (@apply + (lambda (#{k 10448}# + #{keyword 10449}# + #{pattern 10450}# + #{template 10451}#) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i10444" "i10445" "i10446" "i10447")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + '(#(syntax-object + x + ((top) + #(ribcage + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i10444" "i10445" "i10446" "i10447")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile))) + (vector '(#(syntax-object - x + macro-type ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) + #("i10444" "i10445" "i10446" "i10447")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + . + #(syntax-object + syntax-rules + ((top) + #(ribcage + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i10444" "i10445" "i10446" "i10447")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) (hygiene guile))) - (vector - '(#(syntax-object - macro-type - ((top) - #(ribcage - #(k keyword pattern template) - #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) - . - #(syntax-object - syntax-rules - ((top) - #(ribcage - #(k keyword pattern template) - #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile))) - (cons '#(syntax-object - patterns - ((top) - #(ribcage - #(k keyword pattern template) - #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) - #{pattern 10449}#)) (cons '#(syntax-object - syntax-case + patterns ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) + #("i10444" "i10445" "i10446" "i10447")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) + #(ribcage #(x) #((top)) #("i10441"))) (hygiene guile)) - (cons '#(syntax-object - x - ((top) - #(ribcage - #(k keyword pattern template) - #((top) (top) (top) (top)) - #("i10443" "i10444" "i10445" "i10446")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) - (cons #{k 10447}# - (map (lambda (#{tmp 10454}# - #{tmp 10453}#) - (list (cons '#(syntax-object - dummy - ((top) - #(ribcage - #(k - keyword - pattern - template) - #((top) - (top) - (top) - (top)) - #("i10443" - "i10444" - "i10445" - "i10446")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10440"))) - (hygiene guile)) - #{tmp 10453}#) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(k - keyword - pattern - template) - #((top) - (top) - (top) - (top)) - #("i10443" - "i10444" - "i10445" - "i10446")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10440"))) - (hygiene guile)) - #{tmp 10454}#))) - #{template 10450}# - #{pattern 10449}#)))))) - #{tmp 10442}#) - (begin - (let ((#{tmp 10455}# - ($sc-dispatch - #{x 10439}# - '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 10455}# - (@apply - (lambda (#{k 10461}# - #{docstring 10462}# - #{keyword 10463}# - #{pattern 10464}# - #{template 10465}#) - (string? (syntax->datum #{docstring 10462}#))) - #{tmp 10455}#) - #f) + #{pattern 10450}#)) + (cons '#(syntax-object + syntax-case + ((top) + #(ribcage + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i10444" "i10445" "i10446" "i10447")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + (cons '#(syntax-object + x + ((top) + #(ribcage + #(k keyword pattern template) + #((top) (top) (top) (top)) + #("i10444" "i10445" "i10446" "i10447")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + (cons #{k 10448}# + (map (lambda (#{tmp 10455}# + #{tmp 10454}#) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(k + keyword + pattern + template) + #((top) + (top) + (top) + (top)) + #("i10444" + "i10445" + "i10446" + "i10447")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10441"))) + (hygiene guile)) + #{tmp 10454}#) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(k + keyword + pattern + template) + #((top) + (top) + (top) + (top)) + #("i10444" + "i10445" + "i10446" + "i10447")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10441"))) + (hygiene guile)) + #{tmp 10455}#))) + #{template 10451}# + #{pattern 10450}#)))))) + #{tmp 10443}#) + (let ((#{tmp 10456}# + ($sc-dispatch + #{x 10440}# + '(_ each-any any . #(each ((any . any) any)))))) + (if (if #{tmp 10456}# (@apply - (lambda (#{k 10471}# - #{docstring 10472}# - #{keyword 10473}# - #{pattern 10474}# - #{template 10475}#) - (list '#(syntax-object - lambda - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) - '(#(syntax-object - x - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile))) - #{docstring 10472}# - (vector - '(#(syntax-object - macro-type - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) - . - #(syntax-object - syntax-rules - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile))) + (lambda (#{k 10462}# + #{docstring 10463}# + #{keyword 10464}# + #{pattern 10465}# + #{template 10466}#) + (string? (syntax->datum #{docstring 10463}#))) + #{tmp 10456}#) + #f) + (@apply + (lambda (#{k 10472}# + #{docstring 10473}# + #{keyword 10474}# + #{pattern 10475}# + #{template 10476}#) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10467" "i10468" "i10469" "i10470" "i10471")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + '(#(syntax-object + x + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10467" "i10468" "i10469" "i10470" "i10471")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile))) + #{docstring 10473}# + (vector + '(#(syntax-object + macro-type + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10467" + "i10468" + "i10469" + "i10470" + "i10471")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + . + #(syntax-object + syntax-rules + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10467" + "i10468" + "i10469" + "i10470" + "i10471")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile))) + (cons '#(syntax-object + patterns + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10467" + "i10468" + "i10469" + "i10470" + "i10471")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) + #{pattern 10475}#)) + (cons '#(syntax-object + syntax-case + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10467" + "i10468" + "i10469" + "i10470" + "i10471")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10441"))) + (hygiene guile)) (cons '#(syntax-object - patterns + x ((top) #(ribcage #(k @@ -29482,763 +28775,503 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" + #("i10467" "i10468" "i10469" - "i10470")) + "i10470" + "i10471")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) + #(ribcage #(x) #((top)) #("i10441"))) (hygiene guile)) - #{pattern 10474}#)) - (cons '#(syntax-object - syntax-case - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10440"))) - (hygiene guile)) - (cons '#(syntax-object - x - ((top) - #(ribcage - #(k - docstring - keyword - pattern - template) - #((top) (top) (top) (top) (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10440"))) - (hygiene guile)) - (cons #{k 10471}# - (map (lambda (#{tmp 10479}# - #{tmp 10478}#) - (list (cons '#(syntax-object - dummy - ((top) - #(ribcage - #(k - docstring - keyword - pattern - template) - #((top) - (top) - (top) - (top) - (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10440"))) - (hygiene - guile)) - #{tmp 10478}#) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(k - docstring - keyword - pattern - template) - #((top) - (top) - (top) - (top) - (top)) - #("i10466" - "i10467" - "i10468" - "i10469" - "i10470")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10440"))) - (hygiene - guile)) - #{tmp 10479}#))) - #{template 10475}# - #{pattern 10474}#)))))) - #{tmp 10455}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10439}#)))))))))) + (cons #{k 10472}# + (map (lambda (#{tmp 10480}# + #{tmp 10479}#) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(k + docstring + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i10467" + "i10468" + "i10469" + "i10470" + "i10471")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10441"))) + (hygiene + guile)) + #{tmp 10479}#) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(k + docstring + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i10467" + "i10468" + "i10469" + "i10470" + "i10471")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10441"))) + (hygiene + guile)) + #{tmp 10480}#))) + #{template 10476}# + #{pattern 10475}#)))))) + #{tmp 10456}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10440}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 10480}#) - (begin - (let ((#{tmp 10483}# - ($sc-dispatch #{x 10480}# '(_ (any . any) any)))) - (if #{tmp 10483}# - (@apply - (lambda (#{name 10487}# - #{pattern 10488}# - #{template 10489}#) - (list '#(syntax-object - define-syntax - ((top) - #(ribcage - #(name pattern template) - #((top) (top) (top)) - #("i10484" "i10485" "i10486")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10481"))) - (hygiene guile)) - #{name 10487}# - (list '#(syntax-object - syntax-rules - ((top) - #(ribcage - #(name pattern template) - #((top) (top) (top)) - #("i10484" "i10485" "i10486")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10481"))) - (hygiene guile)) - '() - (list (cons '#(syntax-object - _ - ((top) - #(ribcage - #(name pattern template) - #((top) (top) (top)) - #("i10484" "i10485" "i10486")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10481"))) - (hygiene guile)) - #{pattern 10488}#) - #{template 10489}#)))) - #{tmp 10483}#) - (begin - (let ((#{tmp 10490}# - ($sc-dispatch - #{x 10480}# - '(_ (any . any) any any)))) - (if (if #{tmp 10490}# - (@apply - (lambda (#{name 10495}# - #{pattern 10496}# - #{docstring 10497}# - #{template 10498}#) - (string? (syntax->datum #{docstring 10497}#))) - #{tmp 10490}#) - #f) + (lambda (#{x 10481}#) + (let ((#{tmp 10484}# + ($sc-dispatch #{x 10481}# '(_ (any . any) any)))) + (if #{tmp 10484}# + (@apply + (lambda (#{name 10488}# + #{pattern 10489}# + #{template 10490}#) + (list '#(syntax-object + define-syntax + ((top) + #(ribcage + #(name pattern template) + #((top) (top) (top)) + #("i10485" "i10486" "i10487")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10482"))) + (hygiene guile)) + #{name 10488}# + (list '#(syntax-object + syntax-rules + ((top) + #(ribcage + #(name pattern template) + #((top) (top) (top)) + #("i10485" "i10486" "i10487")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10482"))) + (hygiene guile)) + '() + (list (cons '#(syntax-object + _ + ((top) + #(ribcage + #(name pattern template) + #((top) (top) (top)) + #("i10485" "i10486" "i10487")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10482"))) + (hygiene guile)) + #{pattern 10489}#) + #{template 10490}#)))) + #{tmp 10484}#) + (let ((#{tmp 10491}# + ($sc-dispatch + #{x 10481}# + '(_ (any . any) any any)))) + (if (if #{tmp 10491}# (@apply - (lambda (#{name 10503}# - #{pattern 10504}# - #{docstring 10505}# - #{template 10506}#) - (list '#(syntax-object - define-syntax - ((top) - #(ribcage - #(name pattern docstring template) - #((top) (top) (top) (top)) - #("i10499" "i10500" "i10501" "i10502")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10481"))) - (hygiene guile)) - #{name 10503}# - (list '#(syntax-object - syntax-rules - ((top) - #(ribcage - #(name pattern docstring template) - #((top) (top) (top) (top)) - #("i10499" "i10500" "i10501" "i10502")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10481"))) - (hygiene guile)) - '() - #{docstring 10505}# - (list (cons '#(syntax-object - _ - ((top) - #(ribcage - #(name - pattern - docstring - template) - #((top) (top) (top) (top)) - #("i10499" - "i10500" - "i10501" - "i10502")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10481"))) - (hygiene guile)) - #{pattern 10504}#) - #{template 10506}#)))) - #{tmp 10490}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10480}#)))))))))) + (lambda (#{name 10496}# + #{pattern 10497}# + #{docstring 10498}# + #{template 10499}#) + (string? (syntax->datum #{docstring 10498}#))) + #{tmp 10491}#) + #f) + (@apply + (lambda (#{name 10504}# + #{pattern 10505}# + #{docstring 10506}# + #{template 10507}#) + (list '#(syntax-object + define-syntax + ((top) + #(ribcage + #(name pattern docstring template) + #((top) (top) (top) (top)) + #("i10500" "i10501" "i10502" "i10503")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10482"))) + (hygiene guile)) + #{name 10504}# + (list '#(syntax-object + syntax-rules + ((top) + #(ribcage + #(name pattern docstring template) + #((top) (top) (top) (top)) + #("i10500" "i10501" "i10502" "i10503")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10482"))) + (hygiene guile)) + '() + #{docstring 10506}# + (list (cons '#(syntax-object + _ + ((top) + #(ribcage + #(name + pattern + docstring + template) + #((top) (top) (top) (top)) + #("i10500" + "i10501" + "i10502" + "i10503")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10482"))) + (hygiene guile)) + #{pattern 10505}#) + #{template 10507}#)))) + #{tmp 10491}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10481}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 10507}#) - (begin - (let ((#{tmp 10510}# - ($sc-dispatch - #{x 10507}# - '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 10510}# - (@apply - (lambda (#{let* 10516}# - #{x 10517}# - #{v 10518}# - #{e1 10519}# - #{e2 10520}#) - (and-map identifier? #{x 10517}#)) - #{tmp 10510}#) - #f) - (@apply - (lambda (#{let* 10527}# - #{x 10528}# - #{v 10529}# - #{e1 10530}# - #{e2 10531}#) - (letrec* - ((#{f 10534}# - (lambda (#{bindings 10535}#) - (if (null? #{bindings 10535}#) - (cons '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(f bindings) - #((top) (top)) - #("i10532" "i10533")) - #(ribcage - #(let* x v e1 e2) - #((top) (top) (top) (top) (top)) - #("i10522" - "i10523" - "i10524" - "i10525" - "i10526")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10508"))) - (hygiene guile)) - (cons '() (cons #{e1 10530}# #{e2 10531}#))) - (begin - (let ((#{tmp 10540}# - (list (#{f 10534}# (cdr #{bindings 10535}#)) - (car #{bindings 10535}#)))) - (begin - (let ((#{tmp 10541}# - ($sc-dispatch - #{tmp 10540}# - '(any any)))) - (if #{tmp 10541}# - (@apply - (lambda (#{body 10544}# #{binding 10545}#) - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(body binding) - #((top) (top)) - #("i10542" "i10543")) - #(ribcage () () ()) - #(ribcage - #(f bindings) - #((top) (top)) - #("i10532" "i10533")) - #(ribcage - #(let* x v e1 e2) - #((top) - (top) - (top) - (top) - (top)) - #("i10522" - "i10523" - "i10524" - "i10525" - "i10526")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10508"))) - (hygiene guile)) - (list #{binding 10545}#) - #{body 10544}#)) - #{tmp 10541}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10540}#)))))))))) - (begin - (#{f 10534}# (map list #{x 10528}# #{v 10529}#))))) - #{tmp 10510}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10507}#))))))) + (lambda (#{x 10508}#) + (let ((#{tmp 10511}# + ($sc-dispatch + #{x 10508}# + '(any #(each (any any)) any . each-any)))) + (if (if #{tmp 10511}# + (@apply + (lambda (#{let* 10517}# + #{x 10518}# + #{v 10519}# + #{e1 10520}# + #{e2 10521}#) + (and-map identifier? #{x 10518}#)) + #{tmp 10511}#) + #f) + (@apply + (lambda (#{let* 10528}# + #{x 10529}# + #{v 10530}# + #{e1 10531}# + #{e2 10532}#) + (letrec* + ((#{f 10535}# + (lambda (#{bindings 10536}#) + (if (null? #{bindings 10536}#) + (cons '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(f bindings) + #((top) (top)) + #("i10533" "i10534")) + #(ribcage + #(let* x v e1 e2) + #((top) (top) (top) (top) (top)) + #("i10523" + "i10524" + "i10525" + "i10526" + "i10527")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10509"))) + (hygiene guile)) + (cons '() (cons #{e1 10531}# #{e2 10532}#))) + (let ((#{tmp 10541}# + (list (#{f 10535}# (cdr #{bindings 10536}#)) + (car #{bindings 10536}#)))) + (let ((#{tmp 10542}# + ($sc-dispatch #{tmp 10541}# '(any any)))) + (if #{tmp 10542}# + (@apply + (lambda (#{body 10545}# #{binding 10546}#) + (list '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(body binding) + #((top) (top)) + #("i10543" "i10544")) + #(ribcage () () ()) + #(ribcage + #(f bindings) + #((top) (top)) + #("i10533" "i10534")) + #(ribcage + #(let* x v e1 e2) + #((top) (top) (top) (top) (top)) + #("i10523" + "i10524" + "i10525" + "i10526" + "i10527")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10509"))) + (hygiene guile)) + (list #{binding 10546}#) + #{body 10545}#)) + #{tmp 10542}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10541}#)))))))) + (#{f 10535}# (map list #{x 10529}# #{v 10530}#)))) + #{tmp 10511}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10508}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 10547}#) - (begin - (let ((#{tmp 10550}# - ($sc-dispatch - #{orig-x 10547}# - '(_ #(each (any any . any)) - (any . each-any) - . - each-any)))) - (if #{tmp 10550}# - (@apply - (lambda (#{var 10557}# - #{init 10558}# - #{step 10559}# - #{e0 10560}# - #{e1 10561}# - #{c 10562}#) - (begin - (let ((#{tmp 10564}# - (map (lambda (#{v 10585}# #{s 10586}#) - (begin - (let ((#{tmp 10590}# - ($sc-dispatch #{s 10586}# '()))) - (if #{tmp 10590}# - (@apply - (lambda () #{v 10585}#) - #{tmp 10590}#) - (begin - (let ((#{tmp 10591}# - ($sc-dispatch - #{s 10586}# - '(any)))) - (if #{tmp 10591}# - (@apply - (lambda (#{e 10593}#) - #{e 10593}#) - #{tmp 10591}#) - (syntax-violation - 'do - "bad step expression" - #{orig-x 10547}# - #{s 10586}#)))))))) - #{var 10557}# - #{step 10559}#))) - (begin - (let ((#{tmp 10565}# - ($sc-dispatch #{tmp 10564}# 'each-any))) - (if #{tmp 10565}# - (@apply - (lambda (#{step 10567}#) - (begin - (let ((#{tmp 10569}# - ($sc-dispatch #{e1 10561}# '()))) - (if #{tmp 10569}# - (@apply - (lambda () - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var init step e0 e1 c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - '#(syntax-object - doloop - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var init step e0 e1 c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - (map list - #{var 10557}# - #{init 10558}#) - (list '#(syntax-object - if - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - (list '#(syntax-object - not - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - #{e0 10560}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - (append - #{c 10562}# - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene - guile)) - #{step 10567}#))))))) - #{tmp 10569}#) - (begin - (let ((#{tmp 10574}# - ($sc-dispatch - #{e1 10561}# - '(any . each-any)))) - (if #{tmp 10574}# - (@apply - (lambda (#{e1 10577}# #{e2 10578}#) - (list '#(syntax-object - let - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i10575" "i10576")) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - '#(syntax-object - doloop - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i10575" "i10576")) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - (map list - #{var 10557}# - #{init 10558}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i10575" - "i10576")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene guile)) - #{e0 10560}# - (cons '#(syntax-object - begin + (lambda (#{orig-x 10548}#) + (let ((#{tmp 10551}# + ($sc-dispatch + #{orig-x 10548}# + '(_ #(each (any any . any)) + (any . each-any) + . + each-any)))) + (if #{tmp 10551}# + (@apply + (lambda (#{var 10558}# + #{init 10559}# + #{step 10560}# + #{e0 10561}# + #{e1 10562}# + #{c 10563}#) + (let ((#{tmp 10565}# + (map (lambda (#{v 10586}# #{s 10587}#) + (let ((#{tmp 10591}# + ($sc-dispatch #{s 10587}# '()))) + (if #{tmp 10591}# + (@apply (lambda () #{v 10586}#) #{tmp 10591}#) + (let ((#{tmp 10592}# + ($sc-dispatch #{s 10587}# '(any)))) + (if #{tmp 10592}# + (@apply + (lambda (#{e 10594}#) #{e 10594}#) + #{tmp 10592}#) + (syntax-violation + 'do + "bad step expression" + #{orig-x 10548}# + #{s 10587}#)))))) + #{var 10558}# + #{step 10560}#))) + (let ((#{tmp 10566}# + ($sc-dispatch #{tmp 10565}# 'each-any))) + (if #{tmp 10566}# + (@apply + (lambda (#{step 10568}#) + (let ((#{tmp 10570}# ($sc-dispatch #{e1 10562}# '()))) + (if #{tmp 10570}# + (@apply + (lambda () + (list '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + '#(syntax-object + doloop + ((top) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + (map list #{var 10558}# #{init 10559}#) + (list '#(syntax-object + if + ((top) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + (list '#(syntax-object + not + ((top) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + #{e0 10561}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + (append + #{c 10563}# + (list (cons '#(syntax-object + doloop ((top) - #(ribcage - #(e1 e2) - #((top) - (top)) - #("i10575" - "i10576")) #(ribcage () () @@ -30246,7 +29279,7 @@ #(ribcage #(step) #((top)) - #("i10566")) + #("i10567")) #(ribcage #(var init @@ -30260,12 +29293,12 @@ (top) (top) (top)) - #("i10551" - "i10552" + #("i10552" "i10553" "i10554" "i10555" - "i10556")) + "i10556" + "i10557")) #(ribcage () () @@ -30273,200 +29306,425 @@ #(ribcage #(orig-x) #((top)) - #("i10548"))) + #("i10549"))) (hygiene guile)) - (cons #{e1 10577}# - #{e2 10578}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 e2) - #((top) - (top)) - #("i10575" - "i10576")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene - guile)) - (append - #{c 10562}# - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i10575" - "i10576")) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i10566")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i10551" - "i10552" - "i10553" - "i10554" - "i10555" - "i10556")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i10548"))) - (hygiene - guile)) - #{step 10567}#))))))) - #{tmp 10574}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e1 10561}#)))))))) - #{tmp 10565}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10564}#))))))) - #{tmp 10550}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{orig-x 10547}#))))))) + #{step 10568}#))))))) + #{tmp 10570}#) + (let ((#{tmp 10575}# + ($sc-dispatch + #{e1 10562}# + '(any . each-any)))) + (if #{tmp 10575}# + (@apply + (lambda (#{e1 10578}# #{e2 10579}#) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10576" "i10577")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10576" "i10577")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + (map list + #{var 10558}# + #{init 10559}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10576" "i10577")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var init step e0 e1 c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + #{e0 10561}# + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10576" + "i10577")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + (cons #{e1 10578}# + #{e2 10579}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10576" + "i10577")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene guile)) + (append + #{c 10563}# + (list (cons '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i10576" + "i10577")) + #(ribcage + () + () + ()) + #(ribcage + #(step) + #((top)) + #("i10567")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10552" + "i10553" + "i10554" + "i10555" + "i10556" + "i10557")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i10549"))) + (hygiene + guile)) + #{step 10568}#))))))) + #{tmp 10575}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e1 10562}#)))))) + #{tmp 10566}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10565}#))))) + #{tmp 10551}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{orig-x 10548}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 10599}# - (lambda (#{p 10612}# #{lev 10613}#) - (begin - (let ((#{tmp 10617}# - ($sc-dispatch - #{p 10612}# - '(#(free-id - #(syntax-object - unquote - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - any)))) - (if #{tmp 10617}# - (@apply - (lambda (#{p 10619}#) - (if (= #{lev 10613}# 0) - (list '#(syntax-object - "value" - ((top) - #(ribcage #(p) #((top)) #("i10618")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{p 10619}#) - (#{quasicons 10603}# + ((#{quasi 10600}# + (lambda (#{p 10613}# #{lev 10614}#) + (let ((#{tmp 10618}# + ($sc-dispatch + #{p 10613}# + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + any)))) + (if #{tmp 10618}# + (@apply + (lambda (#{p 10620}#) + (if (= #{lev 10614}# 0) + (list '#(syntax-object + "value" + ((top) + #(ribcage #(p) #((top)) #("i10619")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{p 10620}#) + (#{quasicons 10604}# + '(#(syntax-object + "quote" + ((top) + #(ribcage #(p) #((top)) #("i10619")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #(syntax-object + unquote + ((top) + #(ribcage #(p) #((top)) #("i10619")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + (#{quasi 10600}# + (list #{p 10620}#) + (#{1-}# #{lev 10614}#))))) + #{tmp 10618}#) + (let ((#{tmp 10621}# + ($sc-dispatch + #{p 10613}# + '(#(free-id + #(syntax-object + quasiquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + any)))) + (if #{tmp 10621}# + (@apply + (lambda (#{p 10623}#) + (#{quasicons 10604}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i10618")) + #(ribcage #(p) #((top)) #("i10622")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10614" "i10615")) + #("i10615" "i10616")) #(ribcage (emit quasivector quasilist* @@ -30475,23 +29733,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile)) #(syntax-object - unquote + quasiquote ((top) - #(ribcage #(p) #((top)) #("i10618")) + #(ribcage #(p) #((top)) #("i10622")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10614" "i10615")) + #("i10615" "i10616")) #(ribcage (emit quasivector quasilist* @@ -30500,740 +29758,130 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile))) - (#{quasi 10599}# - (list #{p 10619}#) - (#{1-}# #{lev 10613}#))))) - #{tmp 10617}#) - (begin - (let ((#{tmp 10620}# - ($sc-dispatch - #{p 10612}# - '(#(free-id - #(syntax-object - quasiquote - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - any)))) - (if #{tmp 10620}# + (#{quasi 10600}# + (list #{p 10623}#) + (#{1+}# #{lev 10614}#)))) + #{tmp 10621}#) + (let ((#{tmp 10624}# + ($sc-dispatch #{p 10613}# '(any . any)))) + (if #{tmp 10624}# (@apply - (lambda (#{p 10622}#) - (#{quasicons 10603}# - '(#(syntax-object - "quote" - ((top) - #(ribcage #(p) #((top)) #("i10621")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #(syntax-object - quasiquote - ((top) - #(ribcage #(p) #((top)) #("i10621")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - (#{quasi 10599}# - (list #{p 10622}#) - (#{1+}# #{lev 10613}#)))) - #{tmp 10620}#) - (begin - (let ((#{tmp 10623}# - ($sc-dispatch #{p 10612}# '(any . any)))) - (if #{tmp 10623}# - (@apply - (lambda (#{p 10626}# #{q 10627}#) - (begin - (let ((#{tmp 10629}# - ($sc-dispatch - #{p 10626}# - '(#(free-id - #(syntax-object - unquote - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i10624" "i10625")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - . - each-any)))) - (if #{tmp 10629}# - (@apply - (lambda (#{p 10631}#) - (if (= #{lev 10613}# 0) - (#{quasilist* 10607}# - (map (lambda (#{tmp 10632}#) - (list '#(syntax-object - "value" - ((top) - #(ribcage - #(p) - #((top)) - #("i10630")) - #(ribcage - #(p q) - #((top) - (top)) - #("i10624" - "i10625")) - #(ribcage - () - () - ()) - #(ribcage - #(p lev) - #((top) - (top)) - #("i10614" - "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{tmp 10632}#)) - #{p 10631}#) - (#{quasi 10599}# - #{q 10627}# - #{lev 10613}#)) - (#{quasicons 10603}# - (#{quasicons 10603}# - '(#(syntax-object - "quote" - ((top) - #(ribcage - #(p) - #((top)) - #("i10630")) - #(ribcage - #(p q) - #((top) (top)) - #("i10624" "i10625")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #(syntax-object - unquote - ((top) - #(ribcage - #(p) - #((top)) - #("i10630")) - #(ribcage - #(p q) - #((top) (top)) - #("i10624" "i10625")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - (#{quasi 10599}# - #{p 10631}# - (#{1-}# #{lev 10613}#))) - (#{quasi 10599}# - #{q 10627}# - #{lev 10613}#)))) - #{tmp 10629}#) - (begin - (let ((#{tmp 10634}# - ($sc-dispatch - #{p 10626}# - '(#(free-id - #(syntax-object - unquote-splicing - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i10624" - "i10625")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" - "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - . - each-any)))) - (if #{tmp 10634}# - (@apply - (lambda (#{p 10636}#) - (if (= #{lev 10613}# 0) - (#{quasiappend 10605}# - (map (lambda (#{tmp 10637}#) - (list '#(syntax-object - "value" - ((top) - #(ribcage - #(p) - #((top)) - #("i10635")) - #(ribcage - #(p q) - #((top) - (top)) - #("i10624" - "i10625")) - #(ribcage - () - () - ()) - #(ribcage - #(p - lev) - #((top) - (top)) - #("i10614" - "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene - guile)) - #{tmp 10637}#)) - #{p 10636}#) - (#{quasi 10599}# - #{q 10627}# - #{lev 10613}#)) - (#{quasicons 10603}# - (#{quasicons 10603}# - '(#(syntax-object - "quote" - ((top) - #(ribcage - #(p) - #((top)) - #("i10635")) - #(ribcage - #(p q) - #((top) (top)) - #("i10624" - "i10625")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" - "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #(syntax-object - unquote-splicing - ((top) - #(ribcage - #(p) - #((top)) - #("i10635")) - #(ribcage - #(p q) - #((top) (top)) - #("i10624" - "i10625")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" - "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - (#{quasi 10599}# - #{p 10636}# - (#{1-}# #{lev 10613}#))) - (#{quasi 10599}# - #{q 10627}# - #{lev 10613}#)))) - #{tmp 10634}#) - (#{quasicons 10603}# - (#{quasi 10599}# - #{p 10626}# - #{lev 10613}#) - (#{quasi 10599}# - #{q 10627}# - #{lev 10613}#))))))))) - #{tmp 10623}#) - (begin - (let ((#{tmp 10641}# - ($sc-dispatch - #{p 10612}# - '#(vector each-any)))) - (if #{tmp 10641}# - (@apply - (lambda (#{x 10643}#) - (#{quasivector 10609}# - (#{vquasi 10601}# - #{x 10643}# - #{lev 10613}#))) - #{tmp 10641}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage - #(p) - #((top)) - #("i10645")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10614" "i10615")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{p 10612}#))))))))))))))) - (#{vquasi 10601}# - (lambda (#{p 10647}# #{lev 10648}#) - (begin - (let ((#{tmp 10652}# - ($sc-dispatch #{p 10647}# '(any . any)))) - (if #{tmp 10652}# - (@apply - (lambda (#{p 10655}# #{q 10656}#) - (begin - (let ((#{tmp 10658}# - ($sc-dispatch - #{p 10655}# - '(#(free-id - #(syntax-object - unquote - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i10653" "i10654")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - . - each-any)))) - (if #{tmp 10658}# - (@apply - (lambda (#{p 10660}#) - (if (= #{lev 10648}# 0) - (#{quasilist* 10607}# - (map (lambda (#{tmp 10661}#) - (list '#(syntax-object - "value" - ((top) - #(ribcage - #(p) - #((top)) - #("i10659")) - #(ribcage - #(p q) - #((top) (top)) - #("i10653" "i10654")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{tmp 10661}#)) - #{p 10660}#) - (#{vquasi 10601}# - #{q 10656}# - #{lev 10648}#)) - (#{quasicons 10603}# - (#{quasicons 10603}# - '(#(syntax-object - "quote" - ((top) - #(ribcage #(p) #((top)) #("i10659")) - #(ribcage - #(p q) - #((top) (top)) - #("i10653" "i10654")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #(syntax-object - unquote - ((top) - #(ribcage #(p) #((top)) #("i10659")) - #(ribcage - #(p q) - #((top) (top)) - #("i10653" "i10654")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile))) - (#{quasi 10599}# - #{p 10660}# - (#{1-}# #{lev 10648}#))) - (#{vquasi 10601}# - #{q 10656}# - #{lev 10648}#)))) - #{tmp 10658}#) - (begin - (let ((#{tmp 10663}# - ($sc-dispatch - #{p 10655}# - '(#(free-id - #(syntax-object - unquote-splicing + (lambda (#{p 10627}# #{q 10628}#) + (let ((#{tmp 10630}# + ($sc-dispatch + #{p 10627}# + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i10625" "i10626")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + . + each-any)))) + (if #{tmp 10630}# + (@apply + (lambda (#{p 10632}#) + (if (= #{lev 10614}# 0) + (#{quasilist* 10608}# + (map (lambda (#{tmp 10633}#) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i10631")) + #(ribcage + #(p q) + #((top) (top)) + #("i10625" "i10626")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{tmp 10633}#)) + #{p 10632}#) + (#{quasi 10600}# + #{q 10628}# + #{lev 10614}#)) + (#{quasicons 10604}# + (#{quasicons 10604}# + '(#(syntax-object + "quote" ((top) + #(ribcage + #(p) + #((top)) + #("i10631")) #(ribcage #(p q) #((top) (top)) - #("i10653" "i10654")) + #("i10625" "i10626")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10649" "i10650")) + #("i10615" "i10616")) #(ribcage (emit quasivector quasilist* @@ -31248,123 +29896,75 @@ (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #(syntax-object + unquote + ((top) + #(ribcage + #(p) + #((top)) + #("i10631")) + #(ribcage + #(p q) + #((top) (top)) + #("i10625" "i10626")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile))) - . - each-any)))) - (if #{tmp 10663}# - (@apply - (lambda (#{p 10665}#) - (if (= #{lev 10648}# 0) - (#{quasiappend 10605}# - (map (lambda (#{tmp 10666}#) - (list '#(syntax-object - "value" - ((top) - #(ribcage - #(p) - #((top)) - #("i10664")) - #(ribcage - #(p q) - #((top) (top)) - #("i10653" - "i10654")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" - "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{tmp 10666}#)) - #{p 10665}#) - (#{vquasi 10601}# - #{q 10656}# - #{lev 10648}#)) - (#{quasicons 10603}# - (#{quasicons 10603}# - '(#(syntax-object - "quote" - ((top) - #(ribcage - #(p) - #((top)) - #("i10664")) - #(ribcage - #(p q) - #((top) (top)) - #("i10653" "i10654")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) + (#{quasi 10600}# + #{p 10632}# + (#{1-}# #{lev 10614}#))) + (#{quasi 10600}# + #{q 10628}# + #{lev 10614}#)))) + #{tmp 10630}#) + (let ((#{tmp 10635}# + ($sc-dispatch + #{p 10627}# + '(#(free-id #(syntax-object unquote-splicing ((top) - #(ribcage - #(p) - #((top)) - #("i10664")) #(ribcage #(p q) #((top) (top)) - #("i10653" "i10654")) + #("i10625" "i10626")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10649" "i10650")) + #("i10615" "i10616")) #(ribcage (emit quasivector quasilist* @@ -31379,679 +29979,433 @@ (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile))) - (#{quasi 10599}# - #{p 10665}# - (#{1-}# #{lev 10648}#))) - (#{vquasi 10601}# - #{q 10656}# - #{lev 10648}#)))) - #{tmp 10663}#) - (#{quasicons 10603}# - (#{quasi 10599}# #{p 10655}# #{lev 10648}#) - (#{vquasi 10601}# - #{q 10656}# - #{lev 10648}#))))))))) - #{tmp 10652}#) - (begin - (let ((#{tmp 10670}# ($sc-dispatch #{p 10647}# '()))) - (if #{tmp 10670}# - (@apply - (lambda () - '(#(syntax-object - "quote" - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i10649" "i10650")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - ())) - #{tmp 10670}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{p 10647}#))))))))) - (#{quasicons 10603}# - (lambda (#{x 10671}# #{y 10672}#) - (begin - (let ((#{tmp 10676}# (list #{x 10671}# #{y 10672}#))) - (begin - (let ((#{tmp 10677}# - ($sc-dispatch #{tmp 10676}# '(any any)))) - (if #{tmp 10677}# - (@apply - (lambda (#{x 10680}# #{y 10681}#) - (begin - (let ((#{tmp 10683}# - ($sc-dispatch - #{y 10681}# - '(#(atom "quote") any)))) - (if #{tmp 10683}# - (@apply - (lambda (#{dy 10685}#) - (begin - (let ((#{tmp 10687}# - ($sc-dispatch - #{x 10680}# - '(#(atom "quote") any)))) - (if #{tmp 10687}# - (@apply - (lambda (#{dx 10689}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage - #(dx) - #((top)) - #("i10688")) - #(ribcage - #(dy) - #((top)) - #("i10684")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10678" "i10679")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10673" "i10674")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - (cons #{dx 10689}# - #{dy 10685}#))) - #{tmp 10687}#) - (if (null? #{dy 10685}#) - (list '#(syntax-object - "list" - ((top) - #(ribcage - #(_) - #((top)) - #("i10690")) - #(ribcage - #(dy) - #((top)) - #("i10684")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10678" "i10679")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10673" "i10674")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{x 10680}#) - (list '#(syntax-object - "list*" - ((top) - #(ribcage - #(_) - #((top)) - #("i10690")) - #(ribcage - #(dy) - #((top)) - #("i10684")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10678" "i10679")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10673" "i10674")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{x 10680}# - #{y 10681}#)))))) - #{tmp 10683}#) - (begin - (let ((#{tmp 10692}# - ($sc-dispatch - #{y 10681}# - '(#(atom "list") . any)))) - (if #{tmp 10692}# - (@apply - (lambda (#{stuff 10694}#) - (cons '#(syntax-object - "list" - ((top) - #(ribcage - #(stuff) - #((top)) - #("i10693")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10678" "i10679")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10673" "i10674")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - (cons #{x 10680}# - #{stuff 10694}#))) - #{tmp 10692}#) - (begin - (let ((#{tmp 10695}# - ($sc-dispatch - #{y 10681}# - '(#(atom "list*") . any)))) - (if #{tmp 10695}# - (@apply - (lambda (#{stuff 10697}#) - (cons '#(syntax-object - "list*" - ((top) - #(ribcage - #(stuff) - #((top)) - #("i10696")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10678" - "i10679")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10673" - "i10674")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) + . + each-any)))) + (if #{tmp 10635}# + (@apply + (lambda (#{p 10637}#) + (if (= #{lev 10614}# 0) + (#{quasiappend 10606}# + (map (lambda (#{tmp 10638}#) + (list '#(syntax-object + "value" ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - (cons #{x 10680}# - #{stuff 10697}#))) - #{tmp 10695}#) - (list '#(syntax-object - "list*" + #(ribcage + #(p) + #((top)) + #("i10636")) + #(ribcage + #(p q) + #((top) (top)) + #("i10625" + "i10626")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" + "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{tmp 10638}#)) + #{p 10637}#) + (#{quasi 10600}# + #{q 10628}# + #{lev 10614}#)) + (#{quasicons 10604}# + (#{quasicons 10604}# + '(#(syntax-object + "quote" + ((top) + #(ribcage + #(p) + #((top)) + #("i10636")) + #(ribcage + #(p q) + #((top) (top)) + #("i10625" "i10626")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) ((top) - #(ribcage - #(_) - #((top)) - #("i10698")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10678" "i10679")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10673" "i10674")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{x 10680}# - #{y 10681}#))))))))))) - #{tmp 10677}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10676}#)))))))) - (#{quasiappend 10605}# - (lambda (#{x 10700}# #{y 10701}#) - (begin - (let ((#{tmp 10705}# - ($sc-dispatch #{y 10701}# '(#(atom "quote") ())))) - (if #{tmp 10705}# - (@apply - (lambda () - (if (null? #{x 10700}#) - '(#(syntax-object - "quote" - ((top) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10702" "i10703")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - ()) - (if (null? (cdr #{x 10700}#)) - (car #{x 10700}#) - (begin - (let ((#{tmp 10713}# - ($sc-dispatch #{x 10700}# 'each-any))) - (if #{tmp 10713}# - (@apply - (lambda (#{p 10715}#) - (cons '#(syntax-object - "append" - ((top) - #(ribcage () () ()) - #(ribcage - #(p) - #((top)) - #("i10714")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10702" "i10703")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p) + #((top)) + #("i10636")) + #(ribcage + #(p q) + #((top) (top)) + #("i10625" "i10626")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + (#{quasi 10600}# + #{p 10637}# + (#{1-}# #{lev 10614}#))) + (#{quasi 10600}# + #{q 10628}# + #{lev 10614}#)))) + #{tmp 10635}#) + (#{quasicons 10604}# + (#{quasi 10600}# + #{p 10627}# + #{lev 10614}#) + (#{quasi 10600}# + #{q 10628}# + #{lev 10614}#))))))) + #{tmp 10624}#) + (let ((#{tmp 10642}# + ($sc-dispatch #{p 10613}# '#(vector each-any)))) + (if #{tmp 10642}# + (@apply + (lambda (#{x 10644}#) + (#{quasivector 10610}# + (#{vquasi 10602}# #{x 10644}# #{lev 10614}#))) + #{tmp 10642}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage #(p) #((top)) #("i10646")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10615" "i10616")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{p 10613}#))))))))))) + (#{vquasi 10602}# + (lambda (#{p 10648}# #{lev 10649}#) + (let ((#{tmp 10653}# + ($sc-dispatch #{p 10648}# '(any . any)))) + (if #{tmp 10653}# + (@apply + (lambda (#{p 10656}# #{q 10657}#) + (let ((#{tmp 10659}# + ($sc-dispatch + #{p 10656}# + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + . + each-any)))) + (if #{tmp 10659}# + (@apply + (lambda (#{p 10661}#) + (if (= #{lev 10649}# 0) + (#{quasilist* 10608}# + (map (lambda (#{tmp 10662}#) + (list '#(syntax-object + "value" ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{p 10715}#)) - #{tmp 10713}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10700}#))))))) - #{tmp 10705}#) - (if (null? #{x 10700}#) - #{y 10701}# - (begin - (let ((#{tmp 10723}# (list #{x 10700}# #{y 10701}#))) - (begin - (let ((#{tmp 10724}# - ($sc-dispatch #{tmp 10723}# '(each-any any)))) - (if #{tmp 10724}# - (@apply - (lambda (#{p 10727}# #{y 10728}#) - (cons '#(syntax-object - "append" + #(ribcage + #(p) + #((top)) + #("i10660")) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{tmp 10662}#)) + #{p 10661}#) + (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)) + (#{quasicons 10604}# + (#{quasicons 10604}# + '(#(syntax-object + "quote" + ((top) + #(ribcage #(p) #((top)) #("i10660")) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #(syntax-object + unquote + ((top) + #(ribcage #(p) #((top)) #("i10660")) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + (#{quasi 10600}# + #{p 10661}# + (#{1-}# #{lev 10649}#))) + (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)))) + #{tmp 10659}#) + (let ((#{tmp 10664}# + ($sc-dispatch + #{p 10656}# + '(#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) ((top) - #(ribcage () () ()) - #(ribcage - #(p y) - #((top) (top)) - #("i10725" "i10726")) - #(ribcage #(_) #((top)) #("i10717")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i10702" "i10703")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - (append - #{p 10727}# - (list #{y 10728}#)))) - #{tmp 10724}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10723}#)))))))))))) - (#{quasilist* 10607}# - (lambda (#{x 10730}# #{y 10731}#) - (letrec* - ((#{f 10736}# - (lambda (#{x 10737}#) - (if (null? #{x 10737}#) - #{y 10731}# - (#{quasicons 10603}# - (car #{x 10737}#) - (#{f 10736}# (cdr #{x 10737}#))))))) - (begin (#{f 10736}# #{x 10730}#))))) - (#{quasivector 10609}# - (lambda (#{x 10738}#) - (begin - (let ((#{tmp 10741}# - ($sc-dispatch - #{x 10738}# - '(#(atom "quote") each-any)))) - (if #{tmp 10741}# - (@apply - (lambda (#{x 10743}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage #(x) #((top)) #("i10742")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10739")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - (list->vector #{x 10743}#))) - #{tmp 10741}#) - (letrec* - ((#{f 10750}# - (lambda (#{y 10751}# #{k 10752}#) - (begin - (let ((#{tmp 10764}# - ($sc-dispatch - #{y 10751}# - '(#(atom "quote") each-any)))) - (if #{tmp 10764}# - (@apply - (lambda (#{y 10766}#) - (#{k 10752}# - (map (lambda (#{tmp 10767}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage - #(y) - #((top)) - #("i10765")) - #(ribcage () () ()) - #(ribcage - #(f y k) - #((top) (top) (top)) - #("i10747" - "i10748" - "i10749")) - #(ribcage - #(_) - #((top)) - #("i10745")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10739")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{tmp 10767}#)) - #{y 10766}#))) - #{tmp 10764}#) - (begin - (let ((#{tmp 10768}# - ($sc-dispatch - #{y 10751}# - '(#(atom "list") . each-any)))) - (if #{tmp 10768}# - (@apply - (lambda (#{y 10770}#) - (#{k 10752}# #{y 10770}#)) - #{tmp 10768}#) - (begin - (let ((#{tmp 10772}# - ($sc-dispatch - #{y 10751}# - '(#(atom "list*") - . - #(each+ any (any) ()))))) - (if #{tmp 10772}# - (@apply - (lambda (#{y 10775}# #{z 10776}#) - (#{f 10750}# - #{z 10776}# - (lambda (#{ls 10777}#) - (#{k 10752}# - (append - #{y 10775}# - #{ls 10777}#))))) - #{tmp 10772}#) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + . + each-any)))) + (if #{tmp 10664}# + (@apply + (lambda (#{p 10666}#) + (if (= #{lev 10649}# 0) + (#{quasiappend 10606}# + (map (lambda (#{tmp 10667}#) (list '#(syntax-object - "list->vector" + "value" ((top) + #(ribcage + #(p) + #((top)) + #("i10665")) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) #(ribcage () () ()) #(ribcage - #(#{ g10782}#) - #((m10783 top)) - #("i10786")) - #(ribcage - #(else) - #((top)) - #("i10780")) - #(ribcage () () ()) - #(ribcage - #(f y k) - #((top) (top) (top)) - #("i10747" - "i10748" - "i10749")) - #(ribcage - #(_) - #((top)) - #("i10745")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10739")) + #(p lev) + #((top) (top)) + #("i10650" "i10651")) #(ribcage (emit quasivector quasilist* @@ -32066,49 +30420,227 @@ (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile)) - #{x 10738}#))))))))))))) - (begin - (#{f 10750}# - #{x 10738}# - (lambda (#{ls 10753}#) - (begin - (let ((#{tmp 10759}# - ($sc-dispatch #{ls 10753}# 'each-any))) - (if #{tmp 10759}# - (@apply - (lambda (#{ g10755 10761}#) - (cons '#(syntax-object - "vector" + #{tmp 10667}#)) + #{p 10666}#) + (#{vquasi 10602}# + #{q 10657}# + #{lev 10649}#)) + (#{quasicons 10604}# + (#{quasicons 10604}# + '(#(syntax-object + "quote" + ((top) + #(ribcage #(p) #((top)) #("i10665")) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #(syntax-object + unquote-splicing + ((top) + #(ribcage #(p) #((top)) #("i10665")) + #(ribcage + #(p q) + #((top) (top)) + #("i10654" "i10655")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile))) + (#{quasi 10600}# + #{p 10666}# + (#{1-}# #{lev 10649}#))) + (#{vquasi 10602}# + #{q 10657}# + #{lev 10649}#)))) + #{tmp 10664}#) + (#{quasicons 10604}# + (#{quasi 10600}# #{p 10656}# #{lev 10649}#) + (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))))))) + #{tmp 10653}#) + (let ((#{tmp 10671}# ($sc-dispatch #{p 10648}# '()))) + (if #{tmp 10671}# + (@apply + (lambda () + '(#(syntax-object + "quote" + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10650" "i10651")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + ())) + #{tmp 10671}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{p 10648}#))))))) + (#{quasicons 10604}# + (lambda (#{x 10672}# #{y 10673}#) + (let ((#{tmp 10677}# (list #{x 10672}# #{y 10673}#))) + (let ((#{tmp 10678}# + ($sc-dispatch #{tmp 10677}# '(any any)))) + (if #{tmp 10678}# + (@apply + (lambda (#{x 10681}# #{y 10682}#) + (let ((#{tmp 10684}# + ($sc-dispatch + #{y 10682}# + '(#(atom "quote") any)))) + (if #{tmp 10684}# + (@apply + (lambda (#{dy 10686}#) + (let ((#{tmp 10688}# + ($sc-dispatch + #{x 10681}# + '(#(atom "quote") any)))) + (if #{tmp 10688}# + (@apply + (lambda (#{dx 10690}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(dx) + #((top)) + #("i10689")) + #(ribcage + #(dy) + #((top)) + #("i10685")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10679" "i10680")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10674" "i10675")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + (cons #{dx 10690}# #{dy 10686}#))) + #{tmp 10688}#) + (if (null? #{dy 10686}#) + (list '#(syntax-object + "list" ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g10755}#) - #((m10756 top)) - #("i10760")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ls) - #((top)) - #("i10754")) #(ribcage #(_) #((top)) - #("i10745")) + #("i10691")) + #(ribcage + #(dy) + #((top)) + #("i10685")) #(ribcage () () ()) #(ribcage - #(x) - #((top)) - #("i10739")) + #(x y) + #((top) (top)) + #("i10679" "i10680")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10674" "i10675")) #(ribcage (emit quasivector quasilist* @@ -32123,88 +30655,760 @@ (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile)) - #{ g10755 10761}#)) - #{tmp 10759}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{ls 10753}#))))))))))))) - (#{emit 10611}# - (lambda (#{x 10788}#) - (begin - (let ((#{tmp 10791}# - ($sc-dispatch #{x 10788}# '(#(atom "quote") any)))) - (if #{tmp 10791}# - (@apply - (lambda (#{x 10793}#) - (list '#(syntax-object - quote - ((top) - #(ribcage #(x) #((top)) #("i10792")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10789")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{x 10793}#)) - #{tmp 10791}#) - (begin - (let ((#{tmp 10794}# - ($sc-dispatch - #{x 10788}# - '(#(atom "list") . each-any)))) - (if #{tmp 10794}# + #{x 10681}#) + (list '#(syntax-object + "list*" + ((top) + #(ribcage + #(_) + #((top)) + #("i10691")) + #(ribcage + #(dy) + #((top)) + #("i10685")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10679" "i10680")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10674" "i10675")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{x 10681}# + #{y 10682}#))))) + #{tmp 10684}#) + (let ((#{tmp 10693}# + ($sc-dispatch + #{y 10682}# + '(#(atom "list") . any)))) + (if #{tmp 10693}# + (@apply + (lambda (#{stuff 10695}#) + (cons '#(syntax-object + "list" + ((top) + #(ribcage + #(stuff) + #((top)) + #("i10694")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10679" "i10680")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10674" "i10675")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + (cons #{x 10681}# #{stuff 10695}#))) + #{tmp 10693}#) + (let ((#{tmp 10696}# + ($sc-dispatch + #{y 10682}# + '(#(atom "list*") . any)))) + (if #{tmp 10696}# + (@apply + (lambda (#{stuff 10698}#) + (cons '#(syntax-object + "list*" + ((top) + #(ribcage + #(stuff) + #((top)) + #("i10697")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10679" "i10680")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10674" "i10675")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + (cons #{x 10681}# #{stuff 10698}#))) + #{tmp 10696}#) + (list '#(syntax-object + "list*" + ((top) + #(ribcage #(_) #((top)) #("i10699")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10679" "i10680")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10674" "i10675")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{x 10681}# + #{y 10682}#)))))))) + #{tmp 10678}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10677}#)))))) + (#{quasiappend 10606}# + (lambda (#{x 10701}# #{y 10702}#) + (let ((#{tmp 10706}# + ($sc-dispatch #{y 10702}# '(#(atom "quote") ())))) + (if #{tmp 10706}# + (@apply + (lambda () + (if (null? #{x 10701}#) + '(#(syntax-object + "quote" + ((top) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10703" "i10704")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + ()) + (if (null? (cdr #{x 10701}#)) + (car #{x 10701}#) + (let ((#{tmp 10714}# + ($sc-dispatch #{x 10701}# 'each-any))) + (if #{tmp 10714}# + (@apply + (lambda (#{p 10716}#) + (cons '#(syntax-object + "append" + ((top) + #(ribcage () () ()) + #(ribcage #(p) #((top)) #("i10715")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10703" "i10704")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{p 10716}#)) + #{tmp 10714}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10701}#)))))) + #{tmp 10706}#) + (if (null? #{x 10701}#) + #{y 10702}# + (let ((#{tmp 10724}# (list #{x 10701}# #{y 10702}#))) + (let ((#{tmp 10725}# + ($sc-dispatch #{tmp 10724}# '(each-any any)))) + (if #{tmp 10725}# (@apply - (lambda (#{x 10796}#) - (begin - (let ((#{tmp 10800}# - (map #{emit 10611}# #{x 10796}#))) - (begin - (let ((#{tmp 10801}# + (lambda (#{p 10728}# #{y 10729}#) + (cons '#(syntax-object + "append" + ((top) + #(ribcage () () ()) + #(ribcage + #(p y) + #((top) (top)) + #("i10726" "i10727")) + #(ribcage #(_) #((top)) #("i10718")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10703" "i10704")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + (append #{p 10728}# (list #{y 10729}#)))) + #{tmp 10725}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10724}#))))))))) + (#{quasilist* 10608}# + (lambda (#{x 10731}# #{y 10732}#) + (letrec* + ((#{f 10737}# + (lambda (#{x 10738}#) + (if (null? #{x 10738}#) + #{y 10732}# + (#{quasicons 10604}# + (car #{x 10738}#) + (#{f 10737}# (cdr #{x 10738}#))))))) + (#{f 10737}# #{x 10731}#)))) + (#{quasivector 10610}# + (lambda (#{x 10739}#) + (let ((#{tmp 10742}# + ($sc-dispatch + #{x 10739}# + '(#(atom "quote") each-any)))) + (if #{tmp 10742}# + (@apply + (lambda (#{x 10744}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage #(x) #((top)) #("i10743")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10740")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + (list->vector #{x 10744}#))) + #{tmp 10742}#) + (letrec* + ((#{f 10751}# + (lambda (#{y 10752}# #{k 10753}#) + (let ((#{tmp 10765}# + ($sc-dispatch + #{y 10752}# + '(#(atom "quote") each-any)))) + (if #{tmp 10765}# + (@apply + (lambda (#{y 10767}#) + (#{k 10753}# + (map (lambda (#{tmp 10768}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(y) + #((top)) + #("i10766")) + #(ribcage () () ()) + #(ribcage + #(f y k) + #((top) (top) (top)) + #("i10748" + "i10749" + "i10750")) + #(ribcage + #(_) + #((top)) + #("i10746")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10740")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{tmp 10768}#)) + #{y 10767}#))) + #{tmp 10765}#) + (let ((#{tmp 10769}# + ($sc-dispatch + #{y 10752}# + '(#(atom "list") . each-any)))) + (if #{tmp 10769}# + (@apply + (lambda (#{y 10771}#) + (#{k 10753}# #{y 10771}#)) + #{tmp 10769}#) + (let ((#{tmp 10773}# + ($sc-dispatch + #{y 10752}# + '(#(atom "list*") + . + #(each+ any (any) ()))))) + (if #{tmp 10773}# + (@apply + (lambda (#{y 10776}# #{z 10777}#) + (#{f 10751}# + #{z 10777}# + (lambda (#{ls 10778}#) + (#{k 10753}# + (append + #{y 10776}# + #{ls 10778}#))))) + #{tmp 10773}#) + (list '#(syntax-object + "list->vector" + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10783}#) + #((m10784 top)) + #("i10787")) + #(ribcage + #(else) + #((top)) + #("i10781")) + #(ribcage () () ()) + #(ribcage + #(f y k) + #((top) (top) (top)) + #("i10748" "i10749" "i10750")) + #(ribcage + #(_) + #((top)) + #("i10746")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10740")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{x 10739}#)))))))))) + (#{f 10751}# + #{x 10739}# + (lambda (#{ls 10754}#) + (let ((#{tmp 10760}# + ($sc-dispatch #{ls 10754}# 'each-any))) + (if #{tmp 10760}# + (@apply + (lambda (#{ g10756 10762}#) + (cons '#(syntax-object + "vector" + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10756}#) + #((m10757 top)) + #("i10761")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(ls) #((top)) #("i10755")) + #(ribcage #(_) #((top)) #("i10746")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10740")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{ g10756 10762}#)) + #{tmp 10760}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{ls 10754}#)))))))))) + (#{emit 10612}# + (lambda (#{x 10789}#) + (let ((#{tmp 10792}# + ($sc-dispatch #{x 10789}# '(#(atom "quote") any)))) + (if #{tmp 10792}# + (@apply + (lambda (#{x 10794}#) + (list '#(syntax-object + quote + ((top) + #(ribcage #(x) #((top)) #("i10793")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10790")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{x 10794}#)) + #{tmp 10792}#) + (let ((#{tmp 10795}# + ($sc-dispatch + #{x 10789}# + '(#(atom "list") . each-any)))) + (if #{tmp 10795}# + (@apply + (lambda (#{x 10797}#) + (let ((#{tmp 10801}# (map #{emit 10612}# #{x 10797}#))) + (let ((#{tmp 10802}# + ($sc-dispatch #{tmp 10801}# 'each-any))) + (if #{tmp 10802}# + (@apply + (lambda (#{ g10798 10804}#) + (cons '#(syntax-object + list + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10798}#) + #((m10799 top)) + #("i10803")) + #(ribcage #(x) #((top)) #("i10796")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10790")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{ g10798 10804}#)) + #{tmp 10802}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10801}#))))) + #{tmp 10795}#) + (let ((#{tmp 10807}# + ($sc-dispatch + #{x 10789}# + '(#(atom "list*") . #(each+ any (any) ()))))) + (if #{tmp 10807}# + (@apply + (lambda (#{x 10810}# #{y 10811}#) + (letrec* + ((#{f 10814}# + (lambda (#{x* 10815}#) + (if (null? #{x* 10815}#) + (#{emit 10612}# #{y 10811}#) + (let ((#{tmp 10821}# + (list (#{emit 10612}# + (car #{x* 10815}#)) + (#{f 10814}# + (cdr #{x* 10815}#))))) + (let ((#{tmp 10822}# + ($sc-dispatch + #{tmp 10821}# + '(any any)))) + (if #{tmp 10822}# + (@apply + (lambda (#{ g10818 10825}# + #{ g10817 10826}#) + (list '#(syntax-object + cons + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10818}# + #{ g10817}#) + #((m10819 top) + (m10819 top)) + #("i10823" "i10824")) + #(ribcage () () ()) + #(ribcage + #(f x*) + #((top) (top)) + #("i10812" "i10813")) + #(ribcage + #(x y) + #((top) (top)) + #("i10808" "i10809")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10790")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{ g10818 10825}# + #{ g10817 10826}#)) + #{tmp 10822}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10821}#)))))))) + (#{f 10814}# #{x 10810}#))) + #{tmp 10807}#) + (let ((#{tmp 10827}# + ($sc-dispatch + #{x 10789}# + '(#(atom "append") . each-any)))) + (if #{tmp 10827}# + (@apply + (lambda (#{x 10829}#) + (let ((#{tmp 10833}# + (map #{emit 10612}# #{x 10829}#))) + (let ((#{tmp 10834}# ($sc-dispatch - #{tmp 10800}# + #{tmp 10833}# 'each-any))) - (if #{tmp 10801}# + (if #{tmp 10834}# (@apply - (lambda (#{ g10797 10803}#) + (lambda (#{ g10830 10836}#) (cons '#(syntax-object - list + append ((top) #(ribcage () () ()) #(ribcage - #(#{ g10797}#) - #((m10798 top)) - #("i10802")) + #(#{ g10830}#) + #((m10831 top)) + #("i10835")) #(ribcage #(x) #((top)) - #("i10795")) + #("i10828")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10789")) + #("i10790")) #(ribcage (emit quasivector quasilist* @@ -32219,870 +31423,409 @@ (top) (top) (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) (hygiene guile)) - #{ g10797 10803}#)) - #{tmp 10801}#) + #{ g10830 10836}#)) + #{tmp 10834}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10800}#))))))) - #{tmp 10794}#) - (begin - (let ((#{tmp 10806}# - ($sc-dispatch - #{x 10788}# - '(#(atom "list*") - . - #(each+ any (any) ()))))) - (if #{tmp 10806}# - (@apply - (lambda (#{x 10809}# #{y 10810}#) - (letrec* - ((#{f 10813}# - (lambda (#{x* 10814}#) - (if (null? #{x* 10814}#) - (#{emit 10611}# #{y 10810}#) - (begin - (let ((#{tmp 10820}# - (list (#{emit 10611}# - (car #{x* 10814}#)) - (#{f 10813}# - (cdr #{x* 10814}#))))) - (begin - (let ((#{tmp 10821}# - ($sc-dispatch - #{tmp 10820}# - '(any any)))) - (if #{tmp 10821}# - (@apply - (lambda (#{ g10817 10824}# - #{ g10816 10825}#) - (list '#(syntax-object - cons - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(#{ g10817}# - #{ g10816}#) - #((m10818 - top) - (m10818 - top)) - #("i10822" - "i10823")) - #(ribcage - () - () - ()) - #(ribcage - #(f x*) - #((top) - (top)) - #("i10811" - "i10812")) - #(ribcage - #(x y) - #((top) - (top)) - #("i10807" - "i10808")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10789")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene - guile)) - #{ g10817 10824}# - #{ g10816 10825}#)) - #{tmp 10821}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10820}#)))))))))) - (begin (#{f 10813}# #{x 10809}#)))) - #{tmp 10806}#) - (begin - (let ((#{tmp 10826}# - ($sc-dispatch - #{x 10788}# - '(#(atom "append") . each-any)))) - (if #{tmp 10826}# - (@apply - (lambda (#{x 10828}#) - (begin - (let ((#{tmp 10832}# - (map #{emit 10611}# - #{x 10828}#))) - (begin - (let ((#{tmp 10833}# - ($sc-dispatch - #{tmp 10832}# - 'each-any))) - (if #{tmp 10833}# - (@apply - (lambda (#{ g10829 10835}#) - (cons '#(syntax-object - append - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(#{ g10829}#) - #((m10830 - top)) - #("i10834")) - #(ribcage - #(x) - #((top)) - #("i10827")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10789")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene guile)) - #{ g10829 10835}#)) - #{tmp 10833}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10832}#))))))) - #{tmp 10826}#) - (begin - (let ((#{tmp 10838}# + #{tmp 10833}#))))) + #{tmp 10827}#) + (let ((#{tmp 10839}# + ($sc-dispatch + #{x 10789}# + '(#(atom "vector") . each-any)))) + (if #{tmp 10839}# + (@apply + (lambda (#{x 10841}#) + (let ((#{tmp 10845}# + (map #{emit 10612}# #{x 10841}#))) + (let ((#{tmp 10846}# ($sc-dispatch - #{x 10788}# - '(#(atom "vector") - . - each-any)))) - (if #{tmp 10838}# + #{tmp 10845}# + 'each-any))) + (if #{tmp 10846}# (@apply - (lambda (#{x 10840}#) - (begin - (let ((#{tmp 10844}# - (map #{emit 10611}# - #{x 10840}#))) - (begin - (let ((#{tmp 10845}# - ($sc-dispatch - #{tmp 10844}# - 'each-any))) - (if #{tmp 10845}# - (@apply - (lambda (#{ g10841 10847}#) - (cons '#(syntax-object - vector - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(#{ g10841}#) - #((m10842 - top)) - #("i10846")) - #(ribcage - #(x) - #((top)) - #("i10839")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10789")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene - guile)) - #{ g10841 10847}#)) - #{tmp 10845}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10844}#))))))) - #{tmp 10838}#) - (begin - (let ((#{tmp 10850}# - ($sc-dispatch - #{x 10788}# - '(#(atom "list->vector") - any)))) - (if #{tmp 10850}# - (@apply - (lambda (#{x 10852}#) - (begin - (let ((#{tmp 10856}# - (#{emit 10611}# - #{x 10852}#))) - (list '#(syntax-object - list->vector - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(#{ g10853}#) - #((m10854 - top)) - #("i10857")) - #(ribcage - #(x) - #((top)) - #("i10851")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i10789")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10610" - "i10608" - "i10606" - "i10604" - "i10602" - "i10600" - "i10598"))) - (hygiene - guile)) - #{tmp 10856}#)))) - #{tmp 10850}#) - (begin - (let ((#{tmp 10859}# - ($sc-dispatch - #{x 10788}# - '(#(atom "value") - any)))) - (if #{tmp 10859}# - (@apply - (lambda (#{x 10861}#) - #{x 10861}#) - #{tmp 10859}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10788}#))))))))))))))))))))))))) - (begin - (lambda (#{x 10862}#) - (begin - (let ((#{tmp 10865}# - ($sc-dispatch #{x 10862}# '(_ any)))) - (if #{tmp 10865}# - (@apply - (lambda (#{e 10867}#) - (#{emit 10611}# (#{quasi 10599}# #{e 10867}# 0))) - #{tmp 10865}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10862}#))))))))) + (lambda (#{ g10842 10848}#) + (cons '#(syntax-object + vector + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10842}#) + #((m10843 top)) + #("i10847")) + #(ribcage + #(x) + #((top)) + #("i10840")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10790")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{ g10842 10848}#)) + #{tmp 10846}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10845}#))))) + #{tmp 10839}#) + (let ((#{tmp 10851}# + ($sc-dispatch + #{x 10789}# + '(#(atom "list->vector") any)))) + (if #{tmp 10851}# + (@apply + (lambda (#{x 10853}#) + (let ((#{tmp 10857}# + (#{emit 10612}# #{x 10853}#))) + (list '#(syntax-object + list->vector + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10854}#) + #((m10855 top)) + #("i10858")) + #(ribcage + #(x) + #((top)) + #("i10852")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10790")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10611" + "i10609" + "i10607" + "i10605" + "i10603" + "i10601" + "i10599"))) + (hygiene guile)) + #{tmp 10857}#))) + #{tmp 10851}#) + (let ((#{tmp 10860}# + ($sc-dispatch + #{x 10789}# + '(#(atom "value") any)))) + (if #{tmp 10860}# + (@apply + (lambda (#{x 10862}#) #{x 10862}#) + #{tmp 10860}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10789}#)))))))))))))))))) + (lambda (#{x 10863}#) + (let ((#{tmp 10866}# + ($sc-dispatch #{x 10863}# '(_ any)))) + (if #{tmp 10866}# + (@apply + (lambda (#{e 10868}#) + (#{emit 10612}# (#{quasi 10600}# #{e 10868}# 0))) + #{tmp 10866}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10863}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 10938}#) - (begin - (let ((#{tmp 10955}# - ($sc-dispatch #{x 10938}# '(any any)))) - (if #{tmp 10955}# - (@apply - (lambda (#{k 10958}# #{filename 10959}#) - (begin - (let ((#{fn 10961}# (syntax->datum #{filename 10959}#))) - (begin - (let ((#{tmp 10963}# - (let ((#{fn 10942}# #{fn 10961}#) - (#{k 10943}# #{filename 10959}#)) - (begin - (let ((#{p 10947}# - (open-input-file #{fn 10942}#))) - (letrec* - ((#{f 10951}# - (lambda (#{x 10952}# #{result 10953}#) - (if (eof-object? #{x 10952}#) - (begin - (close-input-port #{p 10947}#) - (reverse #{result 10953}#)) - (#{f 10951}# - (read #{p 10947}#) - (cons (datum->syntax - #{k 10943}# - #{x 10952}#) - #{result 10953}#)))))) + (lambda (#{x 10939}#) + (let ((#{tmp 10956}# + ($sc-dispatch #{x 10939}# '(any any)))) + (if #{tmp 10956}# + (@apply + (lambda (#{k 10959}# #{filename 10960}#) + (let ((#{fn 10962}# (syntax->datum #{filename 10960}#))) + (let ((#{tmp 10964}# + ((lambda (#{fn 10943}# #{k 10944}#) + (let ((#{p 10948}# (open-input-file #{fn 10943}#))) + (letrec* + ((#{f 10952}# + (lambda (#{x 10953}# #{result 10954}#) + (if (eof-object? #{x 10953}#) (begin - (#{f 10951}# - (read #{p 10947}#) - '())))))))) - (begin - (let ((#{tmp 10964}# - ($sc-dispatch #{tmp 10963}# 'each-any))) - (if #{tmp 10964}# - (@apply - (lambda (#{exp 10966}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage () () ()) - #(ribcage - #(exp) - #((top)) - #("i10965")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(fn) - #((top)) - #("i10960")) - #(ribcage - #(k filename) - #((top) (top)) - #("i10956" "i10957")) - #(ribcage - (read-file) - ((top)) - ("i10940")) - #(ribcage - #(x) - #((top)) - #("i10939"))) - (hygiene guile)) - #{exp 10966}#)) - #{tmp 10964}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10963}#))))))))) - #{tmp 10955}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10938}#))))))) + (close-input-port #{p 10948}#) + (reverse #{result 10954}#)) + (#{f 10952}# + (read #{p 10948}#) + (cons (datum->syntax + #{k 10944}# + #{x 10953}#) + #{result 10954}#)))))) + (#{f 10952}# (read #{p 10948}#) '())))) + #{fn 10962}# + #{filename 10960}#))) + (let ((#{tmp 10965}# + ($sc-dispatch #{tmp 10964}# 'each-any))) + (if #{tmp 10965}# + (@apply + (lambda (#{exp 10967}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage () () ()) + #(ribcage #(exp) #((top)) #("i10966")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(fn) #((top)) #("i10961")) + #(ribcage + #(k filename) + #((top) (top)) + #("i10957" "i10958")) + #(ribcage (read-file) ((top)) ("i10941")) + #(ribcage #(x) #((top)) #("i10940"))) + (hygiene guile)) + #{exp 10967}#)) + #{tmp 10965}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10964}#)))))) + #{tmp 10956}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10939}#)))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 11063}#) - (begin - (let ((#{tmp 11066}# - ($sc-dispatch #{x 11063}# '(any any)))) - (if #{tmp 11066}# - (@apply - (lambda (#{k 11069}# #{filename 11070}#) - (begin - (let ((#{fn 11072}# (syntax->datum #{filename 11070}#))) - (begin - (let ((#{tmp 11074}# - (datum->syntax - #{filename 11070}# - (begin - (let ((#{t 11079}# - (%search-load-path #{fn 11072}#))) - (if #{t 11079}# - #{t 11079}# - (syntax-violation - 'include-from-path - "file not found in path" - #{x 11063}# - #{filename 11070}#))))))) - (list '#(syntax-object - include - ((top) - #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i11075")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i11071")) - #(ribcage - #(k filename) - #((top) (top)) - #("i11067" "i11068")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11064"))) - (hygiene guile)) - #{tmp 11074}#)))))) - #{tmp 11066}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 11063}#))))))) + (lambda (#{x 11064}#) + (let ((#{tmp 11067}# + ($sc-dispatch #{x 11064}# '(any any)))) + (if #{tmp 11067}# + (@apply + (lambda (#{k 11070}# #{filename 11071}#) + (let ((#{fn 11073}# (syntax->datum #{filename 11071}#))) + (let ((#{tmp 11075}# + (datum->syntax + #{filename 11071}# + (let ((#{t 11080}# (%search-load-path #{fn 11073}#))) + (if #{t 11080}# + #{t 11080}# + (syntax-violation + 'include-from-path + "file not found in path" + #{x 11064}# + #{filename 11071}#)))))) + (list '#(syntax-object + include + ((top) + #(ribcage () () ()) + #(ribcage #(fn) #((top)) #("i11076")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(fn) #((top)) #("i11072")) + #(ribcage + #(k filename) + #((top) (top)) + #("i11068" "i11069")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11065"))) + (hygiene guile)) + #{tmp 11075}#)))) + #{tmp 11067}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 11064}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 11081}#) + (lambda (#{x 11082}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 11081}#)))) + #{x 11082}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 11083}#) + (lambda (#{x 11084}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 11083}#)))) + #{x 11084}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 11085}#) - (begin - (let ((#{tmp 11088}# - ($sc-dispatch - #{x 11085}# - '(_ any any . each-any)))) - (if #{tmp 11088}# - (@apply - (lambda (#{e 11092}# #{m1 11093}# #{m2 11094}#) - (begin - (let ((#{tmp 11096}# - (letrec* - ((#{f 11102}# - (lambda (#{clause 11103}# #{clauses 11104}#) - (if (null? #{clauses 11104}#) - (begin - (let ((#{tmp 11107}# - ($sc-dispatch - #{clause 11103}# - '(#(free-id - #(syntax-object - else - ((top) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene guile))) - any - . - each-any)))) - (if #{tmp 11107}# - (@apply - (lambda (#{e1 11110}# #{e2 11111}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i11108" "i11109")) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene guile)) - (cons #{e1 11110}# - #{e2 11111}#))) - #{tmp 11107}#) - (begin - (let ((#{tmp 11113}# - ($sc-dispatch - #{clause 11103}# - '(each-any - any - . - each-any)))) - (if #{tmp 11113}# - (@apply - (lambda (#{k 11117}# - #{e1 11118}# - #{e2 11119}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i11114" - "i11115" - "i11116")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene guile)) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i11114" - "i11115" - "i11116")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - '#(syntax-object - t - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i11114" - "i11115" - "i11116")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i11114" - "i11115" - "i11116")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e - m1 - m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - #{k 11117}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i11114" - "i11115" - "i11116")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - (cons #{e1 11118}# - #{e2 11119}#)))) - #{tmp 11113}#) - (syntax-violation - 'case - "bad clause" - #{x 11085}# - #{clause 11103}#))))))) - (begin - (let ((#{tmp 11125}# - (#{f 11102}# - (car #{clauses 11104}#) - (cdr #{clauses 11104}#)))) - (begin - (let ((#{tmp 11129}# - ($sc-dispatch - #{clause 11103}# - '(each-any - any - . - each-any)))) - (if #{tmp 11129}# - (@apply - (lambda (#{k 11133}# - #{e1 11134}# - #{e2 11135}#) + (lambda (#{x 11086}#) + (let ((#{tmp 11089}# + ($sc-dispatch + #{x 11086}# + '(_ any any . each-any)))) + (if #{tmp 11089}# + (@apply + (lambda (#{e 11093}# #{m1 11094}# #{m2 11095}#) + (let ((#{tmp 11097}# + (letrec* + ((#{f 11103}# + (lambda (#{clause 11104}# #{clauses 11105}#) + (if (null? #{clauses 11105}#) + (let ((#{tmp 11108}# + ($sc-dispatch + #{clause 11104}# + '(#(free-id + #(syntax-object + else + ((top) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile))) + any + . + each-any)))) + (if #{tmp 11108}# + (@apply + (lambda (#{e1 11111}# #{e2 11112}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i11109" "i11110")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + (cons #{e1 11111}# #{e2 11112}#))) + #{tmp 11108}#) + (let ((#{tmp 11114}# + ($sc-dispatch + #{clause 11104}# + '(each-any any . each-any)))) + (if #{tmp 11114}# + (@apply + (lambda (#{k 11118}# + #{e1 11119}# + #{e2 11120}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i11115" + "i11116" + "i11117")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) (list '#(syntax-object - if + memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11130" - "i11131" - "i11132")) - #(ribcage () () ()) - #(ribcage - #(rest) - #((top)) - #("i11126")) + #("i11115" + "i11116" + "i11117")) #(ribcage () () ()) #(ribcage #(f @@ -33091,42 +31834,70 @@ #((top) (top) (top)) - #("i11099" - "i11100" - "i11101")) + #("i11100" + "i11101" + "i11102")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11089" - "i11090" - "i11091")) + #("i11090" + "i11091" + "i11092")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11086"))) + #("i11087"))) + (hygiene guile)) + '#(syntax-object + t + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11115" + "i11116" + "i11117")) + #(ribcage () () ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) (hygiene guile)) (list '#(syntax-object - memv + quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11130" - "i11131" - "i11132")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i11126")) + #("i11115" + "i11116" + "i11117")) #(ribcage () () @@ -33138,17 +31909,17 @@ #((top) (top) (top)) - #("i11099" - "i11100" - "i11101")) + #("i11100" + "i11101" + "i11102")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11089" - "i11090" - "i11091")) + #("i11090" + "i11091" + "i11092")) #(ribcage () () @@ -33156,893 +31927,905 @@ #(ribcage #(x) #((top)) - #("i11086"))) + #("i11087"))) (hygiene guile)) - '#(syntax-object - t - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i11130" - "i11131" - "i11132")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i11126")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i11130" - "i11131" - "i11132")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i11126")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e - m1 - m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - #{k 11133}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i11130" - "i11131" - "i11132")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i11126")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i11099" - "i11100" - "i11101")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i11089" - "i11090" - "i11091")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11086"))) - (hygiene - guile)) - (cons #{e1 11134}# - #{e2 11135}#)) - #{tmp 11125}#)) - #{tmp 11129}#) - (syntax-violation - 'case - "bad clause" - #{x 11085}# - #{clause 11103}#)))))))))) - (begin (#{f 11102}# #{m1 11093}# #{m2 11094}#))))) - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i11097")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i11089" "i11090" "i11091")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11086"))) - (hygiene guile)) - (list (list '#(syntax-object - t - ((top) - #(ribcage () () ()) - #(ribcage - #(body) - #((top)) - #("i11097")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i11089" "i11090" "i11091")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11086"))) - (hygiene guile)) - #{e 11092}#)) - #{tmp 11096}#)))) - #{tmp 11088}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 11085}#))))))) + #{k 11118}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11115" + "i11116" + "i11117")) + #(ribcage () () ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + (cons #{e1 11119}# + #{e2 11120}#)))) + #{tmp 11114}#) + (syntax-violation + 'case + "bad clause" + #{x 11086}# + #{clause 11104}#))))) + (let ((#{tmp 11126}# + (#{f 11103}# + (car #{clauses 11105}#) + (cdr #{clauses 11105}#)))) + (let ((#{tmp 11130}# + ($sc-dispatch + #{clause 11104}# + '(each-any any . each-any)))) + (if #{tmp 11130}# + (@apply + (lambda (#{k 11134}# + #{e1 11135}# + #{e2 11136}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i11131" + "i11132" + "i11133")) + #(ribcage () () ()) + #(ribcage + #(rest) + #((top)) + #("i11127")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i11131" + "i11132" + "i11133")) + #(ribcage () () ()) + #(ribcage + #(rest) + #((top)) + #("i11127")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + '#(syntax-object + t + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i11131" + "i11132" + "i11133")) + #(ribcage () () ()) + #(ribcage + #(rest) + #((top)) + #("i11127")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11131" + "i11132" + "i11133")) + #(ribcage + () + () + ()) + #(ribcage + #(rest) + #((top)) + #("i11127")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + #{k 11134}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k e1 e2) + #((top) (top) (top)) + #("i11131" + "i11132" + "i11133")) + #(ribcage () () ()) + #(ribcage + #(rest) + #((top)) + #("i11127")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11100" + "i11101" + "i11102")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" + "i11091" + "i11092")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11087"))) + (hygiene guile)) + (cons #{e1 11135}# + #{e2 11136}#)) + #{tmp 11126}#)) + #{tmp 11130}#) + (syntax-violation + 'case + "bad clause" + #{x 11086}# + #{clause 11104}#)))))))) + (#{f 11103}# #{m1 11094}# #{m2 11095}#)))) + (list '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage #(body) #((top)) #("i11098")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" "i11091" "i11092")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11087"))) + (hygiene guile)) + (list (list '#(syntax-object + t + ((top) + #(ribcage () () ()) + #(ribcage #(body) #((top)) #("i11098")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11090" "i11091" "i11092")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11087"))) + (hygiene guile)) + #{e 11093}#)) + #{tmp 11097}#))) + #{tmp 11089}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 11086}#)))))) (define make-variable-transformer - (lambda (#{proc 11141}#) - (if (procedure? #{proc 11141}#) - (begin - (letrec* - ((#{trans 11144}# - (lambda (#{x 11145}#) - (#{proc 11141}# #{x 11145}#)))) - (begin - (set-procedure-property! - #{trans 11144}# - 'variable-transformer - #t) - #{trans 11144}#))) + (lambda (#{proc 11142}#) + (if (procedure? #{proc 11142}#) + (letrec* + ((#{trans 11145}# + (lambda (#{x 11146}#) + (#{proc 11142}# #{x 11146}#)))) + (begin + (set-procedure-property! + #{trans 11145}# + 'variable-transformer + #t) + #{trans 11145}#)) (error "variable transformer not a procedure" - #{proc 11141}#)))) + #{proc 11142}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 11151}#) - (begin - (let ((#{tmp 11154}# - ($sc-dispatch #{x 11151}# '(_ any)))) - (if #{tmp 11154}# - (@apply - (lambda (#{e 11156}#) - (list '#(syntax-object - lambda - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - '(#(syntax-object - x + (lambda (#{x 11152}#) + (let ((#{tmp 11155}# + ($sc-dispatch #{x 11152}# '(_ any)))) + (if #{tmp 11155}# + (@apply + (lambda (#{e 11157}#) + (list '#(syntax-object + lambda + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '(#(syntax-object + x + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile))) + '#((#(syntax-object + macro-type ((top) - #(ribcage #(e) #((top)) #("i11155")) + #(ribcage #(e) #((top)) #("i11156")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile))) - '#((#(syntax-object - macro-type - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - . - #(syntax-object - identifier-syntax - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)))) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - '#(syntax-object - x - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - '() - (list '#(syntax-object + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + . + #(syntax-object + identifier-syntax + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '#(syntax-object + x + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '() + (list '#(syntax-object + id + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '(#(syntax-object + identifier? + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + (#(syntax-object + syntax + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i11155")) + #(ribcage #(e) #((top)) #("i11156")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - '(#(syntax-object - identifier? - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - (#(syntax-object - syntax - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - #(syntax-object - id - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)))) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(e) - #((top)) - #("i11155")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #{e 11156}#)) - (list '(#(syntax-object - _ - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - #(syntax-object - x - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage #(e) #((top)) #("i11155")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile))) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(e) - #((top)) - #("i11155")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - (cons #{e 11156}# - '(#(syntax-object - x - ((top) - #(ribcage - #(e) - #((top)) - #("i11155")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(e) - #((top)) - #("i11155")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile))))))))) - #{tmp 11154}#) - (begin - (let ((#{tmp 11157}# - ($sc-dispatch - #{x 11151}# - '(_ (any any) - ((#(free-id - #(syntax-object - set! - ((top) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile))) - any - any) - any))))) - (if (if #{tmp 11157}# - (@apply - (lambda (#{id 11163}# - #{exp1 11164}# - #{var 11165}# - #{val 11166}# - #{exp2 11167}#) - (if (identifier? #{id 11163}#) - (identifier? #{var 11165}#) - #f)) - #{tmp 11157}#) - #f) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)))) + (list '#(syntax-object + syntax + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + #{e 11157}#)) + (list '(#(syntax-object + _ + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + #(syntax-object + x + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile))) + (list '#(syntax-object + syntax + ((top) + #(ribcage #(e) #((top)) #("i11156")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + (cons #{e 11157}# + '(#(syntax-object + x + ((top) + #(ribcage + #(e) + #((top)) + #("i11156")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage + #(e) + #((top)) + #("i11156")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile))))))))) + #{tmp 11155}#) + (let ((#{tmp 11158}# + ($sc-dispatch + #{x 11152}# + '(_ (any any) + ((#(free-id + #(syntax-object + set! + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile))) + any + any) + any))))) + (if (if #{tmp 11158}# (@apply - (lambda (#{id 11175}# - #{exp1 11176}# - #{var 11177}# - #{val 11178}# - #{exp2 11179}#) - (list '#(syntax-object - make-variable-transformer - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - (list '#(syntax-object - lambda - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - '(#(syntax-object - x - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile))) - '#((#(syntax-object - macro-type + (lambda (#{id 11164}# + #{exp1 11165}# + #{var 11166}# + #{val 11167}# + #{exp2 11168}#) + (if (identifier? #{id 11164}#) + (identifier? #{var 11166}#) + #f)) + #{tmp 11158}#) + #f) + (@apply + (lambda (#{id 11176}# + #{exp1 11177}# + #{var 11178}# + #{val 11179}# + #{exp2 11180}#) + (list '#(syntax-object + make-variable-transformer + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" "i11172" "i11173" "i11174" "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '(#(syntax-object + x + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile))) + '#((#(syntax-object + macro-type + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + . + #(syntax-object + variable-transformer + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '#(syntax-object + x + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile)) + '(#(syntax-object + set! ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" + #("i11171" "i11172" "i11173" - "i11174")) + "i11174" + "i11175")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)) - . - #(syntax-object - variable-transformer - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11152"))) - (hygiene guile)))) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - '#(syntax-object - x - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - '(#(syntax-object - set! - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile))) - (list (list '#(syntax-object - set! - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #{var 11177}# - #{val 11178}#) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #{exp2 11179}#)) - (list (cons #{id 11175}# - '(#(syntax-object - x - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)))) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - (cons #{exp1 11176}# - '(#(syntax-object - x - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene - guile)))))) - (list #{id 11175}# - (list '#(syntax-object - identifier? - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #{id 11175}#)) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i11170" - "i11171" - "i11172" - "i11173" - "i11174")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i11152"))) - (hygiene guile)) - #{exp1 11176}#)))))) - #{tmp 11157}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 11151}#)))))))))) + #(ribcage #(x) #((top)) #("i11153"))) + (hygiene guile))) + (list (list '#(syntax-object + set! + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #{var 11178}# + #{val 11179}#) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #{exp2 11180}#)) + (list (cons #{id 11176}# + '(#(syntax-object + x + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + (cons #{exp1 11177}# + '(#(syntax-object + x + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)))))) + (list #{id 11176}# + (list '#(syntax-object + identifier? + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #{id 11176}#)) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11171" + "i11172" + "i11173" + "i11174" + "i11175")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11153"))) + (hygiene guile)) + #{exp1 11177}#)))))) + #{tmp 11158}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 11152}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 11180}#) - (begin - (let ((#{tmp 11183}# - ($sc-dispatch - #{x 11180}# - '(_ (any . any) any . each-any)))) - (if #{tmp 11183}# - (@apply - (lambda (#{id 11188}# - #{args 11189}# - #{b0 11190}# - #{b1 11191}#) - (list '#(syntax-object - define - ((top) - #(ribcage - #(id args b0 b1) - #((top) (top) (top) (top)) - #("i11184" "i11185" "i11186" "i11187")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11181"))) - (hygiene guile)) - #{id 11188}# - (cons '#(syntax-object - lambda* - ((top) - #(ribcage - #(id args b0 b1) - #((top) (top) (top) (top)) - #("i11184" "i11185" "i11186" "i11187")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11181"))) - (hygiene guile)) - (cons #{args 11189}# - (cons #{b0 11190}# #{b1 11191}#))))) - #{tmp 11183}#) - (begin - (let ((#{tmp 11193}# - ($sc-dispatch #{x 11180}# '(_ any any)))) - (if (if #{tmp 11193}# - (@apply - (lambda (#{id 11196}# #{val 11197}#) - (identifier? - '#(syntax-object - x - ((top) - #(ribcage - #(id val) - #((top) (top)) - #("i11194" "i11195")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11181"))) - (hygiene guile)))) - #{tmp 11193}#) - #f) + (lambda (#{x 11181}#) + (let ((#{tmp 11184}# + ($sc-dispatch + #{x 11181}# + '(_ (any . any) any . each-any)))) + (if #{tmp 11184}# + (@apply + (lambda (#{id 11189}# + #{args 11190}# + #{b0 11191}# + #{b1 11192}#) + (list '#(syntax-object + define + ((top) + #(ribcage + #(id args b0 b1) + #((top) (top) (top) (top)) + #("i11185" "i11186" "i11187" "i11188")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11182"))) + (hygiene guile)) + #{id 11189}# + (cons '#(syntax-object + lambda* + ((top) + #(ribcage + #(id args b0 b1) + #((top) (top) (top) (top)) + #("i11185" "i11186" "i11187" "i11188")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11182"))) + (hygiene guile)) + (cons #{args 11190}# + (cons #{b0 11191}# #{b1 11192}#))))) + #{tmp 11184}#) + (let ((#{tmp 11194}# + ($sc-dispatch #{x 11181}# '(_ any any)))) + (if (if #{tmp 11194}# (@apply - (lambda (#{id 11200}# #{val 11201}#) - (list '#(syntax-object - define - ((top) - #(ribcage - #(id val) - #((top) (top)) - #("i11198" "i11199")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11181"))) - (hygiene guile)) - #{id 11200}# - #{val 11201}#)) - #{tmp 11193}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 11180}#)))))))))) + (lambda (#{id 11197}# #{val 11198}#) + (identifier? + '#(syntax-object + x + ((top) + #(ribcage + #(id val) + #((top) (top)) + #("i11195" "i11196")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11182"))) + (hygiene guile)))) + #{tmp 11194}#) + #f) + (@apply + (lambda (#{id 11201}# #{val 11202}#) + (list '#(syntax-object + define + ((top) + #(ribcage + #(id val) + #((top) (top)) + #("i11199" "i11200")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11182"))) + (hygiene guile)) + #{id 11201}# + #{val 11202}#)) + #{tmp 11194}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 11181}#))))))))