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
This commit is contained in:
Sam Tobin-Hochstadt 2005-09-23 19:55:12 +00:00
parent 192d52ac51
commit 823893f0ed
2 changed files with 2 additions and 4 deletions

View File

@ -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.

View File

@ -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"