diff options
| author |  Peter McGoron
| 2025-04-25 18:38:14 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-04-25 18:38:14 -0400 |
| commit | 3d84624b12fd38adb9a664a657580403e521e103 (patch) | |
| tree | d5b0ba6ab0d429e1f87ebee1e3a92fde0bcc96c0 | |
| parent | test vectors with matches after an ellipses (diff) | |
reorganize pattern module
| -rw-r--r-- | multisyntax/pattern/matcher.scm (renamed from multisyntax/patterns.scm) | 0 | ||||
| -rw-r--r-- | multisyntax/pattern/matcher.sld (renamed from multisyntax/patterns.sld) | 4 | ||||
| -rw-r--r-- | test/pattern/matcher.scm (renamed from test/patterns.scm) | 3 | ||||
| -rw-r--r-- | test/pattern/matcher.sld (renamed from test/patterns.sld) | 6 | ||||
| -rw-r--r-- | test/run.scm | 6 |
5 files changed, 11 insertions, 8 deletions
diff --git a/multisyntax/patterns.scm b/multisyntax/pattern/matcher.scm index 451ae78..451ae78 100644 --- a/multisyntax/patterns.scm +++ b/multisyntax/pattern/matcher.scm diff --git a/multisyntax/patterns.sld b/multisyntax/pattern/matcher.sld index 2f3450f..f62e78a 100644 --- a/multisyntax/patterns.sld +++ b/multisyntax/pattern/matcher.sld @@ -13,9 +13,9 @@ | limitations under the License. |# -(define-library (multisyntax patterns) +(define-library (multisyntax pattern matcher) (import (scheme base) (scheme write) (srfi 26) (srfi 111) (srfi 113) (srfi 146 hash) (multisyntax syntax-object)) (export compile-pattern) - (include "patterns.scm"))
\ No newline at end of file + (include "matcher.scm"))
\ No newline at end of file diff --git a/test/patterns.scm b/test/pattern/matcher.scm index a88ff1f..317454c 100644 --- a/test/patterns.scm +++ b/test/pattern/matcher.scm @@ -11,6 +11,9 @@ | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | See the License for the specific language governing permissions and | limitations under the License. + | + | To test: ellipsis and underscore as literals override their usual + | behavior. |# (define ellipsis (empty-wrap '...)) diff --git a/test/patterns.sld b/test/pattern/matcher.sld index 0d58aa2..ee33162 100644 --- a/test/patterns.sld +++ b/test/pattern/matcher.sld @@ -13,13 +13,13 @@ | limitations under the License. |# -(define-library (multisyntax patterns test) +(define-library (multisyntax pattern matcher test) (import (scheme base) (scheme write) (srfi 113) (srfi 146 hash) (multisyntax syntax-object) - (multisyntax patterns)) + (multisyntax pattern matcher)) (cond-expand (chicken (import (srfi 64) (chicken condition))) (else)) (export test-patterns) - (include "patterns.scm")) + (include "matcher.scm")) diff --git a/test/run.scm b/test/run.scm index a22fa45..e370a9a 100644 --- a/test/run.scm +++ b/test/run.scm @@ -15,7 +15,7 @@ (test-syntax-object) -(load "../multisyntax/patterns.sld") -(load "patterns.sld") -(import (multisyntax patterns test)) +(load "../multisyntax/pattern/matcher.sld") +(load "pattern/matcher.sld") +(import (multisyntax pattern matcher test)) (test-patterns) |