diff options
| author |  Arvydas Silanskas
| 2022-08-06 11:35:06 +0300 |
|---|---|---|
| committer | Arvydas Silanskas
| 2022-08-06 11:35:06 +0300 |
| commit | fd4585b6e0ac67ae9591a4183fb7c82ed3a30218 (patch) | |
| tree | 8da6ad7744c6b26cbcf3acdd7d08e83c33c5e014 /srfi/225/core-impl.scm | |
| parent | Merge branch 'master' of https://github.com/johnwcowan/srfi-225 (diff) | |
return alists; refactor structure
Diffstat (limited to '')
| -rw-r--r-- | srfi/225/core-impl.scm (renamed from srfi/externals.scm) | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/srfi/externals.scm b/srfi/225/core-impl.scm index f1045e5..2e38432 100644 --- a/srfi/externals.scm +++ b/srfi/225/core-impl.scm @@ -104,7 +104,7 @@ (define (dto-ref dto procindex) (dto-ref-stx dto procindex)) -(define (make-modified-dto dto . lst) +(define (make-modified-dto dto lst) (define vec (vector-copy (procvec dto))) (do ((lst lst (cddr lst))) ((null? lst)) @@ -117,9 +117,6 @@ (vector-set! vec proc-id proc))) (make-dto-private vec)) -(define (make-dto . lst) - (apply make-modified-dto default-dto lst)) - (define-syntax dto-helper (syntax-rules () ((_ (arg ...) (index proc) rest ...) |