From 63e051aee8bd959372919664810a779503577d87 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Sep 2005 15:50:14 +0000 Subject: [PATCH] removed unused :ucall svn: r938 --- collects/mzlib/private/mkmatch.ss | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/collects/mzlib/private/mkmatch.ss b/collects/mzlib/private/mkmatch.ss index 74704bb90c..1d1fa9ee35 100644 --- a/collects/mzlib/private/mkmatch.ss +++ b/collects/mzlib/private/mkmatch.ss @@ -2,7 +2,7 @@ ;; Utilities for match (module mkmatch mzscheme - (provide genmatch genletrec gendefine pattern-var? match:syntax-err re:..k :ucall) + (provide genmatch genletrec gendefine pattern-var? match:syntax-err re:..k) (define re:..k (regexp "[.][.][0-9]+")) @@ -1156,12 +1156,4 @@ (define rac (lambda (l) (if (null? (cdr l)) (car l) (rac (cdr l))))) (define rdc (lambda (l) - (if (null? (cdr l)) '() (cons (car l) (rdc (cdr l)))))) - - (define-syntax :ucall - (lambda (stx) - (syntax-case stx () - [(_ name arg ...) - (syntax - (let ([name (syntax-local-value (quote-syntax name))]) - (name arg ...)))])))) + (if (null? (cdr l)) '() (cons (car l) (rdc (cdr l)))))))