-
Notifications
You must be signed in to change notification settings - Fork 1
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
45 changed files
with
1,714 additions
and
1,585 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,12 +1,12 @@ | ||
| (module "compiled/declarations.kl") | ||
| "Copyright (c) 2010-2015, Mark Tarver\n\nAll rights reserved.\n\nRedistribution and use in source and binary forms, with or without\nmodification, are permitted provided that the following conditions are met:\n\n1. Redistributions of source code must retain the above copyright notice,\nthis list of conditions and the following disclaimer.\n\n2. Redistributions in binary form must reproduce the above copyright notice,\nthis list of conditions and the following disclaimer in the documentation\nand/or other materials provided with the distribution.\n\n3. Neither the name of the copyright holder nor the names of its contributors\nmay be used to endorse or promote products derived from this software without\nspecific prior written permission.\n\nTHIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ''AS IS'' AND\nANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\nWARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\nDISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE\nFOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\nDAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR\nSERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER\nCAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,\nOR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\nOF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n" | ||
| (begin (register-function-arity (quote shen.initialise_arity_table) 1) (define (kl:shen.initialise_arity_table V1554) (cond ((null? V1554) (quote ())) ((and (pair? V1554) (pair? (cdr V1554))) (let ((DecArity (kl:put (car V1554) (quote arity) (car (cdr V1554)) (kl:value (quote *property-vector*))))) (kl:shen.initialise_arity_table (cdr (cdr V1554))))) (#t (kl:shen.f_error (quote shen.initialise_arity_table))))) (export shen.initialise_arity_table) (quote shen.initialise_arity_table)) | ||
| (begin (register-function-arity (quote arity) 1) (define (kl:arity V1556) (guard (lambda (E) -1) (kl:get V1556 (quote arity) (kl:value (quote *property-vector*))))) (export arity) (quote arity)) | ||
| (begin (register-function-arity (quote systemf) 1) (define (kl:systemf V1558) (let ((Shen (kl:intern "shen"))) (let ((External (kl:get Shen (quote shen.external-symbols) (kl:value (quote *property-vector*))))) (let ((Place (kl:put Shen (quote shen.external-symbols) (kl:adjoin V1558 External) (kl:value (quote *property-vector*))))) V1558)))) (export systemf) (quote systemf)) | ||
| (begin (register-function-arity (quote adjoin) 2) (define (kl:adjoin V1561 V1562) (if (kl:element? V1561 V1562) V1562 (cons V1561 V1562))) (export adjoin) (quote adjoin)) | ||
| (begin (register-function-arity (quote shen.lambda-form-entry) 1) (define (kl:shen.lambda-form-entry V1564) (cond ((eq? (quote package) V1564) (quote ())) ((eq? (quote receive) V1564) (quote ())) (#t (let ((ArityF (kl:arity V1564))) (if (kl:= ArityF -1) (quote ()) (if (kl:= ArityF 0) (quote ()) (cons (cons V1564 (kl:eval-kl (kl:shen.lambda-form V1564 ArityF))) (quote ())))))))) (export shen.lambda-form-entry) (quote shen.lambda-form-entry)) | ||
| (begin (register-function-arity (quote shen.lambda-form) 2) (define (kl:shen.lambda-form V1567 V1568) (cond ((kl:= 0 V1568) V1567) (#t (let ((X (kl:gensym (quote V)))) (cons (quote lambda) (cons X (cons (kl:shen.lambda-form (kl:shen.add-end V1567 X) (- V1568 1)) (quote ())))))))) (export shen.lambda-form) (quote shen.lambda-form)) | ||
| (begin (register-function-arity (quote shen.add-end) 2) (define (kl:shen.add-end V1571 V1572) (cond ((pair? V1571) (kl:append V1571 (cons V1572 (quote ())))) (#t (cons V1571 (cons V1572 (quote ())))))) (export shen.add-end) (quote shen.add-end)) | ||
| (begin (register-function-arity (quote shen.set-lambda-form-entry) 1) (define (kl:shen.set-lambda-form-entry V1574) (cond ((pair? V1574) (kl:put (car V1574) (quote shen.lambda-form) (cdr V1574) (kl:value (quote *property-vector*)))) (#t (kl:shen.f_error (quote shen.set-lambda-form-entry))))) (export shen.set-lambda-form-entry) (quote shen.set-lambda-form-entry)) | ||
| (begin (register-function-arity (quote specialise) 1) (define (kl:specialise V1576) (begin (kl:set (quote shen.*special*) (cons V1576 (kl:value (quote shen.*special*)))) V1576)) (export specialise) (quote specialise)) | ||
| (begin (register-function-arity (quote unspecialise) 1) (define (kl:unspecialise V1578) (begin (kl:set (quote shen.*special*) (kl:remove V1578 (kl:value (quote shen.*special*)))) V1578)) (export unspecialise) (quote unspecialise)) | ||
| (begin (register-function-arity (quote shen.initialise_arity_table) 1) (define (kl:shen.initialise_arity_table V393) (cond ((null? V393) (quote ())) ((and (pair? V393) (pair? (cdr V393))) (let ((DecArity (kl:put (car V393) (quote arity) (car (cdr V393)) (kl:value (quote *property-vector*))))) (kl:shen.initialise_arity_table (cdr (cdr V393))))) (#t (kl:shen.f_error (quote shen.initialise_arity_table))))) (export shen.initialise_arity_table) (quote shen.initialise_arity_table)) | ||
| (begin (register-function-arity (quote arity) 1) (define (kl:arity V395) (guard (lambda (E) -1) (kl:get V395 (quote arity) (kl:value (quote *property-vector*))))) (export arity) (quote arity)) | ||
| (begin (register-function-arity (quote systemf) 1) (define (kl:systemf V397) (let ((Shen (kl:intern "shen"))) (let ((External (kl:get Shen (quote shen.external-symbols) (kl:value (quote *property-vector*))))) (let ((Place (kl:put Shen (quote shen.external-symbols) (kl:adjoin V397 External) (kl:value (quote *property-vector*))))) V397)))) (export systemf) (quote systemf)) | ||
| (begin (register-function-arity (quote adjoin) 2) (define (kl:adjoin V400 V401) (if (kl:element? V400 V401) V401 (cons V400 V401))) (export adjoin) (quote adjoin)) | ||
| (begin (register-function-arity (quote shen.lambda-form-entry) 1) (define (kl:shen.lambda-form-entry V403) (cond ((eq? (quote package) V403) (quote ())) ((eq? (quote receive) V403) (quote ())) (#t (let ((ArityF (kl:arity V403))) (if (kl:= ArityF -1) (quote ()) (if (kl:= ArityF 0) (quote ()) (cons (cons V403 (kl:eval-kl (kl:shen.lambda-form V403 ArityF))) (quote ())))))))) (export shen.lambda-form-entry) (quote shen.lambda-form-entry)) | ||
| (begin (register-function-arity (quote shen.lambda-form) 2) (define (kl:shen.lambda-form V406 V407) (cond ((kl:= 0 V407) V406) (#t (let ((X (kl:gensym (quote V)))) (cons (quote lambda) (cons X (cons (kl:shen.lambda-form (kl:shen.add-end V406 X) (- V407 1)) (quote ())))))))) (export shen.lambda-form) (quote shen.lambda-form)) | ||
| (begin (register-function-arity (quote shen.add-end) 2) (define (kl:shen.add-end V410 V411) (cond ((pair? V410) (kl:append V410 (cons V411 (quote ())))) (#t (cons V410 (cons V411 (quote ())))))) (export shen.add-end) (quote shen.add-end)) | ||
| (begin (register-function-arity (quote shen.set-lambda-form-entry) 1) (define (kl:shen.set-lambda-form-entry V413) (cond ((pair? V413) (kl:put (car V413) (quote shen.lambda-form) (cdr V413) (kl:value (quote *property-vector*)))) (#t (kl:shen.f_error (quote shen.set-lambda-form-entry))))) (export shen.set-lambda-form-entry) (quote shen.set-lambda-form-entry)) | ||
| (begin (register-function-arity (quote specialise) 1) (define (kl:specialise V415) (begin (kl:set (quote shen.*special*) (cons V415 (kl:value (quote shen.*special*)))) V415)) (export specialise) (quote specialise)) | ||
| (begin (register-function-arity (quote unspecialise) 1) (define (kl:unspecialise V417) (begin (kl:set (quote shen.*special*) (kl:remove V417 (kl:value (quote shen.*special*)))) V417)) (export unspecialise) (quote unspecialise)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,18 +1,18 @@ | ||
| (module "compiled/dict.kl") | ||
| "Copyright (c) 2010-2015, Mark Tarver\n\nAll rights reserved.\n\nRedistribution and use in source and binary forms, with or without\nmodification, are permitted provided that the following conditions are met:\n\n1. Redistributions of source code must retain the above copyright notice,\nthis list of conditions and the following disclaimer.\n\n2. Redistributions in binary form must reproduce the above copyright notice,\nthis list of conditions and the following disclaimer in the documentation\nand/or other materials provided with the distribution.\n\n3. Neither the name of the copyright holder nor the names of its contributors\nmay be used to endorse or promote products derived from this software without\nspecific prior written permission.\n\nTHIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ''AS IS'' AND\nANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\nWARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\nDISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE\nFOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\nDAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR\nSERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER\nCAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,\nOR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\nOF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n" | ||
| (begin (register-function-arity (quote shen.dict) 1) (define (kl:shen.dict V3445) (cond ((< V3445 1) (simple-error (string-append "invalid initial dict size: " (kl:shen.app V3445 "" (quote shen.s))))) (#t (let ((D (make-vector (+ 3 V3445) (quote (quote shen.fail!))))) (let ((Tag (let ((_tmp D)) (vector-set! _tmp 0 (quote shen.dictionary)) _tmp))) (let ((Capacity (let ((_tmp D)) (vector-set! _tmp 1 V3445) _tmp))) (let ((Count (let ((_tmp D)) (vector-set! _tmp 2 0) _tmp))) (let ((Fill (kl:shen.fillvector D 3 (+ 2 V3445) (quote ())))) D)))))))) (export shen.dict) (quote shen.dict)) | ||
| (begin (register-function-arity (quote shen.dict?) 1) (define (kl:shen.dict? V3447) (and (vector? V3447) (eq? (guard (lambda (E) (quote shen.not-dictionary)) (vector-ref V3447 0)) (quote shen.dictionary)))) (export shen.dict?) (quote shen.dict?)) | ||
| (begin (register-function-arity (quote shen.dict-capacity) 1) (define (kl:shen.dict-capacity V3449) (vector-ref V3449 1)) (export shen.dict-capacity) (quote shen.dict-capacity)) | ||
| (begin (register-function-arity (quote shen.dict-count) 1) (define (kl:shen.dict-count V3451) (vector-ref V3451 2)) (export shen.dict-count) (quote shen.dict-count)) | ||
| (begin (register-function-arity (quote shen.dict-count->) 2) (define (kl:shen.dict-count-> V3454 V3455) (let ((_tmp V3454)) (vector-set! _tmp 2 V3455) _tmp)) (export shen.dict-count->) (quote shen.dict-count->)) | ||
| (begin (register-function-arity (quote shen.<-dict-bucket) 2) (define (kl:shen.<-dict-bucket V3458 V3459) (vector-ref V3458 (+ 3 V3459))) (export shen.<-dict-bucket) (quote shen.<-dict-bucket)) | ||
| (begin (register-function-arity (quote shen.dict-bucket->) 3) (define (kl:shen.dict-bucket-> V3463 V3464 V3465) (let ((_tmp V3463)) (vector-set! _tmp (+ 3 V3464) V3465) _tmp)) (export shen.dict-bucket->) (quote shen.dict-bucket->)) | ||
| (begin (register-function-arity (quote shen.dict-update-count) 3) (define (kl:shen.dict-update-count V3469 V3470 V3471) (let ((Diff (- (kl:length V3471) (kl:length V3470)))) (kl:shen.dict-count-> V3469 (+ Diff (kl:shen.dict-count V3469))))) (export shen.dict-update-count) (quote shen.dict-update-count)) | ||
| (begin (register-function-arity (quote shen.dict->) 3) (define (kl:shen.dict-> V3475 V3476 V3477) (let ((N (kl:hash V3476 (kl:shen.dict-capacity V3475)))) (let ((Bucket (kl:shen.<-dict-bucket V3475 N))) (let ((NewBucket (kl:shen.assoc-set V3476 V3477 Bucket))) (let ((Change (kl:shen.dict-bucket-> V3475 N NewBucket))) (let ((Count (kl:shen.dict-update-count V3475 Bucket NewBucket))) V3477)))))) (export shen.dict->) (quote shen.dict->)) | ||
| (begin (register-function-arity (quote shen.<-dict) 2) (define (kl:shen.<-dict V3480 V3481) (let ((N (kl:hash V3481 (kl:shen.dict-capacity V3480)))) (let ((Bucket (kl:shen.<-dict-bucket V3480 N))) (let ((Result (kl:assoc V3481 Bucket))) (if (kl:empty? Result) (simple-error (string-append "value " (kl:shen.app V3481 " not found in dict\n" (quote shen.a)))) (cdr Result)))))) (export shen.<-dict) (quote shen.<-dict)) | ||
| (begin (register-function-arity (quote shen.dict-rm) 2) (define (kl:shen.dict-rm V3484 V3485) (let ((N (kl:hash V3485 (kl:shen.dict-capacity V3484)))) (let ((Bucket (kl:shen.<-dict-bucket V3484 N))) (let ((NewBucket (kl:shen.assoc-rm V3485 Bucket))) (let ((Change (kl:shen.dict-bucket-> V3484 N NewBucket))) (let ((Count (kl:shen.dict-update-count V3484 Bucket NewBucket))) V3485)))))) (export shen.dict-rm) (quote shen.dict-rm)) | ||
| (begin (register-function-arity (quote shen.dict-fold) 3) (define (kl:shen.dict-fold V3489 V3490 V3491) (let ((Limit (kl:shen.dict-capacity V3490))) (kl:shen.dict-fold-h V3489 V3490 V3491 0 Limit))) (export shen.dict-fold) (quote shen.dict-fold)) | ||
| (begin (register-function-arity (quote shen.dict-fold-h) 5) (define (kl:shen.dict-fold-h V3498 V3499 V3500 V3501 V3502) (cond ((kl:= V3502 V3501) V3500) (#t (let ((B (kl:shen.<-dict-bucket V3499 V3501))) (let ((Acc (kl:shen.bucket-fold V3498 B V3500))) (kl:shen.dict-fold-h V3498 V3499 Acc (+ 1 V3501) V3502)))))) (export shen.dict-fold-h) (quote shen.dict-fold-h)) | ||
| (begin (register-function-arity (quote shen.bucket-fold) 3) (define (kl:shen.bucket-fold V3506 V3507 V3508) (cond ((null? V3507) V3508) ((and (pair? V3507) (pair? (car V3507))) (((V3506 (car (car V3507))) (cdr (car V3507))) (kl:shen.bucket-fold V3506 (cdr V3507) V3508))) (#t (kl:shen.f_error (quote shen.bucket-fold))))) (export shen.bucket-fold) (quote shen.bucket-fold)) | ||
| (begin (register-function-arity (quote shen.dict-keys) 1) (define (kl:shen.dict-keys V3510) (kl:shen.dict-fold (lambda (K) (lambda (_) (lambda (Acc) (cons K Acc)))) V3510 (quote ()))) (export shen.dict-keys) (quote shen.dict-keys)) | ||
| (begin (register-function-arity (quote shen.dict-values) 1) (define (kl:shen.dict-values V3512) (kl:shen.dict-fold (lambda (_) (lambda (V) (lambda (Acc) (cons V Acc)))) V3512 (quote ()))) (export shen.dict-values) (quote shen.dict-values)) | ||
| (begin (register-function-arity (quote shen.dict) 1) (define (kl:shen.dict V2284) (cond ((< V2284 1) (simple-error (string-append "invalid initial dict size: " (kl:shen.app V2284 "" (quote shen.s))))) (#t (let ((D (make-vector (+ 3 V2284) (quote (quote shen.fail!))))) (let ((Tag (let ((_tmp D)) (vector-set! _tmp 0 (quote shen.dictionary)) _tmp))) (let ((Capacity (let ((_tmp D)) (vector-set! _tmp 1 V2284) _tmp))) (let ((Count (let ((_tmp D)) (vector-set! _tmp 2 0) _tmp))) (let ((Fill (kl:shen.fillvector D 3 (+ 2 V2284) (quote ())))) D)))))))) (export shen.dict) (quote shen.dict)) | ||
| (begin (register-function-arity (quote shen.dict?) 1) (define (kl:shen.dict? V2286) (and (vector? V2286) (eq? (guard (lambda (E) (quote shen.not-dictionary)) (vector-ref V2286 0)) (quote shen.dictionary)))) (export shen.dict?) (quote shen.dict?)) | ||
| (begin (register-function-arity (quote shen.dict-capacity) 1) (define (kl:shen.dict-capacity V2288) (vector-ref V2288 1)) (export shen.dict-capacity) (quote shen.dict-capacity)) | ||
| (begin (register-function-arity (quote shen.dict-count) 1) (define (kl:shen.dict-count V2290) (vector-ref V2290 2)) (export shen.dict-count) (quote shen.dict-count)) | ||
| (begin (register-function-arity (quote shen.dict-count->) 2) (define (kl:shen.dict-count-> V2293 V2294) (let ((_tmp V2293)) (vector-set! _tmp 2 V2294) _tmp)) (export shen.dict-count->) (quote shen.dict-count->)) | ||
| (begin (register-function-arity (quote shen.<-dict-bucket) 2) (define (kl:shen.<-dict-bucket V2297 V2298) (vector-ref V2297 (+ 3 V2298))) (export shen.<-dict-bucket) (quote shen.<-dict-bucket)) | ||
| (begin (register-function-arity (quote shen.dict-bucket->) 3) (define (kl:shen.dict-bucket-> V2302 V2303 V2304) (let ((_tmp V2302)) (vector-set! _tmp (+ 3 V2303) V2304) _tmp)) (export shen.dict-bucket->) (quote shen.dict-bucket->)) | ||
| (begin (register-function-arity (quote shen.dict-update-count) 3) (define (kl:shen.dict-update-count V2308 V2309 V2310) (let ((Diff (- (kl:length V2310) (kl:length V2309)))) (kl:shen.dict-count-> V2308 (+ Diff (kl:shen.dict-count V2308))))) (export shen.dict-update-count) (quote shen.dict-update-count)) | ||
| (begin (register-function-arity (quote shen.dict->) 3) (define (kl:shen.dict-> V2314 V2315 V2316) (let ((N (kl:hash V2315 (kl:shen.dict-capacity V2314)))) (let ((Bucket (kl:shen.<-dict-bucket V2314 N))) (let ((NewBucket (kl:shen.assoc-set V2315 V2316 Bucket))) (let ((Change (kl:shen.dict-bucket-> V2314 N NewBucket))) (let ((Count (kl:shen.dict-update-count V2314 Bucket NewBucket))) V2316)))))) (export shen.dict->) (quote shen.dict->)) | ||
| (begin (register-function-arity (quote shen.<-dict) 2) (define (kl:shen.<-dict V2319 V2320) (let ((N (kl:hash V2320 (kl:shen.dict-capacity V2319)))) (let ((Bucket (kl:shen.<-dict-bucket V2319 N))) (let ((Result (kl:assoc V2320 Bucket))) (if (kl:empty? Result) (simple-error (string-append "value " (kl:shen.app V2320 " not found in dict\n" (quote shen.a)))) (cdr Result)))))) (export shen.<-dict) (quote shen.<-dict)) | ||
| (begin (register-function-arity (quote shen.dict-rm) 2) (define (kl:shen.dict-rm V2323 V2324) (let ((N (kl:hash V2324 (kl:shen.dict-capacity V2323)))) (let ((Bucket (kl:shen.<-dict-bucket V2323 N))) (let ((NewBucket (kl:shen.assoc-rm V2324 Bucket))) (let ((Change (kl:shen.dict-bucket-> V2323 N NewBucket))) (let ((Count (kl:shen.dict-update-count V2323 Bucket NewBucket))) V2324)))))) (export shen.dict-rm) (quote shen.dict-rm)) | ||
| (begin (register-function-arity (quote shen.dict-fold) 3) (define (kl:shen.dict-fold V2328 V2329 V2330) (let ((Limit (kl:shen.dict-capacity V2329))) (kl:shen.dict-fold-h V2328 V2329 V2330 0 Limit))) (export shen.dict-fold) (quote shen.dict-fold)) | ||
| (begin (register-function-arity (quote shen.dict-fold-h) 5) (define (kl:shen.dict-fold-h V2337 V2338 V2339 V2340 V2341) (cond ((kl:= V2341 V2340) V2339) (#t (let ((B (kl:shen.<-dict-bucket V2338 V2340))) (let ((Acc (kl:shen.bucket-fold V2337 B V2339))) (kl:shen.dict-fold-h V2337 V2338 Acc (+ 1 V2340) V2341)))))) (export shen.dict-fold-h) (quote shen.dict-fold-h)) | ||
| (begin (register-function-arity (quote shen.bucket-fold) 3) (define (kl:shen.bucket-fold V2345 V2346 V2347) (cond ((null? V2346) V2347) ((and (pair? V2346) (pair? (car V2346))) (((V2345 (car (car V2346))) (cdr (car V2346))) (kl:shen.bucket-fold V2345 (cdr V2346) V2347))) (#t (kl:shen.f_error (quote shen.bucket-fold))))) (export shen.bucket-fold) (quote shen.bucket-fold)) | ||
| (begin (register-function-arity (quote shen.dict-keys) 1) (define (kl:shen.dict-keys V2349) (kl:shen.dict-fold (lambda (K) (lambda (_) (lambda (Acc) (cons K Acc)))) V2349 (quote ()))) (export shen.dict-keys) (quote shen.dict-keys)) | ||
| (begin (register-function-arity (quote shen.dict-values) 1) (define (kl:shen.dict-values V2351) (kl:shen.dict-fold (lambda (_) (lambda (V) (lambda (Acc) (cons V Acc)))) V2351 (quote ()))) (export shen.dict-values) (quote shen.dict-values)) |
Oops, something went wrong.