From 823893f0ede686771f399bbab560859a0f735a80 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 23 Sep 2005 19:55:12 +0000 Subject: [PATCH] plt-match.ss/match.ss: - don't export match:test-no-order, which is only used in generated code test-no-order.ss - reformat code - use ormap instead of let loop render-test-list: - add define/opt sugar - remove a lot of pointless stx arguments - remove a lot of [quasi]syntax/loc gen-match: - use internal define instead of let - remove quasisyntax/loc - reformat - remove pointlessly optional argument coupling-and-binding: - reformat - use memf instead of custom loops svn: r908 original commit: d96e47c4b71b045d48c98f9deac1954492516019 --- collects/mzlib/match.ss | 3 +-- collects/mzlib/plt-match.ss | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss index 47d4b74..59c7316 100644 --- a/collects/mzlib/match.ss +++ b/collects/mzlib/match.ss @@ -117,8 +117,7 @@ match-equality-test exn:misc:match? exn:misc:match-value - define-match-expander - match:test-no-order) + define-match-expander) ;; FIXME: match-helper and match-error should each be split ;; into a compile-time part and a run-time part. diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.ss index 1c7ba68..8ae5725 100644 --- a/collects/mzlib/plt-match.ss +++ b/collects/mzlib/plt-match.ss @@ -142,8 +142,7 @@ exn:misc:match? exn:misc:match-value match-equality-test - define-match-expander - match:test-no-order) + define-match-expander) (require "private/match-internal-func.ss" "private/match-expander.ss"