suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed unused :ucall

Browse Source 
svn: r938
This commit is contained in:
Matthew Flatt 2005-09-29 15:50:14 +00:00
parent 74a64f50da
commit 63e051aee8
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/private/mkmatch.ss
View File

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